Solved

Using DrawAnimatedRects

Posted on 2000-02-23
2
405 Views
Last Modified: 2012-03-15
Does anyone know how to use DrawAnimatedRects ??

I have found 2 discussions on the Internet and no one seem to know how to use DrawAnimatedRects.
Does there exist another similar call ??

Regards
Peter
0
Comment
Question by:PeterLarsen
2 Comments
 
LVL 17

Accepted Solution

by:
inthe earned 50 total points
ID: 2549964
Hi
here's an example:

procedure ShowWindowH(Show: boolean; Win: TWinControl);
var StartPos, EndPos: TRect;
    MPos: TPoint;
begin
GetCursorPos(MPos);
if Show=false then begin
   with Win do begin
        Hide;
        StartPos:=Rect(Left,Top,Left+Width,Top+Height);
        EndPos:=Rect(MPos.X,MPos.Y,MPos.X,MPos.Y);
        DrawAnimatedRects(Handle,3,StartPos,EndPos);
   end;
end else begin
   with Win do begin
        Hide;
        EndPos:=Rect(Left,Top,Left+Width,Top+Height);
        StartPos:=Rect(MPos.X,MPos.Y,0,0);
        DrawAnimatedRects(Handle,3,StartPos,EndPos);
        Show;
   end;
end;
end;
0
 
LVL 2

Author Comment

by:PeterLarsen
ID: 2550017
Thanks - very nice !!

Regards
Peter
0

Featured Post

Active Directory Webinar

We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…

830 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question