Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Windows 2000 Fade-In Menu Effect

Posted on 2001-08-28
11
Medium Priority
?
208 Views
Last Modified: 2010-04-06
Does anyone know how to make menus fade-in and fade-out just like in Windows 2000? I would really appreciate some help. Thanks!
0
Comment
Question by:New2Delphi
11 Comments
 
LVL 22

Expert Comment

by:Mohammed Nasman
ID: 6431145
0
 
LVL 17

Expert Comment

by:inthe
ID: 6432633
0
 

Author Comment

by:New2Delphi
ID: 6434581
I tried it but it doesn't seem to have a fade option. Can anyone else help me?
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 44

Expert Comment

by:CrazyOne
ID: 6435068
Actually I believe the fade effect is handled by the system and not the object itself. Mainly because if one menu does a fade then all the menus on the system will have that affect. It is not like you can have the menu fade on one and then not on another. In other words it is system wide and not localized on a per app basis.


The Crazy One
0
 
LVL 17

Expert Comment

by:inthe
ID: 6435246
yep seems crazyone is right ,i see the settings on win2k and im sure its there on win98 also under "display properties" - "effects" where you set it to fade or scroll
0
 

Author Comment

by:New2Delphi
ID: 6435304
Win9x, Me, and NT don't have that option. Only Windows 2000 does. I'd like my program's menus to emulate that effect. If you have code that does just that, please share it with me.
0
 
LVL 17

Expert Comment

by:inthe
ID: 6439427
i can tell you who do have this effect/option
http://www.animatedmenus.com/
but it $44.00 for standard version & more for sourcecode/developer version.
0
 

Author Comment

by:New2Delphi
ID: 6443447
I need free source code. Please help me. Thanks!
0
 
LVL 17

Expert Comment

by:inthe
ID: 6443766
hi,
just to note one api AnimateWindow() may help (its all i can think of thats left) though you probably have to subclass the tmainmenu and write your own to do it for menus:

example of its use for normal windows:
(should be ok for use for TWinControls)

procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(Form1.Handle,500, AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Form1.Handle,500, AW_SLIDE or AW_HOR_NEGATIVE or AW_HIDE);
end;

Can find some more details here:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/hh/winui/windows_8e5z.asp

possibly you could find some freeware menu at torrys (linked above) and add to it though i dont think itll be so easy otherwise i guess it would have been done already ,but possibly worth a shot just in case..
gl
Regards Barry
0
 

Author Comment

by:New2Delphi
ID: 6449776
Doesn't work. Sorry! I guess I'll just have to delete this Q.
0
 

Accepted Solution

by:
ComTech earned 0 total points
ID: 6450975
Hi New2Delphi, your delete button does not officially take it away, and some think there is enough information here for a PAQ.

So I will refund your points and move the question to PAQ.

Thanks,
ComTech
Community Support Moderator

 
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
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…
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an anti-spam), the admin…

916 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