paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:39:15 +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 TCodeBrowserUnit = class
private private
FChildNodes: TAVLTree; FChildNodes: TAVLTree; // tree of TCodeBrowserNode
FCodeBuffer: TCodeBuffer; FCodeBuffer: TCodeBuffer;
FCodeTool: TStandardCodeTool; FCodeTool: TStandardCodeTool;
FCodeTreeChangeStep: integer; FCodeTreeChangeStep: integer;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

2
ide/codebrowser.pas
View File

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