![]() |
Re: Bilder von gesamten Ordner verkleinern
Der Ordner wird ordnungsgemäß angelegt, aber es wird kein Bild darin gespeichert.
|
Re: Bilder von gesamten Ordner verkleinern
Falls es dich noch interessiert:
So überprüfe ich, welche Bilder angeklickt wurden:
Code:
procedure TForm1.GroesseaendernClick(Sender: TObject);
var j:integer; begin CreateDir(Edit2.Text); for j:=0 to CheckListBox1.Count-1 do begin if CheckListBox1.Checked[j]=true then ResizePicture(Edit1.Text+'\'+CheckListBox1.Items.Strings[j],640, 480) end; end; |
Re: Bilder von gesamten Ordner verkleinern
So gut kenn ich mich mit den CheckListen nich aus, aber zum Experimentieren kannst du mal die Abfrage rausnehmen, ob das Item gecheckt ist.
Also einfach drauflos Speichern ohne zu gucken obs auch soll. Wenns dann immernoch nich gespeichert wird... hm. Aber wenn doch, dann muss du anders abfragen. |
Re: Bilder von gesamten Ordner verkleinern
Speichern kann ich schon, aber nur, wenn ich die alten Dateien überschreibe.
|
Re: Bilder von gesamten Ordner verkleinern
Ich hab's rausbekommen. :D
Ich hab die Variable j nur beides Mal lokal deklariert. Wenn ich sie global deklariere, dann geht es. :hello: @S - tefano: Dir nochmals: Vielen Dank!! Gruß Matze |
Re: Bilder von gesamten Ordner verkleinern
Hey, kein Problem :wink:
Danke auch an dich, dass du die endgültige Lösung gepostet hast... |
Re: Bilder von gesamten Ordner verkleinern
Ist doch selbstverständlich, dass ich die Lösung poste, andere wollen ja auch wissen, woran es lag. :wink:
Gruß Matze |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:12 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz