195b0efc89
* Updated to Inno Setup 6 * Updated translation files for the installer * 64-bit version now to be installed in the standard "Program Files" folder instead of "Program Files (x86)" as before Current 64bit users are recommended to uninstall previous version of TuxPaint before updating to 0.9.27. * Disabled start menu shortcut to outdated translations for readme.html. * Added language specification to start menu shorcuts for which translation is supported both for the web site and installer.
662 lines
18 KiB
Text
662 lines
18 KiB
Text
; This script needs the InnoSetup PreProcessor (ISPP) to compile correctly.
|
|
; I downloaded a combined 'QuickStart Pack' from here:
|
|
; http://www.jrsoftware.org/isdl.php#qsp
|
|
;
|
|
; The version string is extracted from the executable.
|
|
;
|
|
; Should we change this to Tux4Kids? -bjk 2011.06.15
|
|
#define PublisherName "New Breed Software"
|
|
#define PublisherURL "{code:MyPublisherURL}"
|
|
|
|
#define AppName "Tux Paint"
|
|
#define AppDirName "TuxPaint"
|
|
#define AppPrefix "tuxpaint"
|
|
#define AppRegKey AppDirName
|
|
#define AppRegValue "Install_Dir"
|
|
#define AppRegVersion "Version"
|
|
|
|
#define AppGroupName AppName
|
|
#define AppExe AppPrefix+".exe"
|
|
#define AppConfigName AppName+" Config"
|
|
#define AppConfigExe AppPrefix+"-config.exe"
|
|
#define AppReadme "{code:MyReadme}"
|
|
#define AppLicense "docs\COPYING.txt"
|
|
|
|
#define BdistDir ".\bdist"
|
|
#define AppVersion GetStringFileInfo(BdistDir+"\"+AppExe, "FileVersion")
|
|
|
|
[Setup]
|
|
AppName={#AppName}
|
|
AppVerName={#AppName} {#AppVersion}
|
|
AppPublisher={#PublisherName}
|
|
AppPublisherURL={#PublisherURL}
|
|
AppSupportURL={#PublisherURL}
|
|
AppUpdatesURL={#PublisherURL}
|
|
AppVersion={#AppVersion}
|
|
DefaultDirName={pf}\{#AppDirName}
|
|
DefaultGroupName={#AppGroupName}
|
|
OutputDir=.\
|
|
OutputBaseFilename={#AppPrefix}-{#AppVersion}-windows-installer
|
|
InfoBeforeFile={#BdistDir}\{#AppLicense}
|
|
SetupIconFile={#BdistDir}\data\images\tuxpaint-installer.ico
|
|
WizardStyle=modern
|
|
Compression=lzma2
|
|
SolidCompression=yes
|
|
PrivilegesRequired=admin
|
|
ArchitecturesInstallIn64BitMode=x64
|
|
ArchitecturesAllowed=x86 x64
|
|
|
|
[Languages]
|
|
Name: "afr"; MessagesFile: "compiler:Languages\Afrikaans.isl"
|
|
Name: "alb"; MessagesFile: "compiler:Languages\Albanian.isl"
|
|
Name: "ara"; MessagesFile: "compiler:Languages\Arabic.isl"
|
|
Name: "arm"; MessagesFile: "compiler:Languages\Armenian.isl"
|
|
Name: "ast"; MessagesFile: "compiler:Languages\Asturian.isl"
|
|
Name: "baq"; MessagesFile: "compiler:Languages\Basque.isl"
|
|
Name: "bel"; MessagesFile: "compiler:Languages\Belarusian.isl"
|
|
Name: "ben"; MessagesFile: "compiler:Languages\Bengali.islu"
|
|
Name: "bos"; MessagesFile: "compiler:Languages\Bosnian.isl"
|
|
Name: "bra"; MessagesFile: "compiler:Languages\BrazilianPortuguese.isl"
|
|
Name: "bul"; MessagesFile: "compiler:Languages\Bulgarian.isl"
|
|
Name: "cat"; MessagesFile: "compiler:Languages\Catalan.isl"
|
|
Name: "chs"; MessagesFile: "compiler:Languages\ChineseSimplified.isl"
|
|
Name: "cht"; MessagesFile: "compiler:Languages\ChineseTraditional.isl"
|
|
Name: "cnr"; MessagesFile: "compiler:Languages\Montenegrin.isl"
|
|
Name: "cos"; MessagesFile: "compiler:Languages\Corsican.isl"
|
|
Name: "cze"; MessagesFile: "compiler:Languages\Czech.isl"
|
|
Name: "dan"; MessagesFile: "compiler:Languages\Danish.isl"
|
|
Name: "dut"; MessagesFile: "compiler:Languages\Dutch.isl"
|
|
Name: "enb"; MessagesFile: "compiler:Languages\EnglishBritish.isl"
|
|
Name: "eng"; MessagesFile: "compiler:Default.isl"
|
|
Name: "epo"; MessagesFile: "compiler:Languages\Esperanto.isl"
|
|
Name: "esp"; MessagesFile: "compiler:Languages\Spanish.isl"
|
|
Name: "est"; MessagesFile: "compiler:Languages\Estonian.isl"
|
|
Name: "fas"; MessagesFile: "compiler:Languages\Farsi.isl"
|
|
Name: "fin"; MessagesFile: "compiler:Languages\Finnish.isl"
|
|
Name: "fre"; MessagesFile: "compiler:Languages\French.isl"
|
|
Name: "gal"; MessagesFile: "compiler:Languages\Galician.isl"
|
|
Name: "geo"; MessagesFile: "compiler:Languages\Georgian.isl"
|
|
Name: "ger"; MessagesFile: "compiler:Languages\German.isl"
|
|
Name: "gla"; MessagesFile: "compiler:Languages\ScottishGaelic.isl"
|
|
Name: "gre"; MessagesFile: "compiler:Languages\Greek.isl"
|
|
Name: "heb"; MessagesFile: "compiler:Languages\Hebrew.isl"
|
|
Name: "hin"; MessagesFile: "compiler:Languages\Hindi.islu"
|
|
Name: "hun"; MessagesFile: "compiler:Languages\Hungarian.isl"
|
|
Name: "ice"; MessagesFile: "compiler:Languages\Icelandic.isl"
|
|
Name: "ind"; MessagesFile: "compiler:Languages\Indonesian.isl"
|
|
Name: "ita"; MessagesFile: "compiler:Languages\Italian.isl"
|
|
Name: "jpn"; MessagesFile: "compiler:Languages\Japanese.isl"
|
|
Name: "kaz"; MessagesFile: "compiler:Languages\Kazakh.islu"
|
|
Name: "kor"; MessagesFile: "compiler:Languages\Korean.isl"
|
|
Name: "kur"; MessagesFile: "compiler:Languages\Kurdish.isl"
|
|
Name: "lav"; MessagesFile: "compiler:Languages\Latvian.isl"
|
|
Name: "lij"; MessagesFile: "compiler:Languages\Ligurian.isl"
|
|
Name: "lit"; MessagesFile: "compiler:Languages\Lithuanian.isl"
|
|
Name: "ltz"; MessagesFile: "compiler:Languages\Luxemburgish.isl"
|
|
Name: "mac"; MessagesFile: "compiler:Languages\Macedonian.isl"
|
|
Name: "mar"; MessagesFile: "compiler:Languages\Marathi.islu"
|
|
Name: "may"; MessagesFile: "compiler:Languages\Malaysian.isl"
|
|
Name: "mon"; MessagesFile: "compiler:Languages\Mongolian.isl"
|
|
Name: "nep"; MessagesFile: "compiler:Languages\Nepali.islu"
|
|
Name: "nno"; MessagesFile: "compiler:Languages\NorwegianNynorsk.isl"
|
|
Name: "nor"; MessagesFile: "compiler:Languages\Norwegian.isl"
|
|
Name: "occ"; MessagesFile: "compiler:Languages\Occitan.isl"
|
|
Name: "pol"; MessagesFile: "compiler:Languages\Polish.isl"
|
|
Name: "por"; MessagesFile: "compiler:Languages\Portuguese.isl"
|
|
Name: "rum"; MessagesFile: "compiler:Languages\Romanian.isl"
|
|
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"
|
|
Name: "scc"; MessagesFile: "compiler:Languages\SerbianCyrillic.isl"
|
|
Name: "scl"; MessagesFile: "compiler:Languages\SerbianLatin.isl"
|
|
Name: "scr"; MessagesFile: "compiler:Languages\Croatian.isl"
|
|
Name: "sin"; MessagesFile: "compiler:Languages\Sinhala.islu"
|
|
Name: "slo"; MessagesFile: "compiler:Languages\Slovak.isl"
|
|
Name: "slv"; MessagesFile: "compiler:Languages\Slovenian.isl"
|
|
Name: "swe"; MessagesFile: "compiler:Languages\Swedish.isl"
|
|
Name: "tai"; MessagesFile: "compiler:Languages\Thai.isl"
|
|
Name: "tat"; MessagesFile: "compiler:Languages\Tatar.isl"
|
|
Name: "tur"; MessagesFile: "compiler:Languages\Turkish.isl"
|
|
Name: "uig"; MessagesFile: "compiler:Languages\Uyghur.islu"
|
|
Name: "ukr"; MessagesFile: "compiler:Languages\Ukrainian.isl"
|
|
Name: "urd"; MessagesFile: "compiler:Languages\Urdu.isl"
|
|
Name: "uzb"; MessagesFile: "compiler:Languages\Uzbek.isl"
|
|
Name: "vie"; MessagesFile: "compiler:Languages\Vietnamese.isl"
|
|
Name: "vlca";MessagesFile: "compiler:Languages\valencian.isl"
|
|
|
|
[Tasks]
|
|
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}";
|
|
|
|
[Files]
|
|
Source: "{#BdistDir}\*.dll"; DestDir: "{app}"; Flags: ignoreversion
|
|
Source: "{#BdistDir}\*.exe"; DestDir: "{app}"; Flags: ignoreversion
|
|
Source: "{#BdistDir}\data\*"; DestDir: "{app}\data"; Excludes: "CVS"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
Source: "{#BdistDir}\docs\*"; DestDir: "{app}\docs"; Excludes: "CVS,Makefile,*~"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
Source: "{#BdistDir}\etc\*"; DestDir: "{app}\etc"; Flags: skipifsourcedoesntexist ignoreversion recursesubdirs createallsubdirs
|
|
Source: "{#BdistDir}\lib\*"; DestDir: "{app}\lib"; Flags: skipifsourcedoesntexist ignoreversion recursesubdirs createallsubdirs
|
|
Source: "{#BdistDir}\im\*"; DestDir: "{app}\im"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
Source: "{#BdistDir}\plugins\*"; DestDir: "{app}\plugins"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
Source: "{#BdistDir}\locale\*"; DestDir: "{app}\locale"; Excludes: "CVS"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
Source: "{#BdistDir}\..\libdocs\*"; DestDir: "{app}\docs\libdocs"; Excludes: "CVS,Makefile,*~"; Flags: ignoreversion recursesubdirs createallsubdirs
|
|
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
|
|
|
|
[INI]
|
|
Filename: "{code:MyGroupDir}\{groupname}\{cm:ProgramOnTheWeb,{#AppName}}.url"; Section: "InternetShortcut"; Key: "URL"; String: "{#PublisherURL}"
|
|
|
|
[Icons]
|
|
Name: "{code:MyGroupDir}\{groupname}\Configure {#AppName}"; Filename: "{app}\{#AppConfigExe}"; Comment: "{#AppConfigName}"
|
|
Name: "{code:MyGroupDir}\{groupname}\{#AppName} (Full Screen)"; Filename: "{app}\{#AppExe}"; Parameters: "--fullscreen native"; Comment: "Start {#AppName} in Fullscreen mode"
|
|
Name: "{code:MyGroupDir}\{groupname}\{#AppName} (Windowed)"; Filename: "{app}\{#AppExe}"; Parameters: "--windowed"; Comment: "Start {#AppName} in a Window"
|
|
Name: "{code:MyGroupDir}\{groupname}\Readme"; Filename: "{app}\{#AppReadme}"; Comment: "View ReadMe"
|
|
Name: "{code:MyGroupDir}\{groupname}\License"; Filename: "{app}\{#AppLicense}"; Comment: "View License"
|
|
Name: "{code:MyGroupDir}\{groupname}\{cm:UninstallProgram,{#AppName}}"; Filename: "{uninstallexe}"; IconFilename: "{app}\data\images\tuxpaint-installer.ico"; Comment: "Remove {#AppName}"
|
|
Name: "{code:MyDesktopDir}\{#AppName}"; Filename: "{app}\{#AppExe}"; Tasks: desktopicon
|
|
|
|
[Registry]
|
|
Root: HKLM; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "{#AppRegValue}"; ValueType: string; ValueData: "{app}"; Check: AllUsers;
|
|
Root: HKCU; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "{#AppRegValue}"; ValueType: string; ValueData: "{app}"; Check: ThisUserOnly;
|
|
Root: HKLM; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "{#AppRegVersion}"; ValueType: string; ValueData: "{#AppVersion}"; Check: AllUsers;
|
|
Root: HKCU; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "{#AppRegVersion}"; ValueType: string; ValueData: "{#AppVersion}"; Check: ThisUserOnly;
|
|
|
|
[Run]
|
|
Filename: "{app}\{#AppReadme}"; Description: "View the README file"; Flags: postinstall shellexec skipifsilent
|
|
Filename: "{app}\{#AppConfigExe}"; Description: "{cm:LaunchProgram,{#AppConfigName}}"; Flags: nowait postinstall skipifsilent
|
|
|
|
[UninstallDelete]
|
|
Type: files; Name: "{code:MyGroupDir}\{groupname}\{cm:ProgramOnTheWeb,{#AppName}}.url"
|
|
|
|
[code]
|
|
const
|
|
CSIDL_PROFILE = $0028;
|
|
CSIDL_COMMON_PROGRAMS = $0017;
|
|
CSIDL_COMMON_DESKTOPDIRECTORY = $0019;
|
|
var
|
|
InstallTypePageID: Integer;
|
|
CheckListBox2: TNewCheckListBox;
|
|
function Restricted(): Boolean;
|
|
begin
|
|
Result := not (IsAdminLoggedOn() or IsPowerUserLoggedOn())
|
|
end;
|
|
|
|
function NotRestricted(): Boolean;
|
|
begin
|
|
Result := not Restricted()
|
|
end;
|
|
|
|
function Is9xME(): Boolean;
|
|
begin
|
|
Result := not UsingWinNT()
|
|
end;
|
|
|
|
function CurrentUserOnly(): Boolean;
|
|
begin
|
|
Result := CheckListBox2.Checked[2]
|
|
end;
|
|
|
|
function ThisUserOnly(): Boolean;
|
|
begin
|
|
Result := (Restricted() or CurrentUserOnly()) and UsingWinNT()
|
|
end;
|
|
|
|
function AllUsers(): Boolean;
|
|
begin
|
|
Result := not ThisUserOnly()
|
|
end;
|
|
|
|
function MyAppDir(): String;
|
|
var
|
|
Path: String;
|
|
begin
|
|
Path := ExpandConstant('{reg:HKLM\SOFTWARE\{#AppRegKey},{#AppRegValue}|{pf}\{#AppDirName}}');
|
|
if ThisUserOnly() then
|
|
begin
|
|
Path := ExpandConstant('{reg:HKCU\SOFTWARE\{#AppRegKey},{#AppRegValue}|__MissingKey__}');
|
|
if Path = '__MissingKey__' then
|
|
begin
|
|
Path := GetShellFolderByCSIDL(CSIDL_PROFILE, True);
|
|
if Path = '' then
|
|
Path := RemoveBackslashUnlessRoot(ExtractFilePath(ExpandConstant('{userdocs}')));
|
|
Path := Path + '\Programs\{#AppDirName}'
|
|
end;
|
|
end;
|
|
Result := Path
|
|
end;
|
|
|
|
function MyGroupDir(Default: String): String;
|
|
var
|
|
Path: String;
|
|
begin
|
|
if ThisUserOnly() then
|
|
Path := ExpandConstant('{userprograms}')
|
|
else
|
|
Path := ExpandConstant('{commonprograms}');
|
|
Result := Path;
|
|
end;
|
|
|
|
function MyDesktopDir(Default: String): String;
|
|
var
|
|
Path: String;
|
|
begin
|
|
if ThisUserOnly() then
|
|
Path := ExpandConstant('{userdesktop}')
|
|
else
|
|
Path := ExpandConstant('{commondesktop}');
|
|
Result := Path;
|
|
end;
|
|
|
|
procedure CreateTheWizardPages;
|
|
var
|
|
Page: TWizardPage;
|
|
Enabled, InstallAllUsers: Boolean;
|
|
begin
|
|
Page := CreateCustomPage(wpInfoBefore, 'Choose Installation Type', 'Who do you want to be able to use this program?');
|
|
InstallTypePageID := Page.ID;
|
|
Enabled := NotRestricted();
|
|
InstallAllUsers := NotRestricted();
|
|
CheckListBox2 := TNewCheckListBox.Create(Page);
|
|
CheckListBox2.Width := Page.SurfaceWidth;
|
|
CheckListBox2.Height := ScaleY(97);
|
|
CheckListBox2.BorderStyle := bsNone;
|
|
CheckListBox2.ParentColor := True;
|
|
CheckListBox2.MinItemHeight := WizardForm.TasksList.MinItemHeight;
|
|
CheckListBox2.ShowLines := False;
|
|
CheckListBox2.WantTabs := True;
|
|
CheckListBox2.Parent := Page.Surface;
|
|
CheckListBox2.AddGroup('Installation Type:', '', 0, nil);
|
|
CheckListBox2.AddRadioButton('All Users', '', 0, InstallAllUsers, Enabled, nil);
|
|
CheckListBox2.AddRadioButton('Current User Only', '', 0, not InstallAllUsers, True, nil);
|
|
end;
|
|
|
|
procedure CurPageChanged(CurPageID: Integer);
|
|
begin
|
|
if CurPageID = wpSelectDir then
|
|
begin
|
|
WizardForm.DirEdit.Text := MyAppDir();
|
|
end;
|
|
end;
|
|
|
|
function ShouldSkipPage(PageID: Integer): Boolean;
|
|
begin
|
|
Result := (PageID = InstallTypePageID) and Is9xME();
|
|
end;
|
|
|
|
function BackButtonClick(CurPageID: Integer): Boolean;
|
|
begin
|
|
Result := true; // Allow action by default
|
|
end;
|
|
|
|
function Lang2Gettext(TwoLetter: Boolean): String;
|
|
var
|
|
lang, lc: String;
|
|
begin
|
|
lang := ActiveLanguage();
|
|
|
|
if lang = 'afr' then
|
|
lc := 'af'
|
|
else
|
|
if lang = 'alb' then
|
|
lc := 'sq'
|
|
else
|
|
if lang = 'ara' then
|
|
lc := 'ar'
|
|
else
|
|
if lang = 'arm' then
|
|
lc := 'hy'
|
|
else
|
|
if lang = 'ast' then
|
|
if TwoLetter = true then
|
|
lc := 'es'
|
|
else
|
|
lc := 'ast'
|
|
else
|
|
if lang = 'baq' then
|
|
lc := 'eu'
|
|
else
|
|
if lang = 'ben' then
|
|
lc := 'bn'
|
|
else
|
|
if lang = 'bel' then
|
|
lc := 'be'
|
|
else
|
|
if lang = 'bos' then
|
|
lc := 'bs'
|
|
else
|
|
if lang = 'bra' then
|
|
if TwoLetter = true then
|
|
lc := 'pt'
|
|
else
|
|
lc := 'pt_br'
|
|
else
|
|
if lang = 'bul' then
|
|
lc := 'bg'
|
|
else
|
|
if lang = 'cat' then
|
|
lc := 'ca'
|
|
else
|
|
if lang = 'chs' then
|
|
if TwoLetter = true then
|
|
lc := 'zh'
|
|
else
|
|
lc := 'zh_cn'
|
|
else
|
|
if lang = 'cht' then
|
|
if TwoLetter = true then
|
|
lc := 'zh'
|
|
else
|
|
lc := 'zh_tw'
|
|
else
|
|
if lang = 'cnr' then
|
|
if TwoLetter = true then
|
|
lc := 'sr'
|
|
else
|
|
lc := 'sr_latin'
|
|
else
|
|
if lang = 'cos' then
|
|
lc := 'co'
|
|
else
|
|
if lang = 'cze' then
|
|
lc := 'cs'
|
|
else
|
|
if lang = 'dan' then
|
|
lc := 'da'
|
|
else
|
|
if lang = 'dut' then
|
|
lc := 'nl'
|
|
else
|
|
if lang = 'enb' then
|
|
if TwoLetter = true then
|
|
lc := 'en'
|
|
else
|
|
lc := 'en_gb'
|
|
else
|
|
if lang = 'epo' then
|
|
lc := 'eo'
|
|
else
|
|
if lang = 'esp' then
|
|
lc := 'es'
|
|
else
|
|
if lang = 'est' then
|
|
lc := 'et'
|
|
else
|
|
if lang = 'fas' then
|
|
lc := 'fa'
|
|
else
|
|
if lang = 'fin' then
|
|
lc := 'fi'
|
|
else
|
|
if lang = 'fre' then
|
|
lc := 'fr'
|
|
else
|
|
if lang = 'gal' then
|
|
lc := 'gl'
|
|
else
|
|
if lang = 'geo' then
|
|
lc := 'ka'
|
|
else
|
|
if lang = 'ger' then
|
|
lc := 'de'
|
|
else
|
|
if lang = 'gla' then
|
|
lc := 'gd'
|
|
else
|
|
if lang = 'gre' then
|
|
lc := 'el'
|
|
else
|
|
if lang = 'heb' then
|
|
lc := 'he'
|
|
else
|
|
if lang = 'hin' then
|
|
lc := 'hi'
|
|
else
|
|
if lang = 'hun' then
|
|
lc := 'hu'
|
|
else
|
|
if lang = 'ice' then
|
|
lc := 'is'
|
|
else
|
|
if lang = 'ind' then
|
|
lc := 'id'
|
|
else
|
|
if lang = 'ita' then
|
|
lc := 'it'
|
|
else
|
|
if lang = 'jpn' then
|
|
lc := 'ja'
|
|
else
|
|
if lang = 'kaz' then
|
|
lc := 'kk'
|
|
else
|
|
if lang = 'kor' then
|
|
lc := 'ko'
|
|
else
|
|
if lang = 'kur' then
|
|
lc := 'ku'
|
|
else
|
|
if lang = 'lav' then
|
|
lc := 'lv'
|
|
else
|
|
if lang = 'lit' then
|
|
lc := 'lt'
|
|
else
|
|
if lang = 'ltz' then
|
|
lc := 'lb'
|
|
else
|
|
if lang = 'mac' then
|
|
lc := 'mk'
|
|
else
|
|
if lang = 'mar' then
|
|
lc := 'mr'
|
|
else
|
|
if lang = 'may' then
|
|
lc := 'ms'
|
|
else
|
|
if lang = 'mon' then
|
|
lc := 'mn'
|
|
else
|
|
if lang = 'nep' then
|
|
lc := 'ne'
|
|
else
|
|
if lang = 'nno' then
|
|
lc := 'nn'
|
|
else
|
|
if lang = 'nor' then
|
|
lc := 'nn'
|
|
else
|
|
if lang = 'occ' then
|
|
lc := 'oc'
|
|
else
|
|
if lang = 'pol' then
|
|
lc := 'pl'
|
|
else
|
|
if lang = 'por' then
|
|
lc := 'pt'
|
|
else
|
|
if lang = 'rum' then
|
|
lc := 'ro'
|
|
else
|
|
if lang = 'rus' then
|
|
lc := 'ru'
|
|
else
|
|
if lang = 'scc' then
|
|
lc := 'sr'
|
|
else
|
|
if lang = 'scl' then
|
|
if TwoLetter = true then
|
|
lc := 'sr'
|
|
else
|
|
lc := 'sr_latin'
|
|
else
|
|
if lang = 'scr' then
|
|
lc := 'hr'
|
|
else
|
|
if lang = 'sin' then
|
|
lc := 'si'
|
|
else
|
|
if lang = 'slo' then
|
|
lc := 'sk'
|
|
else
|
|
if lang = 'slv' then
|
|
lc := 'sl'
|
|
else
|
|
if lang = 'swe' then
|
|
lc := 'sv'
|
|
else
|
|
if lang = 'tai' then
|
|
lc := 'th'
|
|
else
|
|
if lang = 'tat' then
|
|
lc := 'tt'
|
|
else
|
|
if lang = 'tur' then
|
|
lc := 'tr'
|
|
else
|
|
if lang = 'uig' then
|
|
lc := 'ug'
|
|
else
|
|
if lang = 'ukr' then
|
|
lc := 'uk'
|
|
else
|
|
if lang = 'urd' then
|
|
lc := 'ur'
|
|
else
|
|
if lang = 'uzb' then
|
|
lc := 'uz'
|
|
else
|
|
if lang = 'vie' then
|
|
lc := 'vi'
|
|
else
|
|
lc := 'en';
|
|
Result := lc
|
|
end;
|
|
|
|
procedure InitializeWizard();
|
|
begin
|
|
begin
|
|
CreateTheWizardPages;
|
|
end
|
|
end;
|
|
|
|
function MyReadme(Default: String): String;
|
|
var
|
|
lang, readme: String;
|
|
begin
|
|
lang := Lang2Gettext(false);
|
|
|
|
if lang = 'es' then
|
|
readme := 'es_ES.UTF-8\html\README.html'
|
|
else
|
|
if lang = 'fr' then
|
|
readme := 'fr_FR.UTF8\html\README.html'
|
|
else
|
|
if lang = 'gl' then
|
|
readme := 'gl_GL.UTF-8\html\README.html'
|
|
else
|
|
// if lang = 'it' then
|
|
// readme := 'it\html\README.html'
|
|
// else
|
|
if lang = 'ja' then
|
|
readme := 'ja_JP.UTF-8\html\README.html'
|
|
else
|
|
// if lang = 'nl' then
|
|
// readme := 'nl\html\README.html'
|
|
// else
|
|
// if lang = 'ru' then
|
|
// readme := 'ru\html\README.html'
|
|
// else
|
|
// if lang = 'zh_cn' then
|
|
// readme := 'zh_cn\html\README.html'
|
|
// else
|
|
// if lang = 'zh_tw' then
|
|
// readme := 'zh_tw\html\README.html'
|
|
// else
|
|
readme := 'en\html\README.html';
|
|
|
|
Result := 'docs\'+readme
|
|
end;
|
|
|
|
function MyPublisherURL(Default: String): String;
|
|
var
|
|
lang: String;
|
|
begin
|
|
lang := Lang2Gettext(false);
|
|
|
|
if lang = 'eng' then
|
|
lang := 'en_US'
|
|
else
|
|
if lang = 'enb' then
|
|
lang := 'en_GB'
|
|
else
|
|
if lang = 'cat' then
|
|
lang := 'ca_ES'
|
|
else
|
|
if lang = 'dan' then
|
|
lang := 'da_DK'
|
|
else
|
|
if lang = 'esp' then
|
|
lang := 'es_ES'
|
|
else
|
|
if lang = 'fin' then
|
|
lang := 'fi_FI'
|
|
else
|
|
if lang = 'fre' then
|
|
lang := 'fr_FR'
|
|
else
|
|
if lang = 'gal' then
|
|
lang := 'gl_ES'
|
|
else
|
|
if lang = 'geo' then
|
|
lang := 'ka_GE'
|
|
else
|
|
if lang = 'ger' then
|
|
lang := 'de_DE'
|
|
else
|
|
if lang = 'gla' then
|
|
lang := 'gd_GB'
|
|
else
|
|
if lang = 'gre' then
|
|
lang := 'el_GR'
|
|
else
|
|
if lang = 'hin' then
|
|
lang := 'hi_IN'
|
|
else
|
|
if lang = 'ice' then
|
|
lang := 'is_IS'
|
|
else
|
|
if lang = 'ita' then
|
|
lang := 'it_IT'
|
|
else
|
|
if lang = 'jpn' then
|
|
lang := 'ja_JP'
|
|
else
|
|
if lang = 'may' then
|
|
lang := 'ms_MY'
|
|
else
|
|
if lang = 'mon' then
|
|
lang := 'mn_MN'
|
|
else
|
|
if lang = 'dut' then
|
|
lang := 'nl_NL'
|
|
else
|
|
if lang = 'nno' then
|
|
lang := 'nn_NO'
|
|
else
|
|
if lang = 'pol' then
|
|
lang := 'pl_PL'
|
|
else
|
|
if lang = 'rus' then
|
|
lang := 'ru_RU'
|
|
else
|
|
if lang = 'slv' then
|
|
lang := 'sl_SI'
|
|
else
|
|
if lang = 'swe' then
|
|
lang := 'sv_SE'
|
|
else
|
|
if lang = 'ukr' then
|
|
lang := 'uk_UA'
|
|
else
|
|
if lang = 'vie' then
|
|
lang := 'vi_VN';
|
|
|
|
Result := 'http://www.tuxpaint.org/?lang='+lang
|
|
end;
|
|
|
|
#expr SaveToFile(AddBackslash(SourcePath) + 'Preprocessed.iss')
|