[gimp-help/wip/Jehan/ci-master-split: 4/20] build: scripts in their current form.
- From: Jehan <jehanp src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-help/wip/Jehan/ci-master-split: 4/20] build: scripts in their current form.
- Date: Mon, 21 Mar 2022 13:39:50 +0000 (UTC)
commit e053ed0abf3312c54faff315c830ece6b8dd4804
Author: Jernej Simončič <jernej|s-gitstuff eternallybored org>
Date: Fri Mar 18 20:21:57 2022 +0100
build: scripts in their current form.
Committer's (Jehan) comment: I am pushing the script in their current
form as provided by Jernej, as a start point. These are not generic yet
and won't work for the CI so I will update them. This way, we will also
have the original version (which we know used to work in older releases)
to inspect in cases some of my changes end up wrong.
Note that I don't push the translation (.isl) files because the ones
kept by Jernej seem to be very old GIMP setup language files which don't
correspond at all to the messages in the gimp-help installer. We are not
sure where the good files went.
(cherry picked from commit 899b98396202c69da2ef9e11e8ae6aafceb67244)
build/windows/installer/big.bmp | Bin 0 -> 5762 bytes
build/windows/installer/build.bat | 11 +
build/windows/installer/gimp-help.iss | 699 ++++++++++++++++++++++++++++++++++
build/windows/installer/small.bmp | Bin 0 -> 4158 bytes
4 files changed, 710 insertions(+)
---
diff --git a/build/windows/installer/big.bmp b/build/windows/installer/big.bmp
new file mode 100644
index 000000000..eb3908689
Binary files /dev/null and b/build/windows/installer/big.bmp differ
diff --git a/build/windows/installer/build.bat b/build/windows/installer/build.bat
new file mode 100644
index 000000000..ba57d0675
--- /dev/null
+++ b/build/windows/installer/build.bat
@@ -0,0 +1,11 @@
+@echo off
+if "%1"=="" goto help
+for /a:d %l in (N:\gimp\output\2.10.12\x86_64-w64-mingw32\share\gimp\2.0\help\*) if not
"%l"=="N:\gimp\output\2.10.12\x86_64-w64-mingw32\share\gimp\2.0\help\." .and. not
"%l"=="N:\gimp\output\2.10.12\x86_64-w64-mingw32\share\gimp\2.0\help\.." (
+ echo %@name[%l]
+ start "" /LOW "D:\Program Files\Inno Setup 6 Dev\iscc.exe" "Gimp - Help.iss" /DVERSION="%1"
/DLANG="%@name[%l]"
+)
+goto end
+:help
+echo Usage: %0 version
+goto end
+:end
diff --git a/build/windows/installer/gimp-help.iss b/build/windows/installer/gimp-help.iss
new file mode 100644
index 000000000..76b3bbaef
--- /dev/null
+++ b/build/windows/installer/gimp-help.iss
@@ -0,0 +1,699 @@
+;Installer for GIMP Help
+;
+;.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,
+; ;
+;Copyright (c) 2002-2012 Jernej Simon�i� ;
+; ;
+;This software is provided 'as-is', without any express or implied ;
+;warranty. In no event will the authors be held liable for any damages ;
+;arising from the use of this software. ;
+; ;
+;Permission is granted to anyone to use this software for any purpose, ;
+;including commercial applications, and to alter it and redistribute it ;
+;freely, subject to the following restrictions: ;
+; ;
+; 1. The origin of this software must not be misrepresented; you must ;
+; not claim that you wrote the original software. If you use this ;
+; software in a product, an acknowledgment in the product ;
+; documentation would be appreciated but is not required. ;
+; ;
+; 2. Altered source versions must be plainly marked as such, and must ;
+; not be misrepresented as being the original software. ;
+; ;
+; 3. This notice may not be removed or altered from any source ;
+; distribution. ;
+;.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.;
+
+#ifndef VERSION
+ #define VERSION='2.10.0'
+#endif
+#ifndef LANG
+ #define LANG='en'
+#endif
+
+;gimp version
+#define MIN_VERSION='2.10'
+
+;#define dontcompress
+;#define nofiles
+
+#ifndef VERSION
+ #error VERSION must be defined
+#endif
+#ifndef LANG
+ #error LANG must be defined
+#endif
+
+;for picking up the correct Inno Setup language file
+#if LANG=='en'
+ #define LANGUAGE='English'
+#elif LANG=='ca'
+ #define LANGUAGE='Catalan'
+#elif LANG=='de'
+ #define LANGUAGE='German'
+#elif LANG=='da'
+ #define LANGUAGE='Danish'
+#elif LANG=='el'
+ #define LANGUAGE='Greek'
+#elif LANG=='en_GB'
+ #define LANGUAGE='English'
+#elif LANG=='es'
+ #define LANGUAGE='Spanish'
+#elif LANG=='fi'
+ #define LANGUAGE='Finnish'
+#elif LANG=='fr'
+ #define LANGUAGE='French'
+#elif LANG=='hr'
+ #define LANGUAGE='Croatian'
+#elif LANG=='it'
+ #define LANGUAGE='Italian'
+#elif LANG=='ja'
+ #define LANGUAGE='Japanese'
+#elif LANG=='ko'
+ #define LANGUAGE='Korean'
+#elif LANG=='lt'
+ #define LANGUAGE='Lithuanian'
+#elif LANG=='nl'
+ #define LANGUAGE='Dutch'
+#elif LANG=='no'
+ #define LANGUAGE='Norwegian'
+#elif LANG=='nn'
+ #define LANGUAGE='Norwegian Nynorsk'
+#elif LANG=='pl'
+ #define LANGUAGE='Polish'
+#elif LANG=='pt_BR'
+ #define LANGUAGE='BrazilianPortuguese'
+#elif LANG=='ro'
+ #define LANGUAGE='Romanian'
+#elif LANG=='ru'
+ #define LANGUAGE='Russian'
+#elif LANG=='sl'
+ #define LANGUAGE='Slovenian'
+#elif LANG=='sv'
+ #define LANGUAGE='Swedish'
+#elif LANG=='zh_CN'
+ #define LANGUAGE='ChineseSimplified'
+#endif
+[Setup]
+AppName={cm:GimpHelp} {#VERSION}
+AppID=GIMP-Help-2
+AppVerName=GIMP Help {#VERSION}
+AppPublisherURL=https://www.gimp.org/
+AppSupportURL=https://www.gimp.org/
+AppUpdatesURL=https://www.gimp.org/
+DefaultDirName={pf}\GIMP Help 2
+DirExistsWarning=no
+DisableProgramGroupPage=yes
+DisableDirPage=yes
+FlatComponentsList=yes
+WizardImageFile=big.bmp
+WizardImageBackColor=$ffffff
+WizardSmallImageFile=small.bmp
+WizardImageStretch=no
+CreateUninstallRegKey=no
+UpdateUninstallLogAppName=no
+UninstallFilesDir={app}\uninst
+UsePreviousLanguage=no
+VersionInfoDescription=GIMP Help {#VERSION}
+VersionInfoProductName=GIMP Help {#VERSION}
+#ifdef dontcompress
+OutputDir=_Output\unc
+Compression=none
+InternalCompressLevel=0
+#else
+OutputDir=_Output
+Compression=lzma/ultra
+InternalCompressLevel=ultra
+SolidCompression=yes
+OutputBaseFilename=gimp-help-2-{#VERSION}-{#LANG}-setup
+#endif
+SignedUninstaller=yes
+SignedUninstallerDir=_Uninst
+PrivilegesRequired=lowest
+PrivilegesRequiredOverridesAllowed=commandline
+
+[Languages]
+#if FileExists('D:\Program Files\Inno Setup 6 Dev\Languages\' + LANGUAGE + '.isl')
+ #if FileExists('help.'+LANG+'.isl')
+Name: "{#LANG}"; MessagesFile:
"compiler:Languages\{#LANGUAGE}.isl,N:\gimp\compile\gimp\build\windows\installer\lang\en.setup.isl,N:\gimp\compile\gimp\build\windows\installer\lang\{#LANG}.setup.isl"
+ #else
+Name: "{#LANG}"; MessagesFile:
"compiler:Languages\{#LANGUAGE}.isl,N:\gimp\compile\gimp\build\windows\installer\lang\en.setup.isl"
+ #endif
+#else
+Name: "en"; MessagesFile:
"compiler:Default.isl,N:\gimp\compile\gimp\build\windows\installer\lang\en.setup.isl"
+#endif
+
+[Files]
+#ifndef nofiles
+Source: "N:\gimp\output\2.10.12\x86_64-w64-mingw32\share\gimp\2.0\help\{#LANG}\*.*"; DestDir:
"{app}\share\gimp\2.0\help\{#LANG}"; Flags: recursesubdirs ignoreversion
+#endif
+;Source: "html\{#LANG}\*.jpg"; DestDir: "{app}\share\gimp\2.0\help\{#LANG}"; Flags: recursesubdirs
nocompression
+;Source: "html\{#LANG}\*.png"; DestDir: "{app}\share\gimp\2.0\help\{#LANG}"; Flags: recursesubdirs
nocompression
+
+[Code]
+function WideCharToMultiByte(CodePage: Cardinal; dwFlags: DWORD; lpWideCharStr: String; cchWideCharStr:
Integer;
+ lpMultiByteStr: PAnsiChar; cbMultiByte: Integer; lpDefaultChar: Integer;
+ lpUsedDefaultChar: Integer): Integer; external 'WideCharToMultiByte@Kernel32
stdcall';
+
+function MultiByteToWideChar(CodePage: Cardinal; dwFlags: DWORD; lpMultiByteStr: PAnsiChar; cbMultiByte:
Integer;
+ lpWideCharStr: String; cchWideChar: Integer): Integer;
+ external 'MultiByteToWideChar@Kernel32 stdcall';
+
+function GetLastError(): DWORD; external 'GetLastError@Kernel32 stdcall';
+
+const
+ SHACF_FILESYSTEM = $1;
+ CP_UTF8 = 65001;
+
+ BCM_SETSHIELD = $160C;
+
+ RegGimpUnins = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\GIMP-2_is1';
+ RegGimpUninsPathKey = 'Inno Setup: App Path';
+ RegGimpUninsDispVerKey = 'DisplayVersion';
+
+type
+ TGimpInstall = record
+ Path: String;
+ RequireAdmin: Boolean;
+ InstallCheckbox: TCheckbox;
+ end;
+ TGimpInstalls = array of TGimpInstall;
+
+ TInstallModePreReqs = record
+ Dir: Boolean;
+ PrivOverride: Boolean;
+ end;
+
+var
+ wpInstalls: TWizardPage;
+
+ GimpInstalls: TGimpInstalls;
+
+ InstallMode: (imFindInstalls, imInstall);
+
+ LogParameter: String;
+ SilentParameter: String;
+
+ PreparingCounter: Integer;
+
+
+function Count(What, Where: String): Integer;
+begin
+ Result := 0;
+ if Length(What) = 0 then //nothing to count - should this throw an error?
+ exit;
+
+ while Pos(What,Where)>0 do
+ begin
+ Where := Copy(Where,Pos(What,Where)+Length(What),Length(Where));
+ Result := Result + 1;
+ end;
+end;
+
+
+//split text to array
+procedure Explode(var ADest: TArrayOfString; aText, aSeparator: String);
+var tmp: Integer;
+begin
+ if aSeparator='' then
+ exit;
+
+ SetArrayLength(ADest,Count(aSeparator,aText)+1)
+
+ tmp := 0;
+ repeat
+ if Pos(aSeparator,aText)>0 then
+ begin
+
+ ADest[tmp] := Copy(aText,1,Pos(aSeparator,aText)-1);
+ aText := Copy(aText,Pos(aSeparator,aText)+Length(aSeparator),Length(aText));
+ tmp := tmp + 1;
+
+ end else
+ begin
+
+ ADest[tmp] := aText;
+ aText := '';
+
+ end;
+ until Length(aText)=0;
+end;
+
+
+
+//compares two version numbers, returns -1 if vA is newer, 0 if both are identical, 1 if vB is newer
+function CompareVersion(vA,vB: String): Integer;
+var tmp: TArrayOfString;
+ verA,verB: Array of Integer;
+ i,len: Integer;
+begin
+
+ StringChange(vA,'-','.');
+ StringChange(vB,'-','.');
+
+ Explode(tmp,vA,'.');
+ SetArrayLength(verA,GetArrayLength(tmp));
+ for i := 0 to GetArrayLength(tmp) - 1 do
+ verA[i] := StrToIntDef(tmp[i],0);
+
+ Explode(tmp,vB,'.');
+ SetArrayLength(verB,GetArrayLength(tmp));
+ for i := 0 to GetArrayLength(tmp) - 1 do
+ verB[i] := StrToIntDef(tmp[i],0);
+
+ len := GetArrayLength(verA);
+ if GetArrayLength(verB) < len then
+ len := GetArrayLength(verB);
+
+ for i := 0 to len - 1 do
+ if verA[i] < verB[i] then
+ begin
+ Result := 1;
+ exit;
+ end else
+ if verA[i] > verB[i] then
+ begin
+ Result := -1;
+ exit
+ end;
+
+ if GetArrayLength(verA) < GetArrayLength(verB) then
+ begin
+ Result := 1;
+ exit;
+ end else
+ if GetArrayLength(verA) > GetArrayLength(verB) then
+ begin
+ Result := -1;
+ exit;
+ end;
+
+ Result := 0;
+
+end;
+
+
+function RevPos(const SearchStr, Str: string): Integer;
+var i: Integer;
+begin
+
+ if Length(SearchStr) < Length(Str) then
+ for i := (Length(Str) - Length(SearchStr) + 1) downto 1 do
+ begin
+
+ if Copy(Str, i, Length(SearchStr)) = SearchStr then
+ begin
+ Result := i;
+ exit;
+ end;
+
+ end;
+
+ Result := 0;
+end;
+
+
+function Replace(pSearchFor, pReplaceWith, pText: String): String;
+begin
+ StringChangeEx(pText,pSearchFor,pReplaceWith,True);
+
+ Result := pText;
+end;
+
+
+function Utf82String(const pInput: AnsiString): String;
+var Output: String;
+ ret, outLen, nulPos: Integer;
+begin
+ outLen := MultiByteToWideChar(CP_UTF8, 0, pInput, -1, Output, 0);
+ Output := StringOfChar(#0,outLen);
+ ret := MultiByteToWideChar(CP_UTF8, 0, pInput, -1, Output, outLen);
+
+ if ret = 0 then
+ RaiseException('MultiByteToWideChar failed: ' + IntToStr(GetLastError));
+
+ nulPos := Pos(#0,Output) - 1;
+ if nulPos = -1 then
+ nulPos := Length(Output);
+
+ Result := Copy(Output,1,nulPos);
+end;
+
+
+function LoadStringFromUTF8File(const pFileName: String; var oS: String): Boolean;
+var Utf8String: AnsiString;
+begin
+ Result := LoadStringFromFile(pFileName, Utf8String);
+ oS := Utf82String(Utf8String);
+end;
+
+
+function String2Utf8(const pInput: String): AnsiString;
+var Output: AnsiString;
+ ret, outLen, nulPos: Integer;
+begin
+ outLen := WideCharToMultiByte(CP_UTF8, 0, pInput, -1, Output, 0, 0, 0);
+ Output := StringOfChar(#0,outLen);
+ ret := WideCharToMultiByte(CP_UTF8, 0, pInput, -1, Output, outLen, 0, 0);
+
+ if ret = 0 then
+ RaiseException('WideCharToMultiByte failed: ' + IntToStr(GetLastError));
+
+ nulPos := Pos(#0,Output) - 1;
+ if nulPos = -1 then
+ nulPos := Length(Output);
+
+ Result := Copy(Output,1,nulPos);
+end;
+
+
+function SaveStringToUTF8File(const pFileName, pS: String; const pAppend: Boolean): Boolean;
+begin
+ Result := SaveStringToFile(pFileName, String2Utf8(pS), pAppend);
+end;
+
+
+procedure SaveToUninstInf(const pText: AnsiString);
+var sUnInf: String;
+ sOldContent: String;
+begin
+ sUnInf := ExpandConstant('{app}\uninst\uninst.inf');
+
+ if not FileExists(sUnInf) then //save small header
+ SaveStringToUTF8File(sUnInf,#$feff+'#Additional uninstall tasks'#13#10+ //#$feff BOM is
required for LoadStringsFromFile
+ '#This file uses UTF-8 encoding'#13#10+
+ '#'#13#10+
+ '#Empty lines and lines beginning with # are ignored'#13#10+
+ '#'#13#10+
+ '#Add uninstallers for GIMP add-ons that should be removed
together with GIMP like this:'#13#10+
+ '#Run:<description>/<full path to uninstaller>/<parameters for
automatic uninstall>'#13#10+
+ '#'#13#10+
+ '#The file is parsed in reverse order' + #13#10 +
+ '' + #13#10 //needs '' in front, otherwise preprocessor complains
+ ,False)
+ else
+ begin
+ if LoadStringFromUTF8File(sUnInf,sOldContent) then
+ if Pos(#13#10+pText+#13#10,sOldContent) > 0 then //don't write duplicate lines
+ exit;
+ end;
+
+ SaveStringToUTF8File(sUnInf,pText+#13#10,True);
+end;
+
+
+function ExtractGimpVersion(const VerStr: String): String;
+var p: Integer;
+begin
+ p := Pos('gimp ',LowerCase(VerStr));
+ if p > 0 then
+ Result := Copy(VerStr,p+5,Length(VerStr))
+ else
+ Result := '0';
+end;
+
+
+procedure GetGimpInstall(const RootKey: Integer);
+var n: Integer;
+ Path, Version: String;
+begin
+ if RegQueryStringValue(RootKey, RegGimpUnins, RegGimpUninsPathKey, Path) then
+ if RegQueryStringValue(RootKey, RegGimpUnins, RegGimpUninsDispVerKey, Version) then
+ begin
+ Log('Found GIMP install: ' + Path + '; ' + Version);
+
+ if CompareVersion('{#MIN_VERSION}', Version) >= 0 then
+ begin
+
+ n := GetArrayLength(GimpInstalls);
+ Inc(n);
+ SetArrayLength(GimpInstalls,n);
+ GimpInstalls[n-1].Path := Path;
+ GimpInstalls[n-1].RequireAdmin := not (RootKey = HKCU);
+
+ end;
+
+ end;
+end;
+
+
+function GetGimpInfo(): Boolean;
+begin
+
+ if IsWin64 then
+ GetGimpInstall(HKLM64);
+
+ GetGimpInstall(HKLM);
+
+ GetGimpInstall(HKCU);
+
+ if GetArrayLength(GimpInstalls) = 0 then
+ begin
+
SuppressibleMsgBox(FmtMessage(CustomMessage('NoGimpInstallsFound'),[CustomMessage('GimpHelp'),
'{#MIN_VERSION}']),mbError,MB_OK,IDOK);
+ Result := False
+ end else
+ begin
+ Result := True;
+ end;
+
+end;
+
+
+procedure WriteUninstallInfo();
+begin
+ SaveToUninstInf('Run:GIMP Help/'+ExpandConstant('{uninstallexe}')+'//SILENT /NORESTART');
+end;
+
+
+function InitializeSetup(): Boolean;
+var i: Integer;
+ InstallModePreReqs: TInstallModePreReqs;
+begin
+ Result := True;
+ InstallMode := imFindinstalls; //default
+ PreparingCounter := 0;
+ SilentParameter := '/SILENT'
+
+ InstallModePreReqs.Dir := False;
+ InstallModePreReqs.PrivOverride := False;
+
+ for i := 0 to ParamCount do
+ begin
+ if LowerCase(ParamStr(i)) = '/install' then
+ InstallMode := imInstall
+ else if LowerCase(Copy(ParamStr(i),1,5)) = '/dir=' then
+ InstallModePreReqs.Dir := True
+ else if (LowerCase(Copy(ParamStr(i),1,9)) = '/allusers') or
(LowerCase(Copy(ParamStr(i),1,12)) = '/currentuser') then
+ InstallModePreReqs.PrivOverride := True
+ else if LowerCase(Copy(ParamStr(i),1,4)) = '/log' then
+ LogParameter := ParamStr(i)
+ else if LowerCase(ParamStr(i)) = '/verysilent' then
+ SilentParameter := '/VERYSILENT';
+ end;
+
+ if InstallMode = imInstall then
+ begin
+ //check for required parameters
+ if (InstallModePreReqs.Dir = False) or (InstallModePreReqs.PrivOverride = False) then
+ begin
+ SuppressibleMsgBox(CustomMessage('MissingParameters'),mbError,MB_OK,IDOK);
+ Result := False;
+ end;
+
+ exit;
+ end;
+
+ if Pos('=',LogParameter) > 0 then //needed, because only 1 instance of Setup can write to the same
log file
+ begin
+ i := RevPos('.', LogParameter);
+ if i > 0 then
+ LogParameter := Copy(LogParameter, 1, i) + '?' + Copy(LogParameter, i,
Length(LogParameter) - i + 1)
+ else
+ LogParameter := LogParameter + '.?';
+ Log('New LogParameter: ' + LogParameter);
+ end;
+
+ Result := GetGimpInfo();
+end;
+
+
+procedure CurStepChanged(pCurStep: TSetupStep);
+begin
+ case pCurStep of
+ ssInstall:
+ if InstallMode = imFindinstalls then
+ begin
+ Abort();
+ end;
+ ssPostInstall:
+ begin
+ WriteUninstallInfo();
+ end;
+ end;
+end;
+
+
+function PrepareToInstall(var NeedsRestart: Boolean): String;
+var n, r: Integer;
+ Params: String;
+begin
+ if InstallMode = imFindInstalls then
+ begin
+ WizardForm.Hide;
+
+ for n := 0 to GetArrayLength(GimpInstalls) - 1 do
+ if (GimpInstalls[n].InstallCheckbox = nil) or
(GimpInstalls[n].InstallCheckbox.Checked) then
+ begin
+ Params := '"' + ExpandConstant('{srcexe}') + '" ' + SilentParameter + '
/NOCANCEL /INSTALL /DIR="' +
+ GimpInstalls[n].Path + '" ' +
+ Replace('?', IntToStr(n + 1), LogParameter);
+
+ if GimpInstalls[n].RequireAdmin then
+ Params := Params + ' /ALLUSERS'
+ else
+ Params := Params + ' /CURRENTUSER';
+
+ Log('Running: ' + Params);
+ if Exec('>', Params, GetCurrentDir, SW_SHOW, ewWaitUntilTerminated, r) then
+ Log('Success, Setup return code: ' + IntToStr(r))
+ else
+ Log('Failed, return code: ' + IntToStr(r) + ' (' + SysErrorMessage(r)
+ ')');
+ end;
+
+ WizardForm.Show;
+
+ if not WizardSilent then
+ Result := 'Abort'; //nothing to install in this session, abuse this to abort the
setup, and show "finished" page
+ //(only in non-silent mode, to not show an error dialog; in silent mode,
abort in ssInstall)
+ end;
+end;
+
+
+procedure InstallChecks();
+var n: Integer;
+ SomethingSelected, AdminReqd: Boolean;
+begin
+ AdminReqd := False;
+ SomethingSelected := False;
+
+ for n := 0 to GetArrayLength(GimpInstalls) - 1 do
+ begin
+ if (GimpInstalls[n].InstallCheckbox = nil) or GimpInstalls[n].InstallCheckbox.Checked then
+ begin
+ SomethingSelected := True;
+
+ if GimpInstalls[n].RequireAdmin then
+ AdminReqd := True;
+ end;
+ end;
+
+ WizardForm.NextButton.Enabled := SomethingSelected;
+
+ if AdminReqd then
+ PostMessage(WizardForm.NextButton.Handle, BCM_SETSHIELD, 0, 1)
+ else
+ PostMessage(WizardForm.NextButton.Handle, BCM_SETSHIELD, 0, 0);
+end;
+
+
+procedure CBInstallOnClick(Sender: TObject);
+begin
+ InstallChecks();
+end;
+
+
+procedure InitializeWizard();
+var n: Integer;
+ lblInfo: TNewStaticText;
+begin
+ if (InstallMode = imFindInstalls) and (GetArrayLength(GimpInstalls) > 1) then
+ begin
+ wpInstalls := CreateCustomPage(wpWelcome, CustomMessage('SelectGimpInstallsCaption'),
+
FmtMessage(CustomMessage('SelectGimpInstallsDescription'),[CustomMessage('GimpHelp')]));
+
+ lblInfo := TNewStaticText.Create(wpInstalls);
+ with lblInfo do
+ begin
+ Top := 0;
+ Left := 0;
+ Parent := wpInstalls.Surface;
+ Caption := 'Text';
+ Visible := False;
+ end;
+ WizardForm.AdjustLabelHeight(lblInfo);
+
+ for n := 0 to GetArrayLength(GimpInstalls) - 1 do
+ begin
+ GimpInstalls[n].InstallCheckbox := TCheckBox.Create(wpInstalls);
+ with GimpInstalls[n].InstallCheckbox do
+ begin
+
+ Left := 0;
+ Width := wpInstalls.Surface.Width - Left;
+ if n = 0 then
+ Top := 0 //lblInfo.Top + lblInfo.Height + ScaleY(12)
+ else
+ Top := GimpInstalls[n-1].InstallCheckbox.Top +
GimpInstalls[n-1].InstallCheckbox.Height + ScaleY(12);
+ Height := lblInfo.Height;
+ Tag := n;
+
+ Checked := True;
+ Caption := GimpInstalls[n].Path;
+ OnClick := @CBInstallOnClick;
+
+ Parent := wpInstalls.Surface;
+
+ end;
+ end;
+ end;
+end;
+
+
+function ShouldSkipPage(PageID: Integer): Boolean;
+begin
+ Result := False;
+ case PageID of
+ wpReady:
+ Result := GetArrayLength(GimpInstalls) > 1; //skip the Ready page when confirmation
page was shown
+ end;
+end;
+
+
+procedure ChangeWPPreparing();
+begin
+ Inc(PreparingCounter);
+
+ if PreparingCounter = 2 then //second time happens after PrepareToInstall returns non-empty string
+ begin
+ //TODO: this doesn't look like the normal Finished page
+ WizardForm.NextButton.Visible := False;
+ WizardForm.BackButton.Visible := False;
+ WizardForm.CancelButton.Caption := SetupMessage(msgButtonFinish);
+ WizardForm.PreparingErrorBitmapImage.Visible := False;
+ WizardForm.PreparingLabel.Caption := SetupMessage(msgClickFinish);
+ WizardForm.PreparingLabel.Left := 0;
+ WizardForm.PreparingLabel.Width := WizardForm.PreparingPage.Width;
+ WizardForm.AdjustLabelHeight(WizardForm.PreparingLabel);
+ WizardForm.PageNameLabel.Caption :=
Replace('[name]',CustomMessage('GimpHelp'),SetupMessage(msgFinishedHeadingLabel));
+ WizardForm.PageDescriptionLabel.Caption :=
Replace('[name]',CustomMessage('GimpHelp'),SetupMessage(msgFinishedLabel));
+ end;
+end;
+
+
+procedure CurPageChanged(CurPageID: Integer);
+begin
+ Log('CurPageChanged: ' + IntToStr(CurPageID));
+ if (CurPageID = wpReady) and (InstallMode = imFindInstalls) then
+ InstallChecks();
+
+ if (CurPageID = wpPreparing) and (InstallMode = imFindInstalls) then
+ ChangeWPPreparing();
+
+ if (wpInstalls <> nil) and (CurPageID = wpInstalls.ID) then
+ begin
+ InstallChecks();
+ WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall);
+ end;
+end;
+
+#expr SaveToFile(AddBackslash(SourcePath) + "Preprocessed." + LANG + ".iss")
diff --git a/build/windows/installer/small.bmp b/build/windows/installer/small.bmp
new file mode 100644
index 000000000..5c98ffd6f
Binary files /dev/null and b/build/windows/installer/small.bmp differ
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]
