object rxCalculatorForm: TrxCalculatorForm Left = 366 Top = 195 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Calculator' ClientHeight = 159 ClientWidth = 242 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True PixelsPerInch = 96 Position = poScreenCenter OnCreate = FormCreate OnKeyPress = FormKeyPress TextHeight = 13 object MainPanel: TPanel Left = 0 Top = 0 Width = 242 Height = 159 Align = alClient BevelOuter = bvLowered Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = True ParentFont = False PopupMenu = PopupMenu TabOrder = 0 object ButtonBack: TRxSpeedButton Tag = 20 Left = 146 Top = 34 Width = 44 Height = 22 Caption = 'Back' Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonBackClick end object ButtonC: TRxSpeedButton Tag = 21 Left = 192 Top = 34 Width = 44 Height = 22 Caption = 'C' Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonCClick end object ButtonMC: TRxSpeedButton Tag = -1 Left = 6 Top = 60 Width = 36 Height = 22 Caption = 'MC' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonMCClick end object ButtonMR: TRxSpeedButton Tag = -1 Left = 6 Top = 84 Width = 36 Height = 22 Caption = 'MR' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonMRClick end object ButtonMS: TRxSpeedButton Tag = -1 Left = 6 Top = 108 Width = 36 Height = 22 Caption = 'MS' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonMSClick end object ButtonMP: TRxSpeedButton Tag = -1 Left = 6 Top = 132 Width = 36 Height = 22 Caption = 'M+' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonMPClick end object Button7: TRxSpeedButton Tag = 7 Left = 48 Top = 60 Width = 36 Height = 22 Caption = '7' ParentShowHint = False Style = bsNew OnClick = NumButtonClick end object Button4: TRxSpeedButton Tag = 4 Left = 48 Top = 84 Width = 36 Height = 22 Caption = '4' ParentShowHint = False Style = bsNew OnClick = NumButtonClick end object Button1: TRxSpeedButton Tag = 1 Left = 48 Top = 108 Width = 36 Height = 22 Caption = '1' ParentShowHint = False Style = bsNew OnClick = NumButtonClick end object Button0: TRxSpeedButton Left = 48 Top = 132 Width = 36 Height = 22 Caption = '0' ParentShowHint = False Style = bsNew OnClick = NumButtonClick end object Button8: TRxSpeedButton Tag = 8 Left = 86 Top = 60 Width = 36 Height = 22 Caption = '8' ParentShowHint = False Style = bsNew OnClick = NumButtonClick end object Button5: TRxSpeedButton Tag = 5 Left = 86 Top = 84 Width = 36 Height = 22 Caption = '5' ParentShowHint = False Style = bsNew OnClick = NumButtonClick end object Button2: TRxSpeedButton Tag = 2 Left = 86 Top = 108 Width = 36 Height = 22 Caption = '2' ParentShowHint = False Style = bsNew OnClick = NumButtonClick end object ButtonPM: TRxSpeedButton Tag = 10 Left = 86 Top = 132 Width = 36 Height = 22 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFF00000000 FFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFF FFFFFFFF00000000FFFFFFFF00000000FFFFFFFFFFF00FFFFFFFFFFFFFF00FFF FFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} ParentShowHint = False Style = bsNew OnClick = ButtonPMClick end object Button9: TRxSpeedButton Tag = 9 Left = 124 Top = 60 Width = 36 Height = 22 Caption = '9' ParentShowHint = False Style = bsNew OnClick = NumButtonClick end object Button6: TRxSpeedButton Tag = 6 Left = 124 Top = 84 Width = 36 Height = 22 Caption = '6' ParentShowHint = False Style = bsNew OnClick = NumButtonClick end object Button3: TRxSpeedButton Tag = 3 Left = 124 Top = 108 Width = 36 Height = 22 Caption = '3' ParentShowHint = False Style = bsNew OnClick = NumButtonClick end object ButtonPnt: TRxSpeedButton Tag = 11 Left = 124 Top = 132 Width = 36 Height = 22 Caption = ',' ParentShowHint = False Style = bsNew OnClick = ButtonPntClick end object ButtonDiv: TRxSpeedButton Tag = 12 Left = 162 Top = 60 Width = 36 Height = 22 Caption = '/' Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonDivClick end object ButtonMul: TRxSpeedButton Tag = 13 Left = 162 Top = 84 Width = 36 Height = 22 Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000F55FFF55F0000000F555F555F0000000FF55555FF0000000FFF555FFF000 0000FF55555FF0000000F555F555F0000000F55FFF55F0000000FFFFFFFFF000 0000} ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonMulClick end object ButtonSub: TRxSpeedButton Tag = 14 Left = 162 Top = 108 Width = 36 Height = 22 Font.Color = clPurple Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 86000000424D8600000000000000760000002800000008000000040000000100 0400000000001000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF5555 555555555555FFFFFFFF} ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonSubClick end object ButtonAdd: TRxSpeedButton Tag = 15 Left = 162 Top = 132 Width = 36 Height = 22 Font.Color = clPurple Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 96000000424D9600000000000000760000002800000008000000080000000100 0400000000002000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF55FFFFFF5 5FFFFFF55FFF5555555555555555FFF55FFFFFF55FFFFFF55FFF} ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonAddClick end object ButtonSqrt: TRxSpeedButton Tag = 16 Left = 200 Top = 60 Width = 36 Height = 22 Caption = 'sqrt' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonSqrtClick end object ButtonPercent: TRxSpeedButton Tag = 17 Left = 200 Top = 84 Width = 36 Height = 22 Caption = '%' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonPercentClick end object ButtonRev: TRxSpeedButton Tag = 18 Left = 200 Top = 108 Width = 36 Height = 22 Caption = '1/x' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonRevClick end object ButtonResult: TRxSpeedButton Tag = 19 Left = 200 Top = 132 Width = 36 Height = 22 Caption = '=' Font.Color = clPurple Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False Style = bsNew OnClick = ButtonResultClick end object OkButton: TRxSpeedButton Tag = -1 Left = 48 Top = 34 Width = 36 Height = 22 Glyph.Data = { 46010000424D460100000000000076000000280000001C0000000D0000000100 040000000000D000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDFDDDDDDDDD0000DDDD0DDDDDDD DDDDDFDFDDDDDDDD0000DDD000DDDDDDDDDDFDDDFDDDDDDD0000DD00000DDDDD DDDFDDDDDFDDDDDD0000D000D000DDDDDD8DDDDDDDFDDDDD0000D00DDD000DDD DD8DDDF8DDDFDDDD0000DDDDDDD000DDDDD888DD8DDDFDDD0000DDDDDDDD000D DDDDDDDDD8DDDFDD0000DDDDDDDDD000DDDDDDDDDD8DDDFD0000DDDDDDDDDD00 DDDDDDDDDDD8DD8D0000DDDDDDDDDDDDDDDDDDDDDDDD88DD0000DDDDDDDDDDDD DDDDDDDDDDDDDDDD0000} NumGlyphs = 2 ParentShowHint = False Style = bsNew OnClick = OkButtonClick end object CancelButton: TRxSpeedButton Tag = -1 Left = 86 Top = 34 Width = 36 Height = 22 Glyph.Data = { 46010000424D460100000000000076000000280000001C0000000D0000000100 040000000000D000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDFFDDDDDFFDD0000DDD00DDDDD00 DDDD8DDFDDD8DDFD0000DDD000DDD000DDDD8DDDFD8DDDFD0000DDDD000D000D DDDDD8DDD8DDDFDD0000DDDDD00000DDDDDDDD8DDDDDFDDD0000DDDDDD000DDD DDDDDDD8DDDFDDDD0000DDDDD00000DDDDDDDD8DDDDDFDDD0000DDDD000D000D DDDDD8DDD8DDDFDD0000DDD000DDD000DDDD8DDDFD8DDDFD0000DDD00DDDDD00 DDDD8DDFDDD8DDFD0000DDDDDDDDDDDDDDDDD88DDDDD88DD0000DDDDDDDDDDDD DDDDDDDDDDDDDDDD0000} NumGlyphs = 2 ParentShowHint = False Style = bsNew OnClick = CancelButtonClick end object MemoryPanel: TPanel Left = 7 Top = 35 Width = 34 Height = 20 BevelInner = bvLowered BevelOuter = bvNone ParentColor = True TabOrder = 0 object MemoryLabel: TLabel Left = 4 Top = 3 Width = 26 Height = 14 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end end object DisplayPanel: TPanel Left = 6 Top = 6 Width = 230 Height = 23 BevelOuter = bvLowered Color = clWindow Ctl3D = False ParentCtl3D = False TabOrder = 1 object LabelPanel: TPanel Left = 1 Top = 1 Width = 228 Height = 21 Align = alClient BevelOuter = bvNone BorderStyle = bsSingle Ctl3D = False ParentColor = True ParentCtl3D = False TabOrder = 0 object DisplayLabel: TLabel Left = 5 Top = 2 Width = 217 Height = 15 Alignment = taRightJustify AutoSize = False Caption = '0' end end end end object PopupMenu: TPopupMenu OnPopup = PopupMenuPopup Left = 16 Top = 4 object CopyItem: TMenuItem Caption = '&Copy' OnClick = CopyItemClick ShortCutText = 'Ctrl+Ins' end object PasteItem: TMenuItem Caption = '&Paste' OnClick = PasteItemClick ShortCutText = 'Shift+Ins' end end end