Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Static Scrolling Text
#8
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
Code:
Copy      Help
,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 HERE


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


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)