dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

build/windows: Use native icon from 'imageres.dll' on Installer dir page

This commit is contained in:
Bruno Lopes 2025-04-08 13:37:55 -03:00
parent cef5ab3992
commit 64d63cd937
No known key found for this signature in database
2 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
build/windows/installer/base_gimp3264.iss
View File

@ -915,8 +915,39 @@ begin
end;
//3. INSTALL DIR (no customizations)
//3. INSTALL DIR: override Inno custom dir icon
procedure NativeDirIcon();
var TypRect: TRect;
Icon: THandle;
IconSize: Integer;
begin
WizardForm.SelectDirBitmapImage.Visible := False;
Icon := ExtractIcon(0,'imageres.dll',3)
with TBitmapImage.Create(WizardForm.SelectDirPage) do begin
Parent := WizardForm.SelectDirPage;
with Bitmap do begin
Left := 0;
Top := 0;
AutoSize := True;
Center := True;
Width := ScaleY(32);
Height := ScaleY(32);
Canvas.FillRect(TypRect);
if WizardForm.Font.PixelsPerInch >= 168 then begin //175% scaling
IconSize := 64;
end else if WizardForm.Font.PixelsPerInch >= 144 then begin //150% scaling
IconSize := 48;
end else if WizardForm.Font.PixelsPerInch >= 120 then begin //125% scaling
IconSize := 32;
end else begin //100% scaling
IconSize := 32;
end;
DrawIconEx(Canvas.Handle, 0, 0, Icon, IconSize, IconSize, 0, 0, DI_NORMAL);
end;
end;
end;
//4. COMPONENTS: Add panel with description on click, to the right of the list
var
@ -1742,6 +1773,7 @@ procedure InitializeWizard();
begin
UpdateWizardImages();
InitCustomPages();
NativeDirIcon();
end;
function ShouldSkipPage(pPageID: Integer): Boolean;

2
build/windows/installer/util_MessageWithURL.isi
View File

@ -50,7 +50,7 @@ function ExtractIcon(hInstance: Integer; lpszExeFileName: String; nIconIndex: In
//function LoadIcon(hInstance: Integer; lpIconName: Integer): Integer; external 'LoadIconW@user32 stdcall';
//function LoadImage(hinst: Integer; lpszName: Integer; uType: Cardinal; cxDesired, cyDesired: Integer; fuLoad: Cardinal): Integer; external 'LoadImageW@user32 stdcall';
function DrawIcon(hdc: HBitmap; x,y: Integer; hIcon: Integer): Integer; external 'DrawIcon@user32 stdcall';
//function DrawIconEx(hdc: HBitmap; xLeft,yTop: Integer; hIcon: Integer; cxWidth, cyWidth: Integer; istepIfAniCur: Cardinal; hbrFlickerFreeDraw: Integer; diFlags: Cardinal): Integer; external 'DrawIconEx@user32 stdcall';
function DrawIconEx(hdc: HBitmap; xLeft,yTop: Integer; hIcon: Integer; cxWidth, cyWidth: Integer; istepIfAniCur: Cardinal; hbrFlickerFreeDraw: Integer; diFlags: Cardinal): Integer; external 'DrawIconEx@user32 stdcall';
//function DestroyIcon(hIcon: Integer): Integer; external 'DestroyIcon@user32 stdcall';
function DrawFocusRect(hDC: Integer; var lprc: TRect): BOOL; external 'DrawFocusRect@user32 stdcall';