mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 02:18:03 +02:00
105 lines
2.1 KiB
Plaintext
105 lines
2.1 KiB
Plaintext
object Form1: TForm1
|
|
Left = 484
|
|
Height = 405
|
|
Top = 128
|
|
Width = 621
|
|
Caption = 'Test Many (but not all) Components'
|
|
ClientHeight = 385
|
|
ClientWidth = 621
|
|
Menu = MainMenu1
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
LCLVersion = '1.7'
|
|
object BottomPnl: TPanel
|
|
Left = 0
|
|
Height = 41
|
|
Top = 344
|
|
Width = 621
|
|
Align = alBottom
|
|
BevelInner = bvLowered
|
|
ClientHeight = 41
|
|
ClientWidth = 621
|
|
TabOrder = 0
|
|
object BtnClear: TBitBtn
|
|
Left = 8
|
|
Height = 30
|
|
Top = 5
|
|
Width = 75
|
|
Caption = 'Clear'
|
|
Kind = bkRetry
|
|
ModalResult = 1
|
|
OnClick = BtnClearClick
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object TestPnl: TPanel
|
|
Left = 0
|
|
Height = 344
|
|
Top = 0
|
|
Width = 384
|
|
Align = alClient
|
|
BevelInner = bvLowered
|
|
TabOrder = 1
|
|
end
|
|
object EventsPnl: TPanel
|
|
Left = 384
|
|
Height = 344
|
|
Top = 0
|
|
Width = 237
|
|
Align = alRight
|
|
BevelInner = bvLowered
|
|
ClientHeight = 344
|
|
ClientWidth = 237
|
|
TabOrder = 2
|
|
object EventsLB: TListBox
|
|
Left = 2
|
|
Height = 340
|
|
Top = 2
|
|
Width = 233
|
|
Align = alClient
|
|
ItemHeight = 0
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
left = 344
|
|
top = 352
|
|
object mnuFile: TMenuItem
|
|
Caption = '&File'
|
|
object mnuFileExit: TMenuItem
|
|
Caption = 'E&xit'
|
|
ShortCut = 32883
|
|
OnClick = mnuFileExitClick
|
|
end
|
|
end
|
|
object mnuDialogs: TMenuItem
|
|
Caption = '&Dialogs'
|
|
end
|
|
object mnuComponents: TMenuItem
|
|
Caption = '&Components'
|
|
object mnuCompAC: TMenuItem
|
|
Caption = 'A-C'
|
|
end
|
|
object mnuCompDF: TMenuItem
|
|
Caption = 'D-F'
|
|
end
|
|
object mnuCompGM: TMenuItem
|
|
Caption = 'G-M'
|
|
end
|
|
object mnuCompNP: TMenuItem
|
|
Caption = 'N-P'
|
|
end
|
|
object mnuCompQS: TMenuItem
|
|
Caption = 'Q-S'
|
|
end
|
|
object mnuCompTZ: TMenuItem
|
|
Caption = 'T-Z'
|
|
end
|
|
end
|
|
object mnuAbout: TMenuItem
|
|
Caption = '&About'
|
|
OnClick = mnuAboutClick
|
|
end
|
|
end
|
|
end
|