Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Dialog Help Please
#1
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
#2
This is one way how to put a picture on a non exe dialog. Pretty simple; shouldn't be very hard to use.

Function Dialog2
Trigger F12     Help - how to add the trigger to the macro
Code:
Copy      Help
;\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 308 172 "Dialog"
;3 Static 0x5400000E 0x0 0 0 320 172 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2030109 "" "" ""
str controls = "3"
str sb3 = "$my pictures$\Mofo.gif";;put picture here
if(!ShowDialog("Dialog2" &Dialog2 &controls)) ret
ret
;messages
sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1
#3
Thanks Apreciate it
#4
no problem


Forum Jump:


Users browsing this thread: 1 Guest(s)