Hallo Leute,
ich versuche mich gerade an einer Listbox mit Bildern und habe dabei die Stylebook funktion genutzt, um neben jedem String(Dem Bildnamen) ein kleines Bild anzuzeigen. Delphi ist für mich noch Neuland, hoffe ihr könnt meine Fehler entschuldigen.
Im Style habe ich die TImage Komponente 'picture' und den Text 'text' genannt, der Style selber trägt den einfachen Namen Style1.
Die Darstellung funktioniert relativ sauber, nur leider werden nur die obersten Items angezeigt und die unteren werden zwar erstellt, aber weder Bild noch Text ist zu sehen. Wenn ich herunterscrolle verschwinden auch die oberen.
hier ist einmal mein Quelltext:
Code:
procedure TForm1.Button1Click(Sender: TObject);
Var
ListBoxItem : TListBoxItem;
ItemText : TText;
ItemImage : TImage;
I : Integer;
BitmapFile : String;
begin
liste:= TDirectory.GetFiles('C:\Pictures\wincos\bmp\test');
for I := 0 to length(liste)-1 do
begin
BitmapFile := Liste[i];
ListBoxItem := TListBoxItem.Create(nil);
ListBoxItem.Parent := ListBox1;
ListBoxItem.StyleLookup := 'Style1';
ItemText := ListBoxItem.FindStyleResource('text') as TText;
if Assigned(ItemText) then ItemText.Text := RightStr(Liste[i],17);
ItemImage := ListBoxItem.FindStyleResource('picture') as TImage;
if Assigned(ItemImage) then If FileExists(BitmapFile) Then ItemImage.Bitmap.LoadFromFile(BitmapFile);
end;
end;
Liste ist ein TStringDynArray.
Ich hoffe ihr könnt mir helfen und wünsche ein schönes Wochenende!
MfG