summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--langpacks/belarusian/Plugins/AIM.txt12
-rw-r--r--langpacks/belarusian/Plugins/Facebook.txt32
-rw-r--r--langpacks/tool/langpackmgr.exebin498176 -> 500224 bytes
-rw-r--r--tools/langpackmgr/Unit1.dfm88
-rw-r--r--tools/langpackmgr/Unit1.pas102
5 files changed, 127 insertions, 107 deletions
diff --git a/langpacks/belarusian/Plugins/AIM.txt b/langpacks/belarusian/Plugins/AIM.txt
index b0ed1f56d6..346aeec68e 100644
--- a/langpacks/belarusian/Plugins/AIM.txt
+++ b/langpacks/belarusian/Plugins/AIM.txt
@@ -100,6 +100,8 @@ AIM Усталяваць Instant Idle
Зайсці
[&Cancel]
С&касаваць
+[This allows access to user defined chat rooms. To access predefined chat rooms use web links]
+Гэта дазваляе атрымаць доступ да карыстацкіх чатаў. Каб атрымаць доступ, выкарыстоўвайце спасылкі
[Change Password]
Змяніць пароль
[Original]
@@ -108,6 +110,8 @@ AIM Усталяваць Instant Idle
Стварыць
[Repeat]
Паўтарыць
+[*Passwords don't match.]
+* Паролі не супадаюць.
[Screen Name]
Мянушка
[E-mail]
@@ -149,6 +153,8 @@ AIM Усталяваць Instant Idle
;file \protocols\AimOscar\src\error.cpp
[Mismatched Screen Name or password.]
Няправільнае імя AIM ці пароль.
+[Unknown error occured when attempting to connect.]
+Пры спробе падлучэння адбылася невядомая памылка.
;file \protocols\AimOscar\src\file.cpp
;file \protocols\AimOscar\src\links.cpp
[AIM Link Protocol]
@@ -238,6 +244,12 @@ AIM Усталяваць Instant Idle
Асноўныя
[Privacy]
Прыватнасць
+[Join me in this buddy chat!]
+Далучайцеся да мяне ў гэтым чаце!
;file \protocols\AimOscar\src\utility.cpp
[Please, enter a username in the options dialog.]
Калі ласка, увядзі імя карыстача ў наладах
+[Please, enter a password in the options dialog.]
+Калі ласка, увядзіце пароль у наладах.
+[Failed to open file: %s %s]
+Памылка адкрыцця файла: %s %s
diff --git a/langpacks/belarusian/Plugins/Facebook.txt b/langpacks/belarusian/Plugins/Facebook.txt
index 01489a8038..d8b4641011 100644
--- a/langpacks/belarusian/Plugins/Facebook.txt
+++ b/langpacks/belarusian/Plugins/Facebook.txt
@@ -22,6 +22,8 @@
Месца:
[Visibility:]
Бачнасць:
+[Share]
+Падзяліцца
[Cancel]
Скасаваць
[User Details]
@@ -80,9 +82,21 @@
Нестандартныя статусы, як Нябачны (замест 'Далучаны')
[Enable support for Custom smileys (EXPERIMENTAL + BUGGY!)]
Падтрымка карыстацкіх смайлаў (Эксперыментальна!)
+[Use local time for received messages]
+Выкарыстоўваць мясцовы час для прынятых паведамленняў
+[Send "Seen" info when marking messages as read]
+"Заўважаны", калі пазначаць паведамленні як прачытаныя
+[Use this server for opening links:]
+Выкарыстоўваць гэты сервер для адкрыцця спасылкі:
;file \protocols\FacebookRM\src\communication.cpp
+[Login error: %s]
+Памылка далучэння: %s
[Unknown error]
Невядомая памылка
+[Login error: Invalid request.]
+Памылка далучэння: Памылковы запрос.
+[Your account requires HTTPS connection. Activating.]
+Ваш конт патрабуе HTTPS злучэння. Актывацыя.
;file \protocols\FacebookRM\src\connection.cpp
[Please enter a username.]
Калі ласка, увядзіце імя карыстача.
@@ -130,9 +144,15 @@
[You cannot send messages when you are offline.]
Вы не можаце адпраўляць паведамленні без далучэння.
;file \protocols\FacebookRM\src\process.cpp
+[Attachments:]
+Дадаткі:
;file \protocols\FacebookRM\src\proto.cpp
+[Show Mind Window]
+Статус Facebook
[%s server connection]
Далучэнне да сервера %s
+[Unable to get Netlib connection for Facebook]
+Не атрымалася Netlib злучэнне да Facebook
[Notification]
Апавяшчэнне
[News Feed]
@@ -157,11 +177,23 @@
Праверка запытаў сяброўства...
[Refreshing buddy list...]
Абнаўленне спісу сяброў...
+[Do you want to cancel your friendship with '%s'?]
+Хочаце адмяніць сяброўства з '%s'?
;file \protocols\FacebookRM\src\theme.cpp
[Facebook icon]
Абразок Facebook
[Mind]
Меркаванне
+[Poke]
+Тыкнуць
+[Newsfeed]
+Навіны
+[Friendship details]
+Дэталі сяброўства
+[Visit profile]
+Профіль
+[Visit friendship details]
+Дэталі сяброўства
[Cancel friendship]
Выдаліць з сяброў
[Cancel friendship request]
diff --git a/langpacks/tool/langpackmgr.exe b/langpacks/tool/langpackmgr.exe
index 4e8c72bf89..f960bc19a2 100644
--- a/langpacks/tool/langpackmgr.exe
+++ b/langpacks/tool/langpackmgr.exe
Binary files differ
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-11-16 05:02:38 +0000