Also, diese Variante ist einfach nur böse:
Image1.Picture.Bitmap := SchnelleVorschaubilder(opendialog1.FileName, 60);
besser ist:
Delphi-Quellcode:
var Bitmap:TBitmap;
begin
if Opendialog1.Execute then begin
Bitmap:=SchnelleVorschaubilder(opendialog1.FileName, 60);
try
Image1.Picture.Bitmap.Assign(Bitmap);
finally
Bitmap.free;
end;
end;
end;
@axelf98
- unendlich viele Fehler war übertrieben. Aber aus dem einen Problem haben sich eben mehrere
abgeleitet und somit hat MemProof eine ziemlich lange Liste ausgegeben - sorry
- bitte ändere das doch in der CodeLib
MfG
Thorsten