Re: Should I be able to do this?

[Karen <keatk@verizon.net>]

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.




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

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