Component Page Description-Box Scrollbar - nsis

Question

I´m searching for a Solution to implement a Scrollbar to the Descriptionbox on the MUI2 Component page. Because i got a large text to fill in.
To make the UI bigger is the last option what i want to use.
I tried to implement the UMUI, with the option MUIEx to use the big description option, but with no effect.

Answer 1

There is no native support for this but putting a edit box there and hacking the change notification a bit seems to work OK:
OutFile Test.exe
RequestExecutionLevel user
!define MUI_CUSTOMFUNCTION_ONMOUSEOVERSECTION myOnMouseOver
!include MUI2.nsh
!insertmacro MUI_PAGE_WELCOME
!define MUI_PAGE_CUSTOMFUNCTION_PRE myCompPagePre
!insertmacro MUI_PAGE_COMPONENTS
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_LANGUAGE "English"
Var LastText
Var ScrollWindow
!include LogicLib.nsh
!define /IfNDef SB_VERT 1
Function myCompPagePre
StrCpy $ScrollWindow ""
FunctionEnd
Function myOnMouseOver
${If} $ScrollWindow P= 0
System::Call 'USER32::GetWindowRect(p$mui.ComponentsPage.DescriptionText,#r0)' ; NSIS v3+
System::Call 'USER32::GetParent(p$mui.ComponentsPage.DescriptionText)p.s'
System::Call '*$0(i.r1,i.r2,i.r3,i.r4)'
IntOp $3 $3 - $1
IntOp $4 $4 - $2
System::Call 'USER32::MapWindowPoints(p0, pss, pr0, i1)'
System::Call '*$0(i.r1,i.r2)'
System::Call 'USER32::CreateWindowEx(i0, t"EDIT", p0, i ${WS_VISIBLE}|${WS_CHILD}|${WS_VSCROLL}|${ES_MULTILINE}|${ES_READONLY}, i r1, i r2, i r3, i r4, ps, p0, p0, p0)p.s'
Pop $ScrollWindow
ShowWindow $mui.ComponentsPage.DescriptionText 0
SendMessage $mui.ComponentsPage.DescriptionText ${WM_GETFONT} 0 0 $0
SendMessage $ScrollWindow ${WM_SETFONT} $0 1
${EndIf}
${NSD_GetText} $mui.ComponentsPage.DescriptionText $0
System::Call 'USER32::IsWindowEnabled(p$mui.ComponentsPage.DescriptionText)i.r1'
${If} $1 <> 0 ; No hover text?
StrCpy $LastText $0
${EndIf}
${NSD_SetText} $ScrollWindow $LastText
System::Call 'USER32::ShowScrollBar(p $ScrollWindow, i ${SB_VERT}, i 1)'
System::Call 'USER32::GetScrollRange(p $ScrollWindow, i ${SB_VERT}, *i.r0, *i.r1)'
${If} $0 = $1
System::Call 'USER32::ShowScrollBar(p $ScrollWindow, i ${SB_VERT}, i 0)'
${EndIf}
FunctionEnd
Section SecA SID_A
SectionEnd
Section SecB SID_B
SectionEnd
!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
!insertmacro MUI_DESCRIPTION_TEXT ${SID_A} "aaa a a aa a "
!define longstr "Very looooooo o o o o o oo o o o o o ooo o o ng stri i i i i i in ng"
!insertmacro MUI_DESCRIPTION_TEXT ${SID_B} "bbb b b b b b b b b b b b ${longstr} ${longstr} ${longstr} ${longstr} ${longstr} END"
!insertmacro MUI_FUNCTION_DESCRIPTION_END