(* * CDDL HEADER START * * gfgfgfg *) unit Language; {$mode objfpc}{$H+} interface uses IniFiles, UfrmLogin, UdmNetwork, UfrmInitialize, UfrmMain, UfrmDrawSettings, UfrmConfirmation, UfrmMoveSettings, UfrmElevateSettings, UfrmHueSettings, UfrmBoundaries, UfrmVirtualLayer, UfrmFilter, UfrmLightlevel, UfrmRadar, UfrmAccountControl, UfrmEditAccount, UfrmRegionControl, UfrmLargeScaleCommand, UfrmAbout, UGameResources, UfrmFillSettings, UfrmSelectionSettings, UfrmSurfElevateSettings, UfrmSurfStretchSettings, UfrmSurfSmoothSettings; procedure LanguageLoad(form: TfrmLogin; lang: string; path: string); procedure LanguageSet(index: Integer); function LanguageGetName() : string; procedure ReloadLanguageTranslation(); procedure LanguageTranslate(form: TfrmLogin); procedure LanguageTranslate(form: TfrmInitialize; unet: TdmNetwork; resm: TGameResourceManager); procedure LanguageTranslate(form: TfrmMain); procedure LanguageTranslate(form: TfrmConfirmation); procedure LanguageTranslate(form: TfrmSelectionSettings); procedure LanguageTranslate(form: TfrmMoveSettings); procedure LanguageTranslate(form: TfrmElevateSettings); procedure LanguageTranslate(form: TfrmSurfElevateSettings); procedure LanguageTranslate(form: TfrmSurfStretchSettings); procedure LanguageTranslate(form: TfrmSurfSmoothSettings); procedure LanguageTranslate(form: TfrmDrawSettings); procedure LanguageTranslate(form: TfrmHueSettings); procedure LanguageTranslate(form: TfrmFillSettings); procedure LanguageTranslate(form: TfrmVirtualLayer); procedure LanguageTranslate(form: TfrmBoundaries); procedure LanguageTranslate(form: TfrmFilter); procedure LanguageTranslate(form: TfrmLightlevel); procedure LanguageTranslate(form: TfrmRadarMap); procedure LanguageTranslate(form: TfrmAccountControl); procedure LanguageTranslate(form: TfrmEditAccount); procedure LanguageTranslate(form: TfrmRegionControl); procedure LanguageTranslate(form: TfrmLargeScaleCommand); procedure LanguageTranslate(form: TfrmAbout); function GetParseErText(key: string) : string; implementation uses SysUtils, Classes, LConvEncoding, Menus; var LangPath : string; LangFile : TIniFile; LangIndex: Integer; LangFlags: array of Integer; LangAbbrs: array of string; Languages: array of string; LangFiles: array of string; CodePages: array of Integer; procedure LanguageLoad(form: TfrmLogin; lang: string; path: string); var langSize : Integer; nodeIndex: Integer; tempIndex: Integer; searchRec: TSearchRec; flags: array of Integer; abbrs: array of string; langs: array of string; files: array of string; pages: array of Integer; begin LangPath := path; LangIndex:= -1; LangSize := -1; if FindFirst(LangPath+'*.ini', faAnyFile, searchRec) = 0 then begin repeat inc(LangSize); SetLength(flags, LangSize+1); SetLength(abbrs, LangSize+1); SetLength(langs, LangSize+1); SetLength(files, LangSize+1); SetLength(pages, LangSize+1); files[langSize] := CP1251ToUTF8(searchRec.Name); LangFile := TIniFile.Create(LangPath + files[langSize]); flags[langSize] := LangFile.ReadInteger('info', 'LangFlag', -1); abbrs[langSize] := LangFile.ReadString( 'info', 'LangAbbr', ''); langs[langSize] := LangFile.ReadString( 'info', 'Language', ''); pages[langSize] := LangFile.ReadInteger('info', 'CodePage', 1250); LangFile.Free; LangFile:=nil; if ((flags[langSize] < 100) or (flags[langSize] > 107)) then flags[langSize] := 99; if ((LowerCase(abbrs[langSize]) = 'rus') or (LowerCase(langs[langSize]) = 'русский')) then form.cbLanguage.Items.Insert(0, files[langSize]) else if ((LowerCase(abbrs[langSize]) = 'eng') or (LowerCase(langs[langSize]) = 'english')) then if form.cbLanguage.Items.Count > 1 then form.cbLanguage.Items.Insert(1, files[langSize]) else form.cbLanguage.Items.Insert(0, files[langSize]) else form.cbLanguage.Items.Add(files[langSize]); until FindNext(searchRec) <> 0; end; FindClose(searchRec); SetLength(LangFlags, LangSize+1); SetLength(LangAbbrs, LangSize+1); SetLength(Languages, LangSize+1); SetLength(CodePages, LangSize+1); SetLength(LangFiles, LangSize+1); for nodeIndex := 0 to langSize do for tempIndex := 0 to langSize do if form.cbLanguage.Items[nodeIndex] = files[tempIndex] then begin LangFlags[nodeIndex] := flags[tempIndex]; LangAbbrs[nodeIndex] := abbrs[tempIndex]; Languages[nodeIndex] := langs[tempIndex]; CodePages[nodeIndex] := pages[tempIndex]; LangFiles[nodeIndex] := files[tempIndex]; form.cbLanguage.Items[nodeIndex] := UpCase(LangAbbrs[nodeIndex]); if Languages[nodeIndex] = lang then begin LangIndex := nodeIndex; form.cbLanguage.ItemIndex := nodeIndex; form.cbLanguageChange(nil); end; end; if LangIndex < 0 then begin LangIndex := 0; form.cbLanguage.ItemIndex := 0; form.cbLanguageChange(nil); end; SetLength(flags, 0); SetLength(abbrs, 0); SetLength(langs, 0); SetLength(files, 0); SetLength(pages, 0); end; procedure LanguageSet(index: Integer); begin LangIndex := index; if (LangFile <> nil) then LangFile.Free; LangFile := TIniFile.Create(LangPath + LangFiles[LangIndex]); end; function LanguageGetName() : string; begin Result := Languages[LangIndex]; end; function GetText(section : string; key: string) : string; var text : string; begin text := LangFile.ReadString(section, key, ''); if (text <> '') then result := text else result := Format('%%%%[%s]%s%%%%', [section, key]); end; procedure ReloadLanguageTranslation(); begin //LangFile.Free; //LanguageSet(LangIndex); // LanguageTranslate(frmLogin); LanguageTranslate(frmInitialize, dmNetwork, nil); LanguageTranslate(frmMain); LanguageTranslate(frmConfirmation); LanguageTranslate(frmSelectionSettings); LanguageTranslate(frmMoveSettings); LanguageTranslate(frmElevateSettings); LanguageTranslate(frmSurfElevateSettings); LanguageTranslate(frmSurfStretchSettings); LanguageTranslate(frmSurfSmoothSettings); LanguageTranslate(frmDrawSettings); LanguageTranslate(frmHueSettings); LanguageTranslate(frmFillSettings); LanguageTranslate(frmVirtualLayer); LanguageTranslate(frmBoundaries); LanguageTranslate(frmFilter); LanguageTranslate(frmLightlevel); LanguageTranslate(frmRadarMap); LanguageTranslate(frmAccountControl); LanguageTranslate(frmEditAccount); LanguageTranslate(frmRegionControl); LanguageTranslate(frmLargeScaleCommand); LanguageTranslate(frmAbout); end; // ----------------------------------------------------------------------------= procedure LanguageTranslate(form: TfrmLogin); begin form.gbConnection.Caption := GetText('Login', 'ConnectionSettings'); form.lblHost.Caption := GetText('Login', 'Server'); form.lblUsername.Caption := GetText('Login', 'Account'); form.lblPassword.Caption := GetText('Login', 'Password'); form.gbData.Caption := GetText('Login', 'MulFiles'); form.lblData.Caption := GetText('Login', 'MulFilesDesc'); form.edData.DialogTitle := form.lblData.Caption; form.gbBaner.Caption := GetText('Login', 'Project'); form.imgBaner.Hint := GetText('Login', 'WebSite'); form.btnOK.Caption := GetText('Login', 'Connect'); form.btnCancel.Caption := GetText('Login', 'Exit'); form.gbProfiles.Caption := GetText('Login', 'Profile'); form.btnSaveProfile.Hint := GetText('Login', 'SaveProfile'); form.btnDefaultOptions.Hint := GetText('Login', 'ClearProfile'); form.btnDeleteProfile.Hint := GetText('Login', 'DeleteProfile'); form.SaveProfileCaption := GetText('Login', 'SaveProfileCaption'); form.SaveProfileDescription := GetText('Login', 'SaveProfileDescription'); end; procedure LanguageTranslate(form: TfrmInitialize; unet: TdmNetwork; resm: TGameResourceManager); begin if form <> nil then begin form.SplashConnection := GetText('Splash', 'Connection'); form.SplashAuthorization := GetText('Splash', 'Authorization'); form.SplashInicialization := GetText('Splash', 'Inicialization'); form.SplashLoading := GetText('Splash', 'Loading'); form.SplashUpdates := GetText('Splash', 'Updates'); form.SplashSuspend := GetText('Splash', 'Suspend'); form.SplashUpdatingMiniMap := GetText('Splash', 'UpdatingMiniMap'); end; if unet <> nil then begin unet.ErrorCaption := GetText('Splash', 'ErrorCaption'); unet.WrongServer := GetText('Splash', 'WrongServer'); unet.WrongAccount := GetText('Splash', 'WrongAccount'); unet.WrongPassword := GetText('Splash', 'WrongPassword'); unet.NoAccess := GetText('Splash', 'NoAccess'); unet.AlreadyLogined := GetText('Splash', 'AlreadyLogined'); unet.TCPErrorCaption := GetText('Splash', 'TCPErrorCaption'); unet.UnsuportedVersion := GetText('Splash', 'UnsuportedVersion'); end; if resm <> nil then begin resm.lbDlgErrorFilePathCaption := GetText('Splash', 'DlgErrorFilePathCaption'); resm.lbDlgErrorFilePathMsg := GetText('Splash', 'DlgErrorFilePathMsg'); end; end; procedure LanguageTranslate(form: TfrmMain); var index: Integer; entry: TMenuItem; begin form.lbFormTitleProfile := GetText('Login', 'Account'); form.lbFormTitleAccount := GetText('Login', 'Profile'); // ---------- form.mnuCentrED.Caption := GetText('MainMenu', 'File'); form.mnuCentrED.Hint := GetText('MainMenu', 'FileHint'); form.mnuMakeScreenShot.Caption := GetText('MainMenu', 'FileScreenShoot'); form.mnuMakeScreenShot.Hint := GetText('MainMenu', 'FileScreenShootHint'); form.mnuReloadGroups.Caption := GetText('MainMenu', 'FileReloadGroups'); form.mnuReloadGroups.Hint := GetText('MainMenu', 'FileReloadGroupsHint'); form.mnuSetLanguage.Caption := GetText('MainMenu', 'FileSetLanguage'); form.mnuSetLanguage.Hint := GetText('MainMenu', 'FileSetLanguageHint'); form.mnuSetLanguage.ImageIndex := LangFlags[LangIndex]; form.mnuSetLanguage.Tag := PtrInt(LangIndex); form.mnuSetLanguage.Clear; for index:= 0 to length(Languages)-1 do begin entry:= TMenuItem.Create(form); entry.Caption := Languages[index]; entry.ImageIndex := LangFlags[index]; entry.Tag := PtrInt(index); entry.OnClick := @form.mnuSetLanguageClick; form.mnuSetLanguage.Add(entry); end; form.mnuDisconnect.Caption := GetText('MainMenu', 'FileDisconnetct'); form.mnuDisconnect.Hint := GetText('MainMenu', 'FileDisconnetctHint'); form.mnuExit.Caption := GetText('MainMenu', 'FileExit'); form.mnuExit.Hint := GetText('MainMenu', 'FileExitHint'); form.mnuAdministration.Caption := GetText('MainMenu', 'Admin'); form.mnuAdministration.Hint := GetText('MainMenu', 'AdminHint'); form.mnuFlush.Caption := GetText('MainMenu', 'AdminFlush'); form.mnuFlush.Hint := GetText('MainMenu', 'AdminFlushHint'); form.mnuShutdown.Caption := GetText('MainMenu', 'AdminShutDown'); form.mnuShutdown.Hint := GetText('MainMenu', 'AdminShutDownHint'); form.mnuAccountControl.Caption := GetText('MainMenu', 'AdminAccounts'); form.mnuAccountControl.Hint := GetText('MainMenu', 'AdminAccountsHint'); form.mnuRegionControl.Caption := GetText('MainMenu', 'AdminRegions'); form.mnuRegionControl.Hint := GetText('MainMenu', 'AdminRegionsHint'); form.mnuLargeScaleCommands.Caption := GetText('MainMenu', 'AdminCommands'); form.mnuLargeScaleCommands.Hint := GetText('MainMenu', 'AdminCommandsHint'); form.mnuSettings.Caption := GetText('MainMenu', 'Settings'); form.mnuSettings.Hint := GetText('MainMenu', 'SettingsHint'); form.mnuWindowedMode.Caption := GetText('MainMenu', 'SettingsWindowed'); form.mnuWindowedMode.Hint := GetText('MainMenu', 'SettingsWindowedHint'); form.mnuTileList.Caption := GetText('MainMenu', 'SettingsMainTileList'); form.mnuTileList.Hint := GetText('MainMenu', 'SettingsMainTileListHint'); form.mnuTileListTable.Caption := GetText('MainMenu', 'SettingsTileListTable'); form.mnuTileListTable.Hint := GetText('MainMenu', 'SettingsTileListTableHint'); form.mnuTileListSmall.Caption := GetText('MainMenu', 'SettingsTileListSmall'); form.mnuTileListSmall.Hint := GetText('MainMenu', 'SettingsTileListSmallHint'); form.mnuTileListMidle.Caption := GetText('MainMenu', 'SettingsTileListMidle'); form.mnuTileListMidle.Hint := GetText('MainMenu', 'SettingsTileListMidleHint'); form.mnuTileListLarge.Caption := GetText('MainMenu', 'SettingsTileListLarge'); form.mnuTileListLarge.Hint := GetText('MainMenu', 'SettingsTileListLargeHint'); form.mnuTileListStretch.Caption := GetText('MainMenu', 'SettingsTileListStretch'); form.mnuTileListStretch.Hint := GetText('MainMenu', 'SettingsTileListStretchHint'); form.mnuTileListClip.Caption := GetText('MainMenu', 'SettingsTileListClip'); form.mnuTileListClip.Hint := GetText('MainMenu', 'SettingsTileListClipHint'); form.mnuTileListCentre.Caption := GetText('MainMenu', 'SettingsTileListCentre'); form.mnuTileListCentre.Hint := GetText('MainMenu', 'SettingsTileListCentreHint'); form.mnuTileListDrawInfo.Caption := GetText('MainMenu', 'SettingsTileListDrawInfo'); form.mnuTileListDrawInfo.Hint := GetText('MainMenu', 'SettingsTileListDrawInfoHint'); form.mnuMiscTileList.Caption := GetText('MainMenu', 'SettingsMiscTileList'); form.mnuMiscTileList.Hint := GetText('MainMenu', 'SettingsMiscTileListHint'); form.mnuMiscTileListTable.Caption := GetText('MainMenu', 'SettingsTileListTable'); form.mnuMiscTileListTable.Hint := GetText('MainMenu', 'SettingsTileListTableHint'); form.mnuMiscTileListSmall.Caption := GetText('MainMenu', 'SettingsTileListSmall'); form.mnuMiscTileListSmall.Hint := GetText('MainMenu', 'SettingsTileListSmallHint'); form.mnuMiscTileListMidle.Caption := GetText('MainMenu', 'SettingsTileListMidle'); form.mnuMiscTileListMidle.Hint := GetText('MainMenu', 'SettingsTileListMidleHint'); form.mnuMiscTileListLarge.Caption := GetText('MainMenu', 'SettingsTileListLarge'); form.mnuMiscTileListLarge.Hint := GetText('MainMenu', 'SettingsTileListLargeHint'); form.mnuMiscTileListStretch.Caption:= GetText('MainMenu', 'SettingsTileListStretch'); form.mnuMiscTileListStretch.Hint := GetText('MainMenu', 'SettingsTileListStretchHint'); form.mnuMiscTileListClip.Caption := GetText('MainMenu', 'SettingsTileListClip'); form.mnuMiscTileListClip.Hint := GetText('MainMenu', 'SettingsTileListClipHint'); form.mnuMiscTileListCentre.Caption := GetText('MainMenu', 'SettingsTileListCentre'); form.mnuMiscTileListCentre.Hint := GetText('MainMenu', 'SettingsTileListCentreHint'); form.mnuMiscTileListDrawInfo.Caption:=GetText('MainMenu', 'SettingsTileListDrawInfo'); form.mnuMiscTileListDrawInfo.Hint := GetText('MainMenu', 'SettingsTileListDrawInfoHint'); form.mnuAutoHideGroupList.Caption := GetText('MainMenu', 'SettingsHideGroups'); form.mnuAutoHideGroupList.Hint := GetText('MainMenu', 'SettingsHideGroupsHint'); form.mnuAutoHideRandomList.Caption := GetText('MainMenu', 'SettingsHideRandom'); form.mnuAutoHideRandomList.Hint := GetText('MainMenu', 'SettingsHideRandomHint'); form.mnuAutoShowFilterWindow.Caption:=GetText('MainMenu', 'SettingsAutoShowFilter'); form.mnuAutoShowFilterWindow.Hint := GetText('MainMenu', 'SettingsAutoShowFilterHint'); form.mnuShowAnimations.Caption := GetText('MainMenu', 'SettingsPlayAnimation'); form.mnuShowAnimations.Hint := GetText('MainMenu', 'SettingsPlayAnimationHint'); form.mnuSecurityQuestion.Caption := GetText('MainMenu', 'SettingsQuestion'); form.mnuSecurityQuestion.Hint := GetText('MainMenu', 'SettingsQuestionHint'); form.mnuWhiteBackground.Caption := GetText('MainMenu', 'SettingsWhiteBack'); form.mnuWhiteBackground.Hint := GetText('MainMenu', 'SettingsWhiteBackHint'); form.mnuHelp.Caption := GetText('MainMenu', 'Help'); form.mnuHelp.Hint := GetText('MainMenu', 'HelpHint'); form.mnuDocs.Caption := GetText('MainMenu', 'HelpDocs'); form.mnuDocs.Hint := GetText('MainMenu', 'HelpDocsHint'); form.mnuSupport.Caption := GetText('MainMenu', 'HelpSupport'); form.mnuSupport.Hint := GetText('MainMenu', 'HelpSupportHint'); form.mnuEngCom.Caption := GetText('MainMenu', 'HelpSupportEng'); form.mnuEngCom.Hint := GetText('MainMenu', 'HelpSupportEngHint'); form.mnuEng2Com.Caption := GetText('MainMenu', 'HelpSupportEng2'); form.mnuEng2Com.Hint := GetText('MainMenu', 'HelpSupportEng2Hint'); form.mnuRusCom.Caption := GetText('MainMenu', 'HelpSupportRus'); form.mnuRusCom.Hint := GetText('MainMenu', 'HelpSupportRusHint'); form.mnuAbout.Caption := GetText('MainMenu', 'HelpAbout'); form.mnuAbout.Hint := GetText('MainMenu', 'HelpAboutHint'); // ---------- form.lbFormTitleAccount := GetText('MainForm', 'FormTitleAccount'); form.lbFormTitleProfile := GetText('MainForm', 'FormTitleProfile'); form.lblChatHeaderCaption.Caption := GetText('MainForm', 'BottomChatHeader'); form.lblTileInfoWLabel.Caption := GetText('MainForm', 'BottomCursorWidth'); form.lblTileInfoHLabel.Caption := GetText('MainForm', 'BottomCursorHeight'); form.lbBottomCursorVLayer1 := GetText('MainForm', 'BottomCursorVLayer1'); form.lbBottomCursorVLayer2 := GetText('MainForm', 'BottomCursorVLayer2'); form.lbBottomCursorItemId := GetText('MainForm', 'BottomCursorItemId'); form.lbBottomCursorLandId := GetText('MainForm', 'BottomCursorLandId'); form.lbBottomCursorPosX := GetText('MainForm', 'BottomCursorPosX'); form.lbBottomCursorPosY := GetText('MainForm', 'BottomCursorPosY'); form.lbBottomCursorPosZ := GetText('MainForm', 'BottomCursorPosZ'); form.lbBottomCursorItemHue := GetText('MainForm', 'BottomCursorItemHue'); form.vstChat.Header.Columns[0].Text:= GetText('MainForm', 'BottomChatTime'); form.vstChat.Header.Columns[1].Text:= GetText('MainForm', 'BottomChatSender'); form.vstChat.Header.Columns[2].Text:= GetText('MainForm', 'BottomChatMessage'); form.mnuGrabTileID.Caption := GetText('MainForm', 'GrabTileId'); form.mnuGrabTileID.Hint := GetText('MainForm', 'GrabTileIdHint'); form.mnuGrabHue.Caption := GetText('MainForm', 'GrabTileHue'); form.mnuGrabHue.Hint := GetText('MainForm', 'GrabTileHueHint'); form.mnuGrabFilterTileID.Caption := GetText('MainForm', 'GrabTileAddIdToFilter'); form.mnuGrabFilterTileID.Hint := GetText('MainForm', 'GrabTileAddIdToFilterHint'); form.mnuGrabFilterHue.Caption := GetText('MainForm', 'GrabTileAddHueToFilter'); form.mnuGrabFilterHue.Hint := GetText('MainForm', 'GrabTileAddHueToFilterHint'); form.mnuGrabVirtualLayerZ.Caption := GetText('MainForm', 'GrabTileSetVLayer'); form.mnuGrabVirtualLayerZ.Hint := GetText('MainForm', 'GrabTileSetVLayerHint'); form.mnuGrabBoundaries.Caption := GetText('MainForm', 'GrabBoundaries'); form.mnuGrabBoundaries.Hint := GetText('MainForm', 'GrabBoundariesHint'); form.mnuGrabBoundMinZ.Caption := GetText('MainForm', 'GrabBoundMinZ'); form.mnuGrabBoundMinZ.Hint := GetText('MainForm', 'GrabBoundMinZHint'); form.mnuGrabBoundMaxZ.Caption := GetText('MainForm', 'GrabBoundMaxZ'); form.mnuGrabBoundMaxZ.Hint := GetText('MainForm', 'GrabBoundMaxZHint'); form.mnuGrabBoundMinX.Caption := GetText('MainForm', 'GrabBoundMinX'); form.mnuGrabBoundMinX.Hint := GetText('MainForm', 'GrabBoundMinXHint'); form.mnuGrabBoundMaxX.Caption := GetText('MainForm', 'GrabBoundMaxX'); form.mnuGrabBoundMaxX.Hint := GetText('MainForm', 'GrabBoundMaxXHint'); form.mnuGrabBoundMinY.Caption := GetText('MainForm', 'GrabBoundMinY'); form.mnuGrabBoundMinY.Hint := GetText('MainForm', 'GrabBoundMinYHint'); form.mnuGrabBoundMaxY.Caption := GetText('MainForm', 'GrabBoundMaxY'); form.mnuGrabBoundMaxY.Hint := GetText('MainForm', 'GrabBoundMaxYHint'); form.mnuSelect.Caption := GetText('MainForm', 'ToolsSelect'); form.mnuSelect.Hint := GetText('MainForm', 'ToolsSelectHint'); form.mnuSelection.Caption := GetText('MainForm', 'ToolsSelection'); form.mnuSelection.Hint := GetText('MainForm', 'ToolsSelectionHint'); form.mnuMove.Caption := GetText('MainForm', 'ToolsMove'); form.mnuMove.Hint := GetText('MainForm', 'ToolsMoveHint'); form.mnuElevate.Caption := GetText('MainForm', 'ToolsElevate'); form.mnuElevate.Hint := GetText('MainForm', 'ToolsElevateHint'); form.mnuSurfElevate.Caption := GetText('MainForm', 'ToolsSurfElevate'); form.mnuSurfElevate.Hint := GetText('MainForm', 'ToolsSurfElevateHint'); form.mnuSurfStretch.Caption := GetText('MainForm', 'ToolsSurfStretch'); form.mnuSurfStretch.Hint := GetText('MainForm', 'ToolsSurfStretchHint'); form.mnuSurfSmooth.Caption := GetText('MainForm', 'ToolsSurfSmooth'); form.mnuSurfSmooth.Hint := GetText('MainForm', 'ToolsSurfSmoothHint'); form.mnuDraw.Caption := GetText('MainForm', 'ToolsDraw'); form.mnuDraw.Hint := GetText('MainForm', 'ToolsDrawHint'); form.mnuSetHue.Caption := GetText('MainForm', 'ToolsSetHue'); form.mnuSetHue.Hint := GetText('MainForm', 'ToolsSetHueHint'); form.mnuFill.Caption := GetText('MainForm', 'ToolsFill'); form.mnuFill.Hint := GetText('MainForm', 'ToolsSetFill'); form.mnuDelete.Caption := GetText('MainForm', 'ToolsDelete'); form.mnuDelete.Hint := GetText('MainForm', 'ToolsDeleteHint'); form.mnuVirtualLayer.Caption := GetText('MainForm', 'ToolsVLayer'); form.mnuVirtualLayer.Hint := GetText('MainForm', 'ToolsVLayerHint'); form.mnuBoundaries.Caption := GetText('MainForm', 'ToolsBoundaries'); form.mnuBoundaries.Hint := GetText('MainForm', 'ToolsBoundariesHint'); form.lbDlgWindowedModeSwitchCaption:= GetText('MainForm', 'DlgWindowedModeSwitchCaption'); form.lbDlgWindowedModeSwitch := GetText('MainForm', 'DlgWindowedModeSwitch'); form.lbScreenShotMsg := GetText('MainForm', 'ScreenShotMsg'); form.lbUserLoginedMsg := GetText('MainForm', 'UserLoginedMsg'); form.lbUserLogoutedMsg := GetText('MainForm', 'UserLogoutedMsg'); form.lbDlgGetDcErrCaption := GetText('MainForm', 'DlgGetDcErrCaption'); form.lbDlgGetDcErr := GetText('MainForm', 'DlgGetDcErr'); form.lbDlgFreeDcErrCaption := GetText('MainForm', 'DlgFreeDcErrCaption'); form.lbDlgFreeDcErr := GetText('MainForm', 'DlgFreeDcErr'); form.lbDlgCnangedAccessCaption := GetText('MainForm', 'DlgCnangedAccessCaption'); form.lbDlgCnangedAccess := GetText('MainForm', 'DlgCnangedAccess'); form.lbDlgBlockedAccessCaption := GetText('MainForm', 'DlgBlockedAccessCaption'); form.lbDlgBlockedAccess := GetText('MainForm', 'DlgBlockedAccess'); // ---------- form.tbDisconnect.Hint := GetText('ToolBar', 'DisconnectHint'); form.tbSelect.Hint := GetText('ToolBar', 'SelectHint'); form.tbSelection.Hint := GetText('ToolBar', 'SelectionHint'); form.tbMoveTile.Hint := GetText('ToolBar', 'MoveTileHint'); form.tbElevateTile.Hint := GetText('ToolBar', 'ElevateTileHint'); form.tbSurfElevate.Hint := GetText('ToolBar', 'SurfElevateHint'); form.tbSurfStretch.Hint := GetText('ToolBar', 'SurfStretchHint'); form.tbSurfSmooth.Hint := GetText('ToolBar', 'SurfSmoothHint'); form.tbDrawTile.Hint := GetText('ToolBar', 'DrawTileHint'); form.tbSetHue.Hint := GetText('ToolBar', 'SetHueHint'); form.tbFill.Hint := GetText('ToolBar', 'FillHint'); form.tbDeleteTile.Hint := GetText('ToolBar', 'DeleteTileHint'); form.tbUndo.Hint := GetText('ToolBar', 'UndoHint') + ' (0).'; form.lbToolbarUndo := GetText('ToolBar', 'UndoHint'); form.tbRedo.Hint := GetText('ToolBar', 'RedoHint') + ' (0).'; // form.lbToolbarRedo -- ???????? form.tbVirtualLayer.Hint := GetText('ToolBar', 'VirtualLayerHint'); form.tbBoundaries.Hint := GetText('ToolBar', 'BoundariesHint'); form.tbFilter.Hint := GetText('ToolBar', 'FilterHint'); form.tbTerrain.Hint := GetText('ToolBar', 'TerrainHint'); form.tbStatics.Hint := GetText('ToolBar', 'StaticsHint'); form.tbNoDraw.Hint := GetText('ToolBar', 'NoDrawHint'); form.tbWalkable.Hint := GetText('ToolBar', 'WalkableHint'); form.tbFlat.Hint := GetText('ToolBar', 'FlatHint'); form.tbLightlevel.Hint := GetText('ToolBar', 'LightlevelHint');; form.tbZoom.Hint := GetText('ToolBar', 'ZoomHint'); form.tbRadarMap.Hint := GetText('ToolBar', 'RadarMapHint'); form.mnuShowGrid.Caption := GetText('ToolBar', 'ShowGrid'); form.mnuShowGrid.Hint := GetText('ToolBar', 'ShowGridHint'); form.mnuShowBlocks.Caption := GetText('ToolBar', 'ShowBlocks'); form.mnuShowBlocks.Hint := GetText('ToolBar', 'ShowBlocksHint'); form.mnuShowWalls.Caption := GetText('ToolBar', 'ShowWalls'); form.mnuShowWalls.Hint := GetText('ToolBar', 'ShowWallsHint'); form.mnuShowBridges.Caption := GetText('ToolBar', 'ShowBridges'); form.mnuShowBridges.Hint := GetText('ToolBar', 'ShowBridgesHint'); form.mnuShowSurfaces.Caption := GetText('ToolBar', 'ShowSurfaces'); form.mnuShowSurfaces.Hint := GetText('ToolBar', 'ShowSurfacesHint'); form.mnuShowRoofs.Caption := GetText('ToolBar', 'ShowRoofs'); form.mnuShowRoofs.Hint := GetText('ToolBar', 'ShowRoofsHint'); form.mnuShowFoliage.Caption := GetText('ToolBar', 'ShowFoliage'); form.mnuShowFoliage.Hint := GetText('ToolBar', 'ShowFoliageHint'); form.mnuShowWater.Caption := GetText('ToolBar', 'ShowWater'); form.mnuShowWater.Hint := GetText('ToolBar', 'ShowWaterHint'); form.mnuShowNoDrawTiles.Caption := GetText('ToolBar', 'ShowNoDrawTiles'); form.mnuShowNoDrawTiles.Hint := GetText('ToolBar', 'ShowNoDrawTilesHint'); form.mnuShowLightSource.Caption := GetText('ToolBar', 'ShowLightSource'); form.mnuShowLightSource.Hint := GetText('ToolBar', 'ShowLightSourceHint'); form.mnuFlatShowHeight.Caption := GetText('ToolBar', 'FlatShowHeight'); form.mnuFlatShowHeight.Hint := GetText('ToolBar', 'FlatShowHeightHint'); form.mnuZoom025.Caption := GetText('ToolBar', 'Zoom025'); form.mnuZoom025.Hint := GetText('ToolBar', 'Zoom025Hint'); form.mnuZoom033.Caption := GetText('ToolBar', 'Zoom033'); form.mnuZoom033.Hint := GetText('ToolBar', 'Zoom033Hint'); form.mnuZoom050.Caption := GetText('ToolBar', 'Zoom050'); form.mnuZoom050.Hint := GetText('ToolBar', 'Zoom050Hint'); form.mnuZoom075.Caption := GetText('ToolBar', 'Zoom075'); form.mnuZoom075.Hint := GetText('ToolBar', 'Zoom075Hint'); form.mnuZoom100.Caption := GetText('ToolBar', 'Zoom100'); form.mnuZoom100.Hint := GetText('ToolBar', 'Zoom100Hint'); form.mnuZoom150.Caption := GetText('ToolBar', 'Zoom150'); form.mnuZoom150.Hint := GetText('ToolBar', 'Zoom150Hint'); form.mnuZoom200.Caption := GetText('ToolBar', 'Zoom200'); form.mnuZoom200.Hint := GetText('ToolBar', 'Zoom200Hint'); form.mnuZoom300.Caption := GetText('ToolBar', 'Zoom300'); form.mnuZoom300.Hint := GetText('ToolBar', 'Zoom300Hint'); form.mnuZoom400.Caption := GetText('ToolBar', 'Zoom400'); form.mnuZoom400.Hint := GetText('ToolBar', 'Zoom400Hint'); // ---------- form.tsTiles.Caption := GetText('TabTiles', 'TabPage'); form.cbTerrain.Caption := GetText('TabTiles', 'Lands'); form.cbTerrain.Hint := GetText('TabTiles', 'LandsHint'); form.cbStatics.Caption := GetText('TabTiles', 'Items'); form.cbStatics.Hint := GetText('TabTiles', 'ItemsHint'); form.lblFilter.Caption := GetText('TabTiles', 'edFilterLabel'); form.edFilter.Hint := GetText('TabTiles', 'edFilterHint'); form.vdtTiles.Header.Columns[0].Text := GetText('TabTiles', 'TilesId'); form.vdtTiles.Header.Columns[1].Text := GetText('TabTiles', 'TilesImage'); form.vdtTiles.Header.Columns[2].Text := GetText('TabTiles', 'TilesName'); form.mnuAddToRandom.Caption := GetText('TabTiles', 'TilesAddToRandom'); form.mnuAddToRandom.Hint := GetText('TabTiles', 'TilesAddToRandomHint'); form.gbRandom.Caption := GetText('TabTiles', 'RandomBlock'); form.vdtRandom.Header.Columns[0].Text := GetText('TabTiles', 'RandomId'); form.vdtRandom.Header.Columns[1].Text := GetText('TabTiles', 'RandomImage'); form.vdtRandom.Header.Columns[2].Text := GetText('TabTiles', 'RandomName'); form.btnClearRandom.Hint := GetText('TabTiles', 'RandomClearHint'); form.btnDeleteRandom.Hint := GetText('TabTiles', 'RandomRemoveHint'); form.btnAddRandom.Hint := GetText('TabTiles', 'RandomAddHint'); form.btnRandomPresetSave.Hint := GetText('TabTiles', 'RandomSaveHint'); form.btnRandomPresetDelete.Hint := GetText('TabTiles', 'RandomDeleteHint'); form.lbDlgSaveRandPrsCaption := GetText('TabTiles', 'DlgSaveRandPrsCaption'); form.lbDlgSaveRandPrs := GetText('TabTiles', 'DlgSaveRandPrs'); form.lbDlgSearchIdErrCaption := GetText('TabTiles', 'DlgSearchIdErrCaption'); form.lbDlgSearchIdErr := GetText('TabTiles', 'DlgSearchIdErr'); form.lbDlgNotFoundErrCaption := GetText('TabTiles', 'DlgNotFoundErrCaption'); form.lbDlgNotFoundErr := GetText('TabTiles', 'DlgNotFoundErr'); // ---------- form.tsObjects.Caption := GetText('TabObjects', 'TabPage'); // ---------- form.tsNavigation.Caption := GetText('TabNavigation', 'TabPage'); form.vstClients.Header.Columns[1].Text := GetText('TabNavigation', 'ClientsAccounts'); form.vstClients.Header.Columns[2].Text := GetText('TabNavigation', 'ClientsUptime'); form.mnuGoToClient.Caption := GetText('TabNavigation', 'ClientsGoTo'); form.mnuGoToClient.Hint := GetText('TabNavigation', 'ClientsGoToHint'); form.vstLocations.Header.Columns[0].Text := GetText('TabNavigation', 'LocationsPosition'); form.vstLocations.Header.Columns[1].Text := GetText('TabNavigation', 'LocationsName'); form.btnClearLocations.Hint := GetText('TabNavigation', 'LocationsClearHint'); form.btnDeleteLocation.Hint := GetText('TabNavigation', 'LocationsRemoveHint'); form.btnAddLocation.Hint := GetText('TabNavigation', 'LocationsAddHint'); form.gbGoTo.Caption := GetText('TabNavigation', 'GoToBlock'); form.lblX.Caption := GetText('TabNavigation', 'GoToPosX'); form.lblY.Caption := GetText('TabNavigation', 'GoToPosY'); form.btnGoTo.Caption := GetText('TabNavigation', 'GoToButton'); form.btnGoTo.Hint := GetText('TabNavigation', 'GoToButtonHint'); form.lbDlgDelConfCaption := GetText('TabNavigation', 'DlgDelConfCaption'); form.lbDlgDelConf := GetText('TabNavigation', 'DlgDelConf'); form.lbDlgNewQuerryCaption := GetText('TabNavigation', 'DlgNewQuerryCaption'); form.lbDlgNewQuerry := GetText('TabNavigation', 'DlgNewQuerry'); end; procedure LanguageTranslate(form: TfrmConfirmation); begin form.Caption := GetText('ConfForm', 'FormTitle'); form.btnYes.Caption := GetText('ConfForm', 'Yes'); form.btnNo.Caption := GetText('ConfForm', 'No'); end; procedure LanguageTranslate(form: TfrmSelectionSettings); begin form.Caption := GetText('SelnForm', 'FormTitle'); // TODO end; procedure LanguageTranslate(form: TfrmMoveSettings); begin form.Caption := GetText('MoveForm', 'FormTitle'); form.seOffset.Hint := GetText('MoveForm', 'OffsetHint'); form.cbAsk.Caption := GetText('MoveForm', 'Ask'); form.cbAsk.Hint := GetText('MoveForm', 'AskHint'); form.btnCancel.Caption := GetText('MoveForm', 'Cancel'); form.gbMovment.Caption := GetText('MoveForm', 'Movment'); form.cbLand.Caption := GetText('MoveForm', 'Land'); form.cbLand.Hint := GetText('MoveForm', 'LandHint'); form.cbItem.Caption := GetText('MoveForm', 'Item'); form.cbItem.Hint := GetText('MoveForm', 'ItemHint'); end; procedure LanguageTranslate(form: TfrmElevateSettings); begin form.Caption := GetText('ElevForm', 'FormTitle'); form.rbRaise.Caption := GetText('ElevForm', 'Raise'); form.rbRaise.Hint := GetText('ElevForm', 'RaiseHint'); form.rbLower.Caption := GetText('ElevForm', 'Lower'); form.rbLower.Hint := GetText('ElevForm', 'LowerHint'); form.rbSet.Caption := GetText('ElevForm', 'Set'); form.rbSet.Hint := GetText('ElevForm', 'SetHint'); form.cbRandomHeight.Caption := GetText('ElevForm', 'AddRandom'); form.cbRandomHeight.Hint := GetText('ElevForm', 'AddRandomHint'); end; procedure LanguageTranslate(form: TfrmSurfElevateSettings); begin form.Caption := GetText('SElvForm', 'FormTitle'); // TODO end; procedure LanguageTranslate(form: TfrmSurfStretchSettings); begin form.Caption := GetText('SStrForm', 'FormTitle'); // TODO end; procedure LanguageTranslate(form: TfrmSurfSmoothSettings); begin form.Caption := GetText('SSmtForm', 'FormTitle'); // TODO end; procedure LanguageTranslate(form: TfrmDrawSettings); begin form.Caption := GetText('DrawForm', 'FormTitle'); form.rbTileList.Caption := GetText('DrawForm', 'UseTiles'); form.rbTileList.Hint := GetText('DrawForm', 'UseTilesHint'); form.rbRandom.Caption := GetText('DrawForm', 'UseRandom'); form.rbRandom.Hint := GetText('DrawForm', 'UseRandomHint'); form.cbProbability.Caption := GetText('DrawForm', 'Probability'); form.cbProbability.Hint := GetText('DrawForm', 'ProbabilityHint'); form.cbUseFreeTilesOnly.Caption := GetText('DrawForm', 'FreeTiles'); form.cbUseFreeTilesOnly.Hint := GetText('DrawForm', 'FreeTilesHint'); form.cbUseSurfaceAltitude.Caption := GetText('DrawForm', 'SurfaceAlt'); form.cbUseSurfaceAltitude.Hint := GetText('DrawForm', 'SurfaceAltHint'); form.cbForceAltitude.Caption := GetText('DrawForm', 'ForceAlt'); form.cbForceAltitude.Hint := GetText('DrawForm', 'ForceAltHint'); form.cbRandomHeight.Caption := GetText('DrawForm', 'AddRandomAlt'); form.cbRandomHeight.Hint := GetText('DrawForm', 'AddRandomAltHint'); form.gbHue.Caption := GetText('DrawForm', 'ItemColor'); end; procedure LanguageTranslate(form: TfrmHueSettings); begin form.Caption := GetText('HuesForm', 'FormTitle'); form.cbRandom.Caption := GetText('HuesForm', 'Random'); form.cbRandom.Hint := GetText('HuesForm', 'RandomHint'); form.lblHue.Caption := GetText('HuesForm', 'Color'); form.gbPreview.Caption := GetText('HuesForm', 'PreviewBlock'); form.ShowAll.Caption := GetText('HuesForm', 'ShowAll'); form.ShowAll.Hint := GetText('HuesForm', 'ShowAllHint'); form.lblTileId.Caption := GetText('HuesForm', 'Tile'); form.gbLastUsed.Caption := GetText('HuesForm', 'LastUsedBlock'); form.gbRandom.Caption := GetText('HuesForm', 'RandomBlock'); form.btnAddRandom.Hint := GetText('HuesForm', 'AddPresetHint'); form.btnDeleteRandom.Hint := GetText('HuesForm', 'RemovePresetHint'); form.btnClearRandom.Hint := GetText('HuesForm', 'ClearPresetHint'); form.btnRandomPresetSave.Hint := GetText('HuesForm', 'SavePresetHint'); form.btnRandomPresetDelete.Hint := GetText('HuesForm', 'DeletePresetHint'); form.lbDlgBadColrCaption := GetText('HuesForm', 'DlgBadColrCaption'); form.lbDlgBadColr := GetText('HuesForm', 'DlgBadColr'); form.lbDlgBadTileCaption := GetText('HuesForm', 'DlgBadTileCaption'); form.lbDlgBadTile := GetText('HuesForm', 'DlgBadTile'); form.lbDlgSavePrsCaption := GetText('HuesForm', 'DlgSavePrsCaption'); form.lbDlgSavePrs := GetText('HuesForm', 'DlgSavePrs'); form.lbNoHuesName := GetText('HuesForm', 'NoHuesName'); end; procedure LanguageTranslate(form: TfrmFillSettings); begin form.Caption := GetText('FillForm', 'FormTitle'); form.lblFillType.Caption := GetText('FillForm', 'FillType'); form.cbFillReview.Caption := GetText('FillForm', 'FillReview'); form.cbFillConfirm.Caption := GetText('FillForm', 'FillConfirm'); form.gbHue.Caption := GetText('FillForm', 'ItemColor'); // TODO end; procedure LanguageTranslate(form: TfrmVirtualLayer); begin form.Caption := GetText('VLayForm', 'FormTitle'); form.cbShowLayer.Caption := GetText('VLayForm', 'ShowLayer'); form.cbShowLayer.Hint := GetText('VLayForm', 'ShowLayerHint'); form.cbShowBlocks.Caption := GetText('VLayForm', 'ShowBlocks'); form.cbShowBlocks.Hint := GetText('VLayForm', 'ShowBlocksHint'); end; procedure LanguageTranslate(form: TfrmBoundaries); begin form.Caption := GetText('BounForm', 'FormTitle'); form.GroupBox1.Caption := GetText('BounForm', 'AltBlock');; form.lblMinZ.Caption := GetText('BounForm', 'MinAlt'); form.lblMinZ.Hint := GetText('BounForm', 'MinAltHint'); form.lblMaxZ.Caption := GetText('BounForm', 'MaxAlt'); form.lblMaxZ.Hint := GetText('BounForm', 'MaxAltHint'); form.GroupBox2.Caption := GetText('BounForm', 'XYBlock'); form.lblAxeX.Caption := GetText('BounForm', 'AxeXName'); form.seMinX.Hint := GetText('BounForm', 'MinXHint'); form.seMaxX.Hint := GetText('BounForm', 'MaxXHint'); form.sbClearXbnd.Hint := GetText('BounForm', 'XClearHint'); form.lblAxeY.Caption := GetText('BounForm', 'AxeYName'); form.seMinY.Hint := GetText('BounForm', 'MinYHint'); form.seMaxY.Hint := GetText('BounForm', 'MaxYHint'); form.sbClearYbnd.Hint := GetText('BounForm', 'YClearHint'); end; procedure LanguageTranslate(form: TfrmFilter); begin form.Caption := GetText('FiltForm', 'FormTitle'); form.rgFilterType.Caption := GetText('FiltForm', 'FilterBlock'); form.rgFilterType.Items[0] := GetText('FiltForm', 'FilterType1'); form.rgFilterType.Items[1] := GetText('FiltForm', 'FilterType2'); form.GroupBox1.Caption := GetText('FiltForm', 'TileBlock'); form.cbTileFilter.Caption := GetText('FiltForm', 'TileUse'); form.cbTileFilter.Hint := GetText('FiltForm', 'TileUseHint'); form.Label1.Caption := GetText('FiltForm', 'TileHelp'); form.vdtFilter.Header.Columns[0].Text := GetText('FiltForm', 'TileId'); form.vdtFilter.Header.Columns[1].Text := GetText('FiltForm', 'TileImage'); form.vdtFilter.Header.Columns[2].Text := GetText('FiltForm', 'TileName'); form.btnDelete.Hint := GetText('FiltForm', 'TileRemoveHint'); form.btnClear.Hint := GetText('FiltForm', 'TileClearHint'); form.GroupBox2.Caption := GetText('FiltForm', 'ColorBlock'); form.cbHueFilter.Caption := GetText('FiltForm', 'ColorUse'); form.cbHueFilter.Hint := GetText('FiltForm', 'ColorUseHint'); form.vdtHues.Header.Columns[1].Text := GetText('FiltForm', 'ColorHue'); form.vdtHues.Header.Columns[2].Text := GetText('FiltForm', 'ColorName'); form.mnuCheckHues.Caption := GetText('FiltForm', 'ColorCheck'); form.mnuCheckHues.Hint := GetText('FiltForm', 'ColorCheckHint'); form.mnuUncheckHues.Caption := GetText('FiltForm', 'ColorUncheck'); form.mnuUncheckHues.Hint := GetText('FiltForm', 'ColorUncheckHint'); end; procedure LanguageTranslate(form: TfrmLightlevel); begin form.Caption := GetText('LighForm', 'FormTitle'); end; procedure LanguageTranslate(form: TfrmRadarMap); begin form.Caption := GetText('RMapForm', 'FormTitle'); form.cbStayOnTop.Caption := GetText('RMapForm', 'StayOnTop'); form.cbStayOnTop.Hint := GetText('RMapForm', 'StayOnTopHint'); end; procedure LanguageTranslate(form: TfrmAccountControl); begin form.Caption := GetText('MAccForm', 'FormTitle'); form.tbRefresh.Hint := GetText('MAccForm', 'RefreshHint'); form.tbAddUser.Hint := GetText('MAccForm', 'AddUserHint'); form.tbEditUser.Hint := GetText('MAccForm', 'EditUserHint'); form.tbDeleteUser.Hint := GetText('MAccForm', 'DeleteUserHint'); form.vstAccounts.Header.Columns[1].Text := GetText('MAccForm', 'UserName'); form.vstAccounts.Header.Columns[2].Text := GetText('MAccForm', 'Access'); form.vstAccounts.Header.Columns[3].Text := GetText('MAccForm', 'Regions'); form.lbDlgDelConfCaption := GetText('MAccForm', 'DlgDelConfCaption'); form.lbDlgDelConf := GetText('MAccForm', 'DlgDelConf'); form.lbDlgAddNotiCaption := GetText('MAccForm', 'DlgAddNotiCaption'); form.lbDlgAddNoti := GetText('MAccForm', 'DlgAddNoti'); form.lbDlgModNotiCaption := GetText('MAccForm', 'DlgModNotiCaption'); form.lbDlgModNoti := GetText('MAccForm', 'DlgModNoti'); form.lbDlgInvlErrCaption := GetText('MAccForm', 'DlgInvlErrCaption'); form.lbDlgInvlErr := GetText('MAccForm', 'DlgInvlErr'); form.lbDlgDelNotiCaption := GetText('MAccForm', 'DlgDelNotiCaption'); form.lbDlgDelNoti := GetText('MAccForm', 'DlgDelNoti'); form.lbDlgDelfErrCaption := GetText('MAccForm', 'DlgDelfErrCaption'); form.lbDlgDelfErr := GetText('MAccForm', 'DlgDelfErr'); end; procedure LanguageTranslate(form: TfrmEditAccount); begin form.Caption := GetText('EAccForm', 'FormTitle'); form.tsGeneral.Caption := GetText('EAccForm', 'TabGeneral'); form.tsRegions.Caption := GetText('EAccForm', 'TabRegions'); form.lblUsername.Caption := GetText('EAccForm', 'Account'); form.lblPassword.Caption := GetText('EAccForm', 'Password'); form.lblAccessLevel.Caption := GetText('EAccForm', 'Access'); form.lblPasswordHint.Caption := GetText('EAccForm', 'PswHelp'); form.Label1.Caption := GetText('EAccForm', 'AllowRegions'); form.btnOK.Caption := GetText('EAccForm', 'Apply'); form.btnCancel.Caption := GetText('EAccForm', 'Cancel'); form.cbAccessLevel.Items[0] := GetText('EAccForm', 'AccessNone'); form.cbAccessLevel.Items[1] := GetText('EAccForm', 'AccessViewer'); form.cbAccessLevel.Items[2] := GetText('EAccForm', 'AccessNormal'); form.cbAccessLevel.Items[3] := GetText('EAccForm', 'AccessDevelop'); form.cbAccessLevel.Items[4] := GetText('EAccForm', 'AccessAdmin'); end; procedure LanguageTranslate(form: TfrmRegionControl); begin form.Caption := GetText('MRegForm', 'FormTitle'); form.vstRegions.Header.Columns[0].Text := GetText('MRegForm', 'Regions'); form.mnuAddRegion.Caption := GetText('MRegForm', 'AddRegion'); form.mnuAddRegion.Hint := GetText('MRegForm', 'AddRegionHint'); form.btnAddRegion.Hint := GetText('MRegForm', 'AddRegionHint'); form.mnuDeleteRegion.Caption := GetText('MRegForm', 'DeleteRegion'); form.mnuDeleteRegion.Hint := GetText('MRegForm', 'DeleteRegionHint'); form.btnDeleteRegion.Hint := GetText('MRegForm', 'DeleteRegionHint'); form.Label1.Caption := GetText('MRegForm', 'Area'); form.btnAddArea.Hint := GetText('MRegForm', 'AddAreaHint'); form.btnDeleteArea.Hint := GetText('MRegForm', 'DeleteAreaHint'); form.btnClearArea.Hint := GetText('MRegForm', 'ClearAreaHint'); form.lblX.Caption := GetText('MRegForm', 'PosX'); form.lblY.Caption := GetText('MRegForm', 'PosY'); form.btnGrab1.Hint := GetText('MRegForm', 'PosGrab1Hint'); form.btnGrab2.Hint := GetText('MRegForm', 'PosGrab2Hint'); form.btnSave.Caption := GetText('MRegForm', 'Save'); form.btnClose.Caption := GetText('MRegForm', 'Close'); form.lbDlgUnsaveCaption := GetText('MRegForm', 'DlgUnsaveCaption'); form.lbDlgUnsave := GetText('MRegForm', 'DlgUnsave'); form.lbDlgDelConfCaption := GetText('MRegForm', 'DlgDelConfCaption'); form.lbDlgDelConf := GetText('MRegForm', 'DlgDelConf'); form.lbDlgNewExistsCaption := GetText('MRegForm', 'DlgNewExistsCaption'); form.lbDlgNewExists := GetText('MRegForm', 'DlgNewExists'); form.lbNewInputQueryCaption := GetText('MRegForm', 'NewInputQueryCaption'); form.lbNewInputQuery := GetText('MRegForm', 'NewInputQuery'); end; procedure LanguageTranslate(form: TfrmLargeScaleCommand); begin form.Caption := GetText('GCmdForm', 'FormTitle'); form.vstActions.Header.Columns[0].Text := GetText('GCmdForm', 'Actions'); form.Label1.Caption := GetText('GCmdForm', 'Ares'); form.btnAddArea.Hint := GetText('GCmdForm', 'AddAreaHint'); form.btnDeleteArea.Hint := GetText('GCmdForm', 'DeleteAreaHint'); form.btnClearArea.Hint := GetText('GCmdForm', 'ClearAreaHint'); form.lblY.Caption := GetText('GCmdForm', 'PosX'); form.lblX.Caption := GetText('GCmdForm', 'PosY'); form.btnGrab1.Hint := GetText('GCmdForm', 'PosGrab1Hint'); form.btnGrab2.Hint := GetText('GCmdForm', 'PosGrab2Hint'); form.btnExecute.Caption := GetText('GCmdForm', 'Execute'); form.btnClose.Caption := GetText('GCmdForm', 'Close'); // ---------- form.pgArea.Caption := GetText('GCmdForm', 'PageSelectArea'); form.mnuSelectTopLeft.Caption := GetText('GCmdForm', 'psaSelectTL'); form.mnuSelectTopLeft.Hint := GetText('GCmdForm', 'psaSelectTLHint'); form.mnuSelectTopRight.Caption := GetText('GCmdForm', 'psaSelectTR'); form.mnuSelectTopRight.Hint := GetText('GCmdForm', 'psaSelectTRHint'); form.mnuSelectBottomLeft.Caption := GetText('GCmdForm', 'psaSelectBL'); form.mnuSelectBottomLeft.Hint := GetText('GCmdForm', 'psaSelectBLHint'); form.mnuSelectBottomRight.Caption := GetText('GCmdForm', 'psaSelectBR'); form.mnuSelectBottomRight.Hint := GetText('GCmdForm', 'psaSelectBRHint'); // ---------- form.pgCopyMove.Caption := GetText('GCmdForm', 'PageCopyMove'); form.rgCMAction.Caption := GetText('GCmdForm', 'pcmActionBloack'); form.rgCMAction.Items[0] := GetText('GCmdForm', 'pcmAction1'); form.rgCMAction.Items[1] := GetText('GCmdForm', 'pcmAction2'); form.gbCMOffset.Caption := GetText('GCmdForm', 'pcmOffsetBlock'); form.Label9.Caption := GetText('GCmdForm', 'pcmOffsetPosX'); form.Label10.Caption := GetText('GCmdForm', 'pcmOffsetPosY'); form.btnGrabOffset.Hint := GetText('GCmdForm', 'pcmOffsetGrabHint'); form.cbCMEraseTarget.Caption := GetText('GCmdForm', 'pcmEraseTarget'); form.cbCMEraseTarget.Hint := GetText('GCmdForm', 'pcmEraseTargetHint'); // ---------- form.pgModifyAltitude.Caption := GetText('GCmdForm', 'PageModifyAlt'); form.rbSetTerrainAltitude.Caption := GetText('GCmdForm', 'pmaSetLandAlt'); form.rbSetTerrainAltitude.Hint := GetText('GCmdForm', 'pmaSetLandAltHint'); form.Label2.Caption := GetText('GCmdForm', 'pmaSetLandAltHelp'); form.rbRelativeAltitudeChange.Caption := GetText('GCmdForm', 'pmaChangeRelativeAlt'); form.rbRelativeAltitudeChange.Hint := GetText('GCmdForm', 'pmaChangeRelativeAltHint'); form.Label3.Caption := GetText('GCmdForm', 'pmaSetAltFromTo'); form.Label4.Caption := GetText('GCmdForm', 'pmaTo'); // ---------- form.pgDrawTerrain.Caption := GetText('GCmdForm', 'PageDrawTerrain'); form.gbDrawTerrainTiles.Caption := GetText('GCmdForm', 'pdtTileBlock'); form.lblDrawTerrainTilesDesc.Caption := GetText('GCmdForm', 'pdtTileHelp'); form.vdtTerrainTiles.Header.Columns[0].Text := GetText('GCmdForm', 'pdtId'); form.vdtTerrainTiles.Header.Columns[1].Text := GetText('GCmdForm', 'pdtImage'); form.vdtTerrainTiles.Header.Columns[2].Text := GetText('GCmdForm', 'pdtName'); form.btnDeleteTerrain.Hint := GetText('GCmdForm', 'pdtDeleteHint'); form.btnClearTerrain.Hint := GetText('GCmdForm', 'pdtClearHint'); // ---------- form.pgDeleteStatics.Caption := GetText('GCmdForm', 'PageDeleteItems'); form.gbDeleteStaticsTiles.Caption := GetText('GCmdForm', 'pdiTileBlock'); form.lblDeleteStaticsTilesDesc.Caption := GetText('GCmdForm', 'pdiTileHelp'); form.vdtDeleteStaticsTiles.Header.Columns[0].Text := GetText('GCmdForm', 'pdiId'); form.vdtDeleteStaticsTiles.Header.Columns[1].Text := GetText('GCmdForm', 'pdiImage'); form.vdtDeleteStaticsTiles.Header.Columns[2].Text := GetText('GCmdForm', 'pdiName'); form.btnDeleteDStaticsTiles.Hint := GetText('GCmdForm', 'pdiDeleteHint'); form.btnClearDStaticsTiles.Hint := GetText('GCmdForm', 'pdiClearHint'); form.GroupBox1.Caption := GetText('GCmdForm', 'pdiAltBoundBlock'); form.Label7.Caption := GetText('GCmdForm', 'pdiAltBoundHelp'); form.Label8.Caption := GetText('GCmdForm', 'pdiAltBoundTo'); // ---------- form.pgInsertStatics.Caption := GetText('GCmdForm', 'PageInsertItems'); form.gbInserStaticsTiles.Caption := GetText('GCmdForm', 'piiTileBlock'); form.lblInsertStaticsTiles.Caption := GetText('GCmdForm', 'piiTileHelp'); form.vdtInsertStaticsTiles.Header.Columns[0].Text := GetText('GCmdForm', 'piiId'); form.vdtInsertStaticsTiles.Header.Columns[1].Text := GetText('GCmdForm', 'piiImage'); form.vdtInsertStaticsTiles.Header.Columns[2].Text := GetText('GCmdForm', 'piiName'); form.btnDeleteIStaticsTiles.Hint := GetText('GCmdForm', 'piiDeleteHint'); form.btnClearIStaticsTiles.Hint := GetText('GCmdForm', 'piiClearHint'); form.gbStaticsProbability.Caption := GetText('GCmdForm', 'piiProbBlock'); form.Label5.Caption := GetText('GCmdForm', 'piiProbHelp'); form.Label6.Caption := GetText('GCmdForm', 'piiProbPercent'); form.gbStaticsPlacement.Caption := GetText('GCmdForm', 'piiAltPlaceBlock'); form.rbPlaceStaticsOnTerrain.Caption := GetText('GCmdForm', 'piiAltPlace1'); form.rbPlaceStaticsOnTop.Caption := GetText('GCmdForm', 'piiAltPlace2'); form.rbPlaceStaticsOnZ.Caption := GetText('GCmdForm', 'piiAltPlace3'); // ---------- // Обновляем вписок для перезагрузки текста form.RenameNode(-1, form.pgArea.Caption); form.RenameNode( 0, form.pgCopyMove.Caption); form.RenameNode( 1, form.pgModifyAltitude.Caption); form.RenameNode( 2, form.pgDrawTerrain.Caption); form.RenameNode( 3, form.pgDeleteStatics.Caption); form.RenameNode( 4, form.pgInsertStatics.Caption); end; { procedure LanguageTranslate(form: TfrmMain); begin form.Caption := GetText('MainForm', ''); form.Hint := GetText('MainForm', 'Hint'); end; procedure LanguageTranslate(form: TfrmMain); begin form.Caption := GetText('MainForm', ''); form.Hint := GetText('MainForm', 'Hint'); end; } procedure LanguageTranslate(form: TfrmAbout); begin form.Caption := GetText('AbouForm', 'FormTitle'); form.lbVersion := GetText('AbouForm', 'Version'); form.lbBuild := GetText('AbouForm', 'Build'); end; function GetParseErText(key: string) : string; begin Result := GetText('ParseErr', key); end; end.