summaryrefslogtreecommitdiff
path: root/tools/langpackmgr
diff options
context:
space:
mode:
Diffstat (limited to 'tools/langpackmgr')
-rw-r--r--tools/langpackmgr/Unit1.dfm88
-rw-r--r--tools/langpackmgr/Unit1.pas102
2 files changed, 83 insertions, 107 deletions
diff --git a/tools/langpackmgr/Unit1.dfm b/tools/langpackmgr/Unit1.dfm
index e108d9c03d..9f1c7add32 100644
--- a/tools/langpackmgr/Unit1.dfm
+++ b/tools/langpackmgr/Unit1.dfm
@@ -3,8 +3,8 @@ object Form1: TForm1
Top = 0
BorderIcons = [biSystemMenu]
Caption = 'Miranda NG Langpack Manager'
- ClientHeight = 219
- ClientWidth = 684
+ ClientHeight = 293
+ ClientWidth = 710
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -32,15 +32,15 @@ object Form1: TForm1
end
object Label3: TLabel
Left = 8
- Top = 188
- Width = 3
+ Top = 276
+ Width = 30
Height = 13
end
object ListBox1: TListBox
- Left = 488
- Top = 3
- Width = 193
- Height = 214
+ Left = 544
+ Top = 8
+ Width = 161
+ Height = 281
ItemHeight = 13
TabOrder = 0
OnClick = ListBox1Click
@@ -63,75 +63,41 @@ object Form1: TForm1
OnClick = Button1Click
end
object Button2: TButton
- Left = 336
- Top = 176
+ Left = 392
+ Top = 264
Width = 146
Height = 25
Caption = 'SAVE AND REFRESH'
TabOrder = 3
OnClick = Button2Click
end
- object C: TBitBtn
- Left = 455
- Top = 56
- Width = 27
- Height = 25
- Caption = 'C'
- TabOrder = 4
- OnClick = CClick
- end
object X: TBitBtn
- Left = 455
- Top = 145
+ Left = 511
+ Top = 127
Width = 27
Height = 25
Caption = 'X'
- TabOrder = 5
+ TabOrder = 4
OnClick = XClick
end
- object Edit2: TEdit
+ object Memo1: TMemo
Left = 8
- Top = 58
- Width = 441
- Height = 21
- TabOrder = 6
+ Top = 32
+ Width = 537
+ Height = 89
+ ScrollBars = ssBoth
+ TabOrder = 5
end
- object Edit3: TEdit
+ object Memo2: TMemo
Left = 8
- Top = 111
- Width = 441
- Height = 21
- TabOrder = 7
- OnEnter = FormCreate
- end
- object Button3: TButton
- Left = 240
- Top = 176
- Width = 75
- Height = 25
- Caption = 'DUPES ON'
- 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
+ Top = 160
+ Width = 537
+ Height = 89
+ ScrollBars = ssBoth
+ TabOrder = 6
end
object OpenDialog1: TOpenDialog
- Left = 192
- Top = 176
+ Left = 352
+ Top = 265
end
end
diff --git a/tools/langpackmgr/Unit1.pas b/tools/langpackmgr/Unit1.pas
index b4c30b6e83..3fd8b478ed 100644
--- a/tools/langpackmgr/Unit1.pas
+++ b/tools/langpackmgr/Unit1.pas
@@ -12,21 +12,16 @@ type
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
- Edit2: TEdit;
- Edit3: TEdit;
Button1: TButton;
Button2: TButton;
- Button3: TButton;
ListBox1: TListBox;
OpenDialog1: TOpenDialog;
- C: TBitBtn;
X: TBitBtn;
- B: TBitBtn;
- G: TBitBtn;
+ Memo1: TMemo;
+ Memo2: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure CClick(Sender: TObject);
procedure XClick(Sender: TObject);
@@ -57,8 +52,7 @@ implementation
// Открытие файла
procedure TForm1.BClick(Sender: TObject);
begin
- edit2.SelectAll;
- edit2.CopyToClipboard;
+//
end;
procedure TForm1.Button1Click(Sender: TObject);
@@ -94,18 +88,9 @@ writeLn(translate, bom);
if copy(ustring[i],1,1)=';' then writeln(translate,ustring[i]);
if (copy(ustring[i],1,1)='[') and (tstring[i]<>'')
then begin
- cores:=false;
- if Button3.visible=true then
- for idx := 1 to idm do
- if (copy(dupes[idx],1,1)='[')
- and (dupes[idx]=ustring[i])
- then cores:=true;
- if cores=false then
- begin
writeln(translate,ustring[i]);
writeln(translate,tstring[i]);
end;
- end;
end;
closefile(translate);
@@ -134,24 +119,15 @@ closefile(translate);
read;
end;
-// Выключение фильтра повторяющихся строк
-procedure TForm1.Button3Click(Sender: TObject);
-begin
-if edit1.Text<>'' then
-If Button3.Caption='DUPES OFF'
-then Button3.Caption:='DUPES ON'
-else Button3.Caption:='DUPES OFF';
-refresh;read;refresh;
-end;
procedure TForm1.CClick(Sender: TObject);
begin
- Edit3.text:=edit2.text;
+//
end;
procedure TForm1.XClick(Sender: TObject);
begin
- Edit3.text:='';
+ memo2.Lines.Clear;
tstring[notranslate[strtoint(label2.caption)]]:='';
refresh;
end;
@@ -160,12 +136,11 @@ procedure TForm1.enter(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
- vk_return,vk_down: if listbox1.ItemIndex<listbox1.Items.Count then
- listbox1.ItemIndex:=listbox1.ItemIndex+1;
+ vk_down: if listbox1.ItemIndex<listbox1.Items.Count then
+ begin listbox1.ItemIndex:=listbox1.ItemIndex+1; refresh; end;
vk_up: if listbox1.ItemIndex>0 then
- listbox1.ItemIndex:=listbox1.ItemIndex-1;
+ begin listbox1.ItemIndex:=listbox1.ItemIndex-1; refresh; end;
end;
-refresh;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
@@ -179,29 +154,65 @@ begin
end;
procedure tform1.refresh;
-var n:integer;
+var m,n:integer;
begin
+memo1.Lines.Clear;
n:=strtoint(label2.caption);
-line:=edit3.Text;
-if length(line)<>0 then
-tstring[notranslate[n]]:=line;
+//
+if memo2.Lines.Count=memo1.Lines.Count then
+tstring[notranslate[n]]:='';
+for I := 0 to memo2.Lines.Count-1 do
+begin
+tstring[notranslate[n]]:=tstring[notranslate[n]]+memo2.Lines[i];
+if i<memo2.Lines.Count-1 then
+tstring[notranslate[n]]:=tstring[notranslate[n]]+'\n';
+end;
+
+
+//
label2.Caption:=inttostr(ListBox1.ItemIndex+1);
n:=strtoint(label2.caption);
-edit2.Text:=copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2);
-edit3.Text:=tstring[notranslate[n]];
-edit3.SetFocus;
+memo2.Lines.Clear;
+//
+if tstring[notranslate[n]]<>'' then
+begin
+m:=1;
+for i := 1 to length(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2))-1 do
+begin
+ if copy(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2),i,2)='\n' then
+ begin
+ memo2.Lines.Add(copy(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2),m,i-m));
+ m:=i+2;
+ end;
+end;
+ if m=1 then memo2.Lines.Add(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2))
+ else memo2.Lines.Add(copy(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2),
+ m,length(copy(tstring[notranslate[n]],2,length(tstring[notranslate[n]])-2))-m+1));
+end;
+//
+m:=1;
+for i := 1 to length(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2))-1 do
+begin
+ if copy(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2),i,2)='\n' then
+ begin
+ memo1.Lines.Add(copy(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2),m,i-m));
+ m:=i+2;
+ end;
+end;
+ if m=1 then memo1.Lines.Add(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2))
+ else memo1.Lines.Add(copy(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2),
+ m,length(copy(ustring[notranslate[n]],2,length(ustring[notranslate[n]])-2))-m+1));
+//
+
+memo2.SetFocus;
end;
procedure tform1.read;
begin
-if extractfilename(opendialog.filename)='=CORE=.txt'
-then button3.Visible:=false
-else button3.Visible:=true;
listbox1.Items.Clear;
line:='';
- edit3.Text:='';
for i:= 1 to 9999 do
begin
full[i]:='';
@@ -326,8 +337,7 @@ if (extractfilename(opendialog.filename)='=CORE=.txt') and (idm>0) then
for idx := 1 to idm do
if dupes[idx]=ustring[i] then tstring[i]:=dupes[idx+1];
if (extractfilename(opendialog.filename)<>'=CORE=.txt') and (idm>0)
-and (button3.Caption='DUPES ON') then
- for idx := 1 to idm do
+then for idx := 1 to idm do
if dupes[idx]=ustring[i] then tstring[i]:=dupes[idx+1];
if tstring[i]='' then
begin
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-27 11:49:34 +0000