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

Comment fix and formatting

Browse Source 
git-svn-id: trunk@37412 -
This commit is contained in:
juha 2012-05-24 23:05:05 +00:00
parent d3b2123362
commit ac7e7e1490
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/mainbase.pas
View File

@ -539,8 +539,7 @@ begin
CreateMenuItem(itmViewIDEInternalsWindows, itmViewIDEInfo, 'itmViewIDEInfo', lisAboutIDE);
CreateMenuItem(itmViewIDEInternalsWindows, itmViewNeedBuild, 'itmViewNeedBuild', lisMenuWhatNeedsBuilding);
{$IFDEF EnableFPDocSearch}
CreateMenuItem(itmViewIDEInternalsWindows, itmSearchInFPDocFiles, 'itmSearchInFPDocFiles',
'Search in FPDoc files');
CreateMenuItem(itmViewIDEInternalsWindows, itmSearchInFPDocFiles,'itmSearchInFPDocFiles','Search in FPDoc files');
{$ENDIF}
end;
end;
@ -1001,7 +1000,7 @@ begin
itmRunMenuRunFile.Command:=GetCommand(ecRunFile);
itmRunMenuConfigBuildFile.Command:=GetCommand(ecConfigBuildFile);
// components menu
// package menu
itmPkgNewPackage.Command:=GetCommand(ecNewPackage);
itmPkgOpenPackage.Command:=GetCommand(ecOpenPackage);
itmPkgOpenPackageFile.Command:=GetCommand(ecOpenPackageFile);

3
packager/ucomponentmanmain.pas
View File

@ -78,9 +78,7 @@ type
FLazPath: String;
MyFile: TStringList;
procedure SetLazPath(const AValue: String);
{ private declarations }
public
{ public declarations }
property LazPath: String read FLazPath write SetLazPath;
end;
@ -321,7 +319,6 @@ begin
MyObj.Unit_Name := CompUnit;
ListComps.Items.AddObject(CompName, MyObj);
end;
end;