diff options
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/langpackmgr/Unit1.dfm | 25 | ||||
| -rw-r--r-- | tools/langpackmgr/Unit1.pas | 27 |
2 files changed, 39 insertions, 13 deletions
diff --git a/tools/langpackmgr/Unit1.dfm b/tools/langpackmgr/Unit1.dfm index 7edf9ac297..e108d9c03d 100644 --- a/tools/langpackmgr/Unit1.dfm +++ b/tools/langpackmgr/Unit1.dfm @@ -73,7 +73,7 @@ object Form1: TForm1 end
object C: TBitBtn
Left = 455
- Top = 64
+ Top = 56
Width = 27
Height = 25
Caption = 'C'
@@ -82,7 +82,7 @@ object Form1: TForm1 end
object X: TBitBtn
Left = 455
- Top = 127
+ Top = 145
Width = 27
Height = 25
Caption = 'X'
@@ -91,14 +91,14 @@ object Form1: TForm1 end
object Edit2: TEdit
Left = 8
- Top = 66
+ Top = 58
Width = 441
Height = 21
TabOrder = 6
end
object Edit3: TEdit
Left = 8
- Top = 129
+ Top = 111
Width = 441
Height = 21
TabOrder = 7
@@ -113,6 +113,23 @@ object Form1: TForm1 TabOrder = 8
OnClick = Button3Click
end
+ object B: TBitBtn
+ Left = 455
+ Top = 85
+ Width = 27
+ Height = 25
+ Caption = 'B'
+ TabOrder = 9
+ OnClick = BClick
+ end
+ object G: TBitBtn
+ Left = 455
+ Top = 114
+ Width = 27
+ Height = 25
+ Caption = 'G'
+ TabOrder = 10
+ end
object OpenDialog1: TOpenDialog
Left = 192
Top = 176
diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas index 2ddb8f0be7..b4c30b6e83 100644 --- a/tools/langpackmgr/Unit1.pas +++ b/tools/langpackmgr/Unit1.pas @@ -21,6 +21,8 @@ type OpenDialog1: TOpenDialog;
C: TBitBtn;
X: TBitBtn;
+ B: TBitBtn;
+ G: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
@@ -31,6 +33,7 @@ type procedure refresh;
procedure read;
procedure enter(Sender: TObject; var Key: Word; Shift: TShiftState);
+ procedure BClick(Sender: TObject);
private
{ Private declarations }
@@ -41,8 +44,8 @@ type var
Form1: TForm1;
openDialog : TOpenDialog;
- full,ustring,tstring,fline,dupes: array [1..7000] of string;
- notranslate: array [1..7000] of integer;
+ full,ustring,tstring,fline,dupes: array [1..9999] of string;
+ notranslate: array [1..9999] of integer;
translate: textfile;
bom, bomd, line:string;
ii,i,it,ie:integer;
@@ -52,6 +55,12 @@ implementation {$R *.dfm}
// Открытие файла
+procedure TForm1.BClick(Sender: TObject);
+begin
+ edit2.SelectAll;
+ edit2.CopyToClipboard;
+end;
+
procedure TForm1.Button1Click(Sender: TObject);
begin
chdir(ExtractFilePath(Application.ExeName));
@@ -86,7 +95,7 @@ writeLn(translate, bom); if (copy(ustring[i],1,1)='[') and (tstring[i]<>'')
then begin
cores:=false;
- if Button3.caption='DUPES ON' then
+ if Button3.visible=true then
for idx := 1 to idm do
if (copy(dupes[idx],1,1)='[')
and (dupes[idx]=ustring[i])
@@ -108,14 +117,13 @@ closefile(translate); assignfile(translate,ExtractFilePath(opendialog.filename)+'=DUPES=.txt',CP_UTF8);
rewrite(translate);
writeLn(translate, bomd);
-//
// Если строка отсутствует в =СORE=, она запишется в =DUPES=
for idx := 1 to idm do
if (copy(dupes[idx],1,1)='[') then
begin cores:=false;
for i := 1 to ie do
- if dupes[idx]=ustring[i] then cores:=true;
- if cores=true then begin
+ if dupes[idx]=ustring[i] then cores:=true;
+ if cores=false then begin
writeLn(translate, dupes[idx]);
writeLn(translate, dupes[idx+1]);
end;
@@ -180,12 +188,12 @@ tstring[notranslate[n]]:=line; label2.Caption:=inttostr(ListBox1.ItemIndex+1);
n:=strtoint(label2.caption);
edit2.Text:=copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2);
-edit2.SelectAll;
-edit2.CopyToClipboard;
edit3.Text:=tstring[notranslate[n]];
edit3.SetFocus;
end;
+
+
procedure tform1.read;
begin
if extractfilename(opendialog.filename)='=CORE=.txt'
@@ -194,7 +202,7 @@ else button3.Visible:=true; listbox1.Items.Clear;
line:='';
edit3.Text:='';
- for i:= 1 to 7000 do
+ for i:= 1 to 9999 do
begin
full[i]:='';
dupes[i]:='';
@@ -328,5 +336,6 @@ notranslate[listbox1.Items.Count]:=i; end;
end;
label3.caption:='Untranslate:'+inttostr(listbox1.Items.Count)+' lines.';
+refresh;
end;
end.
|