Class TForm1 (unit TestCalcelLoadu)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);

Raise silent exception

procedure Button2Click(Sender: TObject);

try / finally

procedure FormCreate(Sender: TObject);


procedure Image1Progress(Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: String);


Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Image1 : TImage;


OpenDialog1 : TOpenDialog;


ProgressBar1 : TProgressBar;


bCancel : Boolean;

Public declarations


Constructors


Functions


procedure Button1Click(Sender: TObject);

Raise silent exception


procedure Button2Click(Sender: TObject);

try / finally


procedure FormCreate(Sender: TObject);


procedure Image1Progress(Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: String);


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Image1 : TImage;


OpenDialog1 : TOpenDialog;


ProgressBar1 : TProgressBar;


bCancel : Boolean;

Public declarations