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 
LCLVersionStrnull40 function LCLVersionStr: string;
41 
42 implementation
43 
LCLVersionStrnull44 function 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