TPictureGraphic (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

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

Personal tools
Assistance