Class TfrmFormulaErrors

Properties

Unit

frmFormulaErrorsUnit

Declaration

type TfrmFormulaErrors = class(TfrmCustomGoPhast)

Description

TfrmFormulaErrors displays warning messages to the user when a formula has been found to be in error.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmFormulaErrors

Overview

Fields

	`btnClose: TBitBtn;`
	`btnCopy: TButton;`
	`btnHelp: TBitBtn;`
	`Label1: TLabel;`
	`pnlBottom: TPanel;`
	`pnlTop: TPanel;`
	`sgErrors: TStringGrid;`
	`Timer: TTimer;`
	`FErrorCount: integer;`

Methods

	`procedure btnCopyClick(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure FormResize(Sender: TObject);`
	`procedure FormShow(Sender: TObject);`
	`procedure TimerTimer(Sender: TObject);`
	`function WidgetFlags: integer; override;`
	`procedure AddError(const ObjectName, DataSetName, Formula, ErrorMessage: string);`

Description

Fields

	`btnClose: TBitBtn;`
`btnClose`: TBitBtn; `btnClose` closes the dialog box.

	`btnCopy: TButton;`
`btnCopy`: TButton; `btnCopy` copies the error message to the clipboard.

	`btnHelp: TBitBtn;`
`btnHelp`: TBitBtn; `btnHelp` displays help for the `TfrmFormulaErrors`. See btnCopyClick.

	`Label1: TLabel;`
`Label1`: TLabel; `Label1` displays static text.

	`pnlBottom: TPanel;`
`pnlBottom`: TPanel; `pnlBottom` is the panel at the bottom of the dialog box that holds the buttons.

	`pnlTop: TPanel;`
`pnlTop`: TPanel; `pnlTop` is the panel at the top of the dialog box that holds the caption.

	`sgErrors: TStringGrid;`
`sgErrors`: TStringGrid; `sgErrors` holds the error messages.

	`Timer: TTimer;`
`Timer`: TTimer; `Timer` is a timer used to prevent the dialog box to be shown for 0.1 seconds after an error message has been added.

	`FErrorCount: integer;`
`FErrorCount` is the number of errors that have been added.

Methods

	`procedure btnCopyClick(Sender: TObject);`
`btnCopyClick` copies the error messages to the clipboard.

	`procedure FormCreate(Sender: TObject); override;`
`FormCreate` initializes the dialog box.

	`procedure FormResize(Sender: TObject);`
`FormResize` resizes the columns.

	`procedure FormShow(Sender: TObject);`
`FormShow` reinitializes the dialog box.

	`procedure TimerTimer(Sender: TObject);`
`TimerTimer` shows the dialog box.

	`function WidgetFlags: integer; override;`
`WidgetFlags` makes this dialog box stay on top.

	`procedure AddError(const ObjectName, DataSetName, Formula, ErrorMessage: string);`
`AddError` adds an error message to `TfrmFormulaErrors`.

Generated by PasDoc 0.10.0 on 2006-10-31 09:56:34