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 = {} 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