object Calc: TCalc Left = 200 Top = 104 HelpContext = 99 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Kalkula�ka' ClientHeight = 182 ClientWidth = 367 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object Shape1: TShape Left = 19 Top = 8 Width = 287 Height = 22 end object L: TLabel Left = 21 Top = 11 Width = 281 Height = 16 Alignment = taRightJustify AutoSize = False Caption = '0' Color = clWhite Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label1: TLabel Left = 5 Top = 12 Width = 11 Height = 13 Caption = 'M' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BitBtn1: TBitBtn Left = 20 Top = 42 Width = 29 Height = 25 Caption = '1' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 TabStop = False OnClick = BitBtn1Click end object BitBtn4: TBitBtn Left = 20 Top = 77 Width = 29 Height = 25 Caption = '4' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 TabStop = False OnClick = BitBtn4Click end object BitBtn7: TBitBtn Left = 20 Top = 111 Width = 29 Height = 25 Caption = '7' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 6 TabStop = False OnClick = BitBtn7Click end object BitBtn10: TBitBtn Left = 20 Top = 146 Width = 29 Height = 25 Caption = '0' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 9 TabStop = False OnClick = BitBtn10Click end object BitBtn8: TBitBtn Left = 61 Top = 111 Width = 29 Height = 25 Caption = '8' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 7 TabStop = False OnClick = BitBtn8Click end object BitBtn9: TBitBtn Left = 101 Top = 111 Width = 29 Height = 25 Caption = '9' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 8 TabStop = False OnClick = BitBtn9Click end object BitBtn6: TBitBtn Left = 101 Top = 77 Width = 29 Height = 25 Caption = '6' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 TabStop = False OnClick = BitBtn6Click end object BitBtn5: TBitBtn Left = 61 Top = 77 Width = 29 Height = 25 Caption = '5' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 TabStop = False OnClick = BitBtn5Click end object BitBtn2: TBitBtn Left = 60 Top = 42 Width = 29 Height = 25 Caption = '2' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 TabStop = False OnClick = BitBtn2Click end object BitBtn3: TBitBtn Left = 101 Top = 42 Width = 29 Height = 25 Caption = '3' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 TabStop = False OnClick = BitBtn3Click end object BitBtn11: TBitBtn Left = 181 Top = 42 Width = 29 Height = 25 Caption = '&M+' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 16 TabStop = False OnClick = BitBtn11Click end object BitBtn12: TBitBtn Left = 222 Top = 42 Width = 29 Height = 25 Caption = 'M-' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 18 TabStop = False OnClick = BitBtn12Click end object BitBtn13: TBitBtn Left = 181 Top = 77 Width = 29 Height = 25 Caption = 'M&R' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 17 TabStop = False OnClick = BitBtn13Click end object BitBtn14: TBitBtn Left = 222 Top = 77 Width = 29 Height = 25 Caption = 'MC' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 19 TabStop = False OnClick = BitBtn14Click end object BitBtn15: TBitBtn Left = 61 Top = 146 Width = 29 Height = 25 Caption = '+/-' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 10 TabStop = False OnClick = BitBtn15Click end object BitBtn16: TBitBtn Left = 102 Top = 146 Width = 29 Height = 25 Caption = ',' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 11 TabStop = False OnClick = BitBtn16Click end object BitBtn17: TBitBtn Left = 141 Top = 42 Width = 29 Height = 25 Caption = '/' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 12 TabStop = False OnClick = BitBtn17Click end object BitBtn18: TBitBtn Left = 142 Top = 77 Width = 29 Height = 25 Caption = 'X' Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 13 TabStop = False OnClick = BitBtn18Click end object BitBtn19: TBitBtn Left = 142 Top = 111 Width = 29 Height = 25 Caption = '-' Font.Color = clBlue Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 14 TabStop = False OnClick = BitBtn19Click end object BitBtn20: TBitBtn Left = 143 Top = 146 Width = 29 Height = 25 Caption = '+' Font.Color = clBlue Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 15 TabStop = False OnClick = BitBtn20Click end object BitBtn21: TBitBtn Left = 181 Top = 146 Width = 71 Height = 25 Caption = '=' Default = True Font.Color = clBlack Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 22 TabStop = False OnClick = BitBtn21Click OnKeyDown = BitBtn21KeyDown end object BitBtn22: TBitBtn Left = 181 Top = 111 Width = 35 Height = 25 Caption = '&X->M' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 20 TabStop = False OnClick = BitBtn22Click end object BitBtn23: TBitBtn Left = 318 Top = 145 Width = 41 Height = 25 Caption = '&C' Font.Color = clRed Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 29 TabStop = False OnClick = BitBtn23Click end object BitBtn24: TBitBtn Left = 263 Top = 42 Width = 42 Height = 25 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 23 TabStop = False OnClick = BitBtn24Click Glyph.Data = { 7E000000424D7E000000000000003E0000002800000011000000100000000100 010000000000400000000000000000000000020000000200000000000000FFFF FF00FFFF8000FFFF8000FFFF8000FFFF8000E73F8000F27F8000F8FF8000F8FF 8000F8FF8000F2638000E72F8000FFE38000FFFB8000FFE38000FFFF8000FFFF 8000} end object BitBtn25: TBitBtn Left = 263 Top = 77 Width = 42 Height = 25 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 24 TabStop = False OnClick = BitBtn25Click Glyph.Data = { 7E000000424D7E000000000000003E0000002800000011000000100000000100 010000000000400000000000000000000000020000000200000000000000FFFF FF00FFFF8000FFFF8000FFFF8000F3938000F3938000E1C78000E1C78000CC93 8000CC938000CCFF80009CFF80009E008000FE008000FFFF8000FFFF8000FFFF 8000} end object BitBtn26: TBitBtn Left = 224 Top = 111 Width = 27 Height = 25 Caption = '&Pi' Font.Color = clBlack Font.Height = -11 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False TabOrder = 21 TabStop = False OnClick = BitBtn26Click end object BitBtn27: TBitBtn Left = 318 Top = 7 Width = 38 Height = 25 Caption = '<--' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 27 TabStop = False OnClick = BitBtn27Click end object BitBtn28: TBitBtn Left = 263 Top = 111 Width = 41 Height = 25 Caption = 'Com&b' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 25 TabStop = False OnClick = BitBtn28Click end object BitBtn29: TBitBtn Left = 318 Top = 42 Width = 38 Height = 25 Caption = 'Rnd' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 28 TabStop = False OnClick = BitBtn29Click end object BitBtn30: TBitBtn Left = 263 Top = 145 Width = 41 Height = 25 Caption = 'CE' Font.Color = clRed Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 26 TabStop = False OnClick = BitBtn30Click end object MSOfficeCaption1: TMSOfficeCaption AppNameText.FontKind = fkSystemB AppNameText.Visible = True CaptionText.Caption = 'Kalkula�ka' CaptionText.ColorActive = clYellow CaptionText.ColorInactive = clGray CaptionText.FontKind = fkSystem CaptionText.Visible = True CompanyText.FontKind = fkSystemBI CompanyText.Visible = True Left = 328 Top = 80 end end