` Removing the System menu (Vernon Jay Godwin) - Icetips Article
Icetips - Templates, Tools & Utilities for Clarion Developers

Templates, Tools and Utilities
for Clarion Developers

Icetips Article

Back to article list   Search Articles     Add Comment     Printer friendly     Direct link  

Windows API: Removing the System menu
2003-03-28 -- Vernon Jay Godwin
 
Newsgroups: comp.lang.clarion Hello, Disabling the close button isn't too hard. Will require a bit of work tho: First...define these in the global map... GetSystemMenu(unsigned, signed),unsigned,PASCAL RemoveMenu(unsigned, signed, signed),signed,PASCAL DrawMenuBar(unsigned),signed,PASCAL Now, on the window you want to disable the close button on...do the following: Add Following Data: hMenu unsigned nRemove signed nDraw signed - "After Opening Window" Embed hMenu = GetSystemMenu(Window{Prop:Handle}, 0) nRemove = RemoveMenu(hMenu, 0F060h, 01000h) nDraw = DrawMenuBar(Window{Prop:Handle}) Welp, that was quick :) Hope that helps, Vernon Jay Godwin www.kefrendesigns.com "Maarten" wrote in message news:3e84aec5@news.softvelocity.com... > Fay, > > > Can anyone tell me how to disable or remove the minimize button > After opening the window: > 0{PROP:Icon} = '' !this will leave the icon on the window > > > and close button(the X) ? > I haven't found a way to remove this. > You can short-stop it by entering a CYCLE > in the EVENT:CloseWindow. > Note: use a flag to the CYCLE instruction else > you won't be able to close the window either;) > > > > -- > > Best regards, > Maarten > CDD3.1, C5EEb - ABC & C5.5.08EE > Certainly Clarion Developer > > "I know what I know but I do not know what you don't know" > >

Today is November 21, 2024, 3:36 am
This article has been viewed 35213 times.
Google search has resulted in 63 hits on this article since January 25, 2004.


Back to article list   Search Articles   Add Comment   Printer friendly

Login

User Name:

Password:


Gold Subscription
Buy Now
Silver Subscription
Buy Now
Solo Subscription
Buy Now
Multiple Copy Pricing
Renew Subscription