Class TRxCalculatorForm (unit sCalc)

Inherits from

TForm

Constructors



Functions

procedure BackButtonClick(Sender: TObject);


procedure ButtonAddClick(Sender: TObject);


procedure ButtonCClick(Sender: TObject);


procedure ButtonDivClick(Sender: TObject);


procedure ButtonMCClick(Sender: TObject);


procedure ButtonMPClick(Sender: TObject);


procedure ButtonMRClick(Sender: TObject);


procedure ButtonMSClick(Sender: TObject);


procedure ButtonMulClick(Sender: TObject);


procedure ButtonPercentClick(Sender: TObject);


procedure ButtonPMClick(Sender: TObject);


procedure ButtonPntClick(Sender: TObject);


procedure ButtonResultClick(Sender: TObject);


procedure ButtonRevClick(Sender: TObject);


procedure ButtonSqrtClick(Sender: TObject);


procedure ButtonSubClick(Sender: TObject);


procedure CancelButtonClick(Sender: TObject);

to raise exception on error

procedure CheckFirst;


procedure CopyItemClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormKeyPress(Sender: TObject; var Key: Char);


procedure NumButtonClick(Sender: TObject);


procedure OkButtonClick(Sender: TObject);


procedure PasteItemClick(Sender: TObject);


procedure PopupMenuPopup(Sender: TObject);


procedure CalcKey(Key: Char);


procedure Clear;


procedure Error;

TRxCalculatorForm

function GetDisplay: Double;


procedure SetDisplay(R: Double);


Properties

property Operator : char


property Status : TRxCalcState


Events

Variables

BackButton : TSpeedButton;


Button0 : TSpeedButton;


Button1 : TSpeedButton;


Button2 : TSpeedButton;


Button3 : TSpeedButton;


Button4 : TSpeedButton;


Button5 : TSpeedButton;


Button6 : TSpeedButton;


Button7 : TSpeedButton;


Button8 : TSpeedButton;


Button9 : TSpeedButton;


ButtonAdd : TSpeedButton;


ButtonC : TSpeedButton;


ButtonDiv : TSpeedButton;


ButtonMC : TSpeedButton;


ButtonMP : TSpeedButton;


ButtonMR : TSpeedButton;


ButtonMS : TSpeedButton;


ButtonMul : TSpeedButton;


ButtonPercent : TSpeedButton;


ButtonPM : TSpeedButton;


ButtonPnt : TSpeedButton;


ButtonResult : TSpeedButton;


ButtonRev : TSpeedButton;


ButtonSqrt : TSpeedButton;


ButtonSub : TSpeedButton;


CancelButton : TSpeedButton;


CopyItem : TMenuItem;


DisplayLabel : TLabel;


DisplayPanel : TPanel;


MainPanel : TPanel;


MemoryLabel : TLabel;


OkButton : TSpeedButton;


Panel1 : TPanel;


Panel2 : TPanel;


PasteItem : TMenuItem;


PopupMenu : TPopupMenu;


FMemory : Double;


FOperand : Double;


FOperator : Char;


FStatus : TRxCalcState;



Constructors


Functions


procedure BackButtonClick(Sender: TObject);


procedure ButtonAddClick(Sender: TObject);


procedure ButtonCClick(Sender: TObject);


procedure ButtonDivClick(Sender: TObject);


procedure ButtonMCClick(Sender: TObject);


procedure ButtonMPClick(Sender: TObject);


procedure ButtonMRClick(Sender: TObject);


procedure ButtonMSClick(Sender: TObject);


procedure ButtonMulClick(Sender: TObject);


procedure ButtonPercentClick(Sender: TObject);


procedure ButtonPMClick(Sender: TObject);


procedure ButtonPntClick(Sender: TObject);


procedure ButtonResultClick(Sender: TObject);


procedure ButtonRevClick(Sender: TObject);


procedure ButtonSqrtClick(Sender: TObject);


procedure ButtonSubClick(Sender: TObject);


procedure CancelButtonClick(Sender: TObject);

to raise exception on error


procedure CheckFirst;


procedure CopyItemClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormKeyPress(Sender: TObject; var Key: Char);


procedure NumButtonClick(Sender: TObject);


procedure OkButtonClick(Sender: TObject);


procedure PasteItemClick(Sender: TObject);


procedure PopupMenuPopup(Sender: TObject);


procedure CalcKey(Key: Char);


procedure Clear;


procedure Error;

TRxCalculatorForm


function GetDisplay: Double;


procedure SetDisplay(R: Double);


Properties


property Operator : char


property Status : TRxCalcState


Events


Variables


BackButton : TSpeedButton;


Button0 : TSpeedButton;


Button1 : TSpeedButton;


Button2 : TSpeedButton;


Button3 : TSpeedButton;


Button4 : TSpeedButton;


Button5 : TSpeedButton;


Button6 : TSpeedButton;


Button7 : TSpeedButton;


Button8 : TSpeedButton;


Button9 : TSpeedButton;


ButtonAdd : TSpeedButton;


ButtonC : TSpeedButton;


ButtonDiv : TSpeedButton;


ButtonMC : TSpeedButton;


ButtonMP : TSpeedButton;


ButtonMR : TSpeedButton;


ButtonMS : TSpeedButton;


ButtonMul : TSpeedButton;


ButtonPercent : TSpeedButton;


ButtonPM : TSpeedButton;


ButtonPnt : TSpeedButton;


ButtonResult : TSpeedButton;


ButtonRev : TSpeedButton;


ButtonSqrt : TSpeedButton;


ButtonSub : TSpeedButton;


CancelButton : TSpeedButton;


CopyItem : TMenuItem;


DisplayLabel : TLabel;


DisplayPanel : TPanel;


MainPanel : TPanel;


MemoryLabel : TLabel;


OkButton : TSpeedButton;


Panel1 : TPanel;


Panel2 : TPanel;


PasteItem : TMenuItem;


PopupMenu : TPopupMenu;


FMemory : Double;


FOperand : Double;


FOperator : Char;


FStatus : TRxCalcState;