TOvcCustomCalculator

type TOvcCustomCalculator = class(TOvcCustomControl)

protected

  FBorderStyle: TBorderStyle;

  FColors: TOvcCalcColors;

  FDisplay: Extended;

  FDisplayStr: string;

  FLastOperand: Extended;

  FOptions: TOvcCalculatorOptions;

  FTapeSeparatorChar: char;

  FCtl3D: Boolean;

  FOnButtonPressed: TOvcCalcButtonPressedEvent;

  cButtons: TOvcButtonArray;

  cDecimalEntered: Boolean;

  cDownButton: TOvcCalculatorButton;

  cHitTest: TPoint;

  cLastButton: TOvcCalculatorButton;

  cMargin: Integer;

  cMinus0: Boolean;

  cOverBar: Boolean;

  cPanel: TOvcCalcPanel;

  cPopup: Boolean;

  cScrBarWidth: Integer;

  cSizeOffset: Integer;

  cSizing: Boolean;

  cTabCursor: HCursor;

  cTape: TOvcCalcTape;

  cEngine: TOvcCustomCalculatorEngine;

  procedure cAdjustHeight;

  procedure cCalculateLook;

  procedure cClearAll;

  procedure cColorChange();

  procedure cDisplayError;

  procedure cDrawCalcButton();

  procedure cDrawFocusState;

  procedure cDrawSizeLine;

  procedure cEvaluate();

  function cFormatString();

  function cGetFontWidth;

  procedure cInvalidateIndicator;

  procedure cRefreshDisplays;

  procedure cSetDisplayString();

  procedure cTapeFontChange();

  function GetDecimals;

  function GetMaxPaperCount;

  function GetMemory;

  function GetOperand;

  function GetTape;

  function GetTapeFont;

  function GetTapeHeight;

  function GetVisible;

  procedure SetBorderStyle();

  procedure SetDecimals();

  procedure SetDisplay();

  procedure SetDisplayStr();

  procedure SetMaxPaperCount();

  procedure SetMemory();

  procedure SetOperand();

  procedure SetOptions();

  procedure SetTape();

  procedure SetTapeFont();

  procedure SetTapeHeight();

  procedure SetVisible();

  procedure CMDesignHitTest(); message;

  procedure CMEnter(); message;

  procedure CMExit(); message;

  procedure CMFontChanged(); message;

  procedure WMCancelMode(); message;

  procedure WMEraseBkgnd(); message;

  procedure WMGetText(); message;

  procedure WMGetTextLength(); message;

  procedure WMKeyDown(); message;

  procedure WMKillFocus(); message;

  procedure WMLButtonDown(); message;

  procedure WMLButtonUp(); message;

  procedure WMMouseMove(); message;

  procedure WMNCHitTest(); message;

  procedure WMSetText(); message;

  procedure WMSetCursor(); message;

  procedure CreateParams(); override;

  procedure CreateWnd; override;

  procedure KeyDown(); override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure Paint; override;

  property BorderStyle: TBorderStyle; [rw]

  property Colors: TOvcCalcColors; [rw]

  property Decimals: Integer; [rw]

  property MaxPaperCount: Integer; [rw]

  property Options: TOvcCalculatorOptions; [rw]

  property TapeFont: TFont; [rw]

  property TapeHeight: Integer; [rw]

  property TapeSeparatorChar: char; [rw]

  property Visible: Boolean; [rw]

  property Ctl3D: Boolean; [rw]

  property OnButtonPressed: TOvcCalcButtonPressedEvent; [rw]

public

  constructor Create(); override;

  constructor CreateEx(); virtual;

  destructor Destroy; override;

  procedure KeyPress(); override;

  procedure PushOperand();

  procedure SetBounds(); override;

  procedure CopyToClipboard;

  procedure PasteFromClipboard;

  procedure PressButton();

  property LastOperand: Extended; [rw]

  property Memory: Extended; [rw]

  property Operand: Extended; [rw]

  property DisplayStr: string; [rw]

  property DisplayValue: Extended; [rw]

  property Tape: TStrings; [rw]

end;

TOvcCustomCalculator

TOvcCustomControl

TObject