You've already forked lazarus-ccr
93e37e8e76
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6140 8e941d3f-bd1b-0410-a28a-d453659cc2b4
370 lines
7.2 KiB
Plaintext
370 lines
7.2 KiB
Plaintext
object MoneyCalcDlg: TMoneyCalcDlg
|
|
Left = 191
|
|
Height = 283
|
|
Top = 116
|
|
Width = 756
|
|
BorderStyle = bsDialog
|
|
Caption = 'Money Calculator'
|
|
ClientHeight = 283
|
|
ClientWidth = 756
|
|
Color = clBtnFace
|
|
Font.Color = clWindowText
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnKeyPress = FormKeyPress
|
|
LCLVersion = '1.9.0.0'
|
|
object GroupBox1: TGroupBox
|
|
Left = 4
|
|
Height = 268
|
|
Top = 4
|
|
Width = 209
|
|
Caption = ' Calculator '
|
|
ClientHeight = 248
|
|
ClientWidth = 205
|
|
TabOrder = 0
|
|
TabStop = True
|
|
object ZeroBtn: TBitBtn
|
|
Left = 8
|
|
Height = 28
|
|
Top = 214
|
|
Width = 35
|
|
Caption = '0'
|
|
Font.Color = clBlue
|
|
OnClick = NumBtnClick
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
TabStop = False
|
|
end
|
|
object DecKey: TBitBtn
|
|
Left = 86
|
|
Height = 28
|
|
Top = 214
|
|
Width = 35
|
|
Caption = '.'
|
|
Font.Color = clBlue
|
|
OnClick = DecKeyClick
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
TabStop = False
|
|
end
|
|
object ThreeKey: TBitBtn
|
|
Tag = 3
|
|
Left = 86
|
|
Height = 28
|
|
Top = 181
|
|
Width = 35
|
|
Caption = '3'
|
|
Font.Color = clBlue
|
|
OnClick = NumBtnClick
|
|
ParentFont = False
|
|
TabOrder = 7
|
|
TabStop = False
|
|
end
|
|
object OneKey: TBitBtn
|
|
Tag = 1
|
|
Left = 8
|
|
Height = 28
|
|
Top = 181
|
|
Width = 35
|
|
Caption = '1'
|
|
Font.Color = clBlue
|
|
OnClick = NumBtnClick
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
TabStop = False
|
|
end
|
|
object TwoKey: TBitBtn
|
|
Tag = 2
|
|
Left = 47
|
|
Height = 28
|
|
Top = 181
|
|
Width = 35
|
|
Caption = '2'
|
|
Font.Color = clBlue
|
|
OnClick = NumBtnClick
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
TabStop = False
|
|
end
|
|
object SixKey: TBitBtn
|
|
Tag = 6
|
|
Left = 86
|
|
Height = 28
|
|
Top = 149
|
|
Width = 35
|
|
Caption = '6'
|
|
Font.Color = clBlue
|
|
OnClick = NumBtnClick
|
|
ParentFont = False
|
|
TabOrder = 10
|
|
TabStop = False
|
|
end
|
|
object FourKey: TBitBtn
|
|
Tag = 4
|
|
Left = 8
|
|
Height = 28
|
|
Top = 149
|
|
Width = 35
|
|
Caption = '4'
|
|
Font.Color = clBlue
|
|
OnClick = NumBtnClick
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
TabStop = False
|
|
end
|
|
object FiveKey: TBitBtn
|
|
Tag = 5
|
|
Left = 47
|
|
Height = 28
|
|
Top = 149
|
|
Width = 35
|
|
Caption = '5'
|
|
Font.Color = clBlue
|
|
OnClick = NumBtnClick
|
|
ParentFont = False
|
|
TabOrder = 6
|
|
TabStop = False
|
|
end
|
|
object NineKey: TBitBtn
|
|
Tag = 9
|
|
Left = 86
|
|
Height = 28
|
|
Top = 116
|
|
Width = 35
|
|
Caption = '9'
|
|
Font.Color = clBlue
|
|
OnClick = NumBtnClick
|
|
ParentFont = False
|
|
TabOrder = 16
|
|
TabStop = False
|
|
end
|
|
object SevenKey: TBitBtn
|
|
Tag = 7
|
|
Left = 8
|
|
Height = 28
|
|
Top = 116
|
|
Width = 35
|
|
Caption = '7'
|
|
Font.Color = clBlue
|
|
OnClick = NumBtnClick
|
|
ParentFont = False
|
|
TabOrder = 8
|
|
TabStop = False
|
|
end
|
|
object EightKey: TBitBtn
|
|
Tag = 8
|
|
Left = 47
|
|
Height = 28
|
|
Top = 116
|
|
Width = 35
|
|
Caption = '8'
|
|
Font.Color = clBlue
|
|
OnClick = NumBtnClick
|
|
ParentFont = False
|
|
TabOrder = 9
|
|
TabStop = False
|
|
end
|
|
object AddBtn: TBitBtn
|
|
Left = 125
|
|
Height = 28
|
|
Top = 214
|
|
Width = 35
|
|
Caption = '+'
|
|
Font.Color = clRed
|
|
OnClick = AddBtnClick
|
|
ParentFont = False
|
|
TabOrder = 12
|
|
TabStop = False
|
|
end
|
|
object SubBtn: TBitBtn
|
|
Left = 125
|
|
Height = 28
|
|
Top = 181
|
|
Width = 35
|
|
Caption = '-'
|
|
Font.Color = clRed
|
|
OnClick = SubBtnClick
|
|
ParentFont = False
|
|
TabOrder = 13
|
|
TabStop = False
|
|
end
|
|
object MulBtn: TBitBtn
|
|
Left = 125
|
|
Height = 28
|
|
Top = 149
|
|
Width = 35
|
|
Caption = '*'
|
|
Font.Color = clRed
|
|
OnClick = MulBtnClick
|
|
ParentFont = False
|
|
TabOrder = 14
|
|
TabStop = False
|
|
end
|
|
object DivBtn: TBitBtn
|
|
Left = 125
|
|
Height = 28
|
|
Top = 116
|
|
Width = 35
|
|
Caption = '/'
|
|
Font.Color = clRed
|
|
OnClick = DivBtnClick
|
|
ParentFont = False
|
|
TabOrder = 15
|
|
TabStop = False
|
|
end
|
|
object PlusMinusBtn: TBitBtn
|
|
Left = 47
|
|
Height = 28
|
|
Top = 214
|
|
Width = 35
|
|
Caption = '+/-'
|
|
Font.Color = clBlue
|
|
OnClick = PlusMinusBtnClick
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
TabStop = False
|
|
end
|
|
object ClearBtn: TBitBtn
|
|
Left = 147
|
|
Height = 28
|
|
Top = 80
|
|
Width = 52
|
|
Caption = 'C'
|
|
Font.Color = clRed
|
|
OnClick = ClearBtnClick
|
|
ParentFont = False
|
|
TabOrder = 19
|
|
TabStop = False
|
|
end
|
|
object EqualBtn: TBitBtn
|
|
Left = 164
|
|
Height = 126
|
|
Top = 116
|
|
Width = 35
|
|
Caption = '='
|
|
Font.Color = clRed
|
|
OnClick = EqualBtnClick
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
TabStop = False
|
|
end
|
|
object ClearEntryBtn: TBitBtn
|
|
Left = 86
|
|
Height = 28
|
|
Top = 80
|
|
Width = 56
|
|
Caption = 'CE'
|
|
Font.Color = clRed
|
|
OnClick = ClearEntryBtnClick
|
|
ParentFont = False
|
|
TabOrder = 18
|
|
TabStop = False
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 8
|
|
Height = 73
|
|
Top = 0
|
|
Width = 191
|
|
Alignment = taRightJustify
|
|
MaxLength = 40
|
|
OnKeyDown = Memo1KeyDown
|
|
PopupMenu = PopupMenu1
|
|
ReadOnly = True
|
|
TabOrder = 20
|
|
WantReturns = False
|
|
WantTabs = True
|
|
WordWrap = False
|
|
end
|
|
object BSBtn: TBitBtn
|
|
Left = 8
|
|
Height = 28
|
|
Top = 80
|
|
Width = 74
|
|
Caption = 'Backspace'
|
|
Font.Color = clRed
|
|
OnClick = BSBtnClick
|
|
ParentFont = False
|
|
TabOrder = 17
|
|
TabStop = False
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 220
|
|
Height = 268
|
|
Top = 4
|
|
Width = 524
|
|
Caption = ' Conversions '
|
|
ClientHeight = 248
|
|
ClientWidth = 520
|
|
TabOrder = 1
|
|
TabStop = True
|
|
object Label1: TLabel
|
|
Left = 20
|
|
Height = 15
|
|
Top = 25
|
|
Width = 51
|
|
Caption = 'Currency:'
|
|
ParentColor = False
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 96
|
|
Height = 23
|
|
Top = 21
|
|
Width = 85
|
|
DropDownCount = 32
|
|
ItemHeight = 15
|
|
OnChange = ComboBox1Change
|
|
Sorted = True
|
|
TabOrder = 0
|
|
end
|
|
object ComboBox2: TComboBox
|
|
Left = 368
|
|
Height = 23
|
|
Top = 21
|
|
Width = 85
|
|
DropDownCount = 32
|
|
ItemHeight = 15
|
|
OnChange = ComboBox2Change
|
|
Sorted = True
|
|
TabOrder = 3
|
|
end
|
|
object ConvertBtn: TBitBtn
|
|
Left = 248
|
|
Height = 25
|
|
Top = 20
|
|
Width = 113
|
|
Caption = 'Convert To'
|
|
OnClick = ConvertBtnClick
|
|
TabOrder = 2
|
|
end
|
|
object ListBox1: TListBox
|
|
Left = 20
|
|
Height = 188
|
|
Top = 52
|
|
Width = 204
|
|
ItemHeight = 0
|
|
TabOrder = 1
|
|
end
|
|
object ListBox2: TListBox
|
|
Left = 248
|
|
Height = 188
|
|
Top = 52
|
|
Width = 256
|
|
ItemHeight = 0
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
left = 232
|
|
top = 184
|
|
object Copy1: TMenuItem
|
|
Caption = 'Copy'
|
|
OnClick = Copy1Click
|
|
end
|
|
object Paste1: TMenuItem
|
|
Caption = 'Paste'
|
|
OnClick = Paste1Click
|
|
end
|
|
end
|
|
end
|