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

externhelp: moved options to help group

Browse Source 
git-svn-id: trunk@24461 -
This commit is contained in:
mattias 2010-04-06 10:52:41 +00:00
parent 3c96229e18
commit 17f226111f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/externhelp/externhelpfrm.pas
View File

@ -43,7 +43,7 @@ const
ExternHelpConfigVersion = 1;
var
ExternHelpOptionID: integer = 2000;
ExternHelpOptionGeneralID: integer = 100;
ExternHelpOptionGeneralID: integer = 1000;
resourcestring
ehrsGroupTitle = 'Extern help';
@ -60,6 +60,7 @@ resourcestring
ehrsReplaceCommonDirectoriesWithMacros = 'Replace common directories with '
+'macros';
ehrsChooseAPascalUnit = 'Choose a pascal unit';
ehrsExternal = 'External';
type
@ -216,9 +217,10 @@ implementation
procedure Register;
begin
ExternHelpOptions:=TExternHelpOptions.Create;
ExternHelpOptionID:=RegisterIDEOptionsGroup(ExternHelpOptionID,TExternHelpOptions)^.Index;
ExternHelpOptionID:=GroupHelp;
ExternHelpOptionGeneralID:=RegisterIDEOptionsEditor(ExternHelpOptionID,
TExternHelpGeneralOptsFrame,ExternHelpOptionGeneralID)^.Index;
DebugLn(['Register ',ExternHelpOptionGeneralID]);
try
ExternHelpOptions.Load;
except
@ -748,7 +750,7 @@ end;
function TExternHelpGeneralOptsFrame.GetTitle: String;
begin
Result:=ehrsGeneral;
Result:=ehrsExternal;
end;
procedure TExternHelpGeneralOptsFrame.ReadSettings(AOptions: TAbstractIDEOptions);