Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by xaromz,
26. Jun 2006
Hallo,
Hab's ausgebessert.
Gruß
xaromz
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by xaromz,
25. Jun 2006
Hallo,
Wie wär's hiermit:
procedure TForm1.ObjectsListCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if SubItem = 4 then // Drittes SubItem (erstes SubItem = 2)
begin
if Item.SubItems = 'a' then // Haken
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by xaromz,
24. Jun 2006
Hallo,
klar geht das ganz einfach. Du setzt als SubItem gegebenenfalls ein kleines "A". Das ist ein Haken beim Font "Webdings". Jetzt musst Du nur noch das Item selbst zeichnen. Dazu erstellst Du ein Ereignis "OnCustomDrawSubItem", und wenn das entsprechende Item vorbeikommt, stellst Du einfach den Font um.
Das sollte es gewesen sein.
Beispiel:
procedure...