; Macro System and Main Logic

; Written by Dan Fuhry

; Portions written by Joost Verburg

; Copyright © 2002-2004 Joost Verburg

; This program is free software; you redistribute and/or modify it

; under the terms of the zlib/libpng license.

; This program is distributed in the hope that it will be useful,

; but WITHOUT ANY WARRANTY; without even the implied warranty of

; merchantability or fitness for a particular purpose.  See the

; zlib/libpng license for details.

; You should have received a copy of the zlib/libpng license with

; this program; if not, visit http://xpui.sf.net/docs/?start=legal.htm.

!ifdef XPUI_INCLUDED

!warning `The ExperienceUI was included multiple times. Please include it only once in your script.`

!endif

!ifndef XPUI_INCLUDED

; We're in. Set verbosity.

!ifndef XPUI_VERBOSE

  !define XPUI_VERBOSE 1

!endif

!verbose push

!verbose ${XPUI_VERBOSE}

!define XPUI_INCLUDED

!ifndef XPUI_SYSDIR

  !define XPUI_SYSDIR "${NSISDIR}\Contrib\ExperienceUI"

!endif

; Add include and plugin directories

!addincludedir "${XPUI_SYSDIR}\..\..\Include"

!addplugindir "${XPUI_SYSDIR}\..\..\Plugins"

; Do some pretty stuff

!verbose 4

; my infamous (new) ASCII art

!ifndef XPUI_SILENT

!echo "\

+-----------------------------------------------------------------------------+$\n\

|                                                                             |$\n\

| |¯¯¯¯¯¯¯|                         _                           |¯|  |¯| |¯|  |$\n\

| | |¯¯¯¯¯                         |_|                          | |  | | | |  |$\n\

| |  ¯¯¯|   _  _        ___   ___   _   ___   ____    ____  ___ | |  | | | |  |$\n\

| | |¯¯¯    \\// |¯¯¯\ / __\ |  _| | | / __\ |  _  \ / __/ / __\| |__| | | |  |$\n\

| |  ¯¯¯¯¯| //\\ | __/ \___/ |_|   |_| \___/ |_| |_| \___\ \___/\______/ |_|  |$\n\

|  ¯¯¯¯¯¯¯  ¯  ¯ |_|                                  [ A better installer ]  |$\n\

+-----------------------------------------------------------------------------+$\n"

!echo `NSIS ExperienceUI User Interface version ${XPUI_VERSION}   $\n\

       Copyright © 2004-2009 Dan Fuhry                            $\n\

                                                                  $\n\

       Portions written by Joost Verburg                          $\n\

       Copyright © 2002-2004 Joost Verburg                        $\n\

                                                                  $\n\

       XPUI: Processing XPUI code...                       $\n`

!endif

!verbose ${XPUI_VERBOSE}

; Compiler check

!define XPUI_NSIS_REQUIRED_FLAGS "NSIS_CONFIG_VISIBLE_SUPPORT | \

                                  NSIS_CONFIG_ENHANCEDUI_SUPPORT | \

                                  NSIS_SUPPORT_CODECALLBACKS | \

                                  NSIS_SUPPORT_INTOPTS | \

                                  NSIS_SUPPORT_STROPTS | \

                                  NSIS_SUPPORT_STACK | \

                                  NSIS_SUPPORT_INIFILES | \

                                  NSIS_SUPPORT_EXECUTE | \

                                  NSIS_SUPPORT_FILE | \

                                  NSIS_SUPPORT_DELETE | \

                                  NSIS_SUPPORT_MESSAGEBOX | \

                                  NSIS_CONFIG_PLUGIN_SUPPORT"

  !ifndef ${XPUI_NSIS_REQUIRED_FLAGS}

    !verbose 4

    !error   "$\n  ExperienceUI: FATAL: MakeNSIS was compiled without certain options that are required in order for the \

                ExperienceUI to work.$\n  The compiler options required in order for core ExperienceUI functionality are: \

                ${XPUI_NSIS_REQUIRED_FLAGS}.$\n  Please remove the ExperienceUI from your script or recompile NSIS to \

                support these features."

  !endif

; Variables

Var /GLOBAL XPUI_TEMP1

Var /GLOBAL XPUI_TEMP2

Var /GLOBAL XPUI_ABORTED

Var /GLOBAL XPUI_HWND

Var /GLOBAL XPUI_NOABORTWARNING

; Basic macros

!macro XPUI_DEFAULT S V

  !ifndef `${S}`

    !define `${S}` `${V}`

  !endif

!macroend

!macro XPUI_SET S V

  !ifdef `${S}`

    !undef `${S}`

  !endif

  !define `${S}` `${V}`

!macroend

!macro XPUI_UNSET S

  !ifdef `${S}`

    !undef `${S}`

  !endif

!macroend

!macro MUI_DEFAULT S V

  !ifndef `${S}`

    !define `${S}` `${V}`

  !endif

!macroend

!macro XPUI_SET_QUOTE_ALT SYMBOL CONTENT

  !ifdef "${SYMBOL}"

    !undef "${SYMBOL}"

  !endif

  !define "${SYMBOL}" "${CONTENT}"

!macroEnd

!macro XPUI_CREATEID

  !ifndef XPUI_UNIQUEID

    !define XPUI_UNIQUEID ${__LINE__}

  !endif

  !ifdef XPUI_UNIQUEID

    !undef XPUI_UNIQUEID

    !define XPUI_UNIQUEID ${__LINE__}

  !endif

!macroend

!macro XPUI_CONVERT XPUI MUI

  !ifdef ${MUI}

    !insertmacro XPUI_SET ${XPUI} `${${MUI}}`

    !undef ${MUI}

  !endif

!macroend

!macro XPUI_CONVERT_QUOTE_ALT XPUI MUI

  !ifdef ${MUI}

    !insertmacro XPUI_SET_QUOTE_ALT ${XPUI} "${${MUI}}"

  !endif

!macroend

!macro XPUI_CONTROL_SKIN HWND

  !ifdef XPUI_FASTERSKINNING

    SetCtlColors ${HWND} `${XPUI_TEXT_COLOR}` `${XPUI_TEXT_BGCOLOR}`

  !else

  !ifdef XPUI_INTERNAL_INTERFACE_INSERTED

    SetCtlColors ${HWND} `${XPUI_TEXT_COLOR}` `${XPUI_TEXT_BGCOLOR}`

  !else

    !ifndef XPUI_EXTERNAL_SKINNER

      Push "${HWND}"

      Call ${XPUI_UNFUNC}xpui.SkinControl

      Pop "${HWND}"

    !endif

  !endif

  !endif

!macroend

!macro XPUI_CONTROL_SKIN_LIGHT HWND

  !ifdef XPUI_FASTERSKINNING

    SetCtlColors ${HWND} `${XPUI_TEXT_LIGHTCOLOR}` `${XPUI_TEXT_BGCOLOR}`

  !else

  !ifdef XPUI_INTERNAL_INTERFACE_INSERTED

    SetCtlColors ${HWND} `${XPUI_TEXT_LIGHTCOLOR}` `${XPUI_TEXT_BGCOLOR}`

  !else

  !ifndef XPUI_EXTERNAL_SKINNER

  Push "${HWND}"

  Call ${XPUI_UNFUNC}xpui.SkinControl.light

  Pop "${HWND}"

  !endif

  !endif

  !endif

!macroend

!macro XPUI_CONTROL_SKIN_TRANS HWND

  !ifdef XPUI_FASTERSKINNING

    SetCtlColors ${HWND} `${XPUI_TEXT_COLOR}` `Transparent`

  !else

  !ifdef XPUI_INTERNAL_INTERFACE_INSERTED

    SetCtlColors ${HWND} `${XPUI_TEXT_COLOR}` `Transparent`

  !else

  !ifndef XPUI_EXTERNAL_SKINNER

  Push "${HWND}"

  Call ${XPUI_UNFUNC}xpui.SkinControl.trans

  Pop "${HWND}"

  !endif

  !endif

  !endif

!macroend

!macro XPUI_CONTROL_SKIN_LIGHT_TRANS HWND

  !ifdef XPUI_FASTERSKINNING

    SetCtlColors ${HWND} `${XPUI_TEXT_LIGHTCOLOR}` `Transparent`

  !else

  !ifdef XPUI_INTERNAL_INTERFACE_INSERTED

    SetCtlColors ${HWND} `${XPUI_TEXT_LIGHTCOLOR}` `Transparent`

  !else

  !ifndef XPUI_EXTERNAL_SKINNER  

  Push "${HWND}"

  Call ${XPUI_UNFUNC}xpui.SkinControl.light.trans

  Pop "${HWND}"

  !endif

  !endif

  !endif

!macroend

!macro XPUI_PAGE_CUSTOMFUNCTION Z

  !ifdef XPUI_PAGE_CUSTOMFUNCTION_${Z}

    Call `${XPUI_PAGE_CUSTOMFUNCTION_${Z}}`

    !undef XPUI_PAGE_CUSTOMFUNCTION_${Z}

  !endif

  ; Modern UI Compatible

  !ifdef MUI_PAGE_CUSTOMFUNCTION_${Z}

    Call `${MUI_PAGE_CUSTOMFUNCTION_${Z}}`

    !undef MUI_PAGE_CUSTOMFUNCTION_${Z}

  !endif

!macroend

!macro XPUI_CONTROL_SKIN_PAGE HWND

  !ifndef XPUI_EXTERNAL_SKINNER

    !ifndef XPUI_BGIMAGE

      !insertmacro XPUI_CONTROL_SKIN ${HWND}

    !else

      !insertmacro XPUI_CONTROL_SKIN_TRANS ${HWND}

    !endif

  !endif

!macroend

!macro XPUI_CONTROL_SKIN_PAGE_NOTRANS HWND

  !ifndef XPUI_EXTERNAL_SKINNER

    !insertmacro XPUI_CONTROL_SKIN ${HWND}

  !endif

!macroend

!macro XPUI_PAGECOLOR_INIT ID

  Push $XPUI_HWND

  FindWindow $XPUI_HWND "#32770" "" $HWNDPARENT

  GetDlgItem $XPUI_HWND $XPUI_HWND ${ID}

  !insertmacro XPUI_CONTROL_SKIN_PAGE $XPUI_HWND

  Pop $XPUI_HWND

!macroend

!macro XPUI_PAGEMODE_INST

  !echo `XPUI Page Mode: INSTALL`

  !insertmacro XPUI_SET XPUI_PAGEMODE_INSERTED ``

  !insertmacro XPUI_SET XPUI_UN ``

  !insertmacro XPUI_SET XPUI_UNINST ``

  !insertmacro XPUI_SET XPUI_UNFUNC ``

  !insertmacro XPUI_SET XPUI_PAGEMODE `Install`

!macroend

!macro XPUI_PAGEMODE_UNINST

  !echo `XPUI Page Mode: UNINSTALL`

  !insertmacro XPUI_SET XPUI_PAGEMODE_INSERTED ``

  !insertmacro XPUI_SET XPUI_UN `UN`

  !insertmacro XPUI_SET XPUI_UNINST `Uninst`

  !insertmacro XPUI_SET XPUI_UNFUNC `un.`

  !insertmacro XPUI_SET XPUI_PAGEMODE `Uninstall`

  !ifndef XPUI_UNINSTALLER

    !define XPUI_UNINSTALLER

  !endif

!macroend

!macro XPUI_PAGEMODE_PUSH

  !insertmacro XPUI_SET XPUI_UN_PUSHED "${XPUI_UN}"

  !insertmacro XPUI_SET XPUI_UNINST_PUSHED "${XPUI_UNINST}"

  !insertmacro XPUI_SET XPUI_UNFUNC_PUSHED "${XPUI_UNFUNC}"

!macroend

!macro XPUI_PAGEMODE_POP

  !insertmacro XPUI_SET XPUI_UN "${XPUI_UN_PUSHED}"

  !insertmacro XPUI_SET XPUI_UNINST "${XPUI_UNINST_PUSHED}"

  !insertmacro XPUI_SET XPUI_UNFUNC "${XPUI_UNFUNC_PUSHED}"

!macroend

!macro XPUI_HEADER_TEXT T S

  Push $XPUI_TEMP1

  GetDlgItem $XPUI_TEMP1 $HWNDPARENT 1037

  SendMessage $XPUI_TEMP1 0xC 0 `STR:${T}`

  GetDlgItem $XPUI_TEMP1 $HWNDPARENT 1038

  SendMessage $XPUI_TEMP1 0xC 0 `STR:${S}`

  !ifdef TEMP

    !define TEMP_PUSH `${TEMP}`

    !undef TEMP

  !endif

  !ifdef XPUI_HEADERIMAGE_NORESIZETOFIT

    !define TEMP " "

  !else

    !define TEMP /RESIZETOFIT

  !endif

  !ifndef XPUI_BGIMAGE

  SetBrandingImage /IMGID=1046 ${TEMP} "$PLUGINSDIR\Header.bmp" ; ...finally...

  !else

  SetBrandingImage /IMGID=1099 ${TEMP} "$PLUGINSDIR\BgImage.bmp"

  !endif

  !undef TEMP

  !ifdef TEMP_PUSH

    !define TEMP `${TEMP_PUSH}`

    !undef TEMP_PUSH

  !endif

  Pop $XPUI_TEMP1

!macroend

!macro XPUI_USERABORT

  StrCmp $XPUI_NOABORTWARNING 1 +7

  IfFileExists $PLUGINSDIR\Finish.ini `` +3

  WriteINIStr $PLUGINSDIR\Finish.ini `Field 1` State 0

  WriteINIStr $PLUGINSDIR\Finish.ini `Field 2` State 0

  StrCpy $XPUI_ABORTED 1

  SendMessage $HWNDPARENT `0x408` `1` ``

  Abort

!macroend

!macro XPUI_INNERDIALOG_TEXT TEXT ID

  Push $XPUI_HWND

  FindWindow $XPUI_HWND "#32770" "" $HWNDPARENT

  GetDlgItem $XPUI_HWND $XPUI_HWND `${ID}`

  SendMessage $XPUI_HWND 0xC 0 `STR:${TEXT}`

  Pop $XPUI_HWND

!macroend

!ifdef XPUI_WANSIS

  !ifndef XPUI_EXTERNAL_SKINNER

    !define XPUI_EXTERNAL_SKINNER

  !endif

!endif

; Install Options

!insertmacro XPUI_DEFAULT XPUI_INSTALLOPTIONS_MAXFIELD 1250

!macro XPUI_INSTALLOPTIONS_EXTRACT FILE

  !verbose push

  !verbose ${XPUI_VERBOSE}

  InitPluginsDir

  IfFileExists "$PLUGINSDIR\${FILE}" +2

    File `/oname=$PLUGINSDIR\${FILE}` `${FILE}`

  !insertmacro XPUI_INSTALLOPTIONS_WRITE `${FILE}` `Settings` `RTL` `$(^RTL)`

  !verbose pop

!macroend

!macro XPUI_INSTALLOPTIONS_EXTRACT_AS FILE FILENAME

  !verbose push

  !verbose ${XPUI_VERBOSE}

  InitPluginsDir

  IfFileExists "$PLUGINSDIR\${FILENAME}" +2

    File `/oname=$PLUGINSDIR\${FILENAME}` `${FILE}`

  !insertmacro XPUI_INSTALLOPTIONS_WRITE `${FILENAME}` `Settings` `RTL` `$(^RTL)`

  !verbose pop

!macroend

!macro XPUI_INSTALLOPTIONS_DISPLAY FILE

  !verbose push

  !verbose ${XPUI_VERBOSE}

  !insertmacro XPUI_CREATEID

  StrCmp $XPUI_ABORTED 1 `` +2

  Abort

  WriteINIStr `$PLUGINSDIR\${FILE}` `Settings` `RTL` `$(^RTL)`

  !insertmacro XPUI_INSTALLOPTIONS_INITDIALOG `${FILE}`

  InstallOptions::show

  !verbose pop

!macroend

!macro XPUI_INSTALLOPTIONS_DISPLAY_RETURN FILE

  !verbose push

  !verbose ${XPUI_VERBOSE}

  !insertmacro XPUI_CREATEID

  StrCmp $XPUI_ABORTED 1 `` +2

  Abort

  WriteINIStr `$PLUGINSDIR\${FILE}` `Settings` `RTL` `$(^RTL)`

  !insertmacro XPUI_INSTALLOPTIONS_INITDIALOG `${FILE}` 

  InstallOptions::show

  !verbose pop

!macroend

!macro XPUI_INSTALLOPTIONS_INITDIALOG FILE

  !verbose push

  !verbose ${XPUI_VERBOSE}

  !insertmacro XPUI_CREATEID

  StrCmp $XPUI_ABORTED 1 `` +2

  Abort

  WriteINIStr `$PLUGINSDIR\${FILE}` `Settings` `RTL` `$(^RTL)`

  InstallOptions::initDialog /NOUNLOAD `$PLUGINSDIR\${FILE}`

  Pop $XPUI_HWND

  LockWindow on

  !insertmacro XPUI_CONTROL_SKIN_PAGE $XPUI_HWND

  Push $R0

  Push $R1

  StrCpy $R0 0

  StrCpy $R1 1199

  ; $R0 = field count

  ; $R1 = control count

  ; $XPUI_TEMP2 = total field count

  ReadINIStr $XPUI_TEMP2 `$PLUGINSDIR\${FILE}` "Settings" "NumFields"

  XPUI.loop.setctl.${XPUI_UNIQUEID}:

    IntOp $R0 $R0 + 1

    IntOp $R1 $R1 + 1

    ReadINIStr $XPUI_TEMP1 `$PLUGINSDIR\${FILE}` "Field $R0" "Type"

    StrCmp $XPUI_TEMP1 "Text"        XPUI.SkinNoTrans.${XPUI_UNIQUEID}

    StrCmp $XPUI_TEMP1 "Password"    XPUI.SkinNoTrans.${XPUI_UNIQUEID}

    StrCmp $XPUI_TEMP1 "Listbox"     XPUI.SkinNoTrans.${XPUI_UNIQUEID}

    StrCmp $XPUI_TEMP1 "Combobox"    XPUI.SkinNoTrans.${XPUI_UNIQUEID}

    StrCmp $XPUI_TEMP1 "Droplist"    XPUI.SkinNoTrans.${XPUI_UNIQUEID}

    StrCmp $XPUI_TEMP1 "FileRequest" XPUI.SkinMulti.${XPUI_UNIQUEID}

    StrCmp $XPUI_TEMP1 "DirRequest"  XPUI.SkinMulti.${XPUI_UNIQUEID}

      GetDlgItem $XPUI_TEMP1 $XPUI_HWND $R1

      !insertmacro XPUI_CONTROL_SKIN_PAGE $XPUI_TEMP1

      Goto XPUI.SkinDone.${XPUI_UNIQUEID}

    XPUI.SkinNoTrans.${XPUI_UNIQUEID}:

      GetDlgItem $XPUI_TEMP1 $XPUI_HWND $R1

      !insertmacro XPUI_CONTROL_SKIN_PAGE_NOTRANS $XPUI_TEMP1

      Goto XPUI.SkinDone.${XPUI_UNIQUEID}

    XPUI.SkinMulti.${XPUI_UNIQUEID}:

      GetDlgItem $XPUI_TEMP1 $XPUI_HWND $R1

      !insertmacro XPUI_CONTROL_SKIN_PAGE $XPUI_TEMP1

      IntOp $R1 $R1 + 1

      GetDlgItem $XPUI_TEMP1 $XPUI_HWND $R1

      !insertmacro XPUI_CONTROL_SKIN_PAGE $XPUI_TEMP1

      Goto XPUI.SkinDone.${XPUI_UNIQUEID}

    XPUI.SkinDone.${XPUI_UNIQUEID}:

    IntCmp $R0 $XPUI_TEMP1 0 XPUI.loop.setctl.${XPUI_UNIQUEID}

  Pop $R1

  Pop $R0

  SetBrandingImage /IMGID=1019 /RESIZETOFIT "$PLUGINSDIR\page.bmp"

  LockWindow off

  Push $XPUI_HWND

  !verbose pop

!macroend

!macro XPUI_INSTALLOPTIONS_SHOW

  !verbose push

  !verbose ${XPUI_VERBOSE}

  InstallOptions::show

  Pop $XPUI_TEMP1

  !verbose pop

!macroend

!macro XPUI_INSTALLOPTIONS_SHOW_RETURN

  !verbose push

  !verbose ${XPUI_VERBOSE}

  InstallOptions::show

  !verbose pop

!macroend

!macro XPUI_INSTALLOPTIONS_READ VAR FILE SECTION KEY

  !verbose push

  !verbose ${XPUI_VERBOSE}

  ReadIniStr ${VAR} `$PLUGINSDIR\${FILE}` `${SECTION}` `${KEY}`

  !verbose pop

!macroend

!macro XPUI_INSTALLOPTIONS_WRITE FILE SECTION KEY VALUE

  !verbose push

  !verbose ${XPUI_VERBOSE}

  WriteIniStr `$PLUGINSDIR\${FILE}` `${SECTION}` `${KEY}` `${VALUE}`

  !verbose pop

!macroend