Beispiel aus der Delphi-Hilfe:
Zitat:
Dieses Beispiel zeigt den Unterschied zwischen den beiden Methoden CopyRect und BrushCopy. Das Bitmap TARTAN.BMP wird in ein TBitmap-Objekt geladen und auf der Zeichenfläche von Form1 angezeigt. BrushCopy ersetzt die Farbe Schwarz in der Grafik durch den Pinsel der Zeichenfläche. CopyRect lässt die Farben intakt.
var
Bitmap: TBitmap;
MyRect, MyOther: TRect;
begin
MyRect := Rect(10,10,100,100);
MyOther := Rect(10,111,100, 201);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\windows\tartan.bmp');
Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect );
Bitmap.Free;
end;