Wallpaper UDF

**Kanashius**

Hi, ich habe eine kleine Bibliothek geschrieben, mit der auf ein Fenster hinter den Desktop-Icons gezeichnet werden kann. Sie erlaubt das zeichnen auf das Wallpaper mit GDI+ ab Windows 8.

Da GDI+ genutzt wird, ist es nicht ganz so schnell, aber ich komme in meinem Beispiel Script immernoch auf 60-120fps.

Theoretisch kann man die Funktionen auch nutzen, um ein eigenes Child-Fenster mit Controls zu erzeugen (in __Wallpaper_Startup $hWorkerW ist das benötigte Fenster), falls das für jemanden interessant ist.

Viel Spaß damit .

Beispiel:

AutoIt

;Author: Kanashius@autoitscript.com, Kanashius@autoit.de, https://www.kanashius.com
#include "WallpaperUDF.au3"
#include <StaticConstants.au3>

; initialize own tray
__Wallpaper_InitDefaultTray()

; animation variables
Global Const $fDeg = ACos(-1) / 180 ;ACos(-1) is nearly pi
Global Const $iDots = 7, $fAngelDist = 360 / $iDots, $iRadius = 250
Global $aCoordinates[$iDots][2], $bIsFirst = True
Global $iX_Center, $iY_Center, $fAngle = 0

; fps-counter variables
Global $iFPSTextWidth = 100, $iFPSTextSize = 16, $iTimer, $iFrames = 0, $sFps = "FPS: 0"
Global $hPen, $hFamily, $hFont, $hFormat, $hBrush

; create gui
Global $iWidth = 180, $iHeight = 125
$hGui = GUICreate("Wallpaper UDF example", $iWidth, $iHeight, 10, 10)
$idLabelFps = GUICtrlCreateLabel($sFps, 10, 10, $iWidth-20, Default, $SS_CENTER)
$idBtnPR = GUICtrlCreateButton("Pause/Resume", 10, 30, $iWidth-20)
$idBtnClear = GUICtrlCreateButton("Clear", 10, 60, $iWidth-20)
$idBtnExit = GUICtrlCreateButton("Exit", 10, 90, $iWidth-20)
GUISetState(@SW_SHOW, $hGui)

; start the wallpaper drawing loop
__Wallpaper_Start(_draw, _init, _shutdown, _process)
If @error Then MsgBox(16, "Error", "Something went wrong starting initializing the wallpaper: "&@error)

Func _draw(ByRef $hGraphics, $iWidth, $iHeight, ByRef $arScreenInfo) ; will be called for each drawing cicle.
    ; Draw the animation
    For $i = 0 To $iDots - 1
            $aCoordinates[$i][0] = $iX_Center+Cos($fAngle*$fDeg)*$iRadius
            $aCoordinates[$i][1] = $iY_Center+Sin($fAngle*$fDeg)*$iRadius
            If Not $bIsFirst Then
                _GDIPlus_PenSetColor($hPen, 0xFFFFFF00)
                _GDIPlus_PenSetWidth($hPen, 2)
                _GDIPlus_GraphicsDrawLine($hGraphics, $aCoordinates[$i][0], $aCoordinates[$i][1], _
                                $aCoordinates[Mod(($i + $iDots / 2), $iDots)][0], $aCoordinates[Mod(($i + $iDots / 2), $iDots)][1], $hPen)
                _GDIPlus_PenSetColor($hPen, 0xFFFF8000)
                _GDIPlus_PenSetWidth($hPen, 3)
                If $i < $iDots - 1 Then _GDIPlus_GraphicsDrawLine($hGraphics, $aCoordinates[$i][0], $aCoordinates[$i][1], $aCoordinates[$i + 1][0], $aCoordinates[$i + 1][1], $hPen) ;;draw outer lines
            EndIf
            $fAngle += $fAngelDist
    Next
    If Not $bIsFirst Then _GDIPlus_GraphicsDrawLine($hGraphics, $aCoordinates[$i - 1][0], $aCoordinates[$i - 1][1], $aCoordinates[0][0], $aCoordinates[0][1], $hPen)
    $bIsFirst = False
    $fAngle -= 0.5

    ; update fps
    If TimerDiff($iTimer)>1000 Then
        _updateFps($iFrames)
        $iFrames = 0
        $iTimer = TimerInit()
    EndIf
    $iFrames += 1
    ; draw fps
    $tLayout = _GDIPlus_RectFCreate($iX_Center - $iFPSTextWidth, $iY_Center - 4, $iFPSTextWidth*2, $iFPSTextSize+4)
    $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $sFps, $hFont, $tLayout, $hFormat)
    _GDIPlus_GraphicsDrawStringEx($hGraphics, $sFps, $hFont, $aInfo[0], $hFormat, $hBrush)

    ; Return redraw areas
    Local $arAreas = [[$iX_Center-$iRadius,$iY_Center-$iRadius,$iX_Center+$iRadius,$iY_Center+$iRadius]] ; Set the areas that were redrawn and should be replaced
    return SetExtended(0, $arAreas) ; Change extended to the (min) time in ms to wait between each redraw. (This does not influence _process)
EndFunc

Func _updateFps($iFps)
    $sFps = "FPS: "&$iFps
    GUICtrlSetData($idLabelFps, $sFps)
EndFunc

Func _process()
    $iMsg = GUIGetMsg()
    Switch $iMsg
        Case -3, $idBtnExit
            GUIDelete($hGui)
            __Wallpaper_Exit()
        Case $idBtnPR
            __Wallpaper_PauseResume()
            _updateFps(0)
        Case $idBtnClear
            __Wallpaper_Clear()
            _updateFps(0)
    EndSwitch
EndFunc

Func _init($iWidth, $iHeight, ByRef $arScreenInfo) ; The initialization method is called once before the draw loop starts.
    If UBound($arScreenInfo) = 0 Then
        MsgBox(16, "Error", "It is difficult to draw a wallpaper without a screen.")
        Exit
    EndIf
    $iTimer = TimerInit()
    $iX_Center = $arScreenInfo[0][0]+$arScreenInfo[0][2]/2
    $iY_Center = $arScreenInfo[0][1]+$arScreenInfo[0][3]/2
    $hPen = _GDIPlus_PenCreate(0xFFFF0000, 4)
    $hFamily = _GDIPlus_FontFamilyCreate("Arial")
    $hFont = _GDIPlus_FontCreate($hFamily, $iFPSTextSize)
    $hFormat = _GDIPlus_StringFormatCreate(0x4000)
    _GDIPlus_StringFormatSetAlign($hFormat, 1)
    $hBrush = _GDIPlus_BrushCreateSolid(0xFFFF0000)
EndFunc

Func _shutdown() ; The shutdown method is called at the end of the draw loop, after __Wallpaper_Exit was called.
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_PenDispose($hPen)
EndFunc

Alles anzeigen