Hallo zusammen,
für eine kleine Spielerei wollte ich ein Bild kopieren:
Delphi-Quellcode:
bild1:=Ico2Bmp(efile);
bild2:=TBitmap.Create;
bild2.Height:=(bild1.Height*2)+1;
bild2.Width:=(bild1.Width*2)+1;
for i:=0 to bild1.height-1 do begin
psc1:=bild1.Scanline[i];
psc2:=bild2.scanline[i];
for j:=0 to bild1.Width-1 do begin
psc2^[j]:=psc1^[j];
end;
end;
hat so nicht funktioniert, es kam allerdings auch keine Fehlermeldung.
So war ich dann erfolgreich:
Delphi-Quellcode:
...
for j:=0 to bild1.Width-1 do begin
Bild2.canvas.pixels[i,j]:=Bild1.canvas.pixels[i,j];
end;
...
Hab ich da bei Scanline etwas falsch verstanden?
Gruß
K-H