Ok, jetzt hab ich mal meine OnDraw-Procdure erweitert.
In Listbox2 stehen die Einträge [0, 2, 5] drin.
Die versuche ich mit einer For-Schleife auszulesen und dann mit dem Index zu vergleichen.
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var i, i2, iihnhalt: integer;
begin
with (Control as TListBox).Canvas do
begin
for i:= 0 to listbox2.Count-1 do
begin
iihnhalt:= strtoint(listbox2.Items[i]);
If Index = iihnhalt then
begin
FillRect(rect);
Font.Style:= [fsbold];
TextOut(Rect.Left+2, Rect.Top, listbox1.Items[index]);
end
else
begin
FillRect(rect);
Font.Style:= [];
TextOut(Rect.Left+2, Rect.Top, listbox1.Items[index]);
end;
end; //DO
end; //with
end;
Allerdings, markiert er mir nur den fünften Eintrag, also den letzten der Listbbox, fett. Alle anderen sind normal.