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

IDE: Save layout of Publish Project Dialog

Browse Source 
git-svn-id: trunk@37426 -
This commit is contained in:
juha 2012-05-26 08:36:53 +00:00
parent 4885c85f6f
commit 44d265123c
2 changed files with 51 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
ide/publishprojectdlg.lfm
View File

@ -7,9 +7,10 @@ object PublishProjectDialog: TPublishProjectDialog
Caption = 'Publish Project' Caption = 'Publish Project'
ClientHeight = 531 ClientHeight = 531
ClientWidth = 484 ClientWidth = 484
OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '1.1'
object DestDirGroupBox: TGroupBox object DestDirGroupBox: TGroupBox
Left = 6 Left = 6
Height = 111 Height = 111
@ -24,7 +25,7 @@ object PublishProjectDialog: TPublishProjectDialog
OnResize = DestDirGroupBoxRESIZE OnResize = DestDirGroupBoxRESIZE
object CommandAfterLabel: TLabel object CommandAfterLabel: TLabel
Left = 6 Left = 6
Height = 14 Height = 15
Top = 33 Top = 33
Width = 442 Width = 442
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -33,21 +34,21 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object DestDirComboBox: TComboBox object DestDirComboBox: TComboBox
Left = 6 Left = 6
Height = 21 Height = 24
Top = 1 Top = 1
Width = 406 Width = 406
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 13 ItemHeight = 0
TabOrder = 0 TabOrder = 0
Text = 'DestDirComboBox' Text = 'DestDirComboBox'
end end
object BrowseDestDirBitBtn: TBitBtn object BrowseDestDirBitBtn: TBitBtn
AnchorSideBottom.Control = DestDirComboBox AnchorSideBottom.Control = DestDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 412 Left = 427
Height = 21 Height = 24
Top = 1 Top = 1
Width = 38 Width = 23
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
AutoSize = True AutoSize = True
Caption = '...' Caption = '...'
@ -57,30 +58,30 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object CommandAfterCombobox: TComboBox object CommandAfterCombobox: TComboBox
Left = 6 Left = 6
Height = 21 Height = 24
Top = 58 Top = 58
Width = 444 Width = 444
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 13 ItemHeight = 0
TabOrder = 2 TabOrder = 2
Text = 'CommandAfterCombobox' Text = 'CommandAfterCombobox'
end end
end end
object FilesGroupbox: TGroupBox object FilesGroupbox: TGroupBox
Left = 6 Left = 6
Height = 47 Height = 50
Top = 123 Top = 123
Width = 472 Width = 472
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Files' Caption = 'Files'
ClientHeight = 29 ClientHeight = 32
ClientWidth = 468 ClientWidth = 468
TabOrder = 1 TabOrder = 1
object IgnoreBinariesCheckbox: TCheckBox object IgnoreBinariesCheckbox: TCheckBox
Left = 6 Left = 6
Height = 17 Height = 20
Top = 6 Top = 6
Width = 456 Width = 456
Align = alTop Align = alTop
@ -91,19 +92,19 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object ProjectInfoGroupbox: TGroupBox object ProjectInfoGroupbox: TGroupBox
Left = 6 Left = 6
Height = 70 Height = 76
Top = 364 Top = 367
Width = 472 Width = 472
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Project Information' Caption = 'Project Information'
ClientHeight = 52 ClientHeight = 58
ClientWidth = 468 ClientWidth = 468
TabOrder = 4 TabOrder = 4
object SaveClosedEditorFilesInfoCheckbox: TCheckBox object SaveClosedEditorFilesInfoCheckbox: TCheckBox
Left = 6 Left = 6
Height = 17 Height = 20
Top = 6 Top = 6
Width = 456 Width = 456
Align = alTop Align = alTop
@ -113,8 +114,8 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object SaveEditorInfoOfNonProjectFilesCheckbox: TCheckBox object SaveEditorInfoOfNonProjectFilesCheckbox: TCheckBox
Left = 6 Left = 6
Height = 17 Height = 20
Top = 29 Top = 32
Width = 456 Width = 456
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -125,7 +126,7 @@ object PublishProjectDialog: TPublishProjectDialog
object IncludeFilterGroupbox: TGroupBox object IncludeFilterGroupbox: TGroupBox
Left = 6 Left = 6
Height = 88 Height = 88
Top = 176 Top = 179
Width = 472 Width = 472
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -136,19 +137,19 @@ object PublishProjectDialog: TPublishProjectDialog
TabStop = True TabStop = True
object UseIncludeFilterCheckbox: TCheckBox object UseIncludeFilterCheckbox: TCheckBox
Left = 6 Left = 6
Height = 17 Height = 20
Top = 1 Top = 1
Width = 101 Width = 111
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 = 119 Left = 129
Height = 17 Height = 20
Top = 1 Top = 1
Width = 85 Width = 94
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Simple Syntax' Caption = 'Simple Syntax'
ParentShowHint = False ParentShowHint = False
@ -157,11 +158,11 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object IncludeFilterCombobox: TComboBox object IncludeFilterCombobox: TComboBox
Left = 6 Left = 6
Height = 21 Height = 24
Top = 33 Top = 33
Width = 444 Width = 444
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 13 ItemHeight = 0
TabOrder = 2 TabOrder = 2
Text = 'IncludeFilterCombobox' Text = 'IncludeFilterCombobox'
end end
@ -169,7 +170,7 @@ object PublishProjectDialog: TPublishProjectDialog
object ExcludeFilterGroupbox: TGroupBox object ExcludeFilterGroupbox: TGroupBox
Left = 6 Left = 6
Height = 88 Height = 88
Top = 270 Top = 273
Width = 472 Width = 472
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -180,19 +181,19 @@ object PublishProjectDialog: TPublishProjectDialog
TabStop = True TabStop = True
object UseExcludeFilterCheckbox: TCheckBox object UseExcludeFilterCheckbox: TCheckBox
Left = 6 Left = 6
Height = 17 Height = 20
Top = 1 Top = 1
Width = 103 Width = 114
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 = 121 Left = 132
Height = 17 Height = 20
Top = 1 Top = 1
Width = 85 Width = 94
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Simple Syntax' Caption = 'Simple Syntax'
ParentShowHint = False ParentShowHint = False
@ -201,20 +202,28 @@ object PublishProjectDialog: TPublishProjectDialog
end end
object ExcludeFilterCombobox: TComboBox object ExcludeFilterCombobox: TComboBox
Left = 6 Left = 6
Height = 21 Height = 24
Top = 33 Top = 33
Width = 446 Width = 446
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 13 ItemHeight = 0
TabOrder = 2 TabOrder = 2
Text = 'ExcludeFilterCombobox' Text = 'ExcludeFilterCombobox'
end end
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 26 Height = 33
Top = 499 Top = 492
Width = 472 Width = 472
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 5 TabOrder = 5
ShowBevel = False ShowBevel = False
end end

6
ide/publishprojectdlg.pas
View File

@ -73,6 +73,7 @@ type
procedure BrowseDestDirBitBtnCLICK(Sender: TObject); procedure BrowseDestDirBitBtnCLICK(Sender: TObject);
procedure DestDirGroupBoxRESIZE(Sender: TObject); procedure DestDirGroupBoxRESIZE(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject); procedure HelpButtonClick(Sender: TObject);
procedure OkButtonCLICK(Sender: TObject); procedure OkButtonCLICK(Sender: TObject);
@ -127,6 +128,11 @@ begin
SetBounds(Left,Top,Parent.ClientWidth-2*Left,Height); SetBounds(Left,Top,Parent.ClientWidth-2*Left,Height);
end; end;
procedure TPublishProjectDialog.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;
procedure TPublishProjectDialog.BrowseDestDirBitBtnCLICK(Sender: TObject); procedure TPublishProjectDialog.BrowseDestDirBitBtnCLICK(Sender: TObject);
var var
SelectDirDialog: TSelectDirectoryDialog; SelectDirDialog: TSelectDirectoryDialog;