paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 04:37:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Improve layout of "Example projects" etc. dialogs. Issue #35446, patch from Alexey Tor.

Browse Source 
git-svn-id: trunk@61085 -
This commit is contained in:
juha 2019-04-30 12:38:57 +00:00
parent ae5ab44793
commit d3ce767c34
3 changed files with 220 additions and 208 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

241
ide/buildlazdialog.lfm
View File

@ -15,24 +15,24 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
OnResize = FormResize
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
object CBLDBtnPanel: TPanel
AnchorSideTop.Side = asrBottom
Left = 0
Height = 38
Top = 442
Height = 41
Top = 439
Width = 700
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 38
ClientHeight = 41
ClientWidth = 700
TabOrder = 0
object CancelButton: TBitBtn
Left = 612
Height = 26
Left = 618
Height = 29
Top = 6
Width = 82
Width = 76
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -44,9 +44,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
object SaveSettingsButton: TBitBtn
Left = 512
Height = 26
Height = 29
Top = 6
Width = 94
Width = 100
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -55,10 +55,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 3
end
object CompileButton: TBitBtn
Left = 302
Height = 26
Left = 295
Height = 29
Top = 6
Width = 71
Width = 68
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -68,9 +68,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
object HelpButton: TBitBtn
Left = 6
Height = 26
Height = 29
Top = 6
Width = 71
Width = 63
Align = alLeft
AutoSize = True
BorderSpacing.Around = 6
@ -80,10 +80,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 0
end
object CompileAdvancedButton: TBitBtn
Left = 379
Height = 26
Left = 369
Height = 29
Top = 6
Width = 127
Width = 137
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
@ -94,7 +94,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
object PageControl1: TPageControl
Left = 0
Height = 442
Height = 439
Top = 0
Width = 700
ActivePage = BuildTabSheet
@ -103,27 +103,27 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 1
object BuildTabSheet: TTabSheet
Caption = 'BuildTabSheet'
ClientHeight = 414
ClientWidth = 692
ClientHeight = 408
ClientWidth = 696
object DetailsPanel: TPanel
Left = 0
Height = 414
Height = 408
Top = 0
Width = 692
Width = 696
Align = alClient
AutoSize = True
BevelOuter = bvNone
ClientHeight = 414
ClientWidth = 692
ClientHeight = 408
ClientWidth = 696
TabOrder = 0
object BuildProfileLabel: TLabel
AnchorSideLeft.Control = DetailsPanel
AnchorSideTop.Control = BuildProfileComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Height = 17
Top = 11
Width = 83
Width = 109
BorderSpacing.Top = 5
BorderSpacing.Around = 6
Caption = 'Profile to Build'
@ -136,15 +136,15 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BuildProfileButton
Left = 95
Height = 23
Left = 121
Height = 31
Hint = 'Name of the active profile.'
Top = 7
Width = 560
Top = 4
Width = 538
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
ItemHeight = 15
ItemHeight = 0
OnSelect = BuildProfileComboBoxSelect
ParentShowHint = False
ShowHint = True
@ -153,16 +153,16 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
object BuildProfileButton: TButton
AnchorSideTop.Control = BuildProfileComboBox
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BuildProfileComboBox
AnchorSideBottom.Side = asrBottom
Left = 661
Height = 25
Left = 665
Height = 31
Hint = 'Manage profiles'
Top = 6
Top = 4
Width = 25
Anchors = [akTop, akRight]
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = '...'
@ -176,9 +176,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = LCLWidgetTypeComboBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 80
Width = 42
Height = 17
Top = 95
Width = 54
Alignment = taRightJustify
BorderSpacing.Top = 6
Caption = 'Options'
@ -194,8 +194,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
Left = 6
Height = 56
Hint = 'Options passed to compiler'
Top = 95
Width = 680
Top = 112
Width = 684
Anchors = [akTop, akLeft, akRight]
Lines.Strings = (
''
@ -211,9 +211,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = TargetDirectoryComboBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 201
Width = 39
Height = 17
Top = 226
Width = 50
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Defines'
@ -226,25 +226,26 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = CleanUpGroupBox
AnchorSideBottom.Control = CommonsDividerBevel
Left = 6
Height = 133
Height = 98
Hint = 'Defines without -d'
Top = 216
Width = 491
Top = 243
Width = 453
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
ParentShowHint = False
PopupMenu = OptionsPopupMenu
ShowHint = True
TabOrder = 2
TopIndex = -1
end
object LCLWidgetTypeLabel: TLabel
AnchorSideLeft.Control = BuildProfileLabel
AnchorSideTop.Control = BuildProfileComboBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 36
Width = 89
Height = 17
Top = 41
Width = 111
BorderSpacing.Top = 6
Caption = 'LCL Widget Type'
ParentColor = False
@ -255,10 +256,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Top = 51
Height = 31
Top = 58
Width = 209
ItemHeight = 15
ItemHeight = 0
Style = csDropDownList
TabOrder = 3
end
@ -267,9 +268,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = OptionsMemo
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 157
Width = 84
Height = 17
Top = 174
Width = 109
Alignment = taRightJustify
BorderSpacing.Top = 6
Caption = 'Target Directory'
@ -281,12 +282,12 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TargetDirectoryButton
Left = 6
Height = 23
Top = 172
Width = 649
Height = 29
Top = 191
Width = 653
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
ItemHeight = 15
ItemHeight = 0
TabOrder = 5
end
object TargetOSLabel: TLabel
@ -295,9 +296,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = BuildProfileComboBox
AnchorSideTop.Side = asrBottom
Left = 221
Height = 15
Top = 36
Width = 51
Height = 17
Top = 41
Width = 65
Alignment = taRightJustify
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -310,9 +311,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = BuildProfileComboBox
AnchorSideTop.Side = asrBottom
Left = 451
Height = 15
Top = 36
Width = 59
Height = 17
Top = 41
Width = 74
Alignment = taRightJustify
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -324,11 +325,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ConfirmBuildCheckBox
AnchorSideBottom.Side = asrBottom
Left = 434
Height = 19
Left = 526
Height = 24
Hint = 'Increment revision? (ToDo: get a better hint)'
Top = 373
Width = 170
Top = 366
Width = 217
BorderSpacing.Left = 12
Caption = 'UpdateRevisionIncCheckBox'
ParentShowHint = False
@ -342,11 +343,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = OptionsMemo
AnchorSideRight.Side = asrBottom
Left = 451
Height = 23
Top = 51
Width = 235
Height = 29
Top = 58
Width = 239
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
ItemHeight = 0
TabOrder = 8
end
object CommonsDividerBevel: TDividerBevel
@ -355,9 +356,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom
Left = 6
Height = 15
Top = 349
Width = 680
Height = 17
Top = 341
Width = 684
Caption = 'CommonsDividerBevel'
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 6
@ -372,11 +373,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = DefinesButton
AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom
Left = 106
Height = 19
Left = 110
Height = 24
Hint = 'Restart Lazarus automatically after building the IDE. Has no effect when building other parts'
Top = 373
Width = 161
Top = 366
Width = 212
BorderSpacing.Left = 12
BorderSpacing.Top = 7
Caption = 'RestartAfterBuildCheckBox'
@ -388,11 +389,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Control = RestartAfterBuildCheckBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RestartAfterBuildCheckBox
Left = 279
Height = 19
Left = 334
Height = 24
Hint = 'Show confirmation dialog when building directly from Tools menu'
Top = 373
Width = 143
Top = 366
Width = 180
BorderSpacing.Left = 12
Caption = 'ConfirmBuildCheckBox'
ParentShowHint = False
@ -406,10 +407,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 25
Height = 29
Hint = 'Edit list of defines which can be used by any profile'
Top = 370
Width = 88
Top = 364
Width = 92
AutoSize = True
BorderSpacing.Right = 6
Caption = 'Edit Defines'
@ -421,15 +422,15 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
object TargetDirectoryButton: TButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TargetDirectoryComboBox
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TargetDirectoryComboBox
AnchorSideBottom.Side = asrBottom
Left = 661
Height = 25
Top = 171
Left = 665
Height = 29
Top = 191
Width = 25
Anchors = [akTop, akRight]
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = '...'
@ -443,10 +444,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = LCLWidgetTypeComboBox
AnchorSideRight.Side = asrBottom
Left = 221
Height = 23
Top = 51
Height = 29
Top = 58
Width = 224
ItemHeight = 15
ItemHeight = 0
TabOrder = 7
end
object CleanUpGroupBox: TGroupBox
@ -457,10 +458,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CommonsDividerBevel
Left = 503
Height = 148
Top = 201
Width = 183
Left = 465
Height = 115
Top = 226
Width = 225
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 6
@ -474,8 +475,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 128
ClientWidth = 179
ClientHeight = 96
ClientWidth = 221
ParentShowHint = False
ShowHint = True
TabOrder = 13
@ -483,9 +484,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = CleanCommonCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 31
Width = 142
Height = 24
Top = 36
Width = 181
BorderSpacing.Top = 6
Caption = 'CleanAutoRadioButton'
Checked = True
@ -497,9 +498,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = CleanAutoRadioButton
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 56
Width = 167
Height = 24
Top = 66
Width = 209
BorderSpacing.Top = 6
Caption = 'CleanCommonRadioButton'
OnClick = CleanRadioButtonClick
@ -509,9 +510,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = CleanCommonRadioButton
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 81
Width = 130
Height = 24
Top = 96
Width = 166
BorderSpacing.Top = 6
Caption = 'CleanAllRadioButton'
OnClick = CleanRadioButtonClick
@ -521,9 +522,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = CleanAllRadioButton
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 106
Width = 130
Height = 24
Top = 126
Width = 163
BorderSpacing.Top = 6
Caption = 'CleanOnceCheckBox'
TabOrder = 3
@ -531,9 +532,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
object CleanCommonCheckBox: TCheckBox
AnchorSideTop.Control = CleanUpGroupBox
Left = 6
Height = 19
Height = 24
Top = 6
Width = 153
Width = 190
BorderSpacing.Top = 6
Caption = 'CleanCommonCheckBox'
OnClick = CleanCommonCheckBoxClick
@ -545,8 +546,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
object InfoTabSheet: TTabSheet
Caption = 'InfoTabSheet'
ClientHeight = 414
ClientWidth = 692
ClientHeight = 408
ClientWidth = 696
object InhTreeView: TTreeView
Left = 0
Height = 414
@ -560,8 +561,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end
end
object OptionsPopupMenu: TPopupMenu
left = 320
top = 592
Left = 320
Top = 592
object ShowOptsMenuItem: TMenuItem
Caption = 'Show options and defines for cmd line'
OnClick = ShowOptsMenuItemClick

90
ide/codetemplatesdlg.lfm
View File

@ -11,17 +11,17 @@ object CodeTemplateDialog: TCodeTemplateDialog
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
object FilenameGroupBox: TGroupBox
Left = 6
Height = 43
Height = 46
Top = 6
Width = 717
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
Caption = 'FilenameGroupBox'
ClientHeight = 23
ClientHeight = 27
ClientWidth = 713
TabOrder = 0
object FilenameEdit: TFileNameEdit
@ -29,7 +29,7 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideRight.Control = FilenameGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Height = 27
Top = 0
Width = 701
FileName = 'FilenameEdit'
@ -48,12 +48,12 @@ object CodeTemplateDialog: TCodeTemplateDialog
object TemplatesGroupBox: TGroupBox
Left = 6
Height = 167
Top = 55
Top = 58
Width = 717
Align = alTop
BorderSpacing.Around = 6
Caption = 'TemplatesGroupBox'
ClientHeight = 147
ClientHeight = 148
ClientWidth = 713
TabOrder = 1
object TemplateListBox: TListBox
@ -63,9 +63,9 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideBottom.Control = TemplatesGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 135
Height = 136
Top = 6
Width = 547
Width = 555
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -73,20 +73,23 @@ object CodeTemplateDialog: TCodeTemplateDialog
BorderSpacing.Bottom = 6
ItemHeight = 0
OnSelectionChange = TemplateListBoxSelectionChange
ScrollWidth = 545
ScrollWidth = 553
TabOrder = 0
TopIndex = -1
end
object AddButton: TButton
AnchorSideTop.Control = TemplateListBox
AnchorSideRight.Control = TemplatesGroupBox
AnchorSideRight.Side = asrBottom
Left = 559
Height = 25
Left = 567
Height = 29
Top = 6
Width = 148
Width = 140
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
Caption = 'AddButton'
Constraints.MinWidth = 140
OnClick = AddButtonClick
TabOrder = 1
end
@ -96,11 +99,12 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AddButton
AnchorSideRight.Side = asrBottom
Left = 559
Height = 25
Top = 37
Width = 148
Left = 567
Height = 29
Top = 41
Width = 140
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'DeleteButton'
OnClick = DeleteButtonClick
@ -112,11 +116,12 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DeleteButton
AnchorSideRight.Side = asrBottom
Left = 559
Height = 25
Top = 68
Width = 148
Left = 567
Height = 29
Top = 76
Width = 140
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'RenameButton'
OnClick = RenameButtonClick
@ -128,13 +133,13 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideRight.Control = Owner
AnchorSideBottom.Control = FilenameGroupBox
Left = 6
Height = 274
Top = 228
Height = 268
Top = 231
Width = 717
Align = alClient
BorderSpacing.Around = 6
Caption = 'EditTemplateGroupBox'
ClientHeight = 254
ClientHeight = 249
ClientWidth = 713
TabOrder = 2
inline TemplateSynEdit: TSynEdit
@ -145,7 +150,7 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideBottom.Control = EditTemplateGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 170
Height = 165
Top = 78
Width = 701
BorderSpacing.Around = 6
@ -674,10 +679,10 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Control = EditTemplateGroupBox
AnchorSideRight.Control = EditTemplateGroupBox
AnchorSideRight.Side = asrBottom
Left = 168
Left = 210
Height = 70
Top = 2
Width = 543
Width = 501
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
@ -701,21 +706,21 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideLeft.Control = EditTemplateGroupBox
AnchorSideTop.Control = EditTemplateGroupBox
Left = 0
Height = 81
Height = 95
Top = 0
Width = 158
Width = 200
AutoSize = True
BevelOuter = bvNone
ClientHeight = 81
ClientWidth = 158
ClientHeight = 95
ClientWidth = 200
TabOrder = 0
object KeepSubIndentCheckBox: TCheckBox
AnchorSideLeft.Control = OptionsPanel
AnchorSideTop.Control = OptionsPanel
Left = 6
Height = 19
Height = 24
Top = 6
Width = 152
Width = 194
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'KeepSubIndentCheckBox'
@ -728,9 +733,9 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Control = KeepSubIndentCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 25
Width = 130
Height = 24
Top = 30
Width = 167
BorderSpacing.Left = 6
Caption = 'UseMacrosCheckBox'
OnChange = UseMacrosCheckBoxChange
@ -744,9 +749,9 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 6
Height = 25
Top = 50
Width = 125
Height = 29
Top = 60
Width = 140
AutoSize = True
BorderSpacing.Around = 6
Caption = 'InsertMacroButton'
@ -757,8 +762,8 @@ object CodeTemplateDialog: TCodeTemplateDialog
end
object ButtonPanel: TButtonPanel
Left = 6
Height = 26
Top = 508
Height = 29
Top = 505
Width = 717
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
@ -779,7 +784,8 @@ object CodeTemplateDialog: TCodeTemplateDialog
Enabled = False
CompilerMode = pcmObjFPC
NestedComments = True
left = 304
top = 344
TypeHelpers = False
Left = 304
Top = 344
end
end

97
ide/examplemanager.lfm
View File

@ -10,17 +10,17 @@ object ExampleManagerForm: TExampleManagerForm
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.5'
LCLVersion = '2.1.0.0'
object ProjectsGroupBox: TGroupBox
Left = 0
Height = 326
Height = 331
Top = 123
Width = 457
Align = alClient
BorderSpacing.Top = 3
Caption = 'Projects'
ClientHeight = 310
ClientWidth = 455
ClientHeight = 312
ClientWidth = 453
TabOrder = 1
object ProjectsListBox: TListBox
AnchorSideLeft.Control = ProjectsGroupBox
@ -31,22 +31,22 @@ object ExampleManagerForm: TExampleManagerForm
AnchorSideBottom.Control = ProjectsGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 276
Top = 28
Width = 443
Height = 272
Top = 34
Width = 441
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
MultiSelect = True
OnSelectionChange = ProjectsListBoxSelectionChange
ScrollWidth = 441
ScrollWidth = 439
TabOrder = 2
TopIndex = -1
end
object ProjectFilter: TListFilterEdit
AnchorSideLeft.Control = ProjectsListBox
Left = 6
Height = 21
Height = 27
Top = 1
Width = 221
OnAfterFilter = ProjectFilterAfterFilter
@ -62,9 +62,9 @@ object ExampleManagerForm: TExampleManagerForm
AnchorSideTop.Control = ProjectFilter
AnchorSideTop.Side = asrCenter
Left = 252
Height = 22
Top = 0
Width = 108
Height = 24
Top = 2
Width = 121
BorderSpacing.Left = 25
Caption = 'Relative paths'
OnClick = cbRelativePathClick
@ -73,8 +73,8 @@ object ExampleManagerForm: TExampleManagerForm
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 455
Height = 29
Top = 460
Width = 858
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
@ -91,7 +91,7 @@ object ExampleManagerForm: TExampleManagerForm
object ActionGroupBox: TGroupBox
AnchorSideLeft.Side = asrBottom
Left = 465
Height = 326
Height = 331
Top = 123
Width = 405
Align = alRight
@ -99,18 +99,19 @@ object ExampleManagerForm: TExampleManagerForm
BorderSpacing.Left = 3
BorderSpacing.Top = 3
Caption = 'Action'
ClientHeight = 310
ClientWidth = 403
ClientHeight = 312
ClientWidth = 401
TabOrder = 2
object OpenSelectedButton: TBitBtn
AnchorSideLeft.Control = ActionGroupBox
AnchorSideTop.Control = ActionGroupBox
AnchorSideRight.Control = lblCenter
Left = 6
Height = 25
Height = 29
Top = 6
Width = 189
Width = 188
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Open First Selected'
Enabled = False
@ -124,10 +125,11 @@ object ExampleManagerForm: TExampleManagerForm
AnchorSideRight.Control = lblCenter
AnchorSideRight.Side = asrBottom
Left = 6
Height = 25
Top = 43
Width = 190
Height = 29
Top = 47
Width = 189
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Around = 6
Caption = 'Build All Selected'
@ -142,11 +144,12 @@ object ExampleManagerForm: TExampleManagerForm
AnchorSideTop.Control = ActionGroupBox
AnchorSideRight.Control = ActionGroupBox
AnchorSideRight.Side = asrBottom
Left = 208
Height = 25
Left = 207
Height = 29
Top = 6
Width = 189
Width = 188
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Select All'
OnClick = SelectAllButtonClick
@ -159,11 +162,12 @@ object ExampleManagerForm: TExampleManagerForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ActionGroupBox
AnchorSideRight.Side = asrBottom
Left = 208
Height = 25
Top = 43
Width = 189
Left = 207
Height = 29
Top = 47
Width = 188
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Around = 6
Caption = 'Select None'
@ -180,9 +184,9 @@ object ExampleManagerForm: TExampleManagerForm
AnchorSideBottom.Control = ActionGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 230
Top = 74
Width = 391
Height = 224
Top = 82
Width = 389
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ReadOnly = True
@ -193,7 +197,7 @@ object ExampleManagerForm: TExampleManagerForm
AnchorSideLeft.Control = ActionGroupBox
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ActionGroupBox
Left = 201
Left = 200
Height = 1
Top = 0
Width = 1
@ -211,13 +215,14 @@ object ExampleManagerForm: TExampleManagerForm
ClientWidth = 870
TabOrder = 0
object cbIncludeAllDirs: TCheckBox
AnchorSideTop.Control = edRootDirectory
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edRootDirectory
AnchorSideRight.Side = asrBottom
Left = 289
Height = 22
Top = 56
Width = 175
Left = 270
Height = 24
Top = 54
Width = 194
Anchors = [akTop, akRight]
BorderSpacing.Top = 3
Caption = 'Include all subdirectories'
@ -229,7 +234,7 @@ object ExampleManagerForm: TExampleManagerForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 8
Height = 21
Height = 27
Top = 24
Width = 456
ShowHidden = False
@ -259,8 +264,8 @@ object ExampleManagerForm: TExampleManagerForm
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4
ClientHeight = 99
ClientWidth = 367
ClientHeight = 96
ClientWidth = 365
Columns = 4
Items.Strings = (
'example'
@ -280,9 +285,9 @@ object ExampleManagerForm: TExampleManagerForm
end
object lbRootDirectory: TLabel
Left = 8
Height = 15
Height = 17
Top = 8
Width = 85
Width = 99
Caption = 'Root Directory'
ParentColor = False
end
@ -291,9 +296,9 @@ object ExampleManagerForm: TExampleManagerForm
AnchorSideBottom.Control = SelectPanel
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 15
Top = 94
Width = 88
Height = 17
Top = 92
Width = 102
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 11
Caption = 'lbProjectCount'
@ -302,7 +307,7 @@ object ExampleManagerForm: TExampleManagerForm
end
object Splitter1: TSplitter
Left = 457
Height = 329
Height = 334
Top = 120
Width = 5
Align = alRight