Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 213
  • Last Modified:

Windows 2000 Fade-In Menu Effect

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
New2Delphi
Asked:
New2Delphi
1 Solution
 
Mohammed NasmanSoftware DeveloperCommented:
0
 
intheCommented:
0
 
New2DelphiAuthor Commented:
I tried it but it doesn't seem to have a fade option. Can anyone else help me?
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
CrazyOneCommented:
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
 
intheCommented:
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
 
New2DelphiAuthor Commented:
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
 
intheCommented:
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
 
New2DelphiAuthor Commented:
I need free source code. Please help me. Thanks!
0
 
intheCommented:
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
 
New2DelphiAuthor Commented:
Doesn't work. Sorry! I guess I'll just have to delete this Q.
0
 
ComTechCommented:
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

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now