paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 08:43:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: publish project dialog: improved layout

Browse Source 
git-svn-id: trunk@56104 -
This commit is contained in:
mattias 2017-10-17 16:24:51 +00:00
parent 29b1a3fd1b
commit 3fc4a08068
3 changed files with 125 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/lazarus.lpi
View File

@ -1036,7 +1036,10 @@
<Unit174> <Unit174>
<Filename Value="publishprojectdlg.pas"/> <Filename Value="publishprojectdlg.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="PublishProjectDialog"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="PublishProjectDlg"/>
</Unit174> </Unit174>
<Unit175> <Unit175>
<Filename Value="findoverloadsdlg.pas"/> <Filename Value="findoverloadsdlg.pas"/>

195
ide/publishprojectdlg.lfm
View File

@ -1,66 +1,79 @@
object PublishProjectDialog: TPublishProjectDialog object PublishProjectDialog: TPublishProjectDialog
Left = 319 Left = 371
Height = 531 Height = 476
Top = 146 Top = 171
Width = 484 Width = 498
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'Publish Project' Caption = 'Publish Project'
ClientHeight = 531 ClientHeight = 476
ClientWidth = 484 ClientWidth = 498
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.1' LCLVersion = '1.9.0.0'
object DestDirGroupBox: TGroupBox object DestDirGroupBox: TGroupBox
Left = 6 Left = 6
Height = 111 Height = 100
Top = 6 Top = 6
Width = 472 Width = 486
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Destination directory' Caption = 'Destination directory'
ClientHeight = 93 ChildSizing.LeftRightSpacing = 6
ClientWidth = 468 ChildSizing.TopBottomSpacing = 6
ClientHeight = 85
ClientWidth = 482
TabOrder = 0 TabOrder = 0
OnResize = DestDirGroupBoxRESIZE OnResize = DestDirGroupBoxRESIZE
object CommandAfterLabel: TLabel object CommandAfterLabel: TLabel
AnchorSideTop.Control = DestDirComboBox
AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 13
Top = 33 Top = 39
Width = 442 Width = 456
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'Command after:' Caption = 'Command after:'
ParentColor = False ParentColor = False
end end
object DestDirComboBox: TComboBox object DestDirComboBox: TComboBox
AnchorSideRight.Control = BrowseDestDirBitBtn
Left = 6 Left = 6
Height = 24 Height = 27
Top = 1 Top = 6
Width = 406 Width = 449
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 0
TabOrder = 0 TabOrder = 0
Text = 'DestDirComboBox' Text = 'DestDirComboBox'
end end
object BrowseDestDirBitBtn: TBitBtn object BrowseDestDirBitBtn: TBitBtn
AnchorSideRight.Control = DestDirGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DestDirComboBox AnchorSideBottom.Control = DestDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 427 Left = 455
Height = 24 Height = 27
Top = 1 Top = 6
Width = 23 Width = 21
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6
Caption = '...' Caption = '...'
NumGlyphs = 0
OnClick = BrowseDestDirBitBtnCLICK OnClick = BrowseDestDirBitBtnCLICK
TabOrder = 1 TabOrder = 1
end end
object CommandAfterCombobox: TComboBox object CommandAfterCombobox: TComboBox
AnchorSideTop.Control = CommandAfterLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DestDirGroupBox
AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 27
Top = 58 Top = 52
Width = 444 Width = 470
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 0
TabOrder = 2 TabOrder = 2
@ -69,22 +82,23 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object FilesGroupbox: TGroupBox object FilesGroupbox: TGroupBox
Left = 6 Left = 6
Height = 50 Height = 51
Top = 123 Top = 112
Width = 472 Width = 486
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Files' Caption = 'Files'
ClientHeight = 32 ChildSizing.TopBottomSpacing = 6
ClientWidth = 468 ClientHeight = 36
ClientWidth = 482
TabOrder = 1 TabOrder = 1
object IgnoreBinariesCheckbox: TCheckBox object IgnoreBinariesCheckbox: TCheckBox
AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 20 Height = 24
Top = 6 Top = 6
Width = 456 Width = 108
Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Ignore binaries' Caption = 'Ignore binaries'
TabOrder = 0 TabOrder = 0
@ -92,32 +106,37 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object ProjectInfoGroupbox: TGroupBox object ProjectInfoGroupbox: TGroupBox
Left = 6 Left = 6
Height = 76 Height = 81
Top = 367 Top = 337
Width = 472 Width = 486
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Project Information' Caption = 'Project Information'
ClientHeight = 58 ChildSizing.LeftRightSpacing = 6
ClientWidth = 468 ChildSizing.TopBottomSpacing = 6
ClientHeight = 66
ClientWidth = 482
TabOrder = 4 TabOrder = 4
object SaveClosedEditorFilesInfoCheckbox: TCheckBox object SaveClosedEditorFilesInfoCheckbox: TCheckBox
AnchorSideLeft.Control = ProjectInfoGroupbox
AnchorSideTop.Control = ProjectInfoGroupbox
Left = 6 Left = 6
Height = 20 Height = 24
Top = 6 Top = 6
Width = 456 Width = 192
Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Save editor info of closed files' Caption = 'Save editor info of closed files'
TabOrder = 0 TabOrder = 0
end end
object SaveEditorInfoOfNonProjectFilesCheckbox: TCheckBox object SaveEditorInfoOfNonProjectFilesCheckbox: TCheckBox
AnchorSideLeft.Control = ProjectInfoGroupbox
AnchorSideTop.Control = SaveClosedEditorFilesInfoCheckbox
AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 20 Height = 24
Top = 32 Top = 36
Width = 456 Width = 221
Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Save editor info of non project files' Caption = 'Save editor info of non project files'
TabOrder = 1 TabOrder = 1
@ -125,31 +144,36 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object IncludeFilterGroupbox: TGroupBox object IncludeFilterGroupbox: TGroupBox
Left = 6 Left = 6
Height = 88 Height = 78
Top = 179 Top = 169
Width = 472 Width = 486
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Include Filter' Caption = 'Include Filter'
ClientHeight = 70 ChildSizing.LeftRightSpacing = 6
ClientWidth = 468 ChildSizing.TopBottomSpacing = 6
ClientHeight = 63
ClientWidth = 482
TabOrder = 2 TabOrder = 2
TabStop = True TabStop = True
object UseIncludeFilterCheckbox: TCheckBox object UseIncludeFilterCheckbox: TCheckBox
AnchorSideTop.Control = IncludeFilterGroupbox
Left = 6 Left = 6
Height = 20 Height = 24
Top = 1 Top = 6
Width = 111 Width = 121
Caption = 'Use Include Filter' Caption = 'Use Include Filter'
TabOrder = 0 TabOrder = 0
end end
object IncFilterSimpleSyntaxCheckbox: TCheckBox object IncFilterSimpleSyntaxCheckbox: TCheckBox
AnchorSideLeft.Control = UseIncludeFilterCheckbox AnchorSideLeft.Control = UseIncludeFilterCheckbox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 129 AnchorSideTop.Control = IncludeFilterGroupbox
Height = 20 Left = 139
Top = 1 Height = 24
Width = 94 Top = 6
Width = 101
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Simple Syntax' Caption = 'Simple Syntax'
ParentShowHint = False ParentShowHint = False
@ -157,10 +181,15 @@ object PublishProjectDialog: TPublishProjectDialog
TabOrder = 1 TabOrder = 1
end end
object IncludeFilterCombobox: TComboBox object IncludeFilterCombobox: TComboBox
AnchorSideLeft.Control = IncludeFilterGroupbox
AnchorSideTop.Control = UseIncludeFilterCheckbox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IncludeFilterGroupbox
AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 27
Top = 33 Top = 30
Width = 444 Width = 470
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 0
TabOrder = 2 TabOrder = 2
@ -169,31 +198,36 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object ExcludeFilterGroupbox: TGroupBox object ExcludeFilterGroupbox: TGroupBox
Left = 6 Left = 6
Height = 88 Height = 78
Top = 273 Top = 253
Width = 472 Width = 486
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Exclude Filter' Caption = 'Exclude Filter'
ClientHeight = 70 ChildSizing.LeftRightSpacing = 6
ClientWidth = 468 ChildSizing.TopBottomSpacing = 6
ClientHeight = 63
ClientWidth = 482
TabOrder = 3 TabOrder = 3
TabStop = True TabStop = True
object UseExcludeFilterCheckbox: TCheckBox object UseExcludeFilterCheckbox: TCheckBox
AnchorSideTop.Control = ExcludeFilterGroupbox
Left = 6 Left = 6
Height = 20 Height = 24
Top = 1 Top = 6
Width = 114 Width = 124
Caption = 'Use Exclude Filter' Caption = 'Use Exclude Filter'
TabOrder = 0 TabOrder = 0
end end
object ExcFilterSimpleSyntaxCheckbox: TCheckBox object ExcFilterSimpleSyntaxCheckbox: TCheckBox
AnchorSideLeft.Control = UseExcludeFilterCheckbox AnchorSideLeft.Control = UseExcludeFilterCheckbox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 132 AnchorSideTop.Control = ExcludeFilterGroupbox
Height = 20 Left = 142
Top = 1 Height = 24
Width = 94 Top = 6
Width = 101
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Simple Syntax' Caption = 'Simple Syntax'
ParentShowHint = False ParentShowHint = False
@ -201,10 +235,15 @@ object PublishProjectDialog: TPublishProjectDialog
TabOrder = 1 TabOrder = 1
end end
object ExcludeFilterCombobox: TComboBox object ExcludeFilterCombobox: TComboBox
AnchorSideLeft.Control = ExcludeFilterGroupbox
AnchorSideTop.Control = UseExcludeFilterCheckbox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ExcludeFilterGroupbox
AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 27
Top = 33 Top = 30
Width = 446 Width = 470
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 0
TabOrder = 2 TabOrder = 2
@ -213,9 +252,9 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 33 Height = 28
Top = 492 Top = 442
Width = 472 Width = 486
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'

10
ide/publishprojectdlg.pas
View File

@ -37,11 +37,12 @@ unit PublishProjectDlg;
interface interface
uses uses
Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Buttons, Classes, SysUtils,
StdCtrls, Dialogs, LCLType, LazFileUtils, Forms, Controls, Graphics, Buttons,
StdCtrls, Dialogs, LCLType, ExtCtrls, ButtonPanel,
IDEWindowIntf, IDEHelpIntf, IDEDialogs, IDEImagesIntf, IDEWindowIntf, IDEHelpIntf, IDEDialogs, IDEImagesIntf,
ProjectDefs, PackageDefs, PublishModule, IDEOptionDefs, InputHistory, ProjectDefs, PackageDefs, PublishModule, IDEOptionDefs, InputHistory,
LazarusIDEStrConsts, IDEProcs, ExtCtrls, ButtonPanel; LazarusIDEStrConsts, IDEProcs;
type type
{ TPublishProjectDialog } { TPublishProjectDialog }
@ -305,8 +306,7 @@ constructor TPublishProjectDialog.Create(TheOwner: TComponent);
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);
Position:=poScreenCenter; Position:=poScreenCenter;
IDEDialogLayoutList.ApplyLayout(Self,500,500); IDEDialogLayoutList.ApplyLayout(Self);
if Height<500 then Height:=500;
LoadHistoryLists; LoadHistoryLists;
end; end;