Dialog with 'for' cicle

[Kevin]

you have several mistakes in your dialog code that are causing your dialog to lock up in a loop
Function gmg_reminder

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
str s1 s2
str controls = "6"
str e6

if(!ShowDialog("gmg_reminder" &gmg_reminder &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 119 98 "GMG Reminder"
;2 Button 0x54030000 0x4 8 60 100 21 "Esconder"
;3 Button 0x54032000 0x0 8 84 100 10 "Fechar"
;4 Button 0x54032000 0x0 70 8 38 10 "Start 2h"
;5 Button 0x54032000 0x0 70 20 38 10 "Start 4h"
;6 Edit 0x54030080 0x200 10 14 40 14 ""
;7 Static 0x54000000 0x0 22 2 48 12 "Site"
;8 Static 0x54000000 0x0 12 40 48 13 "site"
;9 Static 0x54000000 0x0 66 40 48 13 "tempo"
;END DIALOG
;DIALOG EDITOR: "" 0x2030408 "*" "" "" ""

ret
;messages
int-- timervar
sel message
,case WM_INITDIALOG
,Tray-- t_ti
,t_ti.AddIcon("" "GMG Reminder" 5 hDlg)
,case WM_TIMER
,if timervar<=0
,,KillTimer(hDlg 1)
,,TO_Enable(hDlg "4 5" 1)
,_s.format("%02i:%02i:%02i" timervar/3600 timervar/60%60 timervar%60)
,_s.setwintext(id(9 hDlg));err
,timervar-1
,case WM_DESTROY
,KillTimer(hDlg 1)
,t_ti.Delete
,case WM_USER+101
,sel lParam
,,case WM_LBUTTONUP ;;on left click tray icon
,,act hDlg; err
,,case WM_RBUTTONUP ;;on right click tray icon
,,sel ShowMenu("1 Mostrar[]2 Fechar" hDlg)
,,,case 1 act hDlg
,,,case 2 DT_EndDialog hDlg
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 4: s1.getwintext(id(6 hDlg)) s1.setwintext(id(8 hDlg))
,timervar=7200
,SetTimer hDlg 1 1000 0
,TO_Enable(hDlg "4 5" 0)
,case 5: s1.getwintext(id(6 hDlg)) s1.setwintext(id(8 hDlg))
,timervar=14400
,SetTimer hDlg 1 1000 0
,TO_Enable(hDlg "4 5" 0)
,case IDCANCEL ;;Hide, X
,min hDlg; hid hDlg; ret
,case 3 ;;Exit
,;gSair
,DT_Cancel hDlg
ret 1