paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 14:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

cody: renamed: remove a "with" block

Browse Source 
git-svn-id: trunk@30961 -
This commit is contained in:
mattias 2011-05-29 12:34:10 +00:00
parent 4cd04c1a87
commit 8d1d6f9318
9 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codeindex.pas
View File

@ -70,7 +70,7 @@ type
TCodeBrowserUnit = class
private
FChildNodes: TAVLTree;
FChildNodes: TAVLTree; // tree of TCodeBrowserNode
FCodeBuffer: TCodeBuffer;
FCodeTool: TStandardCodeTool;
FCodeTreeChangeStep: integer;

12
components/codetools/ide/codyregistration.pas
View File

@ -46,7 +46,7 @@ var
CmdCatFileMenu: TIDECommandCategory;
PPUListCommand: TIDECommand;
AddAssignMethodCommand: TIDECommand;
RemoveWithBlockCommand: TIDECommand;
RemoveAWithBlockCommand: TIDECommand;
InsertFileAtCursorCommand: TIDECommand;
DeclareVariableCommand: TIDECommand;
TVIconRes: TLResource;
@ -110,11 +110,11 @@ begin
crsAddAssignMethod2,nil,nil,AddAssignMethodCommand);
// remove With block
RemoveWithBlockCommand:=RegisterIDECommand(CmdCatCodeTools, 'RemoveWithBlock',
crsRemoveWithBlock,
CleanIDEShortCut,CleanIDEShortCut,nil,@RemoveWithBlockCmd);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'RemoveWithBlock',
crsRemoveWithBlock, nil, nil, RemoveWithBlockCommand);
RemoveAWithBlockCommand:=RegisterIDECommand(CmdCatCodeTools, 'RemoveAWithBlock',
crsRemoveAWithBlock,
CleanIDEShortCut,CleanIDEShortCut,nil,@RemoveAWithBlockCmd);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'RemoveAWithBlock',
crsRemoveAWithBlock, nil, nil, RemoveAWithBlockCommand);
// IDE internals menu - - - - - - - - - - - - - - - - - - - - - - - - - - - -

2
components/codetools/ide/codystrconsts.pas
View File

@ -76,7 +76,7 @@ resourcestring
crsAddAssignMethod = 'Add Assign method';
crsShowCodeToolsNodeInfo = 'Show CodeTools node info ...';
crsAddAssignMethod2 = 'Add Assign method ...';
crsRemoveWithBlock = 'Remove With block';
crsRemoveAWithBlock = 'Remove a "With" block';
crsCWError = 'Error';
crsPleaseSpecifyAType = 'Please specify a type';

4
components/codetools/ide/codyutils.pas
View File

@ -108,7 +108,7 @@ type
cupeSuccess
);
procedure RemoveWithBlockCmd(Sender: TObject);
procedure RemoveAWithBlockCmd(Sender: TObject);
procedure InsertFileAtCursor(Sender: TObject);
procedure AddCallInherited(Sender: TObject);
@ -119,7 +119,7 @@ procedure OpenCodyHelp(Path: string);
implementation
procedure RemoveWithBlockCmd(Sender: TObject);
procedure RemoveAWithBlockCmd(Sender: TObject);
procedure ErrorNotInWithVar;
begin

4
components/codetools/ide/languages/codystrconsts.it.po
View File

@ -342,8 +342,8 @@ msgstr ""
msgid "Refresh"
msgstr ""
#: codystrconsts.crsremovewithblock
msgid "Remove With block"
#: codystrconsts.crsremoveawithblock
msgid "Remove a \"With\" block"
msgstr ""
#: codystrconsts.crsreport

4
components/codetools/ide/languages/codystrconsts.po
View File

@ -333,8 +333,8 @@ msgstr ""
msgid "Refresh"
msgstr ""
#: codystrconsts.crsremovewithblock
msgid "Remove With block"
#: codystrconsts.crsremoveawithblock
msgid "Remove a \"With\" block"
msgstr ""
#: codystrconsts.crsreport

6
components/codetools/ide/languages/codystrconsts.pt_BR.po
View File

@ -341,9 +341,9 @@ msgstr ""
msgid "Refresh"
msgstr ""
#: codystrconsts.crsremovewithblock
msgid "Remove With block"
msgstr "Remover bloco \"With\""
#: codystrconsts.crsremoveawithblock
msgid "Remove a \"With\" block"
msgstr ""
#: codystrconsts.crsreport
msgid "Report"

6
components/codetools/ide/languages/codystrconsts.ru.po
View File

@ -342,9 +342,9 @@ msgstr "Published"
msgid "Refresh"
msgstr "Обновить"
#: codystrconsts.crsremovewithblock
msgid "Remove With block"
msgstr "Удалить блок With"
#: codystrconsts.crsremoveawithblock
msgid "Remove a \"With\" block"
msgstr ""
#: codystrconsts.crsreport
msgid "Report"

2
ide/codebrowser.pas
View File

@ -2087,8 +2087,8 @@ var
//DebugLn(['AddUnits SrcList.Owner="',SrcList.Owner,'" HasUnits=',SrcList.Units<>nil]);
if SrcList.Units=nil then exit;
OldDestParentList:=DestParentList;
Node:=SrcList.Units.FindLowest;
NewUnit:=nil;
Node:=SrcList.Units.FindLowest;
while Node<>nil do begin
CurUnit:=TCodeBrowserUnit(Node.Data);
if (CurUnit.Filename='')