for aurel: Here's a little code portion for url using from powerbasic site what I have found on my hd. perhaps it can help you, but you have still to convert that for oxygen.
%IDC_STATUSBAR = 1001
%IDC_REBAR = 1002
%IDC_SCIED = 1003
%IDC_TOOLBAR = 1004
%IDC_EDITURL = 1005
%IDC_GOBTN = 1006
insert below wndproc... (callback) ..
'--------------- 1 -------------------------------- //
...
LOCAL trbi AS REBARINFO ' specifies attributes(imagelist) of the rebar control
LOCAL trbbi AS REBARBANDINFO ' specifies or receives the attributes of a rebar band
...
'--------------- 2 -------------------------------- //
CASE %WM_COMMAND
...
CASE %IDOK
' If we are in the URL edit control, load the web page
hCtrl = GetDlgItem(GetDlgItem(hWnd, %IDC_REBAR), %IDC_EDITURL)
IF GetFocus = hCtrl THEN
PostMessage hWnd, %WM_COMMAND, %IDC_GOBTN, MAK(DWORD, %BN_CLICKED, %IDC_GOBTN)
EXIT FUNCTION
END IF
CASE %IDC_EDITURL
SELECT CASE HI(WORD, wParam)
CASE %EN_SETFOCUS
' Select all the text of the edit box
PostMessage lParam, %EM_SETSEL, 0, -1
EXIT FUNCTION
END SELECT
'--------------- 3 -------------------------------- //
' Create the EditUrl edit control
hCtrl = CreateWindowEx(%WS_EX_CLIENTEDGE, _ ' extended styles
"Edit", _ ' class name
"", _ ' caption
%WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR _ ' window styles
%ES_LEFT OR %ES_AUTOHSCROLL, _ ' class styles
251, 4, _ ' left, top
300, 21, _ ' width, height
hWnd, %IDC_EDITURL, _ ' handle of parent, control ID
GetModuleHandle(""), BYVAL %NULL) ' handle of instance, creation parameters
SendMessage hCtrl, %WM_SETFONT, hFont, %TRUE
' Add the band containing the EditUrl edit control to the rebar
szItem = "URL"
trbbi.cbSize = SIZEOF(trbbi)
trbbi.fMask = %RBBIM_STYLE OR %RBBIM_TEXT OR %RBBIM_CHILD OR _
%RBBIM_CHILDSIZE OR %RBBIM_SIZE OR %RBBIM_ID OR _
%RBBIM_IDEALSIZE
trbbi.fStyle = %RBBS_FIXEDSIZE OR %RBBS_CHILDEDGE
trbbi.lpText = VARPTR(szItem)
trbbi.hWndChild = hCtrl
trbbi.cxMinChild = 350
trbbi.cyMinChild = 21
trbbi.cx = 350
trbbi.wID = %IDS_STRING1
trbbi.cxIdeal = 350
SendMessage hWndRebar, %RB_INSERTBAND, -1, BYVAL VARPTR(trbbi)
' Create the GoBtn text button
hCtrl = CreateWindowEx(%NULL, _ ' extended styles
"Button", _ ' class name
"Go_SCI", _ ' caption
%WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR _ ' window styles
%BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER OR _ ' class styles
%BS_FLAT, _
593, 2, _ ' left, top
64, 24, _ ' width, height
hWnd, %IDC_GOBTN, _ ' handle of parent, control ID
GetModuleHandle(""), BYVAL %NULL) ' handle of instance, creation parameters
SendMessage hCtrl, %WM_SETFONT, hFont, %TRUE
' Add the band containing the GoBtn text button to the rebar
trbbi.cbSize = SIZEOF(trbbi)
trbbi.fMask = %RBBIM_STYLE OR %RBBIM_CHILD OR %RBBIM_CHILDSIZE OR _
%RBBIM_SIZE OR %RBBIM_ID OR %RBBIM_IDEALSIZE
trbbi.fStyle = %RBBS_FIXEDSIZE OR %RBBS_CHILDEDGE
trbbi.hWndChild = hCtrl
trbbi.cxMinChild = 34
trbbi.cyMinChild = 24
trbbi.cx = 34
trbbi.wID = %IDS_STRING2
trbbi.cxIdeal = 34
SendMessage hWndRebar, %RB_INSERTBAND, -1, BYVAL VARPTR(trbbi)
best regards, frank
