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