Hi John,
I've tested successfully with RTL32 and RTL64.
Here is a cleaned up version
'gui-skeleton app
$ Filename "t.exe"
uses RTL32
'uses RTL64
uses awinh
#lookahead
INT win,win2
INT x,y,w,h,x2,y2,w2,h2
x=0:y=10:w=800:h=600
x2=410:y2=10:w2=400:h2=300
INT winstyle,wstyle2,wbstyle
winstyle = WS_MINMAXSIZE or WS_CLIPCHILDREN
wbstyle = WS_CHILD OR WS_VISIBLE OR WS_BORDER
INT btt0,btt1,btt2
INT b0ID = 100, b1ID=101, b2ID=102
INT bmpB0,bmpB1,bmpB2,bmpB3,bmpB4,bmpB5
bmpB0 = LoadImage(0,"btBack.bmp",0,28,28,16)
bmpB1 = LoadImage(0,"data/btOpen.bmp",0,30,30,16)
bmpB2 = LoadImage(0,"data/btSave.bmp",0,30,30,16)
% WM_FORWARDMSG = &H37F ' (895)
% IDB_BACK = 1001
% IDB_FWRD = 1002
% IDB_NAVG = 1003
% IDC_URL = 1004
% IDC_WB = 1005
extern lib "ATL.dll"
! AtlAxWinInit () as sys
! AtlAxGetControl ( sys hWnd, **pp ) as int
end extern
int hWb
'create window
'
win = SetWindow("ATL:Browser",x,y,w,h,0,winstyle)
'create buttons
'
btt0 = SetButton(win,4,4,30,30,"<<",0x50000080,0x200,b0ID)
SendMessage btt0 , BM_SETIMAGE, 0, bmpB0
btt1 = SetButton(win,38,4,30,30,"<<",0x50000080,0x200,b1ID)
SendMessage btt1 , BM_SETIMAGE, 0, bmpB1
btt2 = SetButton(win,74,4,30,30,"<<",0x50000080,0x200,b2ID)
SendMessage btt2 , BM_SETIMAGE, 0, bmpB2
'Initializes ATL
AtlAxWinInit
'create browser window
hWb = CreateWindowEx(0, "AtlAxWin", "www.google.com",wbstyle , 4, 40, w-16,(h-56)-64, win, IDC_WB, 0, 0)
'
Wait()
'
function WndProc (sys hwnd,wmsg,wparam,lparam) as sys callback
==============================================================
select hwnd
case win
select wmsg
'
case WM_CLOSE
DestroyWindow win
PostQuitMessage 0
case WM_SIZE
GetSize(win,0,0,w,h)
MoveWindow(hWb,4,40,w-6,(h-56)-32 ,1)
case WM_COMMAND
controlID = LoWord(wParam) 'get control ID
notifyCode = HiWord(wParam) 'get notification message
'
select controlID
'
case b0ID
if notifycode=0
print "< GO BACK >"
end if
case b1ID
if notifycode=0
print "< GO FOR >"
end if
case b2ID
If notifycode=0
print "TESTING....1...2....3"
End If
end select
end select
end select
return default
end function
