Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Sancho5555

Новый участник


Сообщения: 8
Благодарности: 2

Профиль | Отправить PM | Цитировать


Вложения
Тип файла: 7z transparent.7z
(5.1 Kb, 6 просмотров)

Есть плагин от K.A.V. для установки прозрачности окна инсталлятора - для примера код:
Скрытый текст
Код: Выделить весь код
!include "MUI2.nsh"
!define TBM_SETPOS 0x0405
!define TBM_GETPOS 0x0400
!define TBM_SETRANGEMIN 0x0407
!define TBM_SETRANGEMAX 0x0408

!addplugindir "."
!insertmacro MUI_LANGUAGE "Russian"

Name "transparent plugin example"
OutFile "transparent.exe" 
XPStyle on

Var transparent
Var Slider
Var Move
Var Label
Var Button

Page custom Create

Function Slider
  SendMessage $Slider ${TBM_GETPOS} 0 0 $Move
  transparent::SetTransparentWindowStyle "$Move"
  ${NSD_SetText} $Label "$Move"
FunctionEnd

Function Create
  nsDialogs::Create 1018
  Pop $transparent
	
  nsDialogs::CreateControl "msctls_trackbar32" "0x50010000|0x00000018" "" 80u 100u 200 60 ""
  Pop $Slider
  SendMessage $Slider ${TBM_SETRANGEMIN} 1 50
  SendMessage $Slider ${TBM_SETRANGEMAX} 1 255
  SendMessage $Slider ${TBM_SETPOS} 1 255
  transparent::SetTransparentWindowStyle "255"
	
  ${NSD_CreateLabel} 215u 104u 30u 30u ""
  Pop $Label
	
  ${NSD_CreateButton} 20u 103u 51u 12u "Обзор"
  Pop $Button
  ${NSD_OnClick} $Button Example
	
  ${NSD_CreateTimer} Slider 50
  nsDialogs::Show $transparent
FunctionEnd

Function Example
  nsDialogs::SelectFolderDialog /NOUNLOAD "" ""
  Pop $0
FunctionEnd

Section
SectionEnd

Прозрачность работает, но после нажатия кнопки "Обзор" transparent плагин перестаёт работать.
В чём может быть проблема?

Отправлено: 15:14, 16-03-2016 | #2008