Images in Scrollbox laden und sortuieren ?

[thomas2009]

Hallo

ich möchte Images in Scrollbox at Run Time erstellen (Stück für Stück)
Ich möchte aber die erstellte Images hintereinander in eine Linie horizontal sortieren
Wenn ich eine Image lösche, dann soll auch die Images erneut sortiert werden

Delphi-Quellcode:

begin
with TImage.Create(self) do begin 
     Parent := ScrollBox1;
     Width := 50;
     Height := 50;
     Picture.Bitmap.LoadFromFile('C:\test.bmp');
     Top := 10;
     Left := 10;
     BringToFront;
end;
end;

Das Problem ist ab Image2
Image2.left soll nun nicht 10 sondern 10+image1.width


Kann jemand mir helfen ?

[Mr_G]

Also zum einen könntest du die erzeugten Images einfach mittels "Align" nach links ausrichten (ich glaube das könnte Probleme geben, wenn die Bilder nicht gleich hoch sind... einfach mal ausprobieren), zum anderen könntest du dich selber um die Positionierung kümmern.
Wenn du das ganze selber machen willst, würde ich eine Liste anlegen um die Images zu verwalten. Die Positionen lassen sich dann ganz einfach anhand der vorhanden Images berechnen.

[Hador]

Noch einfacher wird es, wenn du Delphi 2k6 / Turbos oder neuer zur Verfügung hast und die TImages einfach in ein Flowpanel steckst. Bei diesem kannst du den Abstand der enthaltenen Elemente (bei dir die Bilder) bestimmen und um die Anordnung kümmert sich das Ding selbst. Auch, wenn du in der Mitte ein Bild entfernst.

[GruseRon]

Einfach

Delphi-Quellcode:

x+ImageX.Wight