[Lngcompiler-commits] CVS: lngcompiler LngForm.pas,1.26,1.27

[Maxim M. <max...@us...>]

Update of /cvsroot/lngcompiler/lngcompiler
In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv14387

Modified Files:
	LngForm.pas 
Log Message:
Added Japanese

Index: LngForm.pas
===================================================================
RCS file: /cvsroot/lngcompiler/lngcompiler/LngForm.pas,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** LngForm.pas	30 Jun 2008 14:12:02 -0000	1.26
--- LngForm.pas	24 Sep 2009 09:25:07 -0000	1.27
***************
*** 765,768 ****
--- 765,769 ----
    DoAdd('Azeri',        37, TURKISH_CHARSET);
    DoAdd('Korean',       38, HANGEUL_CHARSET);
+   DoAdd('Japanese',     39, SHIFTJIS_CHARSET);
  end;
  
***************
*** 1466,1477 ****
    LngList := TList.Create;
    Errors := TStringList.Create;
-   LoadSettings;
- //  Decompile;
-   if (fMasterFile = '') or (not FileExists(fMasterFile))
-     then begin
-            bBrowseMasterClick(bBrowseMaster);
-            if fMasterFile = '' then Halt;
-          end
-     else SetMaster(AddFileDir(fMasterFile, WDir));
  end;
  
--- 1467,1470 ----
***************
*** 2130,2133 ****
--- 2123,2136 ----
    if Activated then Exit;
    Activated := True;
+ 
+   LoadSettings;
+   if (fMasterFile = '') or (not FileExists(fMasterFile))
+     then begin
+            bBrowseMasterClick(bBrowseMaster);
+            if fMasterFile = '' then Halt;
+          end
+     else SetMaster(AddFileDir(fMasterFile, WDir));
+ 
+ 
    if BatchMode then
    begin