| Class TForm1 (unit AspDemo1) |
TForm
| Constructors |
| Functions |
procedure CheckBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);| 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;