Zitat von
DGL-luke:
Um endlich mal den Umgang mit Grafiken kennenzulernen
Zitat von
DGL-luke:
Bei deinem Problem muss ich sagen: Ohne mehr Quelltext kommt man da nicht weiter.
Interessant wäre z.B. was du lädst. wobei BMPs eigentlich keine Probleme machen dürften.
Hast du irgendwelche Komponenten dabei?
Keine Komponenten, kaum zusätzlier Quellcode...
Zitat von
DGL-luke:
Ansonsten: einfach mal ein neues Projekt aufmachen, mit einem Image und einem Opendialog. Und den ruhig mal auf der Form platzieren, tut nicht weh
Und dann eben sehen, ob das nochmal auftritt. was es ja offenbar schon getan hat, bei dem Iconprog. ehrlich gesagt bin ich ratlos, was so einen fehler auslösen könnte....
Habe ich gemacht, selber Fehler. Bin eigentlich auch ratlos.
Hmm.. mir fällt gerade ein, dass ich das habe seit ich bei der Installation von Delphi2005
PE nur [x]Delphi für
Win32 ausgewählt habe... kann doch nicht sein, oder
Darf ich präsentieren, der gesamte Quellcode dieser Prozedur:
Delphi-Quellcode:
procedure TForm1.BitBtn_loadimageClick(Sender: TObject);
begin
with TOpenPictureDialog.Create(self) do
try
filter := 'Bitmaps(*.bmp)|*.bmp|Alle Dateien(*.*)|*';
Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing];
if Execute then
begin
img_original.Picture.Bitmap.LoadFromFile(FileName);
//img_original.Stretch := ((img_original.Picture.Width > img_original.Width) or (img_original.Picture.Height > img_original.Height)); {Testweise auskommentiert}
//compressnewimage(form1.TrackBar_compressquality.Position); {Testweise auskommentiert}
end;
finally
Free;
end;
end;
//edit: Quellcode der gesamten Prozedur angehängt