Class TForm1 (unit AspDemo1)

Inherits from

TForm

Constructors



Functions

procedure CheckBox1Click(Sender: TObject);

set the client size to fix exactly the bitmap full size and the panel

procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);

display current bitmap area size

Properties

Events

Variables

Aspect1 : TAspect;


CheckBox1 : TCheckBox;


Image1 : TImage;


Panel1 : TPanel;



Constructors


Functions


procedure CheckBox1Click(Sender: TObject);

set the client size to fix exactly the bitmap full size and the panel


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);

display current bitmap area size


Properties


Events


Variables


Aspect1 : TAspect;


CheckBox1 : TCheckBox;


Image1 : TImage;


Panel1 : TPanel;