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

cody: clean up

Browse Source 
git-svn-id: trunk@40344 -
This commit is contained in:
mattias 2013-02-18 18:39:12 +00:00
parent f2ffc5a7d1
commit d2b6e81288
4 changed files with 31 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -805,8 +805,6 @@ components/codetools/ide/languages/codystrconsts.po svneol=native#text/plain
components/codetools/ide/languages/codystrconsts.pt_BR.po svneol=native#text/plain components/codetools/ide/languages/codystrconsts.pt_BR.po svneol=native#text/plain
components/codetools/ide/languages/codystrconsts.ru.po svneol=native#text/plain components/codetools/ide/languages/codystrconsts.ru.po svneol=native#text/plain
components/codetools/ide/languages/codystrconsts.uk.po svneol=native#text/plain components/codetools/ide/languages/codystrconsts.uk.po svneol=native#text/plain
components/codetools/ide/languages/codyunitdepwnd.po svneol=native#text/plain
components/codetools/ide/languages/codyunitdepwnd.ru.po svneol=native#text/plain
components/codetools/ide/newidewnddlg.lfm svneol=native#text/plain components/codetools/ide/newidewnddlg.lfm svneol=native#text/plain
components/codetools/ide/newidewnddlg.pas svneol=native#text/plain components/codetools/ide/newidewnddlg.pas svneol=native#text/plain
components/codetools/ide/ppulistdlg.lfm svneol=native#text/plain components/codetools/ide/ppulistdlg.lfm svneol=native#text/plain

37
components/codetools/ide/codyunitdepwnd.pas
View File

@ -1,3 +1,28 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
Author: Mattias Gaertner
Abstract:
IDE Window showing dependecies of units and packages.
}
unit CodyUnitDepWnd; unit CodyUnitDepWnd;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -13,9 +38,9 @@ uses
CTUnitGraph, CodeToolManager, DefineTemplates, CTUnitGroupGraph, CTUnitGraph, CodeToolManager, DefineTemplates, CTUnitGroupGraph,
CodyCtrls; CodyCtrls;
resourcestring const // ToDo: make resourcestring
rsSelectAUnit = 'Select an unit'; lisSelectAUnit = 'Select an unit';
rsClose = 'Close'; lisClose = 'Close';
const const
GroupPrefixProject = '-Project-'; GroupPrefixProject = '-Project-';
GroupPrefixFPCSrc = 'FPC:'; GroupPrefixFPCSrc = 'FPC:';
@ -138,7 +163,7 @@ begin
AddStartAndTargetUnits; AddStartAndTargetUnits;
Caption:='Unit Dependencies'; Caption:='Unit Dependencies';
CloseBitBtn.Caption:=rsClose; CloseBitBtn.Caption:=lisClose;
IDEDialogLayoutList.ApplyLayout(Self,600,400); IDEDialogLayoutList.ApplyLayout(Self,600,400);
@ -158,7 +183,7 @@ begin
fCircleCategories[uddutImplementationUses].Color:=clRed; fCircleCategories[uddutImplementationUses].Color:=clRed;
fCircleCategories[uddutInterfaceUses]:=AddCategory('Interface'); fCircleCategories[uddutInterfaceUses]:=AddCategory('Interface');
fCircleCategories[uddutInterfaceUses].Color:=clGreen; fCircleCategories[uddutInterfaceUses].Color:=clGreen;
CenterCaption:=rsSelectAUnit; CenterCaption:=lisSelectAUnit;
Parent:=UnitsTabSheet; Parent:=UnitsTabSheet;
end; end;
@ -415,7 +440,7 @@ begin
UpdateCircleCategory(CurrentUnit.UsedByUnits,uddutUsedByInterface); UpdateCircleCategory(CurrentUnit.UsedByUnits,uddutUsedByInterface);
UpdateCircleCategory(CurrentUnit.UsedByUnits,uddutUsedByImplementation); UpdateCircleCategory(CurrentUnit.UsedByUnits,uddutUsedByImplementation);
end else begin end else begin
CurUnitDiagram.CenterCaption:=rsSelectAUnit; CurUnitDiagram.CenterCaption:=lisSelectAUnit;
end; end;
finally finally
CurUnitDiagram.EndUpdate; CurUnitDiagram.EndUpdate;

11
components/codetools/ide/languages/codyunitdepwnd.po
View File

@ -1,11 +0,0 @@
msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8"
#: codyunitdepwnd.rsclose
msgid "Close"
msgstr ""
#: codyunitdepwnd.rsselectaunit
msgid "Select an unit"
msgstr ""

20
components/codetools/ide/languages/codyunitdepwnd.ru.po
View File

@ -1,20 +0,0 @@
msgid ""
msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Project-Id-Version: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: \n"
"Last-Translator: Maxim Ganetsky <maxkill@mail.ru>\n"
"Language-Team: \n"
"MIME-Version: 1.0\n"
"Content-Transfer-Encoding: 8bit\n"
"X-Generator: Poedit 1.5.5\n"
#: codyunitdepwnd.rsclose
msgid "Close"
msgstr "Закрыть"
#: codyunitdepwnd.rsselectaunit
msgid "Select an unit"
msgstr "Выберите модуль"