Thanks David. I definitely will need help with this. I'll get in touch with you in a day or so.
-----Original Message----- From: JAWS-Users-List [mailto:jaws-users-list-boun...@jaws-users.com] On Behalf Of David Ferrin Sent: Saturday, June 08, 2013 6:36 AM To: jaws-users-list@jaws-users.com Subject: Re: [JAWS-Users] Auto Sizer I will have to test this code out and see if it works for me or not. It does seem a bit complicated but manageable. I do always appreciate any contributions to my collection of scripts either to the web site or for my personal stockpile so to speak. Donnie you might need further help so something will get worked out if that is the case. David Ferrin A complex system that does not work is invariably found to have evolved from a simpler system that worked perfectly. -----Original Message----- From: JAWS-Users-List [mailto:jaws-users-list-boun...@jaws-users.com] On Behalf Of Csaba Godo Sent: Friday, June 07, 2013 11:12 PM To: jaws-users-list@jaws-users.com Subject: Re: [JAWS-Users] Auto Sizer Hi David & Don, I think I could suggest you two other methods to maximize a window. 1. Use SendMessage function. Insert this line in the AutoStart event: SendMessage(GetAppMainWindow(GetFocus()), 274, 61488, 0). It will maximize the active window. 2. Use some workaround. It is a simpler method. It needs some refining, because I write it down from memory. This script toggles window state between maximized and normal. But you can extend it so, that it supports only maximized and minimized state. This script works in all windows having system menu. The menu you can call with Alt+Space. Script ToggleRestoreWindow () ;This script make notepad maximize or restore Var String sName, String sShortname ;Get the name of currently open file SpeechOff () TypeKey {Alt+space} If GetControlAttributes (false)==4 then ;the Restore option is unavailable TypeKey {x} ;send letter x to current application Let sName=FormatString (Maximize_l, GetAppTitle ()) Let sShortname=FormatString (Maximize_s, GetAppTitle ()) Else ;windows is currently maximize EnterKey () Let sName=FormatString (restore_l, GetAppTitle ()) Let sShortname=FormatString (restore_s, GetAppTitle ()) EndIf Pause () SpeechOn () SayFormattedMessage (ot_message, sName, sShortName) EndScript HTH Csaba For answers to frequently asked questions about this list visit: http://www.jaws-users.com/help/ For answers to frequently asked questions about this list visit: http://www.jaws-users.com/help/ For answers to frequently asked questions about this list visit: http://www.jaws-users.com/help/
