Quelltext kommentieren

[gmc616]

Delphi-Quellcode:

begin
  with Control as TListBox do begin  // Mit dem gewählten Control
    Canvas.FillRect(Rect); // mal ein Viereck, so groß wie das Control ist
    Canvas.FontColor:=TColor(Items.Objects[Index]); // Setze Schriftart, so wie irgendwo gewählt
    Canvas.TextOut(Rect.Left +2, Rect.Top, Items[Index]); // Schreibe einen String aufs Control
  end;
end;

Mehr läßt sich auch den 5 Zeilen nicht entnehmen