[jawsscripts] Re: thank you dean, Re: Re: Checked and unchecked status of graphic

Thanks, I remember of reading some of your messages days back, but let 
me know if it works for you,.
Dean Masters wrote:
> thanks for this. I have a Bible software program that uses this window 
> class. I can't see the checkboxes in them. There seems to be no graphic 
> either. but I will see if this function helps.
>
> Dean
>
> ----- Original Message ----- 
> From: "Jitendra" <jeet.invincible@xxxxxxxxx>
> To: <jawsscripts@xxxxxxxxxxxxx>
> Sent: Saturday, January 24, 2009 9:48 PM
> Subject: [jawsscripts] Re: Checked and unchecked status of graphic
>
>
> | Hello, After having that much trouble, and asking you all, I was able to
> | discover the following, it solves my problem, and hope useful to some of
> | you as well. its not that much complicated or special though.
> | Void Function CheckStatus ()
> | Var
> | Handle hwnd,
> | Int Color,
> | string Class
> | Let hwnd = GetFocus ()
> | Let Class = GetWindowClass (hwnd)
> | If Class == "TCheckListBox" Then
> | SaveCursor ()
> | JAWSCursor ()
> | SaveCursor ()
> | RouteJAWSToPc ()
> | PriorCharacter ()
> | Let Color = GetColorText ()
> | If Color == "0" Then
> | SayFormattedMessage (OT_MESSAGE, "checked")
> | Else
> | SayFormattedMessage (OT_MESSAGE, "not checked")
> | EndIf
> | EndIf
> | EndFunction
> | Thanks everyone, specially david and Jeff.
> | __________
> | Visit and contribute to The JAWS Script Repository http://jawsscripts.com
> |
> | View the list's information and change your settings at
> | http://www.freelists.org/list/jawsscripts
> | 
>
>
> __________ 
> Visit and contribute to The JAWS Script Repository http://jawsscripts.com
>
> View the list's information and change your settings at 
> http://www.freelists.org/list/jawsscripts
>
>
>   


__________ 
Visit and contribute to The JAWS Script Repository http://jawsscripts.com

View the list's information and change your settings at 
http://www.freelists.org/list/jawsscripts

Other related posts: