Solved

Using DrawAnimatedRects

Posted on 2000-02-23
2
404 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

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

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

Suggested Solutions

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

831 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