03-22-2009, 03:17 AM
Is there a way how can i get rid of the scroll bar on the side of the web browser ( id 8 ).
Function Function
Function Function
/DIAlog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str controls = "8"
str sb10
sb10="http://www.quickmacros.com/forum/images/smilies/icon_lol.gif"
str fg=
;BEGIN DIALOG
;0 "" 0x90880A40 0x100 0 0 128 98 "Dialog"
;1 Static 0x54000000 0x0 54 36 12 10 " X"
;16 Button 0x54032000 0x0 38 20 48 14 "Generate"
;4 Static 0x54000000 0x0 30 0 62 8 "Generate Between"
;5 Static 0x54000000 0x0 54 10 12 8 "--->"
;11 Button 0x54032000 0x0 2 84 44 13 "close"
;12 Static 0x54000000 0x0 90 88 38 8 ""
;3 Static 0x54000000 0x0 42 10 8 8 "1"
;6 Static 0x54000000 0x0 68 10 10 8 "10"
;8 ActiveX 0x54030000 0x2020 38 50 42 32 "SHDocVw.WebBrowser"
;END DIALOG
;DIALOG EDITOR: "" 0x2030006 "" "" ""
if(!ShowDialog(fg &Function &controls)) ret
ret
;messages
int textcolor=0xFF55
int background=0xF
int-- jbrush
if(message=WM_INITDIALOG) DT_Init(hDlg lParam)
;int param=DT_GetParam(hDlg)
sel message
,case WM_INITDIALOG
,ret 1
,case WM_DESTROY DT_DeleteData(hDlg)
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 17
,end
,case 16
,str tt.getwintext(id(3 hDlg))
,str ttt.getwintext(id(6 hDlg))
,CURRENCY aa
,CURRENCY dd
,aa=tt
,dd=ttt
,int a = aa
,int d = dd
,int r1=RandomInt(a d)
,_s=r1; _s.setwintext(id(1 hDlg))
,case 11
,end
ret 1