Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- object Form1: TForm1
- Left = 655
- Height = 423
- Top = 132
- Width = 366
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Form1'
- ClientHeight = 423
- ClientWidth = 366
- LCLVersion = '1.8.4.0'
- object Edit1: TEdit
- Left = 8
- Height = 38
- Top = 32
- Width = 352
- Font.CharSet = ANSI_CHARSET
- Font.Height = -24
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- NumbersOnly = True
- ParentFont = False
- TabOrder = 0
- end
- object B1: TButton
- Left = 8
- Height = 30
- Top = 80
- Width = 69
- Caption = 'MC'
- TabOrder = 1
- end
- object B7: TButton
- Left = 8
- Height = 48
- Top = 112
- Width = 88
- Caption = '%'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 2
- end
- object B8: TButton
- Left = 96
- Height = 48
- Top = 112
- Width = 88
- Caption = '√'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 3
- end
- object B9: TButton
- Left = 184
- Height = 48
- Top = 112
- Width = 88
- Caption = 'Х²'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 4
- end
- object B10: TButton
- Left = 272
- Height = 48
- Top = 112
- Width = 88
- Caption = '1/x'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 5
- end
- object B11: TButton
- Left = 8
- Height = 48
- Top = 160
- Width = 88
- Caption = 'CE'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 6
- end
- object B12: TButton
- Left = 96
- Height = 48
- Top = 160
- Width = 88
- Caption = 'C'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 7
- end
- object B13: TButton
- Left = 184
- Height = 48
- Top = 160
- Width = 88
- Caption = '⌫'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 8
- end
- object B14: TButton
- Left = 272
- Height = 48
- Top = 160
- Width = 88
- Caption = '÷'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 9
- end
- object B15: TButton
- Left = 8
- Height = 48
- Top = 208
- Width = 88
- Caption = '7'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- OnClick = ClickB
- ParentFont = False
- TabOrder = 10
- end
- object B16: TButton
- Left = 96
- Height = 48
- Top = 208
- Width = 88
- Caption = '8'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- OnClick = ClickB
- ParentFont = False
- TabOrder = 11
- end
- object B17: TButton
- Left = 184
- Height = 48
- Top = 208
- Width = 88
- Caption = '9'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- OnClick = ClickB
- ParentFont = False
- TabOrder = 12
- end
- object B18: TButton
- Left = 272
- Height = 48
- Top = 208
- Width = 88
- Caption = '×'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 13
- end
- object B19: TButton
- Left = 8
- Height = 48
- Top = 256
- Width = 88
- Caption = '4'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- OnClick = ClickB
- ParentFont = False
- TabOrder = 14
- end
- object B20: TButton
- Left = 96
- Height = 48
- Top = 256
- Width = 88
- Caption = '5'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- OnClick = ClickB
- ParentFont = False
- TabOrder = 15
- end
- object B21: TButton
- Left = 184
- Height = 48
- Top = 256
- Width = 88
- Caption = '6'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- OnClick = ClickB
- ParentFont = False
- TabOrder = 16
- end
- object B22: TButton
- Left = 272
- Height = 48
- Top = 256
- Width = 88
- Caption = '-'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 17
- end
- object B23: TButton
- Left = 8
- Height = 48
- Top = 304
- Width = 88
- Caption = '1'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- OnClick = ClickB
- ParentFont = False
- TabOrder = 18
- end
- object B24: TButton
- Left = 96
- Height = 48
- Top = 304
- Width = 88
- Caption = '2'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- OnClick = ClickB
- ParentFont = False
- TabOrder = 19
- end
- object B25: TButton
- Left = 184
- Height = 48
- Top = 304
- Width = 88
- Caption = '3'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- OnClick = ClickB
- ParentFont = False
- TabOrder = 20
- end
- object B26: TButton
- Left = 272
- Height = 48
- Top = 304
- Width = 88
- Caption = '+'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 21
- end
- object B27: TButton
- Left = 8
- Height = 48
- Top = 352
- Width = 88
- Caption = '±'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 22
- end
- object B28: TButton
- Left = 96
- Height = 48
- Top = 352
- Width = 88
- Caption = '0'
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- OnClick = ClickB
- ParentFont = False
- TabOrder = 23
- end
- object B29: TButton
- Left = 184
- Height = 48
- Top = 352
- Width = 88
- Caption = ','
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 24
- end
- object B30: TButton
- Left = 272
- Height = 48
- Top = 352
- Width = 88
- Caption = '='
- Font.CharSet = ANSI_CHARSET
- Font.Height = -19
- Font.Name = '@Microsoft JhengHei UI Light'
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
- ParentFont = False
- TabOrder = 25
- end
- object B2: TButton
- Left = 80
- Height = 30
- Top = 80
- Width = 69
- Caption = 'MR'
- TabOrder = 26
- end
- object B3: TButton
- Left = 150
- Height = 30
- Top = 80
- Width = 69
- Caption = 'M+'
- TabOrder = 27
- end
- object B4: TButton
- Left = 221
- Height = 30
- Top = 80
- Width = 69
- Caption = 'M-'
- TabOrder = 28
- end
- object B5: TButton
- Left = 291
- Height = 30
- Top = 80
- Width = 69
- Caption = 'MS'
- TabOrder = 29
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement