Class TFrmMain (unit Main)

Inherits from

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);

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.

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;