| Class TFrmMain (unit Main) |
TForm
| Constructors |
| Functions |
procedure ExpressionChange(Sender: TObject);
procedure ExpressionEnter(Sender: TObject);
procedure ExpressionKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure HistoryChange(Sender: TObject);
procedure mAutoCalcClick(Sender: TObject);
procedure mClearHistoryClick(Sender: TObject);
procedure mEvaluateClick(Sender: TObject);
procedure mExitClick(Sender: TObject);
procedure mFontClick(Sender: TObject);
procedure mOnTopClick(Sender: TObject);
procedure mResultShowClick(Sender: TObject);
procedure mResultTypeClick(Sender: TObject);
procedure mVariableClearAll(Sender: TObject);
procedure ResultFieldDblClick(Sender: TObject);
procedure ResultsResize(Sender: TObject);
procedure VariableClick(Sender: TObject);
procedure VariableListClick(Sender: TObject);
function CalcExpression( Expr: string ): boolean;
procedure SetExpressionText(const S: string);
procedure SetResultVisible(On: boolean);
procedure SetTopmost(On: boolean);
procedure ShowError( const Msg: string );
procedure ShowResult( rRes: Float );
function ShowResultAs( rRes: Float; Fmt: integer ): string;
procedure AdjustResult;
procedure OnGetMinMaxInfo(var Msg: TMessage);
procedure SetMenuVariables;
procedure WMGetMinMaxInfo(var Msg: TMessage);
procedure SetAutoCalc(On: boolean );
procedure SetResultFormat(Fmt: integer );| Properties |
property AutoCalc : boolean
property ResultFormat : integer| Events |
| Variables |
Controls : TPanel;
Error : TPanel;
Expression : TMemo;
History : TComboBox;
mAbout : TMenuItem;
MainMenu : TMainMenu;
mAutoCalc : TMenuItem;
mClearHistory : TMenuItem;
mEvaluate : TMenuItem;
mExit : TMenuItem;
mFile : TMenuItem;
mFont : TMenuItem;
mHelp : TMenuItem;
mOnTop : TMenuItem;
mOptions : TMenuItem;
mResult : TMenuItem;
mResultBin : TMenuItem;
mResultDec : TMenuItem;
mResultExp : TMenuItem;
mResultHex : TMenuItem;
mResultOct : TMenuItem;
mResultShow : TMenuItem;
mVarBreak : TMenuItem;
mVarClearAll : TMenuItem;
mVariables : TMenuItem;
mVarMore : TMenuItem;
N1 : TMenuItem;
N2 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
Results : TPanel;
tResultBin : TLabel;
tResultDec : TLabel;
tResultExp : TLabel;
tResultHex : TLabel;
tResultOct : TLabel;
fAutoCalc : boolean;
fGetMinMaxInfo : TMessageEvent;
fResultFormat : integer;
ResultHeight : integer;
ResultMenu : array[1..5] of TMenuItem;
ResultText : array[1..5] of TLabel;
VarMenu : array[0..9] of TMenuItem;| Constructors |
| Functions |
procedure ExpressionChange(Sender: TObject);
procedure ExpressionEnter(Sender: TObject);
procedure ExpressionKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);Position on the screen
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure HistoryChange(Sender: TObject);
procedure mAutoCalcClick(Sender: TObject);
procedure mClearHistoryClick(Sender: TObject);
procedure mEvaluateClick(Sender: TObject);
procedure mExitClick(Sender: TObject);Position on the screen
procedure mFontClick(Sender: TObject);
procedure mOnTopClick(Sender: TObject);
procedure mResultShowClick(Sender: TObject);
procedure mResultTypeClick(Sender: TObject);
procedure mVariableClearAll(Sender: TObject);
procedure ResultFieldDblClick(Sender: TObject);
procedure ResultsResize(Sender: TObject);
procedure VariableClick(Sender: TObject);
procedure VariableListClick(Sender: TObject);
function CalcExpression( Expr: string ): boolean;
procedure SetExpressionText(const S: string);
procedure SetResultVisible(On: boolean);
procedure SetTopmost(On: boolean);
procedure ShowError( const Msg: string );
procedure ShowResult( rRes: Float );
function ShowResultAs( rRes: Float; Fmt: integer ): string;mVarMore.Enabled := Assigned( VARS );
procedure AdjustResult;
procedure OnGetMinMaxInfo(var Msg: TMessage);
procedure SetMenuVariables;
procedure WMGetMinMaxInfo(var Msg: TMessage);
procedure SetAutoCalc(On: boolean );
procedure SetResultFormat(Fmt: integer );| Properties |
property AutoCalc : boolean
property ResultFormat : integer| Events |
| Variables |
Controls : TPanel;
Error : TPanel;
Expression : TMemo;
History : TComboBox;
mAbout : TMenuItem;
MainMenu : TMainMenu;
mAutoCalc : TMenuItem;
mClearHistory : TMenuItem;
mEvaluate : TMenuItem;
mExit : TMenuItem;
mFile : TMenuItem;
mFont : TMenuItem;
mHelp : TMenuItem;
mOnTop : TMenuItem;
mOptions : TMenuItem;
mResult : TMenuItem;
mResultBin : TMenuItem;
mResultDec : TMenuItem;
mResultExp : TMenuItem;
mResultHex : TMenuItem;
mResultOct : TMenuItem;
mResultShow : TMenuItem;
mVarBreak : TMenuItem;
mVarClearAll : TMenuItem;
mVariables : TMenuItem;
mVarMore : TMenuItem;
N1 : TMenuItem;
N2 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
Results : TPanel;
tResultBin : TLabel;
tResultDec : TLabel;
tResultExp : TLabel;
tResultHex : TLabel;
tResultOct : TLabel;
fAutoCalc : boolean;
fGetMinMaxInfo : TMessageEvent;
fResultFormat : integer;
ResultHeight : integer;
ResultMenu : array[1..5] of TMenuItem;
ResultText : array[1..5] of TLabel;
VarMenu : array[0..9] of TMenuItem;