Hallo liebe Experten,
ich möchte die Einträge in meiner Listbox selber zeichnen,
weil abhängig vom Inhalt die Schriftfarbe gesetzt werden soll.
Also habe ich das Ereignis entsprechend bestückt.
Die Schriftfarbe wird auch entsprechend gesetzt, aber
der Markierungsbalken ist in babyblau.
Ich hätte ihn gern in $00D7D7D7 (irgendwie grau),
aber wenn ich den auskommentierten Code aktiviere, werden alle
Zeilen in grau dargestellt wenn ich durch die Liste scrolle (itemindex+1/-1)
was mach ich denn falsch?
Delphi-Quellcode:
procedure TForm2.ListBox2DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var Offset: Integer; { text offset width }
nr:integer;
begin
with (Control as TListBox).Canvas do
begin
{if index=(Control as TListBox).itemindex then
brush.color:=$00D7D7D7
else
brush.color:=clWhite;}
FillRect(Rect);
Offset := 2;
font.Style:=[];
font.Size:=16;
nr:=StrToInt(copy((Control as TListBox).Items[Index],10,2));
case nr of
69: begin
font.color:=clRed;
font.Style:=[fsbold];
end;
17,22: font.color:=clGray;
10,13,19,20,31,32,37,53,35,36: font.color:=$000080FF;
11,12,21,33,52: font.color:=clGreen;
else font.color:=clBlack;
end;
TextOut(Rect.Left + Offset, Rect.Top, (Control as TListBox).Items[Index])
end
end;