87 lines
2.7 KiB
Plaintext
87 lines
2.7 KiB
Plaintext
!macro SetFont font parent control
|
|
GetDlgItem $0 ${parent} ${control}
|
|
SendMessage $0 ${WM_SETFONT} ${font} 0
|
|
!macroend
|
|
|
|
!macro SetControlColor parent control color
|
|
GetDlgItem $0 ${parent} ${control}
|
|
SetCtlColors $0 ${color} SYSCLR:WINDOW
|
|
!macroend
|
|
|
|
!macro SetBackground parent control
|
|
!insertmacro SetControlColor ${parent} ${control} SYSCLR:WINDOWTEXT
|
|
!macroend
|
|
|
|
Var /GLOBAL ChildHwnd
|
|
|
|
!macro -AeroWizardOnShow
|
|
; Get the child window where the wizard page is
|
|
FindWindow $ChildHwnd "#32770" "" $HWNDPARENT
|
|
|
|
; Set font
|
|
${If} ${AtLeastWinVista}
|
|
; Aero wizard style
|
|
${If} ${AtLeastWin11}
|
|
; Semi-Fluent style
|
|
CreateFont $3 "Segoe UI Variable Display Semibold" 14 600
|
|
!insertmacro SetControlColor $HWNDPARENT 1037 SYSCLR:WINDOWTEXT
|
|
${Else}
|
|
CreateFont $3 "Segoe UI" 12 400
|
|
!insertmacro SetControlColor $HWNDPARENT 1037 0x003399
|
|
${EndIf}
|
|
CreateFont $2 "Segoe UI" 8 400
|
|
!insertmacro SetFont $3 $HWNDPARENT 1037
|
|
!insertmacro SetFont $2 $HWNDPARENT 1
|
|
!insertmacro SetFont $2 $HWNDPARENT 2
|
|
!insertmacro SetFont $2 $HWNDPARENT 3
|
|
!insertmacro SetFont $2 $HWNDPARENT 1028
|
|
!insertmacro SetFont $2 $ChildHwnd 1000
|
|
!insertmacro SetFont $2 $ChildHwnd 1004
|
|
!insertmacro SetFont $2 $ChildHwnd 1006
|
|
!insertmacro SetFont $2 $ChildHwnd 1016
|
|
!insertmacro SetFont $2 $ChildHwnd 1022
|
|
!insertmacro SetFont $2 $ChildHwnd 1023
|
|
!insertmacro SetFont $2 $ChildHwnd 1029
|
|
!insertmacro SetFont $2 $ChildHwnd 1027
|
|
!insertmacro SetFont $2 $ChildHwnd 1032
|
|
!insertmacro SetFont $2 $ChildHwnd 1043
|
|
${Else}
|
|
; Wizard97 style
|
|
${If} ${FileExists} "$FONTS\framd.ttf"
|
|
CreateFont $2 "Franklin Gothic Medium" 13 400
|
|
!insertmacro SetFont $2 $HWNDPARENT 1037
|
|
!insertmacro SetControlColor $HWNDPARENT 1037 0x003399
|
|
${Else}
|
|
CreateFont $2 "Verdana" 12 800
|
|
!insertmacro SetFont $2 $HWNDPARENT 1037
|
|
!insertmacro SetControlColor $HWNDPARENT 1037 SYSCLR:WINDOWTEXT
|
|
${EndIf}
|
|
${EndIf}
|
|
|
|
; Set white background
|
|
SetCtlColors $HWNDPARENT SYSCLR:WINDOWTEXT SYSCLR:WINDOW
|
|
SetCtlColors $ChildHwnd SYSCLR:WINDOWTEXT SYSCLR:WINDOW
|
|
!insertmacro SetBackground $ChildHwnd 1020
|
|
!insertmacro SetBackground $ChildHwnd 1028
|
|
!insertmacro SetBackground $ChildHwnd 1006
|
|
!insertmacro SetBackground $ChildHwnd 1022
|
|
!insertmacro SetBackground $ChildHwnd 1023
|
|
!insertmacro SetBackground $ChildHwnd 1027
|
|
!insertmacro SetBackground $ChildHwnd 1029
|
|
!insertmacro SetBackground $ChildHwnd 1032
|
|
!insertmacro SetBackground $ChildHwnd 1043
|
|
|
|
; Activate taskbar progress bar plugin
|
|
${If} ${AtLeastWin7}
|
|
LegacyUpdateNSIS::InitTaskbarProgress
|
|
${EndIf}
|
|
!macroend
|
|
|
|
Function AeroWizardOnShow
|
|
!insertmacro -AeroWizardOnShow
|
|
FunctionEnd
|
|
|
|
Function un.AeroWizardOnShow
|
|
!insertmacro -AeroWizardOnShow
|
|
FunctionEnd
|