Chip 1998 September/Chip_1998-09_cd.bin/sharewar/fmedit/Fmedit95.exe/0/RCDATA/TRXCALCULATORFORM/TRXCALCULATORFORM.txt

Text File | 1998-01-18 | 14KB | 534 lines

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