Freak, could you help us ? again...
Posted: Mon Jun 15, 2009 11:09 am
Hello,
I'm blind and j write applications for another blind people using JAWS ScreenReader.
PureBasic is cool but I have some problems for make accessible tools.
1) EditorGadget or StringGadget in multiline.
We can't use the popular "Insert+NumPad2" (JAWS Shortcut) to read all the text and JAWS is blocked...
You can simply check it : in the IDE, go to the "About" ItemMenu, set the focus on the text and hit Insert+NumPad2
2) OptionGadget.
We can't change selection with the keyboard.
3) GetActiveGadget()
Return -1 when an WebGadget have the focus.
It make problems, for use my code to keep the focus to the last ActiveGadget when the mainwindows is activate.
4) I made a litle html page about PureBasic for french blind programmers.
http://www.lavakri.fr/Doc_PureBasic.html
To improve editing code in the IDE, I want to make some tools,but i can't get the Scintilla text...
Why this code don't work ?
Thanks
I'm blind and j write applications for another blind people using JAWS ScreenReader.
PureBasic is cool but I have some problems for make accessible tools.
1) EditorGadget or StringGadget in multiline.
We can't use the popular "Insert+NumPad2" (JAWS Shortcut) to read all the text and JAWS is blocked...
You can simply check it : in the IDE, go to the "About" ItemMenu, set the focus on the text and hit Insert+NumPad2
2) OptionGadget.
We can't change selection with the keyboard.
3) GetActiveGadget()
Return -1 when an WebGadget have the focus.
It make problems, for use my code to keep the focus to the last ActiveGadget when the mainwindows is activate.
Code: Select all
Procedure CallbackMainWindow( hWnd, uMsg, wParam, lParam)
Protected Tmp
If uMsg = 6 ; Windows Lost Focus
If wParam = 0 And hWnd = hMainWindow
Tmp = GetActiveGadget()
If Tmp <> -1
GadgetWhenMainWindowLostFocus = Tmp
EndIf
EndIf
EndIf
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
...
Case #PB_Event_ActivateWindow
If IsGadget( GadgetWhenMainWindowLostFocus )
SetActiveGadget( GadgetWhenMainWindowLostFocus )
EndIf
http://www.lavakri.fr/Doc_PureBasic.html
To improve editing code in the IDE, I want to make some tools,but i can't get the Scintilla text...
Why this code don't work ?
Code: Select all
hSCI = Val(GetEnvironmentVariable("PB_TOOL_Scintilla"))
If hSCI
len = SendMessage_(hSCI,#SCI_GETTEXTLENGTH,0,0) + 1
*buf = AllocateMemory(len)
If *Buf
R = SendMessage_(hSCI,#SCI_GETTEXT,Len, *Buf )
Text$ = PeekS( *Buf, Len )
MessageRequester("Len="+Str(Len)+" ReturnedLen="+Str(R),Text$ )
EndIf
EndIf