DP Tool Club 31/CDASC_31_1996_juillet_aout.iso/vrac/midg32.zip/MIDGET.EXE/0/RCDATA/TCALPANEL/TCALPANEL.txt

Text File | 1996-06-12 | 17KB | 821 lines

object CalPanel: TCalPanel
  Left = 84
  Top = 155
  Cursor = crArrow
  VertScrollBar.Visible = False
  BorderIcons = []
  BorderStyle = bsNone
  ClientHeight = 75
  ClientWidth = 462
  Ctl3D = False
  Color = clBtnShadow
  Font.Color = clBtnText
  Font.Height = -11
  Font.Name = 'K Prop'
  Font.Pitch = fpVariable
  Font.Style = [fsBold]
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Position = poScreenCenter
  PrintScale = poNone
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object xBevel: TDragBar
    Left = 0
    Top = 0
    Width = 462
    Height = 75
    Cursor = crDrag
    Hint = 'Click and Drag Here'
    Align = alClient
    BevelWidth = 2
    Font.Color = clBtnText
    Font.Height = -11
    Font.Name = 'K Prop'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
    PopupMenu = MainPopUp
    TabOrder = 1
    object xIconizer: TPanel
      Left = 2
      Top = 2
      Width = 8
      Height = 8
      Cursor = crUpArrow
      Hint = 'Click Here to Minimize'
      BevelOuter = bvNone
      DragCursor = crDefault
      TabOrder = 0
      OnClick = xIconizerClick
    end
  end
  object xMask: TPanel
    Left = 8
    Top = 8
    Width = 446
    Height = 59
    BevelOuter = bvNone
    BorderWidth = 1
    TabOrder = 0
    object xUnderLine: TPanel
      Left = 0
      Top = 0
      Width = 446
      Height = 32
      BevelOuter = bvLowered
      BevelWidth = 3
      BorderStyle = bsSingle
      Color = clBlack
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      object xLine: TEdit
        Left = 5
        Top = 4
        Width = 436
        Height = 21
        Cursor = crIBeam
        Hint = 'Enter Your Expression Here|'
        TabStop = False
        AutoSelect = False
        AutoSize = False
        Color = clBlack
        Ctl3D = False
        Font.Color = clYellow
        Font.Height = -16
        Font.Name = 'K Thick'
        Font.Pitch = fpFixed
        Font.Style = []
        HideSelection = False
        MaxLength = 120
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        Text = '.........1.........2.........3.........4.......8'
        OnExit = xLineExit
      end
    end
    object xMidPanel: TPanel
      Left = 0
      Top = 36
      Width = 446
      Height = 24
      BevelOuter = bvNone
      TabOrder = 0
      object xConvert: TSpeedButton
        Left = 0
        Top = 0
        Width = 36
        Height = 23
        Hint = 'Unit Conversion'
        Caption = 'Co&nv'
        OnClick = xConvertClick
      end
      object xFormat: TSpeedButton
        Left = 38
        Top = 0
        Width = 36
        Height = 23
        Hint = 'Result Reformatting'
        Caption = 'For&m'
        OnClick = xFormatClick
      end
      object xRadians: TSpeedButton
        Left = 364
        Top = 0
        Width = 30
        Height = 23
        Hint = 'Radian / Degree Mode'
        Caption = 'Ra&d'
        OnClick = xRadiansClick
      end
      object xMenu: TSpeedButton
        Left = 426
        Top = 0
        Width = 20
        Height = 23
        Hint = 'Menu'
        Caption = '?'
        OnClick = xMenuClick
      end
      object xFun: TSpeedButton
        Left = 320
        Top = 0
        Width = 20
        Height = 23
        Hint = 'Functions'
        Caption = '&F'
        OnClick = xFunClick
      end
      object xVar: TSpeedButton
        Left = 342
        Top = 0
        Width = 20
        Height = 23
        Hint = 'Variables'
        Caption = '&V'
        OnClick = xVarClick
      end
      object xResult: TPanel
        Tag = 5
        Left = 76
        Top = 0
        Width = 242
        Height = 23
        Hint = 'Last Result|'
        BevelOuter = bvLowered
        BevelWidth = 2
        BorderStyle = bsSingle
        Color = clBlack
        Ctl3D = False
        Font.Color = clLime
        Font.Height = -16
        Font.Name = 'K Thick'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
      end
      object xLineNum: TPanel
        Left = 396
        Top = 0
        Width = 28
        Height = 23
        Hint = 'Line No. / Go to Line 1'
        Alignment = taRightJustify
        BevelOuter = bvLowered
        BevelWidth = 2
        BorderWidth = 1
        BorderStyle = bsSingle
        Caption = '24'
        Color = clBlack
        Font.Color = clFuchsia
        Font.Height = -16
        Font.Name = 'K Thick'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = xLineNumClick
      end
    end
  end
  object xpFormat: TPopupMenu
    AutoPopup = False
    Left = 45
    Top = 83
    object xfmDefault: TMenuItem
      Caption = 'Def&ault'
      Checked = True
      ShortCut = 0
      OnClick = xpFormatClick
    end
    object xfmFixed: TMenuItem
      Tag = 1
      Caption = '&Fixed Point'
      ShortCut = 0
      OnClick = xpFormatClick
      object pfD01: TMenuItem
        Tag = 1
        Caption = '1'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD02: TMenuItem
        Tag = 2
        Caption = '2'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD03: TMenuItem
        Tag = 3
        Caption = '3'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD04: TMenuItem
        Tag = 4
        Caption = '4'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD05: TMenuItem
        Tag = 5
        Caption = '5'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD06: TMenuItem
        Tag = 6
        Caption = '6'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD07: TMenuItem
        Tag = 7
        Caption = '7'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD08: TMenuItem
        Tag = 8
        Caption = '8'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD09: TMenuItem
        Tag = 9
        Caption = '9'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD10: TMenuItem
        Tag = 10
        Caption = '10'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD11: TMenuItem
        Tag = 11
        Caption = '11'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD12: TMenuItem
        Tag = 12
        Caption = '12'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD13: TMenuItem
        Tag = 13
        Caption = '13'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD14: TMenuItem
        Tag = 14
        Caption = '14'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfD15: TMenuItem
        Tag = 15
        Caption = '15'
        ShortCut = 0
        OnClick = xpDClick
      end
      object pfF16: TMenuItem
        Tag = 16
        Caption = '16'
        ShortCut = 0
        OnClick = xpDClick
      end
    end
    object xfmFloat: TMenuItem
      Tag = 2
      Caption = '&Exponential'
      ShortCut = 0
      OnClick = xpFormatClick
      object peD01: TMenuItem
        Tag = 1
        Caption = '1'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD02: TMenuItem
        Tag = 2
        Caption = '2'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD03: TMenuItem
        Tag = 3
        Caption = '3'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD04: TMenuItem
        Tag = 4
        Caption = '4'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD05: TMenuItem
        Tag = 5
        Caption = '5'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD06: TMenuItem
        Tag = 6
        Caption = '6'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD07: TMenuItem
        Tag = 7
        Caption = '7'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD08: TMenuItem
        Tag = 8
        Caption = '8'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD09: TMenuItem
        Tag = 9
        Caption = '9'
        ShortCut = 0
        OnClick = xpDClick
      end
      object ped10: TMenuItem
        Tag = 10
        Caption = '10'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD11: TMenuItem
        Tag = 11
        Caption = '11'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD12: TMenuItem
        Tag = 12
        Caption = '12'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD13: TMenuItem
        Tag = 13
        Caption = '13'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD14: TMenuItem
        Tag = 14
        Caption = '14'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD15: TMenuItem
        Tag = 15
        Caption = '15'
        ShortCut = 0
        OnClick = xpDClick
      end
      object peD16: TMenuItem
        Tag = 16
        Caption = '16'
        ShortCut = 0
        OnClick = xpDClick
      end
    end
    object xfmBreak: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object xfmFract: TMenuItem
      Tag = 3
      Caption = 'F&raction'
      ShortCut = 0
      OnClick = xpFormatClick
    end
    object xfmDMS: TMenuItem
      Tag = 4
      Caption = 'Deg-Min-Se&c'
      ShortCut = 0
      OnClick = xpFormatClick
    end
    object xfmDeg: TMenuItem
      Tag = 5
      Caption = '&Degrees'
      ShortCut = 0
      OnClick = xpFormatClick
    end
    object xfmFt: TMenuItem
      Tag = 8
      Caption = 'Feet && &Inches '
      ShortCut = 0
      OnClick = xpFormatClick
    end
    object xfmLbs: TMenuItem
      Tag = 9
      Caption = '&Lbs && Ozs'
      ShortCut = 0
      OnClick = xpFormatClick
    end
    object xfmHrs: TMenuItem
      Tag = 10
      Caption = '&Hrs-Min-Sec'
      ShortCut = 0
      OnClick = xpFormatClick
    end
  end
  object xvSelect: TPopupMenu
    AutoPopup = False
    Left = 81
    Top = 84
    object xvoA: TMenuItem
      Caption = 'A'
      ShortCut = 0
      OnClick = xvoClick
    end
    object xvoB: TMenuItem
      Caption = 'B'
      ShortCut = 0
      OnClick = xvoClick
    end
    object xvoC: TMenuItem
      Caption = 'C'
      ShortCut = 0
      OnClick = xvoClick
    end
    object xvoD: TMenuItem
      Caption = 'D'
      ShortCut = 0
      OnClick = xvoClick
    end
    object xvoP: TMenuItem
      Caption = 'P'
      ShortCut = 0
      OnClick = xvoClick
    end
    object vxoQ: TMenuItem
      Caption = 'Q'
      ShortCut = 0
      OnClick = xvoClick
    end
    object xvoR: TMenuItem
      Caption = 'R'
      ShortCut = 0
      OnClick = xvoClick
    end
    object xvoX: TMenuItem
      Caption = 'X'
      ShortCut = 0
      OnClick = xvoClick
    end
    object xvoY: TMenuItem
      Caption = 'Y'
      ShortCut = 0
      OnClick = xvoClick
    end
    object xvoZ: TMenuItem
      Caption = 'Z'
      ShortCut = 0
      OnClick = xvoClick
    end
  end
  object MainPopUp: TPopupMenu
    OnPopup = MainPopUpPopup
    Left = 10
    Top = 83
    object xScroll: TMenuItem
      Caption = '&Auto Scroll'
      ShortCut = 0
      OnClick = xScrollClick
    end
    object xHints: TMenuItem
      Caption = '&Balloon Hints'
      ShortCut = 0
      OnClick = xHintsClick
    end
    object xSound: TMenuItem
      Caption = '&Sound'
      ShortCut = 0
      OnClick = xSoundClick
    end
    object xTop: TMenuItem
      Caption = 'Stay on &Top'
      ShortCut = 0
      OnClick = xTopClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object xHelp: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      OnClick = xHelpClick
    end
    object xAbout: TMenuItem
      Caption = 'About &Midget...'
      ShortCut = 0
      OnClick = xAboutClick
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object xClearAll: TMenuItem
      Caption = '&Clear All'
      ShortCut = 0
      OnClick = xClearAllClick
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object xExit: TMenuItem
      Caption = 'E&xit'
      ShortCut = 0
      OnClick = xExitClick
    end
  end
  object xTim: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = xTimTimer
    Left = 116
    Top = 84
  end
  object xFunMenu: TPopupMenu
    Left = 151
    Top = 84
    object mf01: TMenuItem
      Caption = 'sqr'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf02: TMenuItem
      Caption = 'cur'
      ShortCut = 0
      OnClick = mFunClick
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mf03: TMenuItem
      Caption = 'ln'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf04: TMenuItem
      Caption = 'log'
      ShortCut = 0
      OnClick = mFunClick
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mf05: TMenuItem
      Caption = 'sin'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf06: TMenuItem
      Caption = 'cos'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf07: TMenuItem
      Caption = 'tan'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf08: TMenuItem
      Caption = 'cot'
      ShortCut = 0
      OnClick = mFunClick
    end
    object N6: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mf09: TMenuItem
      Caption = 'abs'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf10: TMenuItem
      Caption = 'int'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf11: TMenuItem
      Caption = 'min'
      ShortCut = 0
      OnClick = mFunClick
    end
    object N7: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mf12: TMenuItem
      Caption = 'rad'
      ShortCut = 0
      OnClick = mFunClick
    end
    object N8: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mf13: TMenuItem
      Caption = 'lb'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf14: TMenuItem
      Caption = 'ft'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf15: TMenuItem
      Caption = 'hrs'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf16: TMenuItem
      Break = mbBarBreak
      Caption = 'sq'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf17: TMenuItem
      Caption = 'cu'
      ShortCut = 0
      OnClick = mFunClick
    end
    object N9: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mf18: TMenuItem
      Caption = 'exp'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf19: TMenuItem
      Caption = 'ten'
      ShortCut = 0
      OnClick = mFunClick
    end
    object N10: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mf20: TMenuItem
      Caption = 'asin'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf21: TMenuItem
      Caption = 'acos'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf22: TMenuItem
      Caption = 'atan'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf23: TMenuItem
      Caption = 'acot'
      ShortCut = 0
      OnClick = mFunClick
    end
    object N11: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mf24: TMenuItem
      Caption = 'sgn'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf25: TMenuItem
      Caption = 'fra'
      ShortCut = 0
      OnClick = mFunClick
    end
    object mf26: TMenuItem
      Caption = 'max'
      ShortCut = 0
      OnClick = mFunClick
    end
    object N12: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mf27: TMenuItem
      Caption = 'ang'
      ShortCut = 0
      OnClick = mFunClick
    end
    object N13: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
  end
  object xVarMenu: TPopupMenu
    Left = 186
    Top = 84
    object mvA: TMenuItem
      Caption = 'A'
      ShortCut = 0
      OnClick = mvClick
    end
    object mvB: TMenuItem
      Caption = 'B'
      ShortCut = 0
      OnClick = mvClick
    end
    object mvC: TMenuItem
      Caption = 'C'
      ShortCut = 0
      OnClick = mvClick
    end
    object mvD: TMenuItem
      Caption = 'D'
      ShortCut = 0
      OnClick = mvClick
    end
    object mvP: TMenuItem
      Caption = 'P'
      ShortCut = 0
      OnClick = mvClick
    end
    object mvQ: TMenuItem
      Caption = 'Q'
      ShortCut = 0
      OnClick = mvClick
    end
    object mvR: TMenuItem
      Caption = 'R'
      ShortCut = 0
      OnClick = mvClick
    end
    object mvX: TMenuItem
      Caption = 'X'
      ShortCut = 0
      OnClick = mvClick
    end
    object mvY: TMenuItem
      Caption = 'Y'
      ShortCut = 0
      OnClick = mvClick
    end
    object mvZ: TMenuItem
      Caption = 'Z'
      ShortCut = 0
      OnClick = mvClick
    end
  end
end