SetDialogFont (background)

[pedrotairum]

Hey Gintaras, quick question.
This is my dialog:

Function resumo_remote_2_metade

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str s1 s2 s3 s4 ss ss1
int i

str controls = "3"
str ax3SHD

;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 640 325 "RESUMO DA REDE"
;4 Static 0x54000000 0x0 40 10 120 35 "HORAS"
;11 Static 0x50000000 0x0 91 50 160 20 "TCO - BRASÍLIA"
;12 Static 0x50000000 0x0 90 110 150 20 "TCO - MANAUS"
;17 Static 0x50000000 0x0 101 170 150 20 "TNE - RECIFE"
;13 Static 0x50000000 0x0 100 230 150 20 "TNO - BELÉM"
;14 Static 0x54800000 0x0 22 75 120 30 "HORAS BRASILIA"
;15 Static 0x54800000 0x0 22 135 120 30 "HORAS MANAUS"
;16 Static 0x54800000 0x0 22 195 120 30 "HORAS RECIFE"
;18 Static 0x54800000 0x0 22 255 120 30 "HORAS BELEM"
;19 Static 0x54000000 0x0 185 10 120 35 "TEMP"
;20 Static 0x54000000 0x0 350 10 220 35 "METEREOLOGIA"
;22 Static 0x54800000 0x0 185 75 70 30 "TEMP BRASILIA"
;23 Static 0x54800000 0x0 185 135 70 30 "TEMP MANAUS"
;24 Static 0x54800000 0x0 185 195 70 30 "TEMP RECIFE"
;25 Static 0x54800000 0x0 185 255 70 30 "TEMP BELEM"
;3 ActiveX 0x54030000 0x0 300 60 323 226 "SHDocVw.WebBrowser"
;1 Button 0x54030001 0x4 315 102 0 0 "OK"
;2 Button 0x54030000 0x4 712 134 0 0 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2030408 "" "" "" ""


if(!ShowDialog("resumo_remote_2_metade" &resumo_remote_2_metade)) ret

ret
;messages
/---Variável do timer do audit---
int-- timervar
/---Sys do bitmap---
int x(0) y(0) wid(1300) hei(800) ;;change this
__MemBmp-- mb


sel message

,case WM_INITDIALOG
,SHDocVw.WebBrowser b
/---Timer---
,SetTimer hDlg 1 1000 0 ;;timer de um segundo
,SetTimer hDlg 2 10000 0 ;;timer de uma hora
,SendMessage hDlg WM_TIMER 1 0
/-----Fonte,tamanho e cor----
,__Font-- f.Create("Calibri" 15 1) f2.Create("Calibri" 25 1)  f3.Create("Calibri" 35 1) f4.Create("Calibri" 35 1)
,f.SetDialogFont(hDlg "3 5 6")
,f2.SetDialogFont(hDlg "11 12 13 17")
,f3.SetDialogFont(hDlg "4 19 20")
,f4.SetDialogFont(hDlg "14 15 16 18")
,f.SetDialogFontColor(hDlg 0x999999 "4 19 20")
,DT_SetTextColor(hDlg 0xFF9900 "11 12 13 17")
,DT_SetTextColor(hDlg 0xFFFFFF "14 15 16 18")

/---Load Imagem de fundo---
,_s="S:\GS\SN SS GNOC\Projects\TIM\Menu TIM\remote\background.jpg"
,__GdiHandle hb=LoadPictureFile(_s); if(!hb) ret
,hb=CopyImage(hb IMAGE_BITMAP wid hei LR_COPYDELETEORG|LR_COPYRETURNORG)
,SaveBitmap hb _s.from("S:\GS\SN SS GNOC\Projects\TIM\Menu TIM\remote\active_metade.jpg")
,DT_SetBackgroundImage hDlg _s

,case WM_TIMER
,sel wParam
,,case 1
/---Horas---
,,DateTime dth dtm dts; int hour hourb hourb1 minute second
,,dth.FromComputerTime; dth.GetParts(0 0 0 hour)
,,dtm.FromComputerTime; dtm.GetParts(0 0 0 0 minute)
,,dts.FromComputerTime; dts.GetParts(0 0 0 0 0 second)
,,hourb=hour-4
,,hourb1=hour-5
,,ss.format("%02i:%02i:%02i" hourb minute second)
,,ss.setwintext(id(14 hDlg)) ss.setwintext(id(16 hDlg)) ss.setwintext(id(18 hDlg))
,,ss1.format("%02i:%02i:%02i" hourb1 minute second)
,,ss1.setwintext(id(15 hDlg))
,,case 2
/---Refresh do mapa de metereologia---
,,b._getcontrol(id(3 hDlg))
,,b.Navigate("http://imagens.climatempo.com.br/mapas/brasil_prev1_menor.gif")



,case WM_DESTROY
,KillTimer(hDlg 1)

,case WM_COMMAND goto messages2

ret

;messages2

sel wParam
,case IDOK
,case IDCANCEL
ret 1

What I want to do is to stretch the webbrowser and the image alltogether because if I stretch the webbrowser the image stay the same size.
Thank you very much!