Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Keldorn,
8. Mai 2005
du hast gesagt die ersten 10 Zeichen und nicht so viele unterschiedliche Farben ;) Bei soviel wäre eine Listview vielleicht wirklich besser, allerdings erhäslt du dann immer ein Tabellenform der Ausgabe.
Du suchst pos, damit kannst diu ermittlen, wo der : im string ist.
zu deinem Code noch ein paar Anmerkungen:
Den font.style brauchst du nicht zusetzen.
s3:=s3;
wird dir Probleme...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Keldorn,
7. Mai 2005
als Anregung:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
Var Textbreite:integer;
s:string;
begin
//style der listbox auf ownerdrawfixed stellen!
with control as TListBox do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Keldorn,
7. Mai 2005
Hallo
Selberzeichnen im ondrawitem. Du kannst den string teilen und den ersten Teil mit fabre xy zeichnen, mit canvas.textwidth die notwendige Länge bestimmen und ab dort den zweiten Teil in Farbe Z zeichnen.
Mfg Frank