Galeriebastler mit Thumbmaker, effektivität des Programms?
7. Jun 2004, 20:01
Hi Leute,
ich bin gerade aktiv am Delphilernen und mache mir deswegen ein Programm, mit dem Thumbs und eine Galerie erstellen kann. Den Teil für die Thumbnailerstellung hab ich jetzt fertig und wollte mal fragen, was ihr davon so haltet.
procedure Timport.Fertigstellen; var
iFor, Breite, Hoehe : integer;
counterstr, name : string;
images : TBilder;
AktuellesBild, AngepasstesBild : TBitmap32;
jpg : TJPEGImage;
bmp : TBitmap; begin if eigenschaften.fu_thumbserstellen.Checked thenbegin
setlength(images, 0); // Verzeichnis erstellen, falls nicht existiert ifnot DirectoryExists(ausgabeseite.fu_hauptpfad.Text) then ForceDirectories(ausgabeseite.fu_hauptpfad.Text);
for iFor:=0 to fu_BilderBox.Count-1 doif FileExists( import.fu_BilderBox.Items.Strings[iFor] ) thenbegin try
setlength(images, iFor+1);
AktuellesBild:=TBitmap32.Create;
AngepasstesBild:=TBitmap32.Create;
AktuellesBild.StretchFilter:=sfLanczos;
AktuellesBild.LoadFromFile(import.fu_BilderBox.Items.Strings[iFor]);
counterstr:=inttostr(iFor); if iFor<100 then counterstr:='0'+counterstr; if iFor<10 then counterstr:='0'+counterstr;
jpg := TJPEGImage.Create;
bmp := TBitmap.Create;
finally
AktuellesBild.Free;
AngepasstesBild.Free;
jpg.Free;
bmp.Free; end; end; // For + IF Bild existiert end; // IF Thumbs erstellen end;
das Programm (unfertig, Galerien können noch nicht erstellt werden) ist im Anhang.
Dass die Elemente noch ein wenig seltsam Angeordnet sind, werde ich später noch verändern. Versucht einfach damit klar zu kommen.
Es soll wie ein WinDialog aussehen. Jede Seite hat dabei ein eigenes Forumlar, später will ich alle Elemente jedoch auf ein Formular platzieren und ein und ausblenden.