Changeset 287

Timestamp:

Oct 17, 2011, 1:38:22 PM (13 years ago)

Author:

george

Message:

• Fixed: CoolTranslator opening files with non-ascii characters.

Location:

CoolTranslator

Files:

• Demo/TranslatorDemo.lpi (modified) (5 diffs)
• UCoolTranslator.pas (modified) (1 diff)

CoolTranslator/Demo/TranslatorDemo.lpi

@@ -53 +53 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UMainForm"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
-        <CursorPos X="30" Y="9"/>
+        <CursorPos X="29" Y="18"/>
         <UsageCount Value="21"/>
         <Loaded Value="True"/>
@@ -80 +79 @@
         <Filename Value="..\UCoolTranslator.pas"/>
         <UnitName Value="UCoolTranslator"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
         <TopLine Value="274"/>
-        <CursorPos X="29" Y="279"/>
+        <CursorPos X="1" Y="286"/>
         <UsageCount Value="11"/>
         <Loaded Value="True"/>
@@ -141 +141 @@
       </Unit11>
     </Units>
-    <JumpHistory Count="29" HistoryIndex="28">
+    <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="..\UCoolTranslator.pas"/>
@@ -258 +258 @@
         <Caret Line="9" Column="29" TopLine="1"/>
       </Position29>
+      <Position30>
+        <Filename Value="UMainForm.pas"/>
+        <Caret Line="18" Column="29" TopLine="1"/>
+      </Position30>
     </JumpHistory>
   </ProjectOptions>
@@ -289 +293 @@
   </CompilerOptions>
   <Debugging>
-    <BreakPoints Count="1">
-      <Item1>
-        <Kind Value="bpkSource"/>
-        <WatchScope Value="wpsGlobal"/>
-        <WatchKind Value="wpkWrite"/>
-        <Source Value="..\UCoolTranslator.pas"/>
-        <Line Value="279"/>
-      </Item1>
-    </BreakPoints>
     <Exceptions Count="3">
       <Item1>

CoolTranslator/UCoolTranslator.pas

@@ -152 +152 @@
     //ShowMessage(ExtractFileDir(Application.ExeName) +
     //  DirectorySeparator + 'Languages' + ' ' + '*.' + LocaleShort + '.po');
-    FileList := FindAllFiles(ExtractFileDir(Application.ExeName) +
-      DirectorySeparator + 'Languages', '*.' + LocaleShort + '.po');
+    FileList := FindAllFiles(ExtractFileDir(UTF8Encode(Application.ExeName)) +
+      DirectorySeparator + FPOFilesFolder, '*.' + LocaleShort + '.po');
     for I := 0 to FileList.Count - 1 do begin
       FileName := FileList[I];