Beiträge von Keyle

[autoit]

#include <GUIConstants.au3>
#include <string.au3>
#include <array.au3>
#include <Constants.au3>
#include <StaticConstants.au3>
#include <SliderConstants.au3>
#include <EditConstants.au3>
#include <Sound.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Player", 80, 316, 652, 187)
GUISetBkColor(0xC8C8C8)
$Volume = GUICtrlCreateSlider(10, 32, 32, 180, BitOR($TBS_VERT, $TBS_AUTOTICKS, $TBS_BOTH))
GUICtrlSetData(-1, 50)
$Labelvolume = GUICtrlCreateLabel(GUICtrlRead($volume),15, 215)
GUICtrlSetFont(-1, 10, 400, 2, "Century Gothic")
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select

[/autoit] [autoit][/autoit] [autoit]

Case $Volume
SoundSetWaveVolume(GUICtrlRead($Volume))
GUICtrlSetData($Labelvolume,100-GUICtrlRead($volume))

[/autoit] [autoit][/autoit] [autoit]

EndSelect
WEnd

[/autoit]

[autoit]

#include <GDIPlus.au3>; this is where the magic happens, people
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("MustDeclareVars", 0)

[/autoit] [autoit][/autoit] [autoit]

Global Const $AC_SRC_ALPHA = 1
;~ Global Const $ULW_ALPHA = 2

[/autoit] [autoit][/autoit] [autoit]

; Load PNG file as GDI bitmap
_GDIPlus_Startup()
$pngSrc = @ScriptDir & "\back.png"
$hImage = _GDIPlus_ImageLoadFromFile($pngSrc)

[/autoit] [autoit][/autoit] [autoit]

; Extract image width and height from PNG
$width = _GDIPlus_ImageGetHeight($hImage)
$height = _GDIPlus_ImageGetHeight($hImage)

[/autoit] [autoit][/autoit] [autoit]

If $width < 500 Then
_ImageResize(@ScriptDir & "\back.png",@ScriptDir & "\resize_back.png",52, 600)
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\resize_back.png")
$width = _GDIPlus_ImageGetHeight($hImage)
$height = _GDIPlus_ImageGetHeight($hImage)
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Create layered window
$GUI = GUICreate("Test GUI", $width, $height, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
;~ SetBitmap($GUI, $hImage, 255)
; Register notification messages
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()
WinSetOnTop($GUI, "", 1)

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To 255 Step 10
Sleep(30)
SetBitmap($GUI, $hImage, $i)
Next
; create child MDI gui window to hold controls
; this part could use some work - there is some flicker sometimes...
$controlGui = GUICreate("ControlGUI", $width, $height, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $GUI)

[/autoit] [autoit][/autoit] [autoit]

; child window transparency is required to accomplish the full effect, so $WS_EX_LAYERED above, and
; I think the way this works is the transparent window color is based on the image you set here:
GUICtrlCreatePic(@ScriptDir & "\grey.gif", 0, 0, $width, $height)
GUICtrlSetState(-1, $GUI_DISABLE)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUIDelete($controlGui)

[/autoit] [autoit][/autoit] [autoit]

; Release resources
_WinAPI_DeleteObject($hImage)
_GDIPlus_Shutdown()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; ====================================================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Handle the WM_NCHITTEST for the layered window so it can be dragged by clicking anywhere on the image.
; ====================================================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc;==>WM_NCHITTEST

[/autoit] [autoit][/autoit] [autoit]

; ====================================================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; SetBitMap
; ====================================================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func SetBitmap($hGUI, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend

[/autoit] [autoit][/autoit] [autoit]

$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", $iOpacity)
DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
EndFunc;==>SetBitmap

[/autoit] [autoit][/autoit] [autoit]

Func _ImageResize($sInImage, $sOutImage, $newW, $newH)
Local $oldImage, $GC, $newBmp, $newGC
_GDIPlus_Startup()
; Load Image
$oldImage = _GDIPlus_ImageLoadFromFile($sInImage)
;Create New image
$GC = _GDIPlus_ImageGetGraphicsContext($oldImage)
$newBmp = _GDIPlus_BitmapCreateFromGraphics($newW, $newH, $GC)
$newGC = _GDIPlus_ImageGetGraphicsContext($newBmp)
;Draw
_GDIPlus_GraphicsDrawImageRect($newGC, $oldImage, 0, 0, $newW, $newH)
_GDIPlus_ImageSaveToFile($newBmp, $sOutImage)
;Clenaup
_GDIPlus_GraphicsDispose($GC)
_GDIPlus_GraphicsDispose($newGC)
_GDIPlus_BitmapDispose($newBmp)
_GDIPlus_ImageDispose($oldImage)
_GDIPlus_Shutdown()
EndFunc ;==>_ImageResize

[/autoit]