08-07-2010, 03:54 PM
Hi once again, i seem to be having trouble making this do what i wish
Once the text has completely scrolled, i would like it to stop, for some reason i cant get this to work right
Here is the code so far(just Timer part)
Function 3_Dialog
When the xx = 5, it has completed it scroll enough for me to stop it
I basically just need to know how to make TIMER stop so the text will stop moving
Thanks very much
Once the text has completely scrolled, i would like it to stop, for some reason i cant get this to work right
Here is the code so far(just Timer part)
Function 3_Dialog
,case WM_TIMER
,sel wParam
,,case 1
,,int hh=id(19 hDlg)
,,RECT r; GetClientRect(hh &r)
,,__MemBmp mb.Create(r.right r.bottom)
,,FillRect mb.dc &r COLOR_BTNFACE+1
,,SetBkMode mb.dc TRANSPARENT
,,int f0=SelectObject(mb.dc GetStockObject(DEFAULT_GUI_FONT))
,,r.left=xx; xx-1
,,RECT rr; DrawTextW mb.dc @ScrollText -1 &rr DT_EXPANDTABS|DT_NOPREFIX|DT_CALCRECT ;;calc text width
,,if(xx<=-rr.right) xx=r.right
,,
,,DrawTextW mb.dc @ScrollText -1 &r DT_EXPANDTABS|DT_NOPREFIX
,,SelectObject(mb.dc f0)
,,int dc=GetDC(hh)
,,BitBlt dc 0 0 r.right r.bottom mb.dc 0 0 SRCCOPY
,,ReleaseDC(hh dc)
,,if(xx = 5)
,,,out "Complete Scroll"
,,,NEED STOP CODE HEREWhen the xx = 5, it has completed it scroll enough for me to stop it
I basically just need to know how to make TIMER stop so the text will stop moving
Thanks very much
