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
|
