paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 19:29:31 +02: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
components
h2pas
h2pasdlg.pas
prettyformat
pfidesource.pas
printers/design
ideprinting.pas
projecttemplates
idetemplateproject.pp
examples/exploremenu
frmexploremenu.pas

4
components/h2pas/h2pasdlg.pas
View File

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

5
components/prettyformat/pfidesource.pas
View File

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

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

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

3
components/projecttemplates/idetemplateproject.pp
View File

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

2
examples/exploremenu/frmexploremenu.pas
View File

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