RAD Studio VCL Reference
|
Returns a bitmap of the form.
function GetFormImage: TBitmap;
__fastcall TBitmap GetFormImage();
Use the GetFormImage method to obtain a bitmap of the form.
C++ Examples:
/* This example uses an image, a button, and a shape component on a form. When the user clicks the button, an image of the form is stored in the FormImage variable and copied to the Clipboard. The image of the form is then copied back to the image component, producing an interesting result, especially if the button is clicked multiple times. Add ExtCtrls, StdCtrls, and Clipbrd to the uses clause. } */ #include <Clipbrd.hpp> void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *FormImage = GetFormImage(); try { Clipboard()->Assign(FormImage); Image1->Picture->Assign(Clipboard()); } __finally { delete FormImage; } } void __fastcall TForm1::FormCreate(TObject *Sender) { Shape1->Shape = stEllipse; Shape1->Brush->Color = clLime; Image1->Stretch = true; }
Delphi Examples:
{ This example uses an image, a button, and a shape component on a form. When the user clicks the button, an image of the form is stored in the FormImage variable and copied to the Clipboard. The image of the form is then copied back to the image component, producing an interesting result, especially if the button is clicked multiple times. Add ExtCtrls, StdCtrls, and Clipbrd to the uses clause. } procedure TForm1.Button1Click(Sender: TObject); var FormImage: TBitmap; begin FormImage := GetFormImage; try Clipboard.Assign(FormImage); Image1.Picture.Assign(Clipboard); finally FormImage.Free; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Shape := stEllipse; Shape1.Brush.Color := clLime; Image1.Stretch := True; end;
Copyright(C) 2009 Embarcadero Technologies, Inc. All Rights Reserved.
|
What do you think about this topic? Send feedback!
|