mirror of
https://github.com/LegacyUpdate/LegacyUpdate.git
synced 2025-01-23 14:32:02 -05:00
90 lines
2.5 KiB
NSIS
90 lines
2.5 KiB
NSIS
!macro TaskDialog title mainInstruction content buttons icon
|
|
System::Call "comctl32::TaskDialog(p $HWNDPARENT, \
|
|
p 0, \
|
|
w ${title}, \
|
|
w ${mainInstruction}, \
|
|
w ${content}, \
|
|
i ${buttons}, \
|
|
i ${icon}, \
|
|
*i .r0)"
|
|
!macroend
|
|
|
|
!macro SetFont font parent control
|
|
Push $0
|
|
GetDlgItem $0 ${parent} ${control}
|
|
SendMessage $0 ${WM_SETFONT} ${font} 0
|
|
Pop $0
|
|
!macroend
|
|
|
|
!macro SetControlColor parent control color
|
|
Push $0
|
|
GetDlgItem $0 ${parent} ${control}
|
|
SetCtlColors $0 ${color} SYSCLR:WINDOW
|
|
Pop $0
|
|
!macroend
|
|
|
|
!macro SetBackground parent control
|
|
!insertmacro SetControlColor ${parent} ${control} SYSCLR:WINDOWTEXT
|
|
!macroend
|
|
|
|
!macro -AeroWizardOnShow
|
|
; Get the child window where the wizard page is
|
|
FindWindow $0 "#32770" "" $HWNDPARENT
|
|
|
|
; Set font
|
|
${If} ${AtLeastWinVista}
|
|
; Aero wizard style
|
|
CreateFont $2 "Segoe UI" 8 400
|
|
CreateFont $3 "Segoe UI" 12 400
|
|
!insertmacro SetFont $3 $HWNDPARENT 1037
|
|
!insertmacro SetControlColor $HWNDPARENT 1037 0x003399
|
|
!insertmacro SetFont $2 $HWNDPARENT 1
|
|
!insertmacro SetFont $2 $HWNDPARENT 2
|
|
!insertmacro SetFont $2 $HWNDPARENT 3
|
|
!insertmacro SetFont $2 $HWNDPARENT 1028
|
|
!insertmacro SetFont $2 $0 1000
|
|
!insertmacro SetFont $2 $0 1004
|
|
!insertmacro SetFont $2 $0 1006
|
|
!insertmacro SetFont $2 $0 1016
|
|
!insertmacro SetFont $2 $0 1022
|
|
!insertmacro SetFont $2 $0 1023
|
|
!insertmacro SetFont $2 $0 1029
|
|
!insertmacro SetFont $2 $0 1027
|
|
!insertmacro SetFont $2 $0 1032
|
|
!insertmacro SetFont $2 $0 1043
|
|
${Else}
|
|
; Wizard97 style
|
|
${If} ${FileExists} "$FONTS\framd.ttf"
|
|
CreateFont $2 "Franklin Gothic Medium" 12 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 $0 SYSCLR:WINDOWTEXT SYSCLR:WINDOW
|
|
!insertmacro SetBackground $0 1020
|
|
!insertmacro SetBackground $0 1028
|
|
!insertmacro SetBackground $0 1006
|
|
!insertmacro SetBackground $0 1022
|
|
!insertmacro SetBackground $0 1023
|
|
!insertmacro SetBackground $0 1029
|
|
!insertmacro SetBackground $0 1032
|
|
!insertmacro SetBackground $0 1043
|
|
|
|
; Activate taskbar progress bar plugin
|
|
w7tbp::Start
|
|
!macroend
|
|
|
|
Function AeroWizardOnShow
|
|
!insertmacro -AeroWizardOnShow
|
|
FunctionEnd
|
|
|
|
Function un.AeroWizardOnShow
|
|
!insertmacro -AeroWizardOnShow
|
|
FunctionEnd
|