| Class TfmLog (unit MyLog) |
TForm
TInformationEditor ****************************************************************************** Type: TfmLog Ver: 1.0 Purpose: Log Form View
| Constructors |
| Functions |
procedure FormResize(Sender: TObject);
procedure grLogDrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);
procedure grLogSelectCell(Sender: TObject; Col, Row: Integer; var CanSelect: Boolean);
procedure mnuCloseClick(Sender: TObject);
procedure mnuDeleteCloseClick(Sender: TObject);
procedure mnuReloadClick(Sender: TObject);
procedure mnuShowClick(Sender: TObject);| 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;