Wie TComboBox Einträge je nach true/false Icons eintragen?

**madina**

Hallo,

ich habe ein TClientDataSet mit einem Feld bZeige (Boolean), je nach True/False will ich die TComoBox Einträge mit zwei verschiedene Icons (True=Hacken; False=Kreuz) aus diesem TClientDataSet darstellen.

Mit folgenden SourceCode kann ich dies leider teilweise darstellen:

zusammenfalten · markieren

Delphi-Quellcode:

			  
procedure TForm1.TComoBoxDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

begin

  // Icon

  icBild: TIcon;

  icBild:= TIcon.create;

  TComoBox.Canvas.CopyMode:= cmDstInvert;

  TComoBox.Canvas.FillRect(Rect);

  // IconHolen

  if (TClientDataSet.bZeige) then TImageList.GetIcon(0, icBild)

  else TImageList.GetIcon(1, icBild)

  TComoBox.Canvas.Draw(Rect.Left, Rect.Top, icBild);                          // IconZeichnen

  TComoBox.Canvas.TextOut(Rect.Left+25, Rect.Top, TComoBox.Items.Strings[Index]);   // TextZeichnen 

end;

Meine Frage: wie kann ich alle TCombobox Einträge mit Hacken/Kreuz Icons je nach True/false darstellen?

mfg

Wie TComboBox Einträge je nach true/false Icons eintragen?

Wie TComboBox Einträge je nach true/false Icons eintragen?

Forumregeln