4 replies to this topic

[POPikk]

Why DrawAnimatedRects does not work under Vista/Win7?

For example, code below (animation into a Tray) works just fine under Windows XP, but does not work under Vista/Win7 (the window just hide, without animation):

var

ARect: TRect;

Wnd, Wnd2: HWND;


begin

Wnd:= FindWindow('Shell_TrayWnd', nil);

Wnd2:= FindWindowEx(Wnd, 0, 'TrayNotifyWnd', nil);

GetWindowRect(Wnd2, ARect);


DrawAnimatedRects(Form1.Handle, IDANI_CAPTION, BoundsRect, ARect);

....

Why?

Maybe Microsoft does not support this function (DrawAnimatedRects ) in their newer operation systems anymore?

[WingedPanther]

Which version of Delphi?

[POPikk]

Delphi 2007.

[WingedPanther]

This appears to be related, and may give you some ideas: Vista & DrawAnimatedRects - cppbuilder

[POPikk]

WingedPanther said:

This appears to be related, and may give you some ideas: Vista & DrawAnimatedRects - cppbuilder

Thank you. Same problem as I have... will read.