Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
2. Jan 2006
Und wozu soll das gut sein ? :shock: Man braucht doch selbst dann nur dafür sorgen, daß genügend Zeilen für den sichtbaren Bereich vorhanden sind. Z.B. so in der Richtung :
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
for i := 1 to (ListBox1.Height DIV Listbox1.ItemHeight) do
ListBox1.Items.Add('');
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
2. Jan 2006
Wahrscheinlich geht der Code vom SwissDelphiCenter. Aber der kommt mir doch reichlich kompliziert vor. Das hier müßte doch reichen :
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
i : Integer;
begin
for i := 1 to Listbox1.Items.Count do begin
if Index mod 2 = 0 then begin
Listbox1.Canvas.Brush.Color :=...