XProfan

Def SystemParametersInfo(4) ! "user32","SystemParametersInfoA"
Def ReleaseCapture(0) ! "user32","ReleaseCapture"
Def &WM_ACTIVATE $06
Def &SPIF_SENDWININICHANGE $02
Def &SPI_GETDRAGFULLWINDOWS $026
Def &SPI_SETDRAGFULLWINDOWS $025
Def &WA_CLICKACTIVE $02
Def &WA_ACTIVE $01
Def &WA_INACTIVE  0
Def &False 0
Def &True 1
DEF HiWord(1) And(&(1)>>16,$FFFF)
DEF LoWord(1) And(&(1),$FFFF)
Declare Drag&
SystemParametersInfo(&SPI_GETDRAGFULLWINDOWS,0,Addr(Drag&),0)
UserMessages &WM_ACTIVATE
SystemParametersInfo(&SPI_SETDRAGFULLWINDOWS,&False,0,&SPIF_SENDWININICHANGE)
declare lb%
windowstyle 256+30
windowtitle "noFlicker"
window 100,100 - 300,300
lb%=createtext(%hwnd,"flickert :(",0,0,width(%hwnd),height(%hwnd))

whilenot equ(%key,2)

    Getmessage
    sleep 10

    If %Umessage = &WM_ACTIVATE

        If OR(Loword(&UWParam) = &WA_ACTIVE,Loword(&UWParam) = &WA_CLICKACTIVE)

            SystemParametersInfo(&SPI_SETDRAGFULLWINDOWS,&False,0,&SPIF_SENDWININICHANGE)

        Endif

        If Loword(&UWParam) = &WA_INACTIVE

            If Drag& = &False

                SystemParametersInfo(&SPI_SETDRAGFULLWINDOWS,&True,0,&SPIF_SENDWININICHANGE)

            Else

                SystemParametersInfo(&SPI_SETDRAGFULLWINDOWS,&False,0,&SPIF_SENDWININICHANGE)

            EndIf

        EndIf

    Endif

    If AND(%Message = 160,&wParam > 0)

        SystemParametersInfo(&SPI_SETDRAGFULLWINDOWS,&False,0,&SPIF_SENDWININICHANGE)

    Endif

wend

ref='./../../function-references/XProfan/end/'>end