dragonleo/NSIS
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

accidentally committed the wrong version

Browse source 
this new version uses macros to make the script nicer

git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@5804 212acab6-be3b-0410-9dea-997c60f758d6
This commit is contained in:
kichik 2008-11-29 18:01:29 +00:00
parent dba6bb4210
commit d8a75f9c10
1 changed files with 35 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

85
Contrib/nsDialogs/timer.nsi
View file

@ -1,14 +1,9 @@
!include LogicLib.nsh
!include nsDialogs.nsh !include nsDialogs.nsh
!define PBM_SETPOS 0x0402 Name "nsDialogs Timer Example"
!define PBM_DELTAPOS 0x0403 OutFile "nsDialogs Timer Example.exe"
!define PBM_GETPOS 1032 XPStyle on
!addplugindir "."
Name "nsDialogs Example"
OutFile "nsDialogs Example.exe"
XpStyle on
Var DIALOG Var DIALOG
Var TEXT Var TEXT
@ -17,56 +12,56 @@ Var PROGBAR2
Var PROGBAR3 Var PROGBAR3
Var BUTTON Var BUTTON
Var BUTTON2 Var BUTTON2
Var TIMERID
Var TIMERID2
Page custom nsDialogsPage Page custom nsDialogsPage
Function OnTimer Function OnTimer
Pop $0 ; Timer id
SendMessage $PROGBAR ${PBM_GETPOS} 0 0 $1 SendMessage $PROGBAR ${PBM_GETPOS} 0 0 $1
StrCmp $1 100 0 +3 ${If} $1 = 100
SendMessage $PROGBAR ${PBM_SETPOS} 0 0 SendMessage $PROGBAR ${PBM_SETPOS} 0 0
Goto +2 ${Else}
SendMessage $PROGBAR ${PBM_DELTAPOS} 10 0 SendMessage $PROGBAR ${PBM_DELTAPOS} 10 0
${EndIf}
FunctionEnd FunctionEnd
Function OnTimer2 Function OnTimer2
Pop $0 ; Timer id
SendMessage $PROGBAR2 ${PBM_GETPOS} 0 0 $1 SendMessage $PROGBAR2 ${PBM_GETPOS} 0 0 $1
StrCmp $1 100 0 +3 ${If} $1 = 100
SendMessage $PROGBAR2 ${PBM_SETPOS} 0 0 SendMessage $PROGBAR2 ${PBM_SETPOS} 0 0
Goto +2 ${Else}
SendMessage $PROGBAR2 ${PBM_DELTAPOS} 5 0 SendMessage $PROGBAR2 ${PBM_DELTAPOS} 5 0
${EndIf}
FunctionEnd FunctionEnd
Function OnTimer3 Function OnTimer3
Pop $0 ; Timer id
SendMessage $PROGBAR3 ${PBM_GETPOS} 0 0 $1 SendMessage $PROGBAR3 ${PBM_GETPOS} 0 0 $1
IntCmp $1 85 0 +4 0 ${If} $1 >= 100
nsDialogs::DestroyTimer /NOUNLOAD $0 ${NSD_KillTimer} OnTimer3
MessageBox MB_OK "Timer 3 killed" MessageBox MB_OK "Timer 3 killed"
Goto +2 ${Else}
SendMessage $PROGBAR3 ${PBM_DELTAPOS} 2 0 SendMessage $PROGBAR3 ${PBM_DELTAPOS} 2 0
${EndIf}
FunctionEnd FunctionEnd
Function OnClick Function OnClick
Pop $0 Pop $0
nsDialogs::DestroyTimer /NOUNLOAD $TIMERID ${NSD_KillTimer} OnTimer
FunctionEnd FunctionEnd
Function OnClick2 Function OnClick2
Pop $0 Pop $0
nsDialogs::DestroyTimer /NOUNLOAD $TIMERID2 ${NSD_KillTimer} OnTimer2
FunctionEnd FunctionEnd
@ -75,39 +70,29 @@ Function nsDialogsPage
nsDialogs::Create /NOUNLOAD 1018 nsDialogs::Create /NOUNLOAD 1018
Pop $DIALOG Pop $DIALOG
nsDialogs::CreateControl /NOUNLOAD "STATIC" ${DEFAULT_STYLES} ${WS_EX_TRANSPARENT} 0u 0u 100% 9u "nsDialogs timer example" ${NSD_CreateLabel} 0u 0u 100% 9u "nsDialogs timer example"
Pop $TEXT Pop $TEXT
nsDialogs::CreateControl /NOUNLOAD "msctls_progress32" ${DEFAULT_STYLES} "" 0u 10u 100% 12u "" ${NSD_CreateProgressBar} 0u 10u 100% 12u ""
Pop $PROGBAR Pop $PROGBAR
nsDialogs::CreateControl /NOUNLOAD "BUTTON" ${DEFAULT_STYLES}|${WS_TABSTOP} "" 0u 25u 100u 14u "Kill Timer 1" ${NSD_CreateButton} 0u 25u 100u 14u "Kill Timer 1"
Pop $BUTTON Pop $BUTTON
GetFunctionAddress $0 OnClick ${NSD_OnClick} $BUTTON OnClick
nsDialogs::OnClick /NOUNLOAD $BUTTON $0
nsDialogs::CreateControl /NOUNLOAD "msctls_progress32" ${DEFAULT_STYLES} "" 0u 52u 100% 12u "" ${NSD_CreateProgressBar} 0u 52u 100% 12u ""
Pop $PROGBAR2 Pop $PROGBAR2
nsDialogs::CreateControl /NOUNLOAD "BUTTON" ${DEFAULT_STYLES}|${WS_TABSTOP} "" 0u 67u 100u 14u "Kill Timer 2" ${NSD_CreateButton} 0u 67u 100u 14u "Kill Timer 2"
Pop $BUTTON2 Pop $BUTTON2
GetFunctionAddress $0 OnClick2 ${NSD_OnClick} $BUTTON2 OnClick2
nsDialogs::OnClick /NOUNLOAD $BUTTON2 $0
nsDialogs::CreateControl /NOUNLOAD "msctls_progress32" ${DEFAULT_STYLES} "" 0u 114u 100% 12u "" ${NSD_CreateProgressBar} 0u 114u 100% 12u ""
Pop $PROGBAR3 Pop $PROGBAR3
GetFunctionAddress $0 OnTimer ${NSD_CreateTimer} OnTimer 1000
nsDialogs::CreateTimer /NOUNLOAD 1000 $0 ${NSD_CreateTimer} OnTimer2 100
Pop $TIMERID ${NSD_CreateTimer} OnTimer3 200
GetFunctionAddress $0 OnTimer2
nsDialogs::CreateTimer /NOUNLOAD 100 $0
Pop $TIMERID2
GetFunctionAddress $0 OnTimer3
nsDialogs::CreateTimer /NOUNLOAD 200 $0
Pop $0
nsDialogs::Show nsDialogs::Show