Hallo Zusammen,
Zitat von
fkerber:
Hallo Sebastian,
könntest du bitte in deinem ersten Beitrag auch noch die Delphi-Tags um den Quellcode herum setzen?
Dann sieht es hübscher aus
Danke!
Grüße, Frederic
...ich arbeite dran...bei meiner letzten Antwort habe ich es ja gemacht.
Hier nun der aktuelle Code und Datenbankbasiert, die Combobox wird im vorfeld mit bestimmten Einträgen gefüttert:
Delphi-Quellcode:
procedure TMHauptmaske.ComboBoxDrawItem(Control: TWinControl;
Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var holdColor: TColor;
begin
holdColor := ((FindComponent(CB))
as TCombobox).Canvas.Brush.Color;
DB.TSTSTATUS.Locate('
BEZ',((FindComponent(CB))
as TCombobox).Items[
index],[]);
((FindComponent(CB))
as TCombobox).canvas.Brush.Color := stringtocolor(
DB.TSTSTATUSFARBE.asstring);
((FindComponent(CB))
as TCombobox).canvas.Font.Color := clblack;
((FindComponent(CB))
as TCombobox).Canvas.FillRect(rect);
((FindComponent(CB))
as TCombobox).Canvas.TextOut(Rect.left, Rect.top, ((FindComponent(CB))
as TCombobox).Items[
index]);
((FindComponent(CB))
as TCombobox).canvas.brush.Color := holdColor;
end;
Vielen Dank für Eure Hilfe!