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

cody: explode a with

Browse Source 
git-svn-id: trunk@30984 -
This commit is contained in:
mattias 2011-05-31 10:52:53 +00:00
parent 94614e7872
commit 8b67104316
7 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,7 +46,7 @@ var
CmdCatFileMenu: TIDECommandCategory;
PPUListCommand: TIDECommand;
AddAssignMethodCommand: TIDECommand;
RemoveAWithBlockCommand: TIDECommand;
ExplodeAWithBlockCommand: TIDECommand;
InsertFileAtCursorCommand: TIDECommand;
DeclareVariableCommand: TIDECommand;
TVIconRes: TLResource;
@ -125,12 +125,12 @@ begin
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'CutDeclarationToClipboard',
crsCutDeclarationToClipboard,nil,nil,CutDeclarationToClipboardCommand){$IFNDEF EnableCodyExperiments}.Visible:=false{$ENDIF};
// remove With block
RemoveAWithBlockCommand:=RegisterIDECommand(CmdCatCodeTools, 'RemoveAWithBlock',
crsRemoveAWithBlock,
CleanIDEShortCut,CleanIDEShortCut,nil,@RemoveAWithBlockCmd);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'RemoveAWithBlock',
crsRemoveAWithBlock, nil, nil, RemoveAWithBlockCommand);
// explode a With block
ExplodeAWithBlockCommand:=RegisterIDECommand(CmdCatCodeTools, 'ExplodeAWithBlock',
crsExplodeAWithBlock,
CleanIDEShortCut,CleanIDEShortCut,nil,@ExplodeAWithBlockCmd);
RegisterIDEMenuCommand(SrcEditSubMenuRefactor, 'ExplodeAWithBlock',
crsExplodeAWithBlock, nil, nil, ExplodeAWithBlockCommand);
// IDE internals menu - - - - - - - - - - - - - - - - - - - - - - - - - - - -

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

@ -78,7 +78,7 @@ resourcestring
crsAddAssignMethod2 = 'Add Assign method ...';
crsCopyDeclarationToClipboard = 'Copy declaration to clipboard';
crsCutDeclarationToClipboard = 'Cut declaration to clipboard';
crsRemoveAWithBlock = 'Remove a "With" block';
crsExplodeAWithBlock = 'Explode a "With" block';
crsCWError = 'Error';
crsPleasePlaceTheCursorOfTheSourceEditorOnAnIdentifie = 'Please place the '

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

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

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

@ -206,6 +206,10 @@ msgstr ""
msgid "\"%s\" is a keyword."
msgstr ""
#: codystrconsts.crsexplodeawithblock
msgid "Explode a \"With\" block"
msgstr ""
#: codystrconsts.crsfile
msgid "File"
msgstr ""
@ -354,10 +358,6 @@ msgstr ""
msgid "Refresh"
msgstr ""
#: codystrconsts.crsremoveawithblock
msgid "Remove a \"With\" block"
msgstr ""
#: codystrconsts.crsreport
msgid "Report"
msgstr ""

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

@ -197,6 +197,10 @@ msgstr ""
msgid "\"%s\" is a keyword."
msgstr ""
#: codystrconsts.crsexplodeawithblock
msgid "Explode a \"With\" block"
msgstr ""
#: codystrconsts.crsfile
msgid "File"
msgstr ""
@ -345,10 +349,6 @@ msgstr ""
msgid "Refresh"
msgstr ""
#: codystrconsts.crsremoveawithblock
msgid "Remove a \"With\" block"
msgstr ""
#: codystrconsts.crsreport
msgid "Report"
msgstr ""

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

@ -205,6 +205,10 @@ msgstr ""
msgid "\"%s\" is a keyword."
msgstr ""
#: codystrconsts.crsexplodeawithblock
msgid "Explode a \"With\" block"
msgstr ""
#: codystrconsts.crsfile
msgid "File"
msgstr ""
@ -353,10 +357,6 @@ msgstr ""
msgid "Refresh"
msgstr ""
#: codystrconsts.crsremoveawithblock
msgid "Remove a \"With\" block"
msgstr ""
#: codystrconsts.crsreport
msgid "Report"
msgstr ""

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

@ -205,6 +205,10 @@ msgstr "Объявление переменной \"%s\""
msgid "\"%s\" is a keyword."
msgstr "\"%s\" является ключевым словом."
#: codystrconsts.crsexplodeawithblock
msgid "Explode a \"With\" block"
msgstr ""
#: codystrconsts.crsfile
msgid "File"
msgstr "Файл"
@ -354,10 +358,6 @@ msgstr "Published"
msgid "Refresh"
msgstr "Обновить"
#: codystrconsts.crsremoveawithblock
msgid "Remove a \"With\" block"
msgstr "Удалить блок \"With\""
#: codystrconsts.crsreport
msgid "Report"
msgstr "Отчёт"