69 lines
1.3 KiB
Plaintext
69 lines
1.3 KiB
Plaintext
object fmMain: TfmMain
|
|
Left = 222
|
|
Height = 442
|
|
Top = 254
|
|
Width = 932
|
|
Caption = 'App'
|
|
ClientHeight = 442
|
|
ClientWidth = 932
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
LCLVersion = '1.5'
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 442
|
|
Top = 0
|
|
Width = 626
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel1'
|
|
TabOrder = 0
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 632
|
|
Height = 442
|
|
Top = 0
|
|
Width = 300
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
ClientHeight = 442
|
|
ClientWidth = 300
|
|
TabOrder = 1
|
|
object bGettext: TButton
|
|
Left = 0
|
|
Height = 25
|
|
Top = 400
|
|
Width = 80
|
|
Caption = 'Get text'
|
|
OnClick = bGettextClick
|
|
TabOrder = 0
|
|
end
|
|
object List: TShellListView
|
|
Left = 0
|
|
Height = 442
|
|
Top = 0
|
|
Width = 300
|
|
Align = alClient
|
|
Color = clWhite
|
|
HideSelection = False
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
SortColumn = 0
|
|
SortType = stText
|
|
TabOrder = 1
|
|
ViewStyle = vsSmallIcon
|
|
OnClick = ListClick
|
|
ObjectTypes = [otNonFolders]
|
|
end
|
|
end
|
|
object Splitter1: TSplitter
|
|
Left = 626
|
|
Height = 442
|
|
Top = 0
|
|
Width = 6
|
|
Align = alRight
|
|
Beveled = True
|
|
ResizeAnchor = akRight
|
|
end
|
|
end
|