' Test of the new IWMask library autodefine "off" $include "windowssdk.inc" $include "iwmask.inc" DIALOG win ISTRING myDate[32] CREATEDIALOG win,0,0,300,300,0x80CB0080,0,"IWMask Test",&main CONTROL win,@EDIT,"",20,72,70,22,0x50000000|@TABSTOP,80 CONTROL win,@BUTTON,"OK",20,170,70,20,0x50000000,200 DOMODAL win WAITUNTIL IsWindowClosed(win) END SUB main(),INT SELECT @MESSAGE CASE @IDINITDIALOG CENTERWINDOW win IWM_Create(win,120,20,102,70,22,0,"00/00/0000","_") SETFONT win,"MS Sans Serif",8,400,0,120 IWM_SetTabCallback(win,120,&MySub1) IWM_Create(win,130,20,132,70,22,0,"00/00/0000","_") SETFONT win,"MS Sans Serif",8,400,0,130 IWM_SetTabCallback(win,130,&MySub1) SETFOCUS win,80 CASE @IDCLOSEWINDOW CLOSEDIALOG win,@IDOK CASE @IDCONTROL SELECT @CONTROLID CASE 80 IF GetFocus()=GETCONTROLHANDLE(win,80) THEN SETFOCUS win,120 CASE 200 'Ok button myDate=IWM_GetMinText(win,120) SETCAPTION win,myDate ENDSELECT ENDSELECT RETURN 0 ENDSUB GLOBAL SUB MySub1(INT hWnd,INT id) 'can be any name you prefer 'use a series of if/else IF GetFocus()=GETCONTROLHANDLE(win,120) THEN SETFOCUS win,130 IF GetFocus()=GETCONTROLHANDLE(win,130) THEN SETFOCUS win,120 ENDSUB 'GLOBAL SUB MySub2(INT hWnd,INT id) 'can be any name you prefer 'use a series of if/else 'IF GetFocus()=GETCONTROLHANDLE(win,130) THEN SETFOCUS win,120 'ENDSUB