paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 03:32:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

Components, IDEScout: i18n-ed and added Russian translation

Browse Source 
git-svn-id: trunk@60003 -
This commit is contained in:
maxim 2019-01-05 14:35:40 +00:00
parent 18be28701f
commit 0f75fd5454
10 changed files with 251 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -2164,6 +2164,9 @@ components/idescout/idescout.lpk svneol=native#text/plain
components/idescout/idescout.pas svneol=native#text/plain
components/idescout/idescoutoptions.lfm svneol=native#text/plain
components/idescout/idescoutoptions.pas svneol=native#text/plain
components/idescout/idescoutstrconsts.pas svneol=native#text/pascal
components/idescout/languages/idescoutstrconsts.po svneol=native#text/plain
components/idescout/languages/idescoutstrconsts.ru.po svneol=native#text/plain
components/idescout/regidescout.pas svneol=native#text/plain
components/images/examples/README.txt svneol=native#text/plain
components/images/examples/imagesexample.lpi svneol=native#text/plain

4
components/idescout/frmscout.pas
View File

@ -35,7 +35,7 @@ interface
uses
Classes, SysUtils, FileUtil, LazUTF8, Forms, Controls, Graphics, Dialogs, ComponentReg,
StdCtrls, EditBtn, IDECommands, LazIDEIntf, Types, LCLType, IDEOptionsIntf, IDEOptEditorIntf;
StdCtrls, EditBtn, IDECommands, LazIDEIntf, Types, LCLType, IDEOptionsIntf, IDEOptEditorIntf, IDEScoutStrConsts;
Type
TScoutTerrain = (stCommands,stRecentProjects,stRecentFiles,stRecentPackages,stComponents);
@ -526,7 +526,9 @@ procedure TIDEScoutForm.FormCreate(Sender: TObject);
begin
FSearchItems:=TStringList.Create;
FSearchItems.OwnsObjects:=True;
Caption:=isrsIDEScout;
FOrgCaption:=Caption;
ESearch.TextHint:=isrsTypeSearchTerms;
end;
procedure TIDEScoutForm.FormDestroy(Sender: TObject);

6
components/idescout/idescout.lpk
View File

@ -14,7 +14,7 @@
See the ReadMe.txt included in the package for a more detailed explanation."/>
<License Value="Modified LGPL-2"/>
<Version Release="1"/>
<Files Count="4">
<Files Count="5">
<Item1>
<Filename Value="regidescout.pas"/>
<HasRegisterProc Value="True"/>
@ -32,6 +32,10 @@ See the ReadMe.txt included in the package for a more detailed explanation."/>
<Filename Value="idescoutoptions.pas"/>
<UnitName Value="IDEScoutOptions"/>
</Item4>
<Item5>
<Filename Value="idescoutstrconsts.pas"/>
<UnitName Value="IDEScoutStrConsts"/>
</Item5>
</Files>
<i18n>
<EnableI18N Value="True"/>

2
components/idescout/idescout.pas
View File

@ -8,7 +8,7 @@ unit idescout;
interface
uses
RegIDEScout, frmscout, IDEScoutOptions, LazarusPackageIntf;
RegIDEScout, frmscout, IDEScoutOptions, IDEScoutStrConsts, LazarusPackageIntf;
implementation

18
components/idescout/idescoutoptions.lfm
View File

@ -42,20 +42,20 @@ object IDEScoutOptionsFrame: TIDEScoutOptionsFrame
050000000202020202
}
end
object Options: TGroupBox
object GBOptions: TGroupBox
Left = 0
Height = 76
Top = 151
Width = 427
Align = alTop
AutoSize = True
Caption = 'Options'
Caption = 'GBOptions'
ClientHeight = 56
ClientWidth = 423
TabOrder = 1
object CBShowShortCut: TCheckBox
AnchorSideLeft.Control = Options
AnchorSideTop.Control = Options
AnchorSideLeft.Control = GBOptions
AnchorSideTop.Control = GBOptions
Left = 6
Height = 19
Top = 6
@ -66,7 +66,7 @@ object IDEScoutOptionsFrame: TIDEScoutOptionsFrame
TabOrder = 0
end
object CBShowCategory: TCheckBox
AnchorSideLeft.Control = Options
AnchorSideLeft.Control = GBOptions
AnchorSideTop.Control = CBShowShortCut
AnchorSideTop.Side = asrBottom
Left = 6
@ -80,14 +80,14 @@ object IDEScoutOptionsFrame: TIDEScoutOptionsFrame
TabOrder = 1
end
end
object Colors: TGroupBox
object GBColors: TGroupBox
Left = 0
Height = 69
Top = 227
Width = 427
Align = alTop
AutoSize = True
Caption = 'Colors'
Caption = 'GBColors'
ClientHeight = 49
ClientWidth = 423
TabOrder = 2
@ -117,8 +117,8 @@ object IDEScoutOptionsFrame: TIDEScoutOptionsFrame
TabOrder = 1
end
object LCBMatchColor: TLabel
AnchorSideLeft.Control = Colors
AnchorSideTop.Control = Colors
AnchorSideLeft.Control = GBColors
AnchorSideTop.Control = GBColors
Left = 6
Height = 15
Top = 6

30
components/idescout/idescoutoptions.pas
View File

@ -39,7 +39,7 @@ uses
// LCL
Forms, StdCtrls, Dialogs, Spin, ExtCtrls, ColorBox,
// IdeIntf
IDEOptionsIntf, IDEOptEditorIntf, frmScout;
IDEOptionsIntf, IDEOptEditorIntf, frmScout, IDEScoutStrConsts;
Type
@ -52,13 +52,13 @@ Type
CBShortCutColor: TColorBox;
CBShowCategory: TCheckBox;
CBSelectComponent: TCheckBox;
Colors: TGroupBox;
GBColors: TGroupBox;
GBComponents: TGroupBox;
LSEComponentDefaultWidth: TLabel;
LSEComponentDefaultHeight: TLabel;
LCBShortCut: TLabel;
LCBMatchColor: TLabel;
Options: TGroupBox;
GBOptions: TGroupBox;
SEComponentDefaultWidth: TSpinEdit;
SEComponentDefaultHeight: TSpinEdit;
procedure CGSearchItemClick(Sender: TObject; Index: integer);
@ -86,14 +86,30 @@ end;
function TIDEScoutOptionsFrame.GetTitle: String;
begin
Result:='IDE Scout';
Result:=isrsIDEScout;
end;
procedure TIDEScoutOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
// Do nothing, maybe localize ?
CGSearch.Caption:=isrsSearchScope;
CGSearch.Items[0]:=isrsCommands;
CGSearch.Items[1]:=isrsRecentProjects;
CGSearch.Items[2]:=isrsRecentFiles;
CGSearch.Items[3]:=isrsRecentPackages;
CGSearch.Items[4]:=isrsComponents;
GBOptions.Caption:=isrsOptions;
CBShowShortCut.Caption:=isrsShowShOrtcutWhenAvailable;
CBShowCategory.Caption:=isrsShowCategoryWhenAvailable;
GBColors.Caption:=isrsColors;
LCBMatchColor.Caption:=isrsMatches;
LCBShortCut.Caption:=isrsShortcut;
GBComponents.Caption:=isrsComponents;
CBSelectComponent.Caption:=isrsOnlySelectOnComponentPalette;
LSEComponentDefaultWidth.Caption:=isrsDefaultWidth;
LSEComponentDefaultHeight.Caption:=isrsDefaultHeight;
end;
procedure TIDEScoutOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);

33
components/idescout/idescoutstrconsts.pas Normal file
View File

@ -0,0 +1,33 @@
unit IDEScoutStrConsts;
{$mode objfpc}{$H+}
interface
resourcestring
isrsShowIDEScout = 'Show IDE Scout';
isrsShowIDEScoutMenu = 'Show IDE Scout ...';
isrsIDEScout = 'IDE Scout';
isrsTypeSearchTerms = 'Type search terms';
isrsSearchScope = 'Search scope';
isrsCommands = 'Commands';
isrsRecentProjects = 'Recent Projects';
isrsRecentFiles = 'Recent Files';
isrsRecentPackages = 'Recent Packages';
isrsComponents = 'Components';
isrsOnlySelectOnComponentPalette = 'Only select on component palette';
isrsDefaultWidth = 'Default width';
isrsDefaultHeight = 'Default height';
isrsOptions = 'Options';
isrsShowShOrtcutWhenAvailable = 'Show Sh&ortcut when available';
isrsShowCategoryWhenAvailable = 'Show &Category when available';
isrsColors = 'Colors';
isrsMatches = '&Matches';
isrsShortcut = '&Shortcut';
implementation
end.

79
components/idescout/languages/idescoutstrconsts.po Normal file
View File

@ -0,0 +1,79 @@
msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8"
#: idescoutstrconsts.isrscolors
msgid "Colors"
msgstr ""
#: idescoutstrconsts.isrscommands
msgid "Commands"
msgstr ""
#: idescoutstrconsts.isrscomponents
msgid "Components"
msgstr ""
#: idescoutstrconsts.isrsdefaultheight
msgid "Default height"
msgstr ""
#: idescoutstrconsts.isrsdefaultwidth
msgid "Default width"
msgstr ""
#: idescoutstrconsts.isrsidescout
msgid "IDE Scout"
msgstr ""
#: idescoutstrconsts.isrsmatches
msgid "&Matches"
msgstr ""
#: idescoutstrconsts.isrsonlyselectoncomponentpalette
msgid "Only select on component palette"
msgstr ""
#: idescoutstrconsts.isrsoptions
msgid "Options"
msgstr ""
#: idescoutstrconsts.isrsrecentfiles
msgid "Recent Files"
msgstr ""
#: idescoutstrconsts.isrsrecentpackages
msgid "Recent Packages"
msgstr ""
#: idescoutstrconsts.isrsrecentprojects
msgid "Recent Projects"
msgstr ""
#: idescoutstrconsts.isrssearchscope
msgid "Search scope"
msgstr ""
#: idescoutstrconsts.isrsshortcut
msgid "&Shortcut"
msgstr ""
#: idescoutstrconsts.isrsshowcategorywhenavailable
msgid "Show &Category when available"
msgstr ""
#: idescoutstrconsts.isrsshowidescout
msgid "Show IDE Scout"
msgstr ""
#: idescoutstrconsts.isrsshowidescoutmenu
msgid "Show IDE Scout ..."
msgstr ""
#: idescoutstrconsts.isrsshowshortcutwhenavailable
msgid "Show Sh&ortcut when available"
msgstr ""
#: idescoutstrconsts.isrstypesearchterms
msgid "Type search terms"
msgstr ""

89
components/idescout/languages/idescoutstrconsts.ru.po Normal file
View File

@ -0,0 +1,89 @@
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"
"Language: ru\n"
"X-Generator: Poedit 1.7.7\n"
#: idescoutstrconsts.isrscolors
msgid "Colors"
msgstr "Цвета"
#: idescoutstrconsts.isrscommands
msgid "Commands"
msgstr "Команды"
#: idescoutstrconsts.isrscomponents
msgid "Components"
msgstr "Компоненты"
#: idescoutstrconsts.isrsdefaultheight
msgid "Default height"
msgstr "Высота по умолчанию"
#: idescoutstrconsts.isrsdefaultwidth
msgid "Default width"
msgstr "Ширина по умолчанию"
#: idescoutstrconsts.isrsidescout
msgid "IDE Scout"
msgstr "Исследователь IDE"
#: idescoutstrconsts.isrsmatches
msgid "&Matches"
msgstr "&Совпадения"
#: idescoutstrconsts.isrsonlyselectoncomponentpalette
msgid "Only select on component palette"
msgstr "Только выбирать на палитре компонентов"
#: idescoutstrconsts.isrsoptions
msgid "Options"
msgstr "Параметры"
#: idescoutstrconsts.isrsrecentfiles
msgid "Recent Files"
msgstr "Недавние файлы"
#: idescoutstrconsts.isrsrecentpackages
msgid "Recent Packages"
msgstr "Недавние пакеты"
#: idescoutstrconsts.isrsrecentprojects
msgid "Recent Projects"
msgstr "Недавние проекты"
#: idescoutstrconsts.isrssearchscope
msgid "Search scope"
msgstr "Область поиска"
#: idescoutstrconsts.isrsshortcut
msgid "&Shortcut"
msgstr "Комбинация к&лавиш"
#: idescoutstrconsts.isrsshowcategorywhenavailable
msgid "Show &Category when available"
msgstr "Показывать &категорию при её наличии"
#: idescoutstrconsts.isrsshowidescout
msgid "Show IDE Scout"
msgstr "Показать окно исследователя IDE"
#: idescoutstrconsts.isrsshowidescoutmenu
msgid "Show IDE Scout ..."
msgstr "Показать окно исследователя IDE ..."
#: idescoutstrconsts.isrsshowshortcutwhenavailable
msgid "Show Sh&ortcut when available"
msgstr "Показывать к&омбинацию клавиш при её наличии"
#: idescoutstrconsts.isrstypesearchterms
msgid "Type search terms"
msgstr "Введите ключевые слова для поиска"

10
components/idescout/regidescout.pas
View File

@ -35,13 +35,13 @@ interface
uses
// IdeIntf
IDEOptionsIntf, IDEOptEditorIntf, IDEUtils, Classes, SysUtils;
IDEOptionsIntf, IDEOptEditorIntf, Classes, SysUtils;
Procedure Register;
implementation
uses IDEScoutOptions,forms, graphics,lcltype,idecommands,toolbarintf, idewindowintf, menuintf, frmscout;
uses IDEScoutOptions,forms, graphics,lcltype,idecommands,toolbarintf, idewindowintf, menuintf, frmscout, IDEScoutStrConsts;
Procedure IdeMenuClicked(Sender : TObject);
@ -72,14 +72,16 @@ begin
IDECommandCategory := IDECommandList.FindCategoryByName(CommandCategoryViewName);
if IDECommandCategory <> nil then
begin
IDECommand := RegisterIDECommand(IDECommandCategory, 'IDEScout', 'Open IDE Scout',
IDECommand := RegisterIDECommand(IDECommandCategory, 'IDEScout',
isrsShowIDEScout,
IDEShortCutX, nil, @IDEMenuClicked);
if IDECommand <> nil then
RegisterIDEButtonCommand(IDECommand);
end;
IDEScoutOptionsFrameID:=RegisterIDEOptionsEditor(GroupEnvironment,TIDEScoutOptionsFrame,
IDEScoutOptionsFrameID)^.Index;
RegisterIDEMenuCommand(itmViewIDEInternalsWindows, 'IDEScout', 'Open IDE Scout', nil,
RegisterIDEMenuCommand(itmViewIDEInternalsWindows, 'IDEScout',
isrsShowIDEScoutMenu, nil,
@IDEMenuClicked,IDECommand);
IDEWindowCreators.Add('IDEScout',@CreateScoutWindow,nil,'40%','10%','+500','+240');
end;