| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101 |
- Name "BgImage.dll test"
- OutFile "BgImage Test.exe"
- XPStyle on
- RequestExecutionLevel user
- !define DEBUG
- !macro GetReturnValue
- !ifdef DEBUG
- Pop $R9
- StrCmp $R9 success +2
- DetailPrint "Error: $R9"
- !endif
- !macroend
- Function .onGUIInit
- # the plugins dir is automatically deleted when the installer exits
- InitPluginsDir
- # lets extract some bitmaps...
- File /oname=$PLUGINSDIR\1.bmp "${NSISDIR}\Contrib\Graphics\Wizard\llama.bmp"
- File /oname=$PLUGINSDIR\2.bmp "${NSISDIR}\Contrib\Graphics\Checks\modern.bmp"
- !ifdef DEBUG
- # turn return values on if in debug mode
- BgImage::SetReturn on
- !endif
- # set the initial background for images to be drawn on
- # we will use a gradient from drak green to dark red
- BgImage::SetBg /GRADIENT 0 0x80 0 0x80 0 0
- !insertmacro GetReturnValue
- # add an image @ (150,0)
- BgImage::AddImage $PLUGINSDIR\2.bmp 150 0
- !insertmacro GetReturnValue
- # add the same image only transparent (magenta wiped) @ (150,16)
- BgImage::AddImage /TRANSPARENT 255 0 255 $PLUGINSDIR\2.bmp 150 16
- !insertmacro GetReturnValue
- # create the font for the following text
- CreateFont $R0 "Comic Sans MS" 50 700
- # add a blue shadow for the text
- BgImage::AddText "Testing 1... 2... 3..." $R0 0 0 255 48 48 798 198
- !insertmacro GetReturnValue
- # add a green shadow for the text
- BgImage::AddText "Testing 1... 2... 3..." $R0 0 255 0 52 52 802 202
- !insertmacro GetReturnValue
- # add the text
- BgImage::AddText "Testing 1... 2... 3..." $R0 255 0 0 50 50 800 200
- !insertmacro GetReturnValue
- # show our creation to the world!
- BgImage::Redraw
- # Refresh doesn't return any value
-
- FunctionEnd
- ShowInstDetails show
- Section
- # play some sounds
- FindFirst $0 $1 $WINDIR\Media\*.wav
- StrCmp $0 "" skipSound
- moreSounds:
- StrCmp $1 "" noMoreSounds
- BgImage::Sound /WAIT $WINDIR\Media\$1
- # Sound doesn't return any value either
- MessageBox MB_YESNO "Another sound?" IDNO noMoreSounds
- FindNext $0 $1
- Goto moreSounds
- noMoreSounds:
- FindClose $0
- skipSound:
- # change the background image to Mike, tiled
- BgImage::SetBg /TILED $PLUGINSDIR\1.bmp
- !insertmacro GetReturnValue
- # we have to redraw to reflect the changes
- BgImage::Redraw
- MessageBox MB_OK "Mike the llama"
- # clear everything
- BgImage::Clear
- # Clear doesn't return any value
- # set another gradient
- BgImage::SetBg /GRADIENT 0xFF 0xFA 0xBA 0xAA 0xA5 0x65
- !insertmacro GetReturnValue
- # add some text
- BgImage::AddText "A Desert for Mike" $R0 0 0 0 50 50 800 150
- !insertmacro GetReturnValue
- # add mike as an image
- BgImage::AddImage $PLUGINSDIR\1.bmp 50 150
- !insertmacro GetReturnValue
- # again, we have to call redraw to reflect changes
- BgImage::Redraw
- SectionEnd
- Function .onGUIEnd
- BgImage::Destroy
- # Destroy doesn't return any value
- FunctionEnd
|
