1 unit reConstsUnit; 2 3 {$mode objfpc}{$H+} 4 5 interface 6 7 uses gettext, translations, LCLPlatformDef, InterfaceBase; 8 9 resourcestring 10 sResourceExplorer = 'Resource explorer'; 11 sSaveResource = 'Save resource ...'; 12 sAbout = 'About ...'; 13 sExit = 'Exit'; 14 sOpen = 'Open ...'; 15 sFile = 'File'; 16 sHelp = 'Help'; 17 sStrings = 'Strings'; 18 sImage = 'Image'; 19 sLicense = 'This program is free software under GNU GPL 2 license, see COPYING file'; 20 21 22 sLCLVersion = 'LCL Version: '; 23 sBuildDate = 'Build date: '; 24 sFpcVersion = 'FPC version: '; 25 sTargetCPU = 'Target CPU: '; 26 sTargetOS = 'Target OS: '; 27 sGTKWidgetSet = 'GTK widget set'; 28 sGTK2WidgetSet = 'GTK 2 widget set'; 29 sWin32_64WidgetSet = 'Win32/Win64 widget set'; 30 sWinCEWidgetSet = 'WinCE widget set'; 31 sCarbonWidgetSet = 'Carbon widget set'; 32 sQTWidgetSet = 'QT widget set'; 33 sFpGUIWidgetSet = 'FpGUI widget set'; 34 sOtherGUIWidgetSet = 'Other gui'; 35 sAllFilesExcutableFilesExeExeDLLDllDll = 'All files (*.*)|*.*|Excutable files (*.exe)|*.exe|DLL (*.dll)|*.dll'; 36 sAllFilesSharedLibSoSo = 'All files (*)|*|Shared libraries (*.so)|*.so'; 37 sResources = 'Resources'; 38 39 LCLVersionStrnull40function LCLVersionStr: string; 41 42 implementation 43 LCLVersionStrnull44function LCLVersionStr: string; 45 begin 46 case WidgetSet.LCLPlatform of 47 lpGtk:Result:=sGTKWidgetSet; 48 lpGtk2:Result:=sGTK2WidgetSet; 49 lpWin32:Result:=sWin32_64WidgetSet; 50 lpWinCE:Result:=sWinCEWidgetSet; 51 lpCarbon:Result:=sCarbonWidgetSet; 52 lpQT:Result:=sQTWidgetSet; 53 lpfpGUI:Result:=sFpGUIWidgetSet; 54 else 55 Result:=sOtherGUIWidgetSet; 56 end; 57 end; 58 59 procedure TranslateResStrings; 60 var 61 Lang, FallbackLang: String; 62 begin 63 GetLanguageIDs(Lang,FallbackLang); // in unit gettext 64 TranslateUnitResourceStrings('reConstsUnit','languages'+DirectorySeparator+'resexplorer.%s.po', Lang,FallbackLang); 65 end; 66 67 initialization 68 TranslateResStrings; 69 end. 70 71