Re: Should I be able to do this?

[Norman Palardy <npalardy@great-white-software.com>]

On 29-Jul-09, at 10:19 PM, Karen wrote:

> On Jul 29, 2009, at 11:58 PM, Norman Palardy wrote:
>
> > Hmmmmmm this works here in 2009r2 and 2009r3
> >
> >  dim RectCtrl as RectControl
> >  dim checkedFont as string
> >
> >  Select Case RectCtrl
> >
> >  Case IsA StaticText
> >    CheckedFont = StaticText(RectCtrl).TextFont
> >  Case IsA Listbox
> >    //CheckedFont = Listbox(RectCtrl).TextFont
> >
> >    #if RBVersion <= 2009.3
> >  Case IsA EditField
> >    CheckedFont = EditField(RectCtrl).TextFont
> >    #endif
>
> Yes that works but:
>
>  dim RectCtrl as RectControl
>  dim checkedFont as string
>
>  Select Case RectCtrl
>   #if RBVersion <= 2009.3
>  Case IsA EditField
>    CheckedFont = EditField(RectCtrl).TextFont
>    #endif
> etc
>
> Does not.
That would definitely be a bug

But you can work around it by either putting in a case ahead of that  
with nothing between the select and first case or, in the case of the  
example you case, move the cases that occur in all versions before  
those with the #if surrounding them

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>