Changeset 233 for CoolTranslator

Timestamp:

Apr 14, 2011, 12:51:20 PM (14 years ago)

Author:

george

Message:

• Modified: Unit UStreamHelper no longer define TThreadStreamHelper.

Location:

CoolTranslator

Files:

• ReadMe.txt (modified) (1 diff)
• UCoolTranslator.pas (modified) (2 diffs)

CoolTranslator/ReadMe.txt

@@ -31 +31 @@
 
 * TCollection: TListView.Columns
-* TStrings: TRadioGroup.
+* TStrings: TRadioGroup.Items, TPageControl.Pages, TComboBox.Items, TMemo.Lines
 
 ==Other constants==

CoolTranslator/UCoolTranslator.pas

@@ -217 +217 @@
               with TCollection(Obj).Items[I] do
                 TranslateComponent(TCollection(Obj).Items[I]);
-          if Obj is TStrings then
+          (*if Obj is TStrings then
             for I := 0 to TStrings(Obj).Count - 1 do
               with TStrings(Obj) do
                 Strings[I] := TranslateText(Strings[I], Strings[I]);
+          *)
         end;
       end;
@@ -327 +328 @@
 destructor TCoolTranslator.Destroy;
 begin
+  FPOFile.Free;
   Languages.Free;
+  ComponentExcludes.Free;
   inherited Destroy;
 end;