object BaseCalcWin: TBaseCalcWin Left = 207 Top = 18 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Base Calculator' ClientHeight = 377 ClientWidth = 273 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True Menu = MainMenu Position = poScreenCenter Scaled = False OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object Background: TLabel Left = 8 Top = 8 Width = 257 Height = 41 AutoSize = False Color = clBlack ParentColor = False PopupMenu = PopupEditMenu end object Result: TLabel Left = 20 Top = 24 Width = 237 Height = 16 Alignment = taRightJustify AutoSize = False Caption = '000000000000000000000000000000000' Color = clBlack Font.Color = clYellow Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False PopupMenu = PopupEditMenu end object MemOcc: TLabel Left = 16 Top = 13 Width = 11 Height = 11 AutoSize = False Caption = 'M' Color = clBlack Font.Color = clYellow Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentColor = False ParentFont = False PopupMenu = PopupEditMenu end object SizeGB: TGroupBox Left = 8 Top = 88 Width = 257 Height = 33 TabOrder = 34 object Size8RB: TRadioButton Tag = 2210 Left = 12 Top = 10 Width = 55 Height = 17 Caption = '8 bits' PopupMenu = PopupWhatMenu TabOrder = 0 OnClick = SizeCBClick end object Size16RB: TRadioButton Tag = 2211 Left = 72 Top = 10 Width = 55 Height = 17 Caption = '16 bits' PopupMenu = PopupWhatMenu TabOrder = 1 OnClick = SizeCBClick end object Size32RB: TRadioButton Tag = 2212 Left = 132 Top = 10 Width = 55 Height = 17 Caption = '32 bits' Checked = True PopupMenu = PopupWhatMenu TabOrder = 2 TabStop = True OnClick = SizeCBClick end object SignedCB: TCheckBox Tag = 2220 Left = 192 Top = 10 Width = 57 Height = 17 Caption = 'Signed' PopupMenu = PopupWhatMenu State = cbChecked TabOrder = 3 OnClick = SignedCBClick end end object ClrBtn: TButton Tag = 2101 Left = 8 Top = 136 Width = 57 Height = 25 Caption = 'Clear' PopupMenu = PopupWhatMenu TabOrder = 29 OnClick = ClrBtnClick end object LeftBtn: TButton Tag = 2102 Left = 75 Top = 136 Width = 57 Height = 25 Caption = '��' PopupMenu = PopupWhatMenu TabOrder = 30 OnClick = LeftBtnClick end object MInBtn: TButton Tag = 2103 Left = 141 Top = 136 Width = 57 Height = 25 Caption = 'M in' PopupMenu = PopupWhatMenu TabOrder = 31 OnClick = MInBtnClick end object MRBtn: TButton Tag = 2104 Left = 208 Top = 136 Width = 57 Height = 25 Caption = 'MR' PopupMenu = PopupWhatMenu TabOrder = 32 OnClick = MRBtnClick end object NotBtn: TButton Tag = 3001 Left = 8 Top = 176 Width = 57 Height = 25 Caption = 'NOT' PopupMenu = PopupWhatMenu TabOrder = 23 OnClick = OpBtnClick end object AndBtn: TButton Tag = 3005 Left = 75 Top = 176 Width = 57 Height = 25 Caption = 'AND' PopupMenu = PopupWhatMenu TabOrder = 24 OnClick = OpBtnClick end object OrBtn: TButton Tag = 3008 Left = 141 Top = 176 Width = 57 Height = 25 Caption = 'OR' PopupMenu = PopupWhatMenu TabOrder = 25 OnClick = OpBtnClick end object NegBtn: TButton Tag = 3000 Left = 8 Top = 208 Width = 57 Height = 25 Caption = 'NEG' PopupMenu = PopupWhatMenu TabOrder = 26 OnClick = OpBtnClick end object XorBtn: TButton Tag = 3009 Left = 75 Top = 208 Width = 57 Height = 25 Caption = 'XOR' PopupMenu = PopupWhatMenu TabOrder = 27 OnClick = OpBtnClick end object EqvBtn: TButton Tag = 3010 Left = 141 Top = 208 Width = 57 Height = 25 Caption = 'EQV' PopupMenu = PopupWhatMenu TabOrder = 28 OnClick = OpBtnClick end object Btn0: TButton Tag = 2000 Left = 8 Top = 344 Width = 33 Height = 25 Caption = '0' PopupMenu = PopupWhatMenu TabOrder = 0 OnClick = NumBtnClick end object Btn1: TButton Tag = 2001 Left = 48 Top = 344 Width = 33 Height = 25 Caption = '1' PopupMenu = PopupWhatMenu TabOrder = 1 OnClick = NumBtnClick end object Btn2: TButton Tag = 2002 Left = 88 Top = 344 Width = 33 Height = 25 Caption = '2' PopupMenu = PopupWhatMenu TabOrder = 2 OnClick = NumBtnClick end object Btn3: TButton Tag = 2003 Left = 128 Top = 344 Width = 33 Height = 25 Caption = '3' PopupMenu = PopupWhatMenu TabOrder = 3 OnClick = NumBtnClick end object Btn4: TButton Tag = 2004 Left = 8 Top = 312 Width = 33 Height = 25 Caption = '4' PopupMenu = PopupWhatMenu TabOrder = 4 OnClick = NumBtnClick end object Btn5: TButton Tag = 2005 Left = 48 Top = 312 Width = 33 Height = 25 Caption = '5' PopupMenu = PopupWhatMenu TabOrder = 5 OnClick = NumBtnClick end object Btn6: TButton Tag = 2006 Left = 88 Top = 312 Width = 33 Height = 25 Caption = '6' PopupMenu = PopupWhatMenu TabOrder = 6 OnClick = NumBtnClick end object Btn7: TButton Tag = 2007 Left = 128 Top = 312 Width = 33 Height = 25 Caption = '7' PopupMenu = PopupWhatMenu TabOrder = 7 OnClick = NumBtnClick end object Btn8: TButton Tag = 2008 Left = 8 Top = 280 Width = 33 Height = 25 Caption = '8' PopupMenu = PopupWhatMenu TabOrder = 8 OnClick = NumBtnClick end object Btn9: TButton Tag = 2009 Left = 48 Top = 280 Width = 33 Height = 25 Caption = '9' PopupMenu = PopupWhatMenu TabOrder = 9 OnClick = NumBtnClick end object BtnA: TButton Tag = 2010 Left = 88 Top = 280 Width = 33 Height = 25 Caption = 'A' PopupMenu = PopupWhatMenu TabOrder = 10 OnClick = NumBtnClick end object BtnB: TButton Tag = 2011 Left = 128 Top = 280 Width = 33 Height = 25 Caption = 'B' PopupMenu = PopupWhatMenu TabOrder = 11 OnClick = NumBtnClick end object BtnC: TButton Tag = 2012 Left = 8 Top = 248 Width = 33 Height = 25 Caption = 'C' PopupMenu = PopupWhatMenu TabOrder = 12 OnClick = NumBtnClick end object BtnD: TButton Tag = 2013 Left = 48 Top = 248 Width = 33 Height = 25 Caption = 'D' PopupMenu = PopupWhatMenu TabOrder = 13 OnClick = NumBtnClick end object BtnE: TButton Tag = 2014 Left = 88 Top = 248 Width = 33 Height = 25 Caption = 'E' PopupMenu = PopupWhatMenu TabOrder = 14 OnClick = NumBtnClick end object BtnF: TButton Tag = 2015 Left = 128 Top = 248 Width = 33 Height = 25 Caption = 'F' PopupMenu = PopupWhatMenu TabOrder = 15 OnClick = NumBtnClick end object MulBtn: TButton Tag = 3002 Left = 176 Top = 248 Width = 41 Height = 25 Caption = '�' PopupMenu = PopupWhatMenu TabOrder = 16 OnClick = OpBtnClick end object DivBtn: TButton Tag = 3003 Left = 224 Top = 248 Width = 41 Height = 25 Caption = '/' PopupMenu = PopupWhatMenu TabOrder = 17 OnClick = OpBtnClick end object SubBtn: TButton Tag = 3007 Left = 176 Top = 280 Width = 41 Height = 25 Caption = '-' PopupMenu = PopupWhatMenu TabOrder = 18 OnClick = OpBtnClick end object ModBtn: TButton Tag = 3004 Left = 224 Top = 280 Width = 41 Height = 25 Caption = '%' PopupMenu = PopupWhatMenu TabOrder = 19 OnClick = OpBtnClick end object AddBtn: TButton Tag = 3006 Left = 176 Top = 312 Width = 41 Height = 25 Caption = '+' PopupMenu = PopupWhatMenu TabOrder = 20 OnClick = OpBtnClick end object MPlusBtn: TButton Tag = 2100 Left = 224 Top = 312 Width = 41 Height = 25 Caption = 'M+' PopupMenu = PopupWhatMenu TabOrder = 21 OnClick = MPlusBtnClick end object EqualsBtn: TButton Tag = 3011 Left = 176 Top = 344 Width = 91 Height = 25 Caption = '=' Default = True PopupMenu = PopupWhatMenu TabOrder = 22 OnClick = OpBtnClick end object BaseGB: TGroupBox Left = 8 Top = 56 Width = 209 Height = 33 TabOrder = 33 object DecRB: TRadioButton Tag = 2200 Left = 12 Top = 10 Width = 41 Height = 17 Caption = 'Dec' Checked = True PopupMenu = PopupWhatMenu TabOrder = 0 TabStop = True OnClick = BaseRBClick end object HexRB: TRadioButton Tag = 2201 Left = 60 Top = 10 Width = 41 Height = 17 Caption = 'Hex' PopupMenu = PopupWhatMenu TabOrder = 1 OnClick = BaseRBClick end object BinRB: TRadioButton Tag = 2202 Left = 108 Top = 10 Width = 41 Height = 17 Caption = 'Bin' PopupMenu = PopupWhatMenu TabOrder = 2 OnClick = BaseRBClick end object OctRB: TRadioButton Tag = 2203 Left = 156 Top = 10 Width = 41 Height = 17 Caption = 'Oct' PopupMenu = PopupWhatMenu TabOrder = 3 OnClick = BaseRBClick end end object MainMenu: TMainMenu Left = 208 Top = 168 object FileMenu: TMenuItem Caption = '&File' ShortCut = 0 object ExitMI: TMenuItem Caption = 'E&xit' ShortCut = 32883 OnClick = ExitMIClick end end object EditMenu: TMenuItem Caption = '&Edit' ShortCut = 0 OnClick = EditMenuClick object CopyMI: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = CopyMIClick end object PasteMI: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = PasteMIClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object ValueMI: TMenuItem Caption = '&Value...' ShortCut = 0 OnClick = ValueMIClick end end object HelpMenu: TMenuItem Caption = '&Help' ShortCut = 0 object HelpTopicsMI: TMenuItem Caption = '&Help Topics' ShortCut = 112 OnClick = HelpTopicsMIClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object AboutMI: TMenuItem Caption = '&About...' ShortCut = 0 OnClick = AboutMIClick end end end object PopupEditMenu: TPopupMenu OnPopup = EditMenuClick Left = 240 Top = 168 object CopyPMI: TMenuItem Caption = '&Copy' ShortCut = 0 OnClick = CopyMIClick end object PastePMI: TMenuItem Caption = '&Paste' ShortCut = 0 OnClick = PasteMIClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object ValuePMI: TMenuItem Caption = '&Value...' ShortCut = 0 OnClick = ValueMIClick end end object PopupWhatMenu: TPopupMenu Left = 208 Top = 200 object WhatPMI: TMenuItem Caption = '&What'#39's This?' ShortCut = 0 OnClick = WhatPMIClick end end end