You've already forked lina-components
mirror of
https://bitbucket.org/Dennis07/lina-components.git
synced 2026-06-03 16:03:46 +02:00
39c0916f1c
Signed-off-by: Dennis07 <den.goehlert@t-online.de>
164 lines
3.2 KiB
ObjectPascal
164 lines
3.2 KiB
ObjectPascal
object fmMain: TfmMain
|
|
Left = 0
|
|
Top = 0
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
BorderStyle = bsSingle
|
|
Caption = 'LinaComponents "TWinFile" Example'
|
|
ClientHeight = 257
|
|
ClientWidth = 434
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object laOtherFiles: TLabel
|
|
Left = 8
|
|
Top = 144
|
|
Width = 162
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'PAS && DPR files in this directory:'
|
|
end
|
|
object laOtherFolders: TLabel
|
|
Left = 176
|
|
Top = 144
|
|
Width = 162
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'Folders in this directory:'
|
|
end
|
|
object edPath: TEdit
|
|
Left = 8
|
|
Top = 8
|
|
Width = 249
|
|
Height = 21
|
|
TabOrder = 0
|
|
OnChange = edPathChange
|
|
end
|
|
object miBrowse: TButton
|
|
Left = 263
|
|
Top = 8
|
|
Width = 75
|
|
Height = 21
|
|
Caption = 'Browse...'
|
|
TabOrder = 1
|
|
OnClick = miBrowseClick
|
|
end
|
|
object lbOtherFiles: TListBox
|
|
Left = 8
|
|
Top = 163
|
|
Width = 162
|
|
Height = 86
|
|
ItemHeight = 13
|
|
TabOrder = 2
|
|
end
|
|
object gbProperties: TGroupBox
|
|
Left = 8
|
|
Top = 35
|
|
Width = 325
|
|
Height = 94
|
|
Caption = 'File properties'
|
|
TabOrder = 3
|
|
object leFileName: TLabeledEdit
|
|
Left = 63
|
|
Top = 24
|
|
Width = 106
|
|
Height = 21
|
|
EditLabel.Width = 49
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'File name:'
|
|
LabelPosition = lpLeft
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object leFileExt: TLabeledEdit
|
|
Left = 268
|
|
Top = 24
|
|
Width = 45
|
|
Height = 21
|
|
EditLabel.Width = 70
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'File extension:'
|
|
LabelPosition = lpLeft
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object leFolderName: TLabeledEdit
|
|
Left = 63
|
|
Top = 59
|
|
Width = 106
|
|
Height = 21
|
|
EditLabel.Width = 51
|
|
EditLabel.Height = 13
|
|
EditLabel.Caption = 'File folder:'
|
|
LabelPosition = lpLeft
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object lbOtherFolders: TListBox
|
|
Left = 176
|
|
Top = 163
|
|
Width = 162
|
|
Height = 86
|
|
ItemHeight = 13
|
|
TabOrder = 4
|
|
end
|
|
object pnButtons: TPanel
|
|
Left = 345
|
|
Top = 0
|
|
Width = 89
|
|
Height = 257
|
|
Align = alRight
|
|
TabOrder = 5
|
|
object laExecuteMode: TLabel
|
|
Left = 8
|
|
Top = 144
|
|
Width = 73
|
|
Height = 13
|
|
AutoSize = False
|
|
Caption = 'Mode:'
|
|
end
|
|
object btExecute: TButton
|
|
Left = 8
|
|
Top = 224
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Execute'
|
|
TabOrder = 0
|
|
OnClick = btExecuteClick
|
|
end
|
|
object cbExecuteSafe: TCheckBox
|
|
Left = 8
|
|
Top = 201
|
|
Width = 73
|
|
Height = 17
|
|
Caption = 'Safe exec.'
|
|
TabOrder = 1
|
|
end
|
|
object coExecuteMode: TComboBox
|
|
Left = 8
|
|
Top = 163
|
|
Width = 73
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemIndex = 0
|
|
TabOrder = 2
|
|
Text = 'Open'
|
|
Items.Strings = (
|
|
'Open'
|
|
'Edit')
|
|
end
|
|
end
|
|
object OpenDialog: TOpenDialog
|
|
Title = 'Select a file anywhere on your system'
|
|
Left = 400
|
|
Top = 8
|
|
end
|
|
end
|