TPictureGraphic (Delphi)

Description

The following code draws the graphic in Image1 in the upper left corner of PaintBox1. Place a TPaintBox in the form and a TImage in the form that contains a picture.

Code

procedure TForm1.Button1Click(Sender: TObject);
begin
  PaintBox1.Canvas.Draw(0,0, Image1.Picture.Graphic);
end;

Uses

• Vcl.ExtCtrls.TImage.Picture ( fr | de | ja )
• Vcl.Graphics.TPicture.Graphic ( fr | de | ja )
• Vcl.Controls.TGraphicControl.Canvas ( fr | de | ja )
• Vcl.Graphics.TCanvas.Draw ( fr | de | ja )