09-19-2009, 03:14 AM
I have a question i have searched the forum and have read on the help section and still cant figure this out what i exactly want to do i figured other way but what i want is in the background of this dialog i want it to have a picture in the background when the dialog opens , not sure if you need to use exe or what but if you could help me figure this out i would apreciate it thanks...
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str controls ="3 7"
str o3 si7
si7 = "$my qm$main.ico"
BEGIN DIALOG
0 "" 0x10C00A40 0x100 0 0 475 55 "Loading..... Dialog"
3 msctls_progress32 0x54000000 0x4 4 12 382 34 ""
5 Static 0x54000000 0x0 394 12 52 18 ""
7 Static 0x54000003 0x0 394 34 16 14 ""
6 Button 0x54020007 0x0 392 2 58 30 "Percentage"
4 Button 0x54020007 0x0 2 2 386 50 "Please Wait"
END DIALOG
DIALOG EDITOR: "" 0x203000A "" "" ""
if(!ShowDialog("Dialog" &Dialog &controls)) ret
ret
messages
//
int range=100
int step=1
int timerperiod=25
int- ti
int hpb=id(3 hDlg)
str s
sel message
case WM_INITDIALOG
DT_Init(hDlg lParam)
SetTimer hDlg 1 timerperiod 0
ret 1
case WM_TIMER
ti+step
SendMessage hpb PBM_SETPOS ti 0
if(ti<range)
s.format("%i %%" 100*ti/range+1)
else
mac "Instructions2"
KillTimer hDlg 1
DT_Ok hDlg
s.setwintext(id(5 hDlg))
ret 2
sel wParam
case 8
str-- func
func="LoadClose"
mac func; err ret
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str controls ="3 7"
str o3 si7
si7 = "$my qm$main.ico"
BEGIN DIALOG
0 "" 0x10C00A40 0x100 0 0 475 55 "Loading..... Dialog"
3 msctls_progress32 0x54000000 0x4 4 12 382 34 ""
5 Static 0x54000000 0x0 394 12 52 18 ""
7 Static 0x54000003 0x0 394 34 16 14 ""
6 Button 0x54020007 0x0 392 2 58 30 "Percentage"
4 Button 0x54020007 0x0 2 2 386 50 "Please Wait"
END DIALOG
DIALOG EDITOR: "" 0x203000A "" "" ""
if(!ShowDialog("Dialog" &Dialog &controls)) ret
ret
messages
//
int range=100
int step=1
int timerperiod=25
int- ti
int hpb=id(3 hDlg)
str s
sel message
case WM_INITDIALOG
DT_Init(hDlg lParam)
SetTimer hDlg 1 timerperiod 0
ret 1
case WM_TIMER
ti+step
SendMessage hpb PBM_SETPOS ti 0
if(ti<range)
s.format("%i %%" 100*ti/range+1)
else
mac "Instructions2"
KillTimer hDlg 1
DT_Ok hDlg
s.setwintext(id(5 hDlg))
ret 2
sel wParam
case 8
str-- func
func="LoadClose"
mac func; err ret