Einzelnen Beitrag anzeigen

mase1908

Registriert seit: 9. Sep 2005
16 Beiträge
 
Delphi 7 Enterprise
 
#14

Re: Einzelne Einträge in einer Combobox verändern

  Alt 12. Sep 2005, 16:02
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)] = '1then
           cb.Canvas.Font.Style := [fsBold]
        else if zeileone[length(zeileone)] = '2then
           cb.Canvas.Font.Style := [fsItalic]
        else if zeileone[length(zeileone)] = '3then
           cb.Canvas.Font.Style := [fsUnderline]
        else if zeileone[length(zeileone)] = '4then
           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.
  Mit Zitat antworten Zitat