paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 03:18:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added menu item Help -> Reporting a bug from Tom

Browse Source 
git-svn-id: trunk@12001 -
This commit is contained in:
mattias 2007-09-12 00:15:30 +00:00
parent 70c926401f
commit fb92f77c86
6 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/helpmanager.pas
View File

@ -69,6 +69,7 @@ type
procedure mnuHelpConfigureHelpClicked(Sender: TObject);
procedure mnuHelpCreateLazDocClicked(Sender: TObject);
procedure mnuHelpOnlineHelpClicked(Sender: TObject);
procedure mnuHelpReportBugClicked(Sender: TObject);
private
FFCLHelpDBPath: THelpBaseURLObject;
FLCLHelpDBPath: THelpBaseURLObject;
@ -282,6 +283,12 @@ begin
ShowLazarusHelpStartPage;
end;
procedure THelpManager.mnuHelpReportBugClicked(Sender: TObject);
begin
ShowHelpOrError('http://wiki.lazarus.freepascal.org/How_do_I_create_a_bug_report',
'Reporting a bug...', 'text/html');
end;
procedure THelpManager.RegisterIDEHelpDatabases;
procedure CreateMainIDEHelpDB;
@ -547,6 +554,7 @@ begin
with MainIDEBar do begin
itmHelpAboutLazarus.OnClick := @mnuHelpAboutLazarusClicked;
itmHelpOnlineHelp.OnClick := @mnuHelpOnlineHelpClicked;
itmHelpReportingBug.OnClick := @mnuHelpReportBugClicked;
itmHelpConfigureHelp.OnClick :=@mnuHelpConfigureHelpClicked;
itmHelpCreateLazDoc.OnClick :=@mnuHelpCreateLazDocClicked;
itmHelpCreateLazDoc.Visible:=false;

7
ide/keymapping.pp
View File

@ -542,6 +542,7 @@ begin
ecContextHelp: SetResult(VK_F1,[],VK_UNKNOWN,[]);
ecEditContextHelp: SetResult(VK_F1,[ssShift,ssCtrl],VK_UNKNOWN,[]);
ecCreateLazDoc: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecReportingBug: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
// designer
ecDesignerCopy : SetResult(VK_C,[ssCtrl],VK_Insert,[ssCtrl]);
@ -861,6 +862,7 @@ begin
ecContextHelp: SetResult(VK_F1,[ssCtrl],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecEditContextHelp: SetResult(VK_F1,[ssCtrl,ssShift],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCreateLazDoc: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecReportingBug: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
// designer
ecDesignerCopy : SetResult(VK_C,[ssCtrl],VK_UNKNOWN,[],VK_Insert,[ssCtrl],VK_UNKNOWN,[]);
@ -1439,6 +1441,7 @@ begin
ecContextHelp : Result:= lisMenuContextHelp;
ecEditContextHelp : Result:= lisMenuEditContextHelp;
ecCreateLazDoc : Result:= lisMenuCreateLazDocFiles;
ecReportingBug : Result:= lisMenuReportingBug;
// desginer
ecDesignerCopy : Result:= lisDsgCopyComponents;
@ -2459,8 +2462,8 @@ begin
ecContextHelp);
AddDefault(C, 'Edit context sensitive help', lisKMEditContextSensitiveHelp,
ecEditContextHelp);
AddDefault(C, 'Create LazDoc files', lisMenuCreateLazDocFiles, ecCreateLazDoc
);
AddDefault(C, 'Create LazDoc files', lisMenuCreateLazDocFiles, ecCreateLazDoc);
AddDefault(C, 'Reporting a bug', lisMenuReportingBug, ecReportingBug);
// designer - without menu items in the IDE bar (at least no direct)
C:=Categories[AddCategory('Designer',lisKeyCatDesigner,IDECmdScopeDesignerOnly)];

1
ide/lazarusidestrconsts.pas
View File

@ -365,6 +365,7 @@ resourcestring
lisMenuCodeToolsDefinesEditor = 'CodeTools defines editor ...';
lisMenuOnlineHelp = 'Online Help';
lisMenuReportingBug = 'Reporting a bug...';
lisKMConfigureHelp = 'Configure Help';
lisKMContextSensitiveHelp = 'Context sensitive help';
lisKMEditContextSensitiveHelp = 'Edit context sensitive help';

1
ide/mainbar.pas
View File

@ -310,6 +310,7 @@ type
//mnuHelp: TIDEMenuSection;
//itmOnlineHelps: TIDEMenuSection;
itmHelpOnlineHelp: TIDEMenuCommand;
itmHelpReportingBug: TIDEMenuCommand;
itmHelpConfigureHelp: TIDEMenuCommand;
//itmInfoHelps: TIDEMenuSection;
itmHelpAboutLazarus: TIDEMenuCommand;

3
ide/mainbase.pas
View File

@ -744,6 +744,8 @@ begin
CreateMenuItem(ParentMI,itmHelpOnlineHelp,'itmHelpOnlineHelp',
lisMenuOnlineHelp, 'menu_help');
CreateMenuItem(ParentMI,itmHelpReportingBug,'itmHelpReportingBug',
lisMenuReportingBug, 'menu_reportingbug');
CreateMenuItem(ParentMI,itmHelpConfigureHelp,'itmHelpConfigureHelp',
lisMenuConfigureHelp);
@ -938,6 +940,7 @@ begin
// help menu
itmHelpAboutLazarus.Command:=GetCommand(ecAboutLazarus);
itmHelpOnlineHelp.Command:=GetCommand(ecOnlineHelp);
itmHelpReportingBug.Command:=GetCommand(ecReportingBug);
itmHelpConfigureHelp.Command:=GetCommand(ecConfigureHelp);
end;
end;

1
ideintf/idecommands.pas
View File

@ -269,6 +269,7 @@ const
ecContextHelp = ecFirstLazarus + 903;
ecEditContextHelp = ecFirstLazarus + 904;
ecCreateLazDoc = ecFirstLazarus + 905;
ecReportingBug = ecFirstLazarus + 906;
// designer
ecDesignerCopy = ecFirstLazarus + 1000;