object FrmVisCalcEdit: TFrmVisCalcEdit Left = 267 Top = 165 ActiveControl = Panel1 BorderStyle = bsNone Caption = 'FrmVisCalcEdit' ClientHeight = 72 ClientWidth = 120 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] FormStyle = fsStayOnTop KeyPreview = True OnClose = FormClose OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 120 Height = 72 Cursor = crArrow Align = alClient TabOrder = 0 object b1: TSpeedButton Tag = 1 Left = 4 Top = 4 Width = 17 Height = 17 Cursor = crArrow Caption = '1' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object b2: TSpeedButton Tag = 2 Left = 20 Top = 4 Width = 17 Height = 17 Cursor = crArrow Caption = '2' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object b3: TSpeedButton Tag = 3 Left = 36 Top = 4 Width = 17 Height = 17 Cursor = crArrow Caption = '3' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bp: TSpeedButton Tag = 15 Left = 52 Top = 4 Width = 17 Height = 17 Cursor = crArrow Caption = '+' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bC: TSpeedButton Tag = 16 Left = 68 Top = 4 Width = 17 Height = 17 Cursor = crArrow Caption = 'C' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object b4: TSpeedButton Tag = 4 Left = 4 Top = 20 Width = 17 Height = 17 Cursor = crArrow Caption = '4' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object b5: TSpeedButton Tag = 5 Left = 20 Top = 20 Width = 17 Height = 17 Cursor = crArrow Caption = '5' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object b6: TSpeedButton Tag = 6 Left = 36 Top = 20 Width = 17 Height = 17 Cursor = crArrow Caption = '6' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bm: TSpeedButton Tag = 14 Left = 52 Top = 20 Width = 17 Height = 17 Cursor = crArrow Caption = '-' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bce: TSpeedButton Tag = 17 Left = 68 Top = 20 Width = 17 Height = 17 Cursor = crArrow Caption = 'CA' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object b7: TSpeedButton Tag = 7 Left = 4 Top = 36 Width = 17 Height = 17 Cursor = crArrow Caption = '7' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object b8: TSpeedButton Tag = 8 Left = 20 Top = 36 Width = 17 Height = 17 Cursor = crArrow Caption = '8' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object b9: TSpeedButton Tag = 9 Left = 36 Top = 36 Width = 17 Height = 17 Cursor = crArrow Caption = '9' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bt: TSpeedButton Tag = 13 Left = 52 Top = 36 Width = 17 Height = 17 Cursor = crArrow Caption = 'x' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object b0: TSpeedButton Left = 4 Top = 52 Width = 17 Height = 17 Cursor = crArrow Caption = '0' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object b00: TSpeedButton Tag = 10 Left = 20 Top = 52 Width = 17 Height = 17 Cursor = crArrow Caption = '00' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bdec: TSpeedButton Tag = 11 Left = 36 Top = 52 Width = 17 Height = 17 Cursor = crArrow Caption = '.' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bd: TSpeedButton Tag = 12 Left = 52 Top = 52 Width = 17 Height = 17 Cursor = crArrow Caption = '/' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object beq: TSpeedButton Tag = 18 Left = 68 Top = 36 Width = 17 Height = 33 Cursor = crArrow Caption = '=' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bmp: TSpeedButton Tag = 19 Left = 92 Top = 4 Width = 25 Height = 17 Cursor = crArrow Caption = 'M+' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bmm: TSpeedButton Tag = 20 Left = 92 Top = 20 Width = 25 Height = 17 Cursor = crArrow Caption = 'M-' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bmr: TSpeedButton Tag = 21 Left = 92 Top = 36 Width = 25 Height = 17 Cursor = crArrow Caption = 'MR' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end object bmc: TSpeedButton Tag = 22 Left = 92 Top = 52 Width = 25 Height = 17 Cursor = crArrow Caption = 'MC' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = b1Click end end end