Hier ein Auszug aus der Delphihilfe:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
// Dieses Beispiel zeigt die direkte Ausgabe in ein Bitmap
var
x,y : Integer;
BitMap : TBitMap;
P : PByteArray;
begin
BitMap := TBitMap.create;
try
// Ersetzen Sie in Windows MyBitmap.png durch den vollständigen Pfadnamen:
// C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp
BitMap.LoadFromFile('MyBitmap.png');
for y := 0 to BitMap.Height -1 do
begin
P := BitMap.ScanLine[y];
for x := 0 to BitMap.Width -1 do
P[x] := y;
end;
Canvas.Draw(0,0,BitMap);
finally
BitMap.Free;
end;
end;
Wegen
BitMap.LoadFromFile('MyBitmap.png'); dachte ich das ginge.
Graphics hab ich in der uses drinne
und bei der Sourgeforge-komponente fehlt ihm beim kompilieren die pngimage.dcu