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

IDE: fixed showing custom project options, issue #22486

Browse Source 
git-svn-id: trunk@38003 -
This commit is contained in:
mattias 2012-07-22 12:43:44 +00:00
parent 89834f3c95
commit 7d2190ee09
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/chmhelp/democontrol/ctxchmhelpunit1.pas
View File

@ -10,7 +10,7 @@ Abstract:
How was the example created: How was the example created:
Put a TCHMHelpDatabase on a form. Put a TCHMHelpDatabase on a form.
Set AutoRegister to true. Set AutoRegister to true.
Set KeywordPrefix to 'example/' Set KeywordPrefix to 'example'
Set Filename to the path of the chm file '../../../tools/chmaker/example.chm' Set Filename to the path of the chm file '../../../tools/chmaker/example.chm'
You can create the example.chm with chmmaker (see the REDAME.txt You can create the example.chm with chmmaker (see the REDAME.txt
in the chmmaker directory). in the chmmaker directory).
@ -25,7 +25,7 @@ How was the example created:
Run the program. Run the program.
Focus the edit field and press F1. lhelp will be started. lhelp will load Focus the edit field and press F1. lhelp will be started. lhelp will load
example.chm and show the page MainPage.html. example.chm and shows the page MainPage.html.
} }
unit CtxCHMHelpUnit1; unit CtxCHMHelpUnit1;

2
ide/main.pp
View File

@ -4407,7 +4407,7 @@ end;
procedure TMainIDE.mnuProjectOptionsClicked(Sender: TObject); procedure TMainIDE.mnuProjectOptionsClicked(Sender: TObject);
begin begin
DoOpenIDEOptions(nil, Format(dlgProjectOptionsFor, [Project1.GetTitleOrName]), DoOpenIDEOptions(nil, Format(dlgProjectOptionsFor, [Project1.GetTitleOrName]),
[TProject, TProjectCompilerOptions], []); [TAbstractIDEProjectOptions, TProjectCompilerOptions], []);
end; end;
function TMainIDE.UpdateProjectPOFile(AProject: TProject): TModalResult; function TMainIDE.UpdateProjectPOFile(AProject: TProject): TModalResult;