Установщик NSIS MUI_HEADER_TEXT - Может ли часть этого быть жирным шрифтом? - PullRequest
Новая
       67

Установщик NSIS MUI_HEADER_TEXT - Может ли часть этого быть жирным шрифтом?

0 голосов
/ 04 ноября 2019

Есть ли способ установить часть MUI_HEADER_TEXT установщика в полужирный шрифт?

Я вижу примеры для $ {NSD_CreateLabel} для шрифта, но не для текста заголовка.

! Insertmacro MUI_HEADER_TEXT "Главный "" подтекст с BOLD"

Ответы [ 2 ]

0 голосов
/ 04 ноября 2019

Windows обычно не поддерживает разные шрифты в одном элементе управления. Текст заголовка также является меткой ($mui.Header.SubText в MUIv2).

Некоторые люди используют две метки, когда им требуются части, выделенные полужирным шрифтом, но это немного хак, чтобы выровнять их правильно, и это невозможно сделатьк тексту заголовка, потому что MUI необходимо скрывать / показывать их, когда вы переключаетесь со страниц стиля приветствия / завершения на «обычные» страницы.

Единственный элемент управления, который поддерживает частично выделенный жирным шрифтом текст, - это элемент управления RichEdit и itможно сделать с небольшим взломом: 

!define MUI_CUSTOMFUNCTION_GUIINIT MyGuiInit
!include MUI2.nsh
Page Custom MyPageCreate
!insertmacro MUI_PAGE_DIRECTORY
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_PAGE_FINISH
!insertmacro MUI_LANGUAGE English

!include Util.nsh
Function MyGuiInit
!ifndef NSIS_CONFIG_LICENSEPAGE
    System::Call 'KERNEL32::LoadLibrary(t "RichEd20")'
    System::Call 'KERNEL32::LoadLibrary(t "RichEd32")'
!endif
StrCpy $0 $HWNDPARENT
ShowWindow $mui.Header.SubText 0
StrCpy $2 $mui.Header.SubText
System::Call 'USER32::GetWindowRect(p$2, @r1)'
${IntPtrOp} $3 $1 + 8 
System::Call 'USER32::MapWindowPoints(p0,p$2,p$3,i1)'
System::Call '*$1(&i4i,&i4i,&i4i.r5,&i4i.r6)' ;w&h
System::Call 'USER32::MapWindowPoints(p0,p$0,p$1,i1)'
System::Call '*$1(&i4i.r3,&i4i.r4)' ;l&t

;Try both richedit classes
StrCpy $7 "RichEdit20A"
createRich:
System::Call 'USER32::CreateWindowEx(i ${WS_EX_TRANSPARENT},tr7,p0,\
    i ${WS_VISIBLE}|${WS_CHILD}|${WS_CLIPSIBLINGS}|${ES_READONLY}|${ES_MULTILINE}|${ES_WANTRETURN},\
    i $3,i $4,i $5,i $6,p $0,p0,p0,p0)i.s'
pop $mui.Header.SubText
${If} $mui.Header.SubText = 0
${AndIf} $7 == "RichEdit20A"
    StrCpy $7 "RichEdit"
    goto createRich
${EndIf}

System::Call USER32::BringWindowToTop(p$mui.Header.SubText)
!define /IfNDef /Math EM_SETCHARFORMAT ${WM_USER} + 68
!define /IfNDef LF_FACESIZE 32
!define /IfNDef CFM_COLOR 0x40000000
; Forcing color does not work?
#System::Call '*$1(&l4,i${CFM_COLOR},i0,i,i,i0x${MUI_BGCOLOR},&i1,&i1,&i2,&m${LF_FACESIZE})'
#SendMessage $mui.Header.SubText ${EM_SETCHARFORMAT} 0 $1 $9
#SendMessage $mui.Header.SubText ${EM_SETBKGNDCOLOR} 0 0x${MUI_BGCOLOR}
SendMessage $2 ${WM_GETFONT} 0 0 $1
SendMessage $mui.Header.SubText ${WM_SETFONT} $1 1
FunctionEnd

Function MyPageCreate
!insertmacro MUI_HEADER_TEXT "Main" "{\rtf1{Subtext with a \b Bold \b0 }"
nsDialogs::Create 1018
Pop $0
nsDialogs::Show
FunctionEnd
0 голосов
/ 04 ноября 2019

Я обнаружил, что это невозможно.

Я нашел решение для добавления пользовательских шрифтов в метки легко, без догадок.

Я использовал этот редактор и вставил скрипт в свойнастроить. https://coolsoft.altervista.org

...