paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 04:00:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

cody: started help

Browse Source 
git-svn-id: trunk@30843 -
This commit is contained in:
mattias 2011-05-21 23:26:53 +00:00
parent 78a0a9a879
commit 34e4b0634c
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/ide/codyutils.pas
View File

@ -30,9 +30,9 @@ unit CodyUtils;
interface
uses
Classes, SysUtils, Dialogs, Controls,
Classes, SysUtils, Dialogs, Controls, LCLIntf,
// IDEIntf
IDEDialogs, LazIDEIntf, SrcEditorIntf,
IDEDialogs, LazIDEIntf, SrcEditorIntf, IDEHelpIntf,
// codetools
CodeAtom, FileProcs, CodeToolManager, CodeCache, SourceLog, BasicCodeTools,
EventCodeTool, LinkScanner, PascalParserTool, CodeTree, SourceChanger,
@ -67,6 +67,7 @@ procedure AddCallInherited(Sender: TObject);
function ParseTilCursor(out Tool: TCodeTool; out CleanPos: integer;
out Node: TCodeTreeNode; out ErrorHandled: boolean;
JumpToError: boolean; CodePos: PCodeXYPosition = nil): TCUParseError;
procedure OpenCodyHelp(Path: string);
implementation
@ -293,6 +294,14 @@ begin
end;
end;
procedure OpenCodyHelp(Path: string);
var
BasePath: String;
begin
BasePath:='http://wiki.lazarus.freepascal.org/Cody';
OpenURL(BasePath+Path);
end;
{ TCody }
procedure TCody.DecodeLoaded(Sender: TSourceLog; const Filename: string;

7
components/codetools/ide/declarevardlg.pas
View File

@ -61,6 +61,7 @@ type
TypeEdit: TEdit;
TypeLabel: TLabel;
WhereRadioGroup: TRadioGroup;
procedure HelpButtonClick(Sender: TObject);
procedure OKButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
@ -193,6 +194,7 @@ begin
WhereRadioGroup.Caption:='Where';
TypeEdit.Caption:='Type';
ButtonPanel1.OKButton.OnClick:=@OKButtonClick;
ButtonPanel1.HelpButton.OnClick:=@HelpButtonClick;
end;
procedure TCodyDeclareVarDialog.OKButtonClick(Sender: TObject);
@ -215,6 +217,11 @@ begin
ModalResult:=mrOk;
end;
procedure TCodyDeclareVarDialog.HelpButtonClick(Sender: TObject);
begin
OpenCodyHelp('#Declare_Variable');
end;
procedure TCodyDeclareVarDialog.FormDestroy(Sender: TObject);
begin
Targets.Free;