paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 06:43:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix compilation of components and examples

Browse Source 
git-svn-id: trunk@13079 -
This commit is contained in:
paul 2007-11-29 15:05:45 +00:00
parent 0748e5b6b6
commit 94f23a0660
5 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/h2pas/h2pasdlg.pas
View File

@ -205,7 +205,7 @@ begin
Cat:=IDECommandList.FindCategoryByName(CommandCategoryToolMenuName); Cat:=IDECommandList.FindCategoryByName(CommandCategoryToolMenuName);
CmdH2PasTool := RegisterIDECommand(Cat , CmdH2PasTool := RegisterIDECommand(Cat ,
h2pH2Pas, h2pCreateUnitsFromCHeaderFiles, Key, nil, @ExecuteH2PasTool); h2pH2Pas, h2pCreateUnitsFromCHeaderFiles, Key, nil, @ExecuteH2PasTool);
RegisterIDEMenuCommand(itmSecondaryTools, h2pH2PasTool, h2pH2Pas, nil, nil, RegisterIDEMenuCommand(itmSecondaryTools, h2pH2PasTool, h2pH2Pas, '', nil, nil,
CmdH2PasTool); CmdH2PasTool);
// register text converter tools // register text converter tools
@ -836,7 +836,7 @@ begin
// selection or line of the source editor. // selection or line of the source editor.
fSrcEditAddSearchReplaceMenuItem:=RegisterIDEMenuCommand(SrcEditSection, fSrcEditAddSearchReplaceMenuItem:=RegisterIDEMenuCommand(SrcEditSection,
'Add "search and replace" tool before h2pas', 'Add "search and replace" tool before h2pas',
'Add "search and replace" tool before h2pas', 'Add "search and replace" tool before h2pas', '',
@OnAddSearchAndReplaceBeforeH2PasClick); @OnAddSearchAndReplaceBeforeH2PasClick);
end; end;

5
components/prettyformat/pfidesource.pas
View File

@ -54,22 +54,27 @@ begin
CmdFormatFile:=RegisterIDECommand(Cat, CmdFormatFile:=RegisterIDECommand(Cat,
SCmdPFFile, SCmdPFFile,
SDescrPFFile, SDescrPFFile,
'',
Key,nil,@PrettyPrintFile); Key,nil,@PrettyPrintFile);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, RegisterIDEMenuCommand(SrcEditSubMenuRefactor,
SCmdPFSelection, SCmdPFSelection,
SDescrPFSelection, SDescrPFSelection,
'',
Nil,nil,CmdFormatSelection); Nil,nil,CmdFormatSelection);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, RegisterIDEMenuCommand(SrcEditSubMenuRefactor,
SCmdPFFile, SCmdPFFile,
SDescrPFFile, SDescrPFFile,
'',
Nil,nil,CmdFormatFile); Nil,nil,CmdFormatFile);
RegisterIDEMenuCommand(itmEditBlockIndentation, RegisterIDEMenuCommand(itmEditBlockIndentation,
SCmdPFSelection, SCmdPFSelection,
SDescrPFSelection, SDescrPFSelection,
'',
Nil,nil,CmdFormatSelection); Nil,nil,CmdFormatSelection);
RegisterIDEMenuCommand(itmEditBlockIndentation, RegisterIDEMenuCommand(itmEditBlockIndentation,
SCmdPFFile, SCmdPFFile,
SDescrPFFile, SDescrPFFile,
'',
Nil,nil,CmdFormatFile); Nil,nil,CmdFormatFile);
end; end;

11
components/printers/design/ideprinting.pas
View File

@ -56,23 +56,26 @@ begin
{$endif} {$endif}
CmdFormatSelection:=RegisterIDECommand(Cat, CmdFormatSelection:=RegisterIDECommand(Cat,
'PrintSelection', 'PrintSelection',
SDescrPFSelection, SDescrPFSelection,
Key,nil,@PrintFile); Key,nil,@PrintFile);
//file main menu item //file main menu item
RegisterIDEMenuCommand(itmFileDirectories, RegisterIDEMenuCommand(itmFileDirectories,
'PrintSelection', 'PrintSelection',
SDescrPFSelection, SDescrPFSelection,
'',
nil,nil,CmdFormatSelection); nil,nil,CmdFormatSelection);
//source editor popup //source editor popup
RegisterIDEMenuCommand(SrcEditMenuSectionMovePage, RegisterIDEMenuCommand(SrcEditMenuSectionMovePage,
'-', '-',
'-', '-',
'',
nil,nil,nil); nil,nil,nil);
RegisterIDEMenuCommand(SrcEditMenuSectionMovePage, RegisterIDEMenuCommand(SrcEditMenuSectionMovePage,
'PrintSelection', 'PrintSelection',
SDescrPFSelection, SDescrPFSelection,
'',
nil,nil,CmdFormatSelection); nil,nil,CmdFormatSelection);
end; end;

3
components/projecttemplates/idetemplateproject.pp
View File

@ -148,6 +148,7 @@ begin
ProjMenu:=RegisterIDEMenuCommand(itmFileNewFromTemplate, ProjMenu:=RegisterIDEMenuCommand(itmFileNewFromTemplate,
SItmtemplate+Atemplate.Name, SItmtemplate+Atemplate.Name,
ATemplate.Name, ATemplate.Name,
'',
Nil,@DoProject,Nil); Nil,@DoProject,Nil);
MenuList.Add(TIDEObject.Create(ProjDesc,ProjMenu)); MenuList.Add(TIDEObject.Create(ProjDesc,ProjMenu));
end; end;
@ -190,7 +191,7 @@ end;
procedure Register; procedure Register;
begin begin
RegisterIdeMenuCommand(itmCustomTools,STemplateSettings,SProjectTemplateSettings,nil,@ChangeSettings); RegisterIdeMenuCommand(itmCustomTools,STemplateSettings,SProjectTemplateSettings,'',nil,@ChangeSettings);
itmFileNewFromTemplate:=RegisterIDESubMenu(itmFileNew, itmFileNewFromTemplate:=RegisterIDESubMenu(itmFileNew,
'itmFileFromtemplate', 'itmFileFromtemplate',
SNewFromTemplate); SNewFromTemplate);

2
examples/exploremenu/frmexploremenu.pas
View File

@ -74,7 +74,7 @@ Procedure Register;
begin begin
RegisterIDEMenuCommand(itmSecondaryTools,SExploreIDEMEnu, RegisterIDEMenuCommand(itmSecondaryTools,SExploreIDEMEnu,
SExploreIDEMenuCaption,Nil,@ShowMenu,Nil); SExploreIDEMenuCaption,'',Nil,@ShowMenu,Nil);
end; end;