Ich habs jetzt:
Delphi-Quellcode:
begin
cb := TComboBox(Control);
zeileone := Memo1.lines[0];
zeiletwo := Memo1.lines[1];
zeilethree := Memo1.lines[2];
case Index of
0 :
begin
cb.Canvas.Brush.Color := clWhite;
cb.Canvas.FillRect(Rect);
cb.Canvas.Font.Color := clBlack;
if zeileone[length(zeileone)] = '1' then
cb.Canvas.Font.Style := [fsBold]
else if zeileone[length(zeileone)] = '2' then
cb.Canvas.Font.Style := [fsItalic]
else if zeileone[length(zeileone)] = '3' then
cb.Canvas.Font.Style := [fsUnderline]
else if zeileone[length(zeileone)] = '4' then
cb.Canvas.Font.Style := [fsStrikeOut];
cb.Canvas.TextOut(Rect.Left,Rect.Top,cb.Items[Index]);
end;
1 :
begin
...
Ich frage einfach die Zeilen im Memo ab!!! Und führe die Ereignisse in der Case-Anweisung durch.