Hi...
ich hab grad irgendwie eine Blockade.
Ich habe mir eine Prozedur geschrieben die einfach Pixelweise ein bmp in ein anderes kopieren soll (ich weiss, der Sinn ist fraglich, aber egal...)
So sieht sie aus:
Delphi-Quellcode:
procedure TfMain.Btn_ExeClick(Sender: TObject);
var
x,y: integer;
Old, New: TBitMap;
begin
Old := TBitMap.Create;
Old.LoadFromFile(EditOld.Text);
New := TBitMap.Create;
New.LoadFromFile(EditNew.Text);
For y := 1 to Old.Height do
begin
For x := 1 to Old.Width do
begin
New.Canvas.Pixels[x,y] := Old.Canvas.Pixels[x,y];
end;
end;
New.SaveToFile(EditNew.Text);
Old.Destroy;
New.Destroy;
end;
Das Programm hängt zwar die Weile, aber das Bitmap ist hinterher noch leer. Was hab ich peinliches vergessen?
mfg