LB Booster
Programming >> Liberty BASIC language >> API Texteditor focus
http://lbb.conforums.com/index.cgi?board=lblang&action=display&num=1468238359
API Texteditor focus
Post by Rod on Jul 11th, 2016, 11:59am

Richard, if we use this code to create an API based texteditor it fails to regain focus when Alt Tab is used to move between programs. Using Alt Tab we need to click in the window to regain focus. Other programs keep the focus and have a cursor flashing when you return . Is there an easy solution for that?

Code:
nomainwin
WindowWidth=640:WindowHeight=480
UpperLeftX=1:UpperLeftY=1
open "Texteditor" for window as #1
print #1, "trapclose [quit]"


hT=CreateTextEdit(hwnd(#1), 1, 1, 630, 432)
wait

[quit]
close #1
end

Function CreateTextEdit(hW, x, y, w, h)
    style = _WS_CHILDWINDOW OR _WS_BORDER _
    OR _WS_VISIBLE or _ES_MULTILINE or _WS_VSCROLL
    hInst=GetWindowLong(hW, _GWL_HINSTANCE)

    calldll #user32, "CreateWindowExA",_
        0 as long,"EDIT" as ptr,_
        "" as ptr, style as long,_
        x as long,y as long,w as long,h as long,_
        hW as ulong, 0 as long, hInst as ulong,_
        0 as long, CreateTextEdit as ulong
    end function

Function GetWindowLong(hW, type)
    calldll #user32, "GetWindowLongA", _
    hW as ulong, type as long,_
    GetWindowLong as ulong
    End Function
Re: API Texteditor focus
Post by Richard Russell on Jul 11th, 2016, 1:28pm

on Jul 11th, 2016, 11:59am, Rod wrote:
Other programs keep the focus and have a cursor flashing when you return . Is there an easy solution for that?

I'm afraid I don't know why LBB is exhibiting this behaviour when other programs don't. All I can suggest is a workaround of forcibly setting the focus in a timer:

Code:
nomainwin
WindowWidth=640:WindowHeight=480
UpperLeftX=1:UpperLeftY=1
open "Texteditor" for window as #1
print #1, "trapclose [quit]"

hT=CreateTextEdit(hwnd(#1), 1, 1, 630, 432)
timer 100,[setfocus]
wait

[setfocus]
calldll #user32, "SetFocus", hT as ulong, r as long
wait

[quit]
close #1
end

Function CreateTextEdit(hW, x, y, w, h)
    style = _WS_CHILDWINDOW OR _WS_BORDER _
    OR _WS_VISIBLE or _ES_MULTILINE or _WS_VSCROLL
    hInst=GetWindowLong(hW, _GWL_HINSTANCE)

    calldll #user32, "CreateWindowExA",_
        0 as long,"EDIT" as ptr,_
        "" as ptr, style as long,_
        x as long,y as long,w as long,h as long,_
        hW as ulong, 0 as long, hInst as ulong,_
        0 as long, CreateTextEdit as ulong
    end function

Function GetWindowLong(hW, type)
    calldll #user32, "GetWindowLongA", _
    hW as ulong, type as long,_
    GetWindowLong as ulong
    End Function

Richard.