Changeset 4 for tools

Timestamp:

Jan 8, 2009, 1:45:23 PM (16 years ago)

Author:

george

Message:

• Přidáno: Překládací program přímo pro Lazarus namísto Delphi.
• Upraveno: Překladový soubor je nyní kódován v UTF-8.

Location:

tools

Files:

• Delphi translator (modified) (1 prop)
• Delphi translator/UMainForm.pas (modified) (1 diff)
• Lazarus translator (added)
• Lazarus translator/Translator.lpi (added)
• Lazarus translator/Translator.lpr (added)
• Lazarus translator/UItemTranslationForm.lfm (added)
• Lazarus translator/UItemTranslationForm.lrs (added)
• Lazarus translator/UItemTranslationForm.pas (added)
• Lazarus translator/UMainForm.lfm (added)
• Lazarus translator/UMainForm.lrs (added)
• Lazarus translator/UMainForm.pas (added)
• Lazarus translator/UTextFileStream.pas (added)

tools/Delphi translator

@@ -3 +3 @@
 *.identcache
 *.dsk
+backup
+*.~dsk

@@ -3 +3 @@
 *.identcache
 *.dsk
+backup
+*.~dsk

tools/Delphi translator/UMainForm.pas

@@ -52 +52 @@
     Result := AnsiCompareText(Item1.Caption, Item2.Caption)
   else
-    Result := AnsiCompareText(Item1.SubItems[Data-1],
-      Item2.SubItems[Data-1]);
+    Result := AnsiCompareText(Item1.SubItems[Data - 1],
+      Item2.SubItems[Data - 1]);
   if not Ascending then Result := -Result;
 end;

@@ -3 +3 @@
 *.identcache
 *.dsk
+backup
+*.~dsk