Na hör mal gaui,
an dem Projekt hast Du ja seit einer Woche noch nichts dran geändert.
Die Auswertung der Pixel ist auch noch nicht drinnen.
Und erklär mal bitte dieses Kuddelmuddel:
Delphi-Quellcode:
procedure TForm1.bBildladenClick(Sender: TObject);
begin
//TForm1 OnCreate;
begin
DasBitmap := TBitmap.Create;
end;
if Open.Execute then
begin
if Open.Execute then begin
DasBitmap.LoadFromFile(Open.FileName);
Image1.Picture.Bitmap.Assign(DasBitmap)
end;
end;
end;
Delphi-Quellcode:
procedure TForm1.bBildladenClick(Sender: TObject);
begin
//DasBitmap := TBitmap.Create; das lieber im onCreate erstellen
// und im onClose wieder freigeben
if Open.Execute then
begin
DasBitmap.LoadFromFile(Open.FileName);
Image1.Picture.Bitmap.Assign(DasBitmap)
end;
end;
..und bring das Projekt mal auf den neuesten Stand.
Grüße
Klaus