Bonjour,
je pars de ce source :
Il paraît que ce code est compatible XE4. En XE7, j'obtiens
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 unit TreeViewImage; interface uses FMX.TreeView, FMX.Objects, FMX.Types, System.Classes; type TTreeViewImageItem = class(TTreeViewItem) private FImage: TImage; FShowImage: Boolean; FImageStyleLookup: String; procedure SetShowImage(const Value: Boolean); procedure SetImageStyleLookup(const Value: String); protected procedure ApplyStyle;override; procedure FreeStyle;override; public constructor Create(AOwner: TComponent);override; published property ImageStyleLookup: String read fImageStyleLookup write SetImageStyleLookup; property ShowImage: Boolean read FShowImage write SetShowImage default True; end; implementation { TTreeViewImageItem } procedure TTreeViewImageItem.ApplyStyle; var Obj: TFMXObject; begin inherited; Obj := FindStyleResource('image'); if Obj is TImage then begin FImage := TImage(Obj); FImage.Visible := ShowImage; FImage.Bitmap.StyleLookup := FImageStyleLookup; end; end; constructor TTreeViewImageItem.Create(AOwner: TComponent); begin inherited; ShowImage := True; end; procedure TTreeViewImageItem.FreeStyle; begin inherited; FImage := nil; end; procedure TTreeViewImageItem.SetImageStyleLookup(const Value: String); var O: TFMXObject; begin FImageStyleLookup := Value; if Assigned(FImage) then FImage.Bitmap.StyleLookup := Value; end; procedure TTreeViewImageItem.SetShowImage(const Value: Boolean); begin FShowImage := Value; if Assigned(FImage) then FImage.Visible := Value; end; end.
Merci pour votre aide.[dcc32 Erreur] TreeViewImage.pas(36): E2003 Identificateur non déclaré : 'StyleLookup'
[dcc32 Erreur] TreeViewImage.pas(57): E2003 Identificateur non déclaré : 'StyleLookup'
Partager