Changeset 6 for tools/Lazarus translator/UMainForm.pas

Timestamp:

Jan 14, 2009, 8:20:25 AM (16 years ago)

Author:

george

Message:

• Přidáno: Překladový soubor pro inspektor objektů a instalátor.
• Přidáno: Podpora pro překlad více souborů.

File:

• tools/Lazarus translator/UMainForm.pas (modified) (9 diffs)

tools/Lazarus translator/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  ComCtrls, UItemTranslationForm, UTextFileStream;
+  ComCtrls, UItemTranslationForm, UTextFileStream, StdCtrls;
 
 const
-  TranslationFileName: string = '../../trunk/lazaruside.cz.po';
+  TranslationFolder: string = '../../trunk/';
   TranslationMergeFileName: string = '../../tags/0.9.25/lazaruside.cz.po';
 
@@ -23 +23 @@
 
   TMainForm = class(TForm)
+    ComboBox1: TComboBox;
     ListView1: TListView;
     ProgressBar1: TProgressBar;
+    procedure Button1Click(Sender: TObject);
+    procedure ComboBox1Change(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
+      Data: Integer; var Compare: Integer);
     procedure ListView1DblClick(Sender: TObject);
     procedure ListView1KeyPress(Sender: TObject; var Key: Char);
     procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
   private
+    LastFileName: string;
     procedure MergeListFromFile;
   public
@@ -71 +77 @@
       NewItem := Add;
       NewItem.Data := StringList[I];
-      NewItem.Caption := Identification;
+      NewItem.Caption := OriginalText;
       with NewItem.SubItems do begin
-        Add(OriginalText);
         Add(TranslatedText);
+        Add(Identification);
         if TranslatedText <> '' then Inc(CompletedCount);
       end;
@@ -89 +95 @@
   LastSortedColumn := -1;
   Ascending := True;
+end;
+
+procedure TMainForm.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
+  Data: Integer; var Compare: Integer);
+begin
+    Compare := AnsiCompareText(Item1.SubItems[0],
+      Item2.SubItems[0]);
+  if not Ascending then Compare := -Compare;
 end;
 
@@ -106 +120 @@
   //MergeListFromFile;
   FillList;
-  //ListView1.CustomSort(@SortByColumn, 1);
+end;
+
+procedure TMainForm.Button1Click(Sender: TObject);
+begin
+  ListView1.SortColumn := 1;
+  ListView1.SortType := stData;
+  ListView1.Refresh;
+  ListView1.Invalidate;
+end;
+
+procedure TMainForm.ComboBox1Change(Sender: TObject);
+begin
+  SaveListToFile;
+  LoadListFromFile;
+  FillList;
 end;
 
@@ -128 +156 @@
     TranslatedText := Copy(Memo2.Text, 1, Length(Memo2.Text) - 2);
 
-    ListView1.Selected.SubItems[1] := TranslatedText;
+    ListView1.Selected.SubItems[0] := TranslatedText;
     SaveListToFile;
   end;
@@ -145 +173 @@
   I: Integer;
 begin
+  StringList.Clear;
+  LastFileName := TranslationFolder + ComboBox1.Text;
   NewItem := nil;
-  Source := TTextFileStream.Create(TranslationFileName, fmOpenRead);
+  Source := TTextFileStream.Create(LastFileName, fmOpenRead);
   try
     for I := 0 to 10 do Row := Source.ReadLn;  // Skip leading info lines
@@ -175 +205 @@
   I: Integer;
 begin
-  Source := TTextFileStream.Create(TranslationFileName, fmOpenWrite);
+  Source := TTextFileStream.Create(LastFileName, fmOpenWrite);
   with Source do
   try
@@ -184 +214 @@
     WriteLn('"PO-Revision-Date: 2009-01-07 19:03+0100\n"');
     WriteLn('"Last-Translator: Chronos <robie@centrum.cz>\n"');
+    WriteLn('"Translation-Source: http://tv.zdechov.net/svn/lazarus_czech/\n"');
     WriteLn('"Language-Team: \n"');
     WriteLn('"MIME-Version: 1.0\n"');
-    WriteLn('"Content-Type: text/plain; charset=windows-1250\n"');
+    WriteLn('"Content-Type: text/plain; charset=UTF-8\n"');
     WriteLn('"Content-Transfer-Encoding: 8bit\n"');
     WriteLn('');