XP - Fades to greyscale. How do they do this?

[eynstyne]

What DLL call if any do I need to do this? You know, when you change your theme in display settings it fades out to black.

Want to integrate this so badly in some programs...

[Valik]

This is pure speculation.

I'm almost certain there is no API call for that feature. What Windows does is takes a snapshot of the screen just before displaying that window. Then it creates a full-screen window and draws the snapshot on it. It then creates a second window to display the message. Then on a timer, it gradually desaturates the snapshot and redisplays it producing the effect you see.

I more or less confirm my speculation with the following small script:

Main()

Func Main()
    Local $hPrev, $hCurrent
    While True
        $hCurrent = WinGetHandle("")
        If $hCurrent <> $hPrev Then
            $hPrev = $hCurrent
            Local $pos = WinGetPos($hCurrent)
            ConsoleWrite("Window: " & WinGetTitle($hCurrent) & @CRLF & _
                @TAB & "x: " & $pos[0] & ", y: " & $pos[1] & ", w: " & $pos[2] & ", h: " & $pos[3] & @CRLF)
        EndIf
        Sleep(10)
    WEnd
EndFunc

What it does is monitors for the active window to change, then it logs the title and size of the window. When I got to Start->Shutdown, I see that a full-screen window is created and another smaller window is created about where the shutdown options box is (Remember that the shutdown options also performs the gray-scale effect).

[vim]

  Valik said:

This is pure speculation.

I'm almost certain there is no API call for that feature. What Windows does is takes a snapshot of the screen just before displaying that window. Then it creates a full-screen window and draws the snapshot on it. It then creates a second window to display the message. Then on a timer, it gradually desaturates the snapshot and redisplays it producing the effect you see.

I more or less confirm my speculation with the following small script:

Main()

Func Main()
    Local $hPrev, $hCurrent
    While True
        $hCurrent = WinGetHandle("")
        If $hCurrent <> $hPrev Then
            $hPrev = $hCurrent
            Local $pos = WinGetPos($hCurrent)
            ConsoleWrite("Window: " & WinGetTitle($hCurrent) & @CRLF & _
                @TAB & "x: " & $pos[0] & ", y: " & $pos[1] & ", w: " & $pos[2] & ", h: " & $pos[3] & @CRLF)
        EndIf
        Sleep(10)
    WEnd
EndFunc

What it does is monitors for the active window to change, then it logs the title and size of the window. When I got to Start->Shutdown, I see that a full-screen window is created and another smaller window is created about where the shutdown options box is (Remember that the shutdown options also performs the gray-scale effect).

This is interesting. I played around with it a while and keep getting this error in the console:

Window: C:\Documents and Settings\Administrator\Desktop\tmp.au3 - SciTE

x: 0, y: 0, w: 922, h: 691

Window:

x: -2, y: 740, w: 1028, h: 30

Window: C:\Documents and Settings\Administrator\Desktop\tmp.au3 - SciTE

x: 60, y: 4, w: 922, h: 691

Window:

x: -2, y: 740, w: 1028, h: 30

Window:

x: 356, y: 190, w: 314, h: 200

Window:

x: 0, y: 0, w: 1024, h: 768

Window: C:\Documents and Settings\Administrator\Desktop\tmp.au3 - SciTE

x: 60, y: 4, w: 922, h: 691

Window:

x: -2, y: 740, w: 1028, h: 30

Window:

x: 0, y: 0, w: 1024, h: 768

Window:

x: 356, y: 190, w: 314, h: 200

Window: C:\Documents and Settings\Administrator\Desktop\tmp.au3 - SciTE

x: 60, y: 4, w: 922, h: 691

Window:

x: -2, y: 740, w: 1028, h: 30

Window:

x: 0, y: 0, w: 1024, h: 768

Window:

x: 356, y: 190, w: 314, h: 200

C:\Documents and Settings\Administrator\Desktop\tmp.au3 (10) : ==> Subscript used with non-Array variable.:

ConsoleWrite("Window: " & WinGetTitle($hCurrent) & @CRLF & @TAB & "x: " & $pos[0] & ", y: " & $pos[1] & ", w: " & $pos[2] & ", h: " & $pos[3] & @CRLF)

ConsoleWrite("Window: " & WinGetTitle($hCurrent) & @CRLF & @TAB & "x: " & $pos^ ERROR

+>AutoIT3.exe ended.rc:0

>Exit code: 0 Time: 69.827

[Valik]

Yes, that will happen. The script wasn't mean to be anything more than a quick test to see the size (and possibly name) of any windows created during the fade effect. Simply put the ConsoleWrite() call into a conditional statement ensuring that $pos is really an array and the problem will go away.

[Xenobiologist]

Hi,

we had a short discussion about that in the German forum and bernd670 found this article.

Maybe some of the good guys could rewrite this.

Link FadeToGrey

So long,

Mega

Edited August 19, 2006 by th.meger

[vim]

  Valik said:

Yes, that will happen. The script wasn't mean to be anything more than a quick test to see the size (and possibly name) of any windows created during the fade effect. Simply put the ConsoleWrite() call into a conditional statement ensuring that $pos is really an array and the problem will go away.

@Valik -

Yes thanks, I realized that later, after keeping the script open and doing a Start>Logoff sequence.

BTW - Congratulations on 6,000 posts! Amazing. Your very busy here, and helpful!

ViM