Class TfmLog (unit MyLog)

Inherits from

TForm

TInformationEditor ****************************************************************************** Type: TfmLog Ver: 1.0 Purpose: Log Form View

Constructors



Functions

procedure FormResize(Sender: TObject);

TInformationProperty.

procedure grLogDrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);

TfmLog.

procedure grLogSelectCell(Sender: TObject; Col, Row: Integer; var CanSelect: Boolean);

procedure TfmLog.

procedure mnuCloseClick(Sender: TObject);

TfmLog.

procedure mnuDeleteCloseClick(Sender: TObject);

TfmLog.

procedure mnuReloadClick(Sender: TObject);

TfmLog.

procedure mnuShowClick(Sender: TObject);

procedure TfmLog.

Properties

Events

Variables

grLog : TStringGrid;


mmLog : TMainMenu;


mnuClose : TMenuItem;


mnuDeleteClose : TMenuItem;


mnuFile : TMenuItem;


mnuN1 : TMenuItem;


mnuRecord : TMenuItem;


mnuReload : TMenuItem;


mnuShow : TMenuItem;


sbLog : TStatusBar;



Constructors


Functions


procedure FormResize(Sender: TObject);

TInformationProperty.Edit ****************************************************************************** Event: TfmLog.FormResize Ver: 1.0 Purpose: Set scrollbars on form resizing


procedure grLogDrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);

TfmLog.grLogSelectCell ****************************************************************************** Event: TfmLog.grLogDrawCell Ver: 1.0 Purpose: Paint the bitmap at first Column


procedure grLogSelectCell(Sender: TObject; Col, Row: Integer; var CanSelect: Boolean);

procedure TfmLog.FormResize ****************************************************************************** Event: TfmLog.grLogSelectCell Ver: 1.0 Purpose: Set row count in StatusBar


procedure mnuCloseClick(Sender: TObject);

TfmLog.mnuDeleteCloseClick ****************************************************************************** Event: TfmLog.mnuCloseClick Ver: 1.0 Purpose:


procedure mnuDeleteCloseClick(Sender: TObject);

TfmLog.mnuReloadClick ****************************************************************************** Event: TfmLog.mnuDeleteCloseClick Ver: 1.0 Purpose:


procedure mnuReloadClick(Sender: TObject);

TfmLog.mnuShowClick ****************************************************************************** Event: TfmLog.mnuReloadClick Ver: 1.0 Purpose:


procedure mnuShowClick(Sender: TObject);

procedure TfmLog.grLogDrawCell ****************************************************************************** Event: TfmLog.mnuShowClick Ver: 1.0 Purpose: Runtime Create & Show the Log View form


Properties


Events


Variables


grLog : TStringGrid;


mmLog : TMainMenu;


mnuClose : TMenuItem;


mnuDeleteClose : TMenuItem;


mnuFile : TMenuItem;


mnuN1 : TMenuItem;


mnuRecord : TMenuItem;


mnuReload : TMenuItem;


mnuShow : TMenuItem;


sbLog : TStatusBar;