Achso na dann hab ich dich falsch verstanden gehabt
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var i, iihnhalt: integer;
begin
with (Control as TListBox).Canvas do
begin
FillRect(rect);
for i:= 0 to listbox2.Count-1 do
begin
iihnhalt:= strtoint(listbox2.Items[i]);
If Index = iihnhalt then
Font.Style:= [fsbold]
else
Font.Style:= [];
end;
TextOut(Rect.Left + 2, Rect.Top, listbox1.Items[index]);
end;
end;
Mach das aber mal so, dda ist ja soviel redundanz drinne und das Textout gehört auch nicht in die Schleife mit rein, dann wird es ja womöglich viel zu oft aufgerufen.