Thanks Charles,

I inserted quotes around Carbon.framework like this 
"Carbon.framework"  
and it worked fine.

If you want to disable the zoom button, why not just uncheck the  
MaximizeButton property of the window in the IDE?
I only wanted Mac to be like that and not Win32, but I can't remember why.

Thanks again.

Lennox.


Charles Yeomans <[EMAIL PROTECTED]> wrote: Use this code for MacOS X.  The code 
you found isn't very good.


Soft Declare Function ChangeWindowAttributes Lib Carbon.framework  
(window as WindowPtr, setAttributes as Integer, clearAttributes as  
Integer) as Integer

Const kWindowFullZoomAttribute = 6
dim OSError as Integer = ChangeWindowAttributes( self, 0,  
kWindowFullZoomAttribute)

If you want to disable the zoom button, why not just uncheck the  
MaximizeButton property of the window in the IDE?

Charles Yeomans




On Oct 9, 2006, at 9:40 AM, Lennox Jacob wrote:

> Hello,
> I have the following code:
>
> 'Zoom button in my program's main window disabled with this
> #if TargetCarbon
> Declare Sub ChangeWindowAttributes Lib "CarbonLib" (win as  
> WindowPtr, setAttribs as integer, removeAttribs as integer)
> ChangeWindowAttributes self, 0, 6
> #elseif TargetMachO
> Declare Sub ChangeWindowAttributes Lib "Carbon" (win as WindowPtr,  
> setAttribs as integer, removeAttribs as integer)
> ChangeWindowAttributes self, 0, 6
> #endif
>
> When I try to build in i386 or UB I get a message indicating that  
> CarbonLib should be changed to Carbon, changing that corrects the  
> problem, but is there a way to add something like
> #elseif ...
> so that I don't have to change anything?
> Thanks.
>
> Lennox
>
>    
> ---------------------------------
> Get your email and more, right on the  new Yahoo.com
> _______________________________________________
> Unsubscribe or switch delivery mode:
> 
>
> Search the archives of this list here:
> 

_______________________________________________
Unsubscribe or switch delivery mode:


Search the archives of this list here:



                        
---------------------------------
Get your own web address for just $1.99/1st yr. We'll help. Yahoo! Small 
Business.
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to