Новый участник
Сообщения: 3
Благодарности: 0
|
Профиль
|
Отправить PM
| Цитировать
Цитата iglezz:
Да, конечно, овнокодинг и велосипедостроение.
!define MUI_HEADERIMAGE
!define MUI_HEADERIMAGE_BITMAP "..\img\test_top_logo.bmp"
!define MUI_HEADER_TRANSPARENT_TEXT
!define MUI_HEADERIMAGE_BITMAP_NOSTRETCH
(...)
# LICENSE PAGE
!define MUI_PAGE_HEADER_TEXT "End User License Agreement"
!define MUI_PAGE_HEADER_SUBTEXT "Please read the following license agreement \
carefully"
!define MUI_PAGE_CUSTOMFUNCTION_PRE LicensePagePre
!define MUI_LICENSEPAGE_CHECKBOX
!insertmacro MUI_PAGE_LICENSE "..\..\..\EULA\LICENSE.rtf"
(...)
Function LicensePagePre
${If} 1 == $GoToFinish
Abort
${EndIf}
Call ChangeHeaderTextPos
FunctionEnd
(...)
Function ${un}ChangeHeaderTextPos
System::Call "*${stRECT} .r1"
System::Call "User32::GetWindowRect(i, i) i ($mui.Header.Text, r1) .r2"
System::Call "*$1${stRECT} (.r2, .r3, .r4, .r5)"
IntOp $6 $4 - $2
IntOp $7 $5 - $3
MessageBox MB_OK "$4-$2=$6 $5-$3=$7"
!define ${un}HWND_TOPMOST -1
; System::Call "User32::SetWindowPos(i, i, i, i, i, i, i) \
; b ($mui.Header.Text, ${HWND_TOPMOST}, 20, 15, ir6, ir7, ${SWP_NOMOVE}|${SWP_NOSIZE})" ; hwnd hwndafterZdepth x y w h flags
System::Call "User32::SetWindowPos(i, i, i, i, i, i, i) \
b ($mui.Header.Text, 0, 20, 15, ir6, ir7, 0" ; hwnd hwndafterZdepth x y w h flags
CreateFont $2 "$(^Font)" "9" "700"
SendMessage $mui.Header.Text ${WM_SETFONT} $2 0
SetCtlColors $mui.Header.Text "0x0F0FAF" "transparent"
System::Call "*${stRECT} .r1"
System::Call "User32::GetWindowRect(i, i) i ($mui.Header.Text, r1) .r2"
System::Call "*$1${stRECT} (.r2, .r3, .r4, .r5)"
IntOp $6 $4 - $2
IntOp $7 $5 - $3
MessageBox MB_OK "$4-$2=$6 $5-$3=$7"
CreateFont $3 "$(^Font)" "8" "700"
SendMessage $mui.Header.SubText ${WM_SETFONT} $3 0
SetCtlColors $mui.Header.SubText "0x0F0FAF" "transparent"
System::Call "*${stRECT} .r1"
System::Call "User32::GetWindowRect(i, i) i ($mui.Header.SubText, r1) .r2"
System::Call "*$1${stRECT} (.r2, .r3, .r4, .r5)"
IntOp $6 $4 - $2
IntOp $7 $5 - $3
System::Call "User32::SetWindowPos(i, i, i, i, i, i, i) \
b ($mui.Header.SubText, 0, 40, 30, ir6, ir7, 0)" ; hwnd hwndafterZdepth x y w h flags
GetDlgItem $8 $HWNDPARENT 0x416 ; Header image
GetDlgItem $9 $HWNDPARENT 0x40A ; Header
System::Call "User32::SetWindowPos(i, i, i, i, i, i, i) \
b ($8, $9, 0, 0, 497, 57, 0)" ; hwnd hwndafterZdepth x y w h flags
FunctionEnd »
|
|