Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
5. Dez 2007
Na gut, dann muss du eben das Property Data benützen.
Das ist aber nicht so angenehm, wie das Property Checked zu benützen.
procedure Tform.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if integer(Item.Data) = 99 then
Sender.Canvas.Font.Style :=
else
Sender.Canvas.Font.Style := ;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
5. Dez 2007
Dann kannst du aber TROTZDEM das Property Checked benützen; dann eben in Kombination mit deinem CustomDrawHandler.
procedure Tform.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.Checked then
Sender.Canvas.Font.Style :=
else
Sender.Canvas.Font.Style := ;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
5. Dez 2007
Schau mal in die Hilfe; ein TListItem-Objekt hat das Property Checked.
Setze ViewStyle auf vsReport und CheckBoxes auf True, dann bist du schon fertig und braucht keinen CustomDraw Handler.