Translate more strings

po/mod4.en.po

@@ -1,9 +1,12 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8"
-"Last-Translator: bitsbb01\n"
+"Content-Type: text/plain; charset=UTF-8Last-Translator: bitsbb01\n"
 "Language: en\n"
 
+#: common.powarning
+msgid "경고"
+msgstr "Warning"
+
 #: mainform.modoff
 msgid "모드 꺼짐"
 msgstr "Mod deactivated"
@@ -17,6 +20,27 @@ msgstr "%0:s mod activated"
 msgid "발견된 모드가 없습니다."
 msgstr "No mods detected."
 
+#: settings.dlgconfirm
+msgid "확인"
+msgstr "Confirm"
+
+#: settings.pocantfindreg
+msgid "레지스트리로 제로아워 찾기 실패, Generals.exe를 직접 골라주세요."
+msgstr "Failed to find Zero Hour folder via registry, please select Generals.exe manually."
+
+#: settings.podoesnotexist
+msgctxt "settings.podoesnotexist"
+msgid "가 존재하지 않음!"
+msgstr "doesn't exist!"
+
+#: settings.poexefile
+msgid "Exe파일|*.exe"
+msgstr "Executable files|*.exe"
+
+#: settings.usethefollowingzhpath
+msgid "다음 제로아워 경로를 사용하겠습니까?:"
+msgstr "Use the following Zero Hour folder?:"
+
 #: tformmain.btnmod.caption
 msgid "모드AI활성화"
 msgstr "Enable Mod AI"

po/mod4.pot

@@ -1,6 +1,10 @@
 msgid ""
 msgstr "Content-Type: text/plain; charset=UTF-8"
 
+#: common.powarning
+msgid "경고"
+msgstr ""
+
 #: mainform.modoff
 msgid "모드 꺼짐"
 msgstr ""
@@ -14,6 +18,27 @@ msgstr ""
 msgid "발견된 모드가 없습니다."
 msgstr ""
 
+#: settings.dlgconfirm
+msgid "확인"
+msgstr ""
+
+#: settings.pocantfindreg
+msgid "레지스트리로 제로아워 찾기 실패, Generals.exe를 직접 골라주세요."
+msgstr ""
+
+#: settings.podoesnotexist
+msgctxt "settings.podoesnotexist"
+msgid "가 존재하지 않음!"
+msgstr ""
+
+#: settings.poexefile
+msgid "Exe파일|*.exe"
+msgstr ""
+
+#: settings.usethefollowingzhpath
+msgid "다음 제로아워 경로를 사용하겠습니까?:"
+msgstr ""
+
 #: tformmain.btnmod.caption
 msgid "모드AI활성화"
 msgstr ""

src/common.pas

@@ -11,12 +11,15 @@ interface
 procedure Warning( t:string );
 function path_join( a: string; b:string ): string;
 
+resourcestring
+  PoWarning = '경고';
+
 implementation
 
 // show warning message
 procedure Warning( t:string );
 begin
-  Application.MessageBox( PChar(t), '경고', MB_ICONWARNING );
+  Application.MessageBox( PChar(t), PChar(PoWarning), MB_ICONWARNING );
 end;
 
 function path_join( a:string; b:string ): string;

src/settings.pas

@@ -42,6 +42,13 @@  TSettings = class
     game_dir: string read GetGameDir write SetGameDir;
 end;
 
+resourcestring
+  DlgConfirm = '확인';
+  UseTheFollowingZhPath = '다음 제로아워 경로를 사용하겠습니까?:';
+  PoExeFile = 'Exe파일|*.exe';
+  PoDoesNotExist = '가 존재하지 않음!';
+  PoCantFindReg = '레지스트리로 제로아워 찾기 실패, Generals.exe를 직접 골라주세요.';
+
 implementation
 
 constructor TSettings.create;
@@ -88,7 +95,7 @@ function TSettings.GetInstallDir: string;
   if( FileExists( result ) ) then
     begin
       // Ask user confirmation
-       if MessageDlg( '확인', '다음 제로아워 경로를 사용하겠습니까?:' + sLineBreak + result,
+       if MessageDlg( DlgConfirm, UseTheFollowingZhPath + sLineBreak + result,
          mtConfirmation, [mbYes, mbNo],0) = mrYes
        then
          begin
@@ -104,7 +111,7 @@ function TSettings.GetInstallDir: string;
   try
     diag := TOpenDialog.create( nil );
     diag.Options := [ofFileMustExist];
-    diag.Filter := 'Exe파일|*.exe';
+    diag.Filter := PoExeFile;
     if diag.Execute then
       begin
         filename := diag.Filename;
@@ -146,7 +153,7 @@ procedure TSettings.GetDirs();
   // game_exe is the only parameter that is not checked by other routines.
   // checking it here...
   if( not FileExists( game_exe ) ) then
-    Warning( game_exe + '가 존재하지 않음!' );
+    Warning( game_exe + PoDoesNotExist );
 end;
 
 function TSettings.GetGameDir(): string;
@@ -210,7 +217,7 @@ function TSettings.FindGeneralsExe(): string;
     reg.RootKey := HKEY_LOCAL_MACHINE;
     Result := ResolveZH(reg);
     if Result = '' then
-      Warning( '레지스트리로 제로아워 찾기 실패, Generals.exe를 직접 골라주세요.' );
+      Warning( PoCantFindReg );
   finally
     reg.Free;
   end;