Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Canvas - > Bitmap
23. Jul 2012, 12:16
Delphi-Quellcode:
implementation
function GetBitmap(Width : Integer; Heigth : Integer) : TBitmap;
var
Bitmap : TBitmap;
begin
// Wie könnte Ich
Bitmap := TBitmap.Create(Self);
// wie greife Ich auf die Schnittstelle zu und lasse auf mein Bitmap zeichnen?
FExportCanvas := Bitmap.Canvas;
try
Invalidate;
finally
FExportCanvas := nil;
end;
Result := Bitmap;
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|