home *** CD-ROM | disk | FTP | other *** search
- 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 = {<image000.ico>}
- 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
-