Einzelnen Beitrag anzeigen

Benutzerbild von danku
danku

Registriert seit: 9. Apr 2006
Ort: 32-bit Adressbus
181 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Bilder nebeneinander auf TScrollbox

  Alt 11. Aug 2006, 09:00
der obige code hat sich geändert.
ich habe meinen code überarbeitet und mal das probiert:


Delphi-Quellcode:
 

//Thumbnails erstellen
for i:=0 to dateien.count -1 do
begin
application.processmessages;

// Bild erzeugen und laden
temp := TImage.Create(scroller); //Erzeugt ein TImage
temp.Parent := scroller; //Macht es auf Form1 sichtbar

abstand:=2;
   nebeneinander:=20;
  //nebeneinander := (thumbbox.clientwidth - abstand) div (groesse + abstand);

    if dateien.count > thumbbox.ClientWidth then thumbbox.ClientWidth := dateien.count;
    //untereinander := (dateien.count div nebeneinander) + ord(dateien.count mod nebeneinander > 0);

      for x := dateien.count to nebeneinander - 1 do begin
          temp.width := groesse;
          temp.left := dateien.count+abstand + x; //* (groesse + abstand);
          temp.top := 0; //abstand + y * (groesse + abstand);
  Mit Zitat antworten Zitat