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

6
ide/buildprojectdlg.pas
View File

@ -69,6 +69,7 @@ type
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure PkgOutCheckBoxChange(Sender: TObject);
procedure PkgSrcCheckBoxChange(Sender: TObject);
procedure ProjOutCheckBoxChange(Sender: TObject);
@ -215,6 +216,11 @@ begin
ProjOutMaskComboBox.Left:=r+10;
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);
begin
PkgOutMaskComboBox.Enabled:=PkgOutCheckBox.Checked;