1 pièce(s) jointe(s)
ListView, apparence dynamique et image
Bonjour,
je reviens sur ce sujet, que j'ai abordé à maintes reprises, car j'ai l'impression d'avoir fait une petite boulette (fuite de mémoire) dans mes essais (https://serge-girard.developpez.com/...dings/ListView
suite à ce que j'ai pu écrire ici, j'ai pu aller plus loin jusqu'à ce que je constate une fuite de mémoire :aie:
la cause, cette instruction AListItemBitmap.Bitmap:=TBitmap.Create(40,40);voilà le challenge : avoir des éléments au sein d'un rectangle au coin arrondi.
Pièce jointe 644454
(cerise sur le gâteau, avoir une couleur différente pour l'élément sélectionné :lol:)
mon code, sans fuite mémoire
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
| private
{ Déclarations privées }
backcolor,selectedcolor, itemcolor, alternative : TAlphaColor;
afmxobj : TFmxObject;
idrec : integer;
public
{ Déclarations publiques }
end;
var
Form15: TForm15;
implementation
{$R *.fmx}
uses System.UIConsts;
procedure TForm15.FormCreate(Sender: TObject);
var afmxobj : TFmxObject;
begin
// obtenir les couleurs du style, modifier au besoin
afmxobj := Stylebook1.Style.FindStyleResource('listviewstyle.background');
if assigned(afmxObj) and (afmxobj is TColorObject) then
backcolor:=TColorObject(afmxobj).Color;
afmxobj := Stylebook1.Style.FindStyleResource('listviewstyle.itembackground');
if assigned(afmxObj) and (afmxobj is TColorObject) then
// itemcolor:=TColorObject(afmxobj).Color;
itemcolor:=Talphacolors.Green;
afmxobj := Stylebook1.Style.FindStyleResource('listviewstyle.alternatingitembackground');
if assigned(afmxObj) and (afmxobj is TColorObject) then
// alternative:=TColorObject(afmxobj).Color;
alternative:=Talphacolors.Navy;
afmxobj := Stylebook1.Style.FindStyleResource('listviewstyle.glow');
if assigned(afmxObj) and (afmxobj is TColorObject) then
begin
selectedcolor:=TColorObject(afmxobj).Color;
end;
// cacher les cadres
afmxobj := Stylebook1.Style.FindStyleResource('listviewstyle.frame');
if assigned(afmxObj) and (afmxobj is TColorObject) then
TColorObject(afmxobj).Color:=$00000000;
// cacher selection
afmxobj := Stylebook1.Style.FindStyleResource('listviewstyle.selection');
if assigned(afmxObj) and (afmxobj is TStyleObject) then
TStyleObject(afmxobj).visible:=false;
idrec:=0;
end;
procedure TForm15.ListView1ItemClick(const Sender: TObject;
const AItem: TListViewItem);
begin
idrec:=Listview1.ItemIndex;
ListView1.RecalcSize;
end;
procedure TForm15.ListView1UpdatingObjects(const Sender: TObject;
const AItem: TListViewItem; var AHandled: Boolean);
var AListItemBitmap : TListItemImage;
AColor : TAlphaColor;
aCanvas : Tcanvas;
abitmap : TBitmap;
begin
AListItemBitmap:=AItem.Objects.FindObjectT<TListItemImage>('Image2');
if assigned(AListItemBitmap) then
begin
// AListItemBitmap.Bitmap:=Image1.Bitmap; // non
// AListItemBitmap.Bitmap:=TBitmap.Create(Trunc(listview1.width),Trunc(ListView1.ItemAppearance.ItemHeight)); // non, fuite mémoire
aColor:=ItemColor;
if Listview1.AlternatingColors AND (odd(aitem.index))then acolor:=Alternative;
if aitem.index=idrec then
acolor:=selectedcolor;
AListItemBitmap.Bitmap.SetSize(Trunc(listview1.width),Trunc(ListView1.ItemAppearance.ItemHeight));
AListItemBitmap.Bitmap.Clear(backcolor) ;
with AListItemBitmap.bitmap.Canvas do
begin
BeginScene;
Fill.Color:=acolor;
Fill.Kind:=TBrushkind.Solid;
FillRect(TREctF.Create(0,0,listview1.width,ListView1.ItemAppearance.ItemHeight),20,20,allCorners,1);
Stroke.Thickness:=1;
Stroke.Color:=TAlphaColors.red;
DrawRectSides(TREctF.Create(0,0,listview1.width,ListView1.ItemAppearance.ItemHeight),20,20,allCorners,1,allSides);
EndScene;
end;
end;
end;
end. |
Seulement, si cela fonctionne, cela nécessite qu'un bitmap soit lié :weird: Ma question, comment faire en sorte que je n'aie pas besoin de bitmap à lier (cf code en rouge) sans que, pour autant, je n'aie pas de fuite mémoire ?
