mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-03 04:38:13 +02:00
114 lines
2.1 KiB
Plaintext
114 lines
2.1 KiB
Plaintext
object Form1: TForm1
|
|
Left = 161
|
|
Height = 257
|
|
Top = 137
|
|
Width = 220
|
|
Caption = 'Form1'
|
|
ClientHeight = 230
|
|
ClientWidth = 220
|
|
Menu = MainMenu1
|
|
OnClick = FormClick
|
|
OnCreate = FormCreate
|
|
OnKeyDown = Button1KeyDown
|
|
OnMouseMove = FormMouseMove
|
|
OnPaint = FormPaint
|
|
LCLVersion = '0.9.31'
|
|
object Button1: TButton
|
|
Left = 96
|
|
Height = 25
|
|
Top = 16
|
|
Width = 116
|
|
Caption = 'Move Progress'
|
|
OnClick = Button1Click
|
|
OnKeyDown = Button1KeyDown
|
|
OnKeyPress = Button1KeyPress
|
|
OnKeyUp = Button1KeyUp
|
|
OnUTF8KeyPress = Button1UTF8KeyPress
|
|
TabOrder = 0
|
|
end
|
|
object ProgressBar1: TProgressBar
|
|
Left = 72
|
|
Height = 20
|
|
Top = 72
|
|
Width = 140
|
|
Position = 60
|
|
TabOrder = 1
|
|
end
|
|
object TrackBar1: TTrackBar
|
|
Left = 72
|
|
Height = 31
|
|
Top = 96
|
|
Width = 140
|
|
Position = 0
|
|
TabOrder = 2
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
Left = 72
|
|
Height = 21
|
|
Top = 48
|
|
Width = 94
|
|
Caption = 'CheckBox1'
|
|
TabOrder = 3
|
|
end
|
|
object Button2: TButton
|
|
Left = 96
|
|
Height = 25
|
|
Top = 160
|
|
Width = 116
|
|
Caption = 'MessageBox'
|
|
OnClick = Button2Click
|
|
TabOrder = 4
|
|
end
|
|
object Button3: TButton
|
|
Left = 95
|
|
Height = 25
|
|
Top = 192
|
|
Width = 117
|
|
Caption = 'Open Form2'
|
|
OnClick = Button3Click
|
|
TabOrder = 5
|
|
end
|
|
object Label1: TLabel
|
|
Left = 24
|
|
Height = 18
|
|
Top = 226
|
|
Width = 43
|
|
Caption = 'Label1'
|
|
Font.Color = clBlue
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object btnShowInfo: TButton
|
|
Left = 96
|
|
Height = 25
|
|
Top = 226
|
|
Width = 116
|
|
Caption = 'Show Info in ADB'
|
|
OnClick = btnShowInfoClick
|
|
TabOrder = 6
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 72
|
|
Height = 21
|
|
Top = 128
|
|
Width = 140
|
|
AutoSize = False
|
|
ItemHeight = 0
|
|
Items.Strings = (
|
|
'Item1'
|
|
'Item2'
|
|
'Item3'
|
|
)
|
|
TabOrder = 7
|
|
Text = 'ComboBox1'
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
left = 23
|
|
top = 60
|
|
object MenuItem1: TMenuItem
|
|
Caption = 'New Item1'
|
|
OnClick = MenuItem1Click
|
|
end
|
|
end
|
|
end
|