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

ProjectTemplates: Make Help button do something. Issue #28759, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49911 -
This commit is contained in:
juha 2015-10-02 11:28:07 +00:00
parent 35dea594e8
commit a74a689ec2
2 changed files with 39 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
components/projecttemplates/frmtemplatesettings.lfm
View File

@ -1,53 +1,66 @@
object TemplateSettingsForm: TTemplateSettingsForm object TemplateSettingsForm: TTemplateSettingsForm
Left = 470 Left = 472
Height = 127 Height = 103
Top = 175 Top = 287
Width = 400 Width = 409
HorzScrollBar.Page = 399 HorzScrollBar.Page = 399
VertScrollBar.Page = 126 VertScrollBar.Page = 126
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Project templates settings' Caption = 'Project templates settings'
ClientHeight = 127 ClientHeight = 103
ClientWidth = 400 ClientWidth = 409
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.31' LCLVersion = '1.5'
Visible = False
object Label1: TLabel object Label1: TLabel
Left = 8 AnchorSideLeft.Control = Owner
Left = 6
Height = 24 Height = 24
Top = 16 Top = 8
Width = 160 Width = 160
AutoSize = False AutoSize = False
BorderSpacing.Around = 6
Caption = '&Directory with templates:' Caption = '&Directory with templates:'
FocusControl = DETemplates FocusControl = DETemplates
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object DETemplates: TDirectoryEdit object DETemplates: TDirectoryEdit
Left = 8 AnchorSideLeft.Control = Owner
Height = 23 AnchorSideRight.Control = Owner
Top = 41 AnchorSideRight.Side = asrBottom
Width = 360 Left = 6
Height = 27
Top = 32
Width = 397
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 40
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 34 Height = 29
Top = 87 Top = 68
Width = 388 Width = 397
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OKButtonClick OKButton.OnClick = OKButtonClick
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.Enabled = False HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False CloseButton.Enabled = False
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1 TabOrder = 1
ShowButtons = [pbOK, pbCancel] ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False ShowBevel = False
end end
end end

8
components/projecttemplates/frmtemplatesettings.pas
View File

@ -5,7 +5,7 @@ unit frmtemplatesettings;
interface interface
uses uses
Forms, StdCtrls, EditBtn, ButtonPanel, ProjectTemplates; Classes, LclIntf, Forms, StdCtrls, EditBtn, ButtonPanel, ProjectTemplates;
type type
@ -16,6 +16,7 @@ type
DETemplates: TDirectoryEdit; DETemplates: TDirectoryEdit;
Label1: TLabel; Label1: TLabel;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure OKButtonClick(Sender: TObject); procedure OKButtonClick(Sender: TObject);
private private
FTemplates : TProjectTemplates; FTemplates : TProjectTemplates;
@ -45,6 +46,11 @@ begin
ButtonPanel1.CancelButton.Caption:=SbtnCancel; ButtonPanel1.CancelButton.Caption:=SbtnCancel;
end; end;
procedure TTemplateSettingsForm.HelpButtonClick(Sender: TObject);
begin
OpenUrl('http://wiki.lazarus.freepascal.org/Project_Templates');
end;
procedure TTemplateSettingsForm.OKButtonClick(Sender: TObject); procedure TTemplateSettingsForm.OKButtonClick(Sender: TObject);
begin begin
if (Templates.TemplateDir<>DETemplates.Directory) then if (Templates.TemplateDir<>DETemplates.Directory) then