paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 13:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Open wiki page for help in BuildProjectDlg. Issue #28697, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49847 -
This commit is contained in:
juha 2015-09-18 22:47:47 +00:00
parent 60ce0ce8d1
commit 743cd8460f
2 changed files with 36 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
ide/buildprojectdlg.lfm
View File

@ -23,6 +23,7 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
OKButton.OnClick = ButtonPanel1OKButtonClick OKButton.OnClick = ButtonPanel1OKButtonClick
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
@ -35,9 +36,9 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideTop.Control = ProjOutMaskComboBox AnchorSideTop.Control = ProjOutMaskComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 10 Left = 10
Height = 22 Height = 24
Top = 10 Top = 12
Width = 125 Width = 145
BorderSpacing.Left = 10 BorderSpacing.Left = 10
Caption = 'ProjOutCheckBox' Caption = 'ProjOutCheckBox'
Checked = True Checked = True
@ -50,9 +51,9 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideTop.Control = ProjSrcMaskComboBox AnchorSideTop.Control = ProjSrcMaskComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 10 Left = 10
Height = 22 Height = 24
Top = 39 Top = 47
Width = 122 Width = 141
Caption = 'ProjSrcCheckBox' Caption = 'ProjSrcCheckBox'
Checked = True Checked = True
OnChange = ProjSrcCheckBoxChange OnChange = ProjSrcCheckBoxChange
@ -64,9 +65,9 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideTop.Control = PkgOutMaskComboBox AnchorSideTop.Control = PkgOutMaskComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 10 Left = 10
Height = 22 Height = 24
Top = 68 Top = 82
Width = 124 Width = 142
Caption = 'PkgOutCheckBox' Caption = 'PkgOutCheckBox'
Checked = True Checked = True
OnChange = PkgOutCheckBoxChange OnChange = PkgOutCheckBoxChange
@ -78,9 +79,9 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideTop.Control = PkgSrcMaskComboBox AnchorSideTop.Control = PkgSrcMaskComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 10 Left = 10
Height = 22 Height = 24
Top = 97 Top = 117
Width = 120 Width = 138
Caption = 'PkgSrcCheckBox' Caption = 'PkgSrcCheckBox'
Checked = True Checked = True
OnChange = PkgSrcCheckBoxChange OnChange = PkgSrcCheckBoxChange
@ -92,13 +93,13 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 232 Left = 232
Height = 23 Height = 29
Top = 10 Top = 10
Width = 299 Width = 299
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 10 BorderSpacing.Top = 10
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 17 ItemHeight = 0
OnChange = ProjOutMaskComboBoxChange OnChange = ProjOutMaskComboBoxChange
TabOrder = 4 TabOrder = 4
Text = 'ProjOutMaskComboBox' Text = 'ProjOutMaskComboBox'
@ -110,12 +111,12 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideRight.Control = ProjOutMaskComboBox AnchorSideRight.Control = ProjOutMaskComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 232 Left = 232
Height = 23 Height = 29
Top = 39 Top = 45
Width = 299 Width = 299
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
ItemHeight = 17 ItemHeight = 0
OnChange = ProjOutMaskComboBoxChange OnChange = ProjOutMaskComboBoxChange
TabOrder = 5 TabOrder = 5
Text = 'ProjSrcMaskComboBox' Text = 'ProjSrcMaskComboBox'
@ -127,12 +128,12 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideRight.Control = ProjOutMaskComboBox AnchorSideRight.Control = ProjOutMaskComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 232 Left = 232
Height = 23 Height = 29
Top = 68 Top = 80
Width = 299 Width = 299
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
ItemHeight = 17 ItemHeight = 0
OnChange = ProjOutMaskComboBoxChange OnChange = ProjOutMaskComboBoxChange
TabOrder = 6 TabOrder = 6
Text = 'PkgOutMaskComboBox' Text = 'PkgOutMaskComboBox'
@ -144,12 +145,12 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideRight.Control = ProjOutMaskComboBox AnchorSideRight.Control = ProjOutMaskComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 232 Left = 232
Height = 23 Height = 29
Top = 97 Top = 115
Width = 299 Width = 299
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
ItemHeight = 17 ItemHeight = 0
OnChange = ProjOutMaskComboBoxChange OnChange = ProjOutMaskComboBoxChange
TabOrder = 7 TabOrder = 7
Text = 'PkgSrcMaskComboBox' Text = 'PkgSrcMaskComboBox'
@ -158,10 +159,10 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideRight.Control = ProjOutMaskComboBox AnchorSideRight.Control = ProjOutMaskComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1 AnchorSideBottom.Control = ButtonPanel1
Left = 444 Left = 429
Height = 29 Height = 29
Top = 414 Top = 414
Width = 87 Width = 102
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -178,8 +179,8 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DeleteButton AnchorSideBottom.Control = DeleteButton
Left = 10 Left = 10
Height = 259 Height = 235
Top = 149 Top = 173
Width = 521 Width = 521
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ReadOnly = True ReadOnly = True
@ -193,8 +194,8 @@ object CleanBuildProjectDialog: TCleanBuildProjectDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 17 Height = 17
Top = 126 Top = 150
Width = 76 Width = 90
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'PreviewLabel' Caption = 'PreviewLabel'

6
ide/buildprojectdlg.pas
View File

@ -69,6 +69,7 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject); procedure FormResize(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure PkgOutCheckBoxChange(Sender: TObject); procedure PkgOutCheckBoxChange(Sender: TObject);
procedure PkgSrcCheckBoxChange(Sender: TObject); procedure PkgSrcCheckBoxChange(Sender: TObject);
procedure ProjOutCheckBoxChange(Sender: TObject); procedure ProjOutCheckBoxChange(Sender: TObject);
@ -215,6 +216,11 @@ begin
ProjOutMaskComboBox.Left:=r+10; ProjOutMaskComboBox.Left:=r+10;
end; end;
procedure TCleanBuildProjectDialog.HelpButtonClick(Sender: TObject);
begin
OpenUrl('http://wiki.freepascal.org/IDE_Window:_Clean_up_build_files_dialog');
end;
procedure TCleanBuildProjectDialog.PkgOutCheckBoxChange(Sender: TObject); procedure TCleanBuildProjectDialog.PkgOutCheckBoxChange(Sender: TObject);
begin begin
PkgOutMaskComboBox.Enabled:=PkgOutCheckBox.Checked; PkgOutMaskComboBox.Enabled:=PkgOutCheckBox.Checked;