mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 05:28:17 +02:00
71 lines
2.0 KiB
ObjectPascal
71 lines
2.0 KiB
ObjectPascal
unit reConstsUnit;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses 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
|
|
LangID: TLanguageID;
|
|
begin
|
|
LangID := GetLanguageID;
|
|
TranslateUnitResourceStrings('reConstsUnit','languages'+DirectorySeparator+'resexplorer.%s.po', LangID.LanguageID, LangID.LanguageCode);
|
|
end;
|
|
|
|
initialization
|
|
TranslateResStrings;
|
|
end.
|
|
|