Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#6

AW: Canvas - > Bitmap

  Alt 23. Jul 2012, 11: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)
  Mit Zitat antworten Zitat