Class Topm_Form_Progress

Unit

progress

Declaration

type Topm_Form_Progress = class(TForm)

Description

Hierarchy

• TForm
• Topm_Form_Progress

Overview

Fields

	Panel1: TPanel;
	opm_Label_ProgressMsg1: TLabel;
	opm_ProgressBar_Progress1: TProgressBar;
	opm_ProgressBar_Progress2: TProgressBar;
	opm_BitBtn_ProgressCancel: TBitBtn;
	opm_Label_ProgressMsg2: TLabel;
	PDAllowCancel : BOOLEAN;
	PDCanceled : BOOLEAN;
	PDDoubleBars : BOOLEAN;
	PDMessage1 : STRING;
	PDMessage2 : STRING;
	PDIgnoreProgress : BOOLEAN;

Methods

	procedure FormCreate(Sender: TObject);
	procedure FormShow(Sender: TObject);
	procedure opm_BitBtn_ProgressCancelClick(Sender: TObject);
	procedure FormClose(Sender: TObject; var Action: TCloseAction);
	PROCEDURE PRopm_PDUpdate_Progress (Position, Bar : LONGINT; ProgressMessage : STRING);
	PROCEDURE PRopm_PDShow (AllowCancel, TwoBars : BOOLEAN);
	PROCEDURE PRopm_PDClose;

Description

Fields

Panel1: TPanel;

opm_Label_ProgressMsg1: TLabel;

opm_ProgressBar_Progress1: TProgressBar;

opm_ProgressBar_Progress2: TProgressBar;

opm_BitBtn_ProgressCancel: TBitBtn;

opm_Label_ProgressMsg2: TLabel;

PDAllowCancel : BOOLEAN;

PDCanceled : BOOLEAN;

PDDoubleBars : BOOLEAN;

PDMessage1 : STRING;

PDMessage2 : STRING;

PDIgnoreProgress : BOOLEAN;

Methods

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure opm_BitBtn_ProgressCancelClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

PROCEDURE PRopm_PDUpdate_Progress (Position, Bar : LONGINT; ProgressMessage : STRING);

PROCEDURE PRopm_PDShow (AllowCancel, TwoBars : BOOLEAN);

PROCEDURE PRopm_PDClose;