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

90
ide/codetemplatesdlg.lfm
View File

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

97
ide/examplemanager.lfm
View File

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