[es] - Problem sa setanjem image-a po ekranu

radacha
miroslav radakovic

Član broj: 21473
Poruke: 2
*.2.EUnet.yu.

Sajt: galeb.etf.bg.ac.yu/~radac..

Profil

Problem sa setanjem image-a po ekranu

^{01.05.2005. u 13:18 - pre 230 meseci}

Zdravo svima,

Nadam se da mi mozete pomoci.

Problem: Trebalo bi kad pritisnem Button da se u glavnom prozoru pojavi image(bmp) i da se krece od tacke A do tacke B (recimo svakih 10ms da se pomeri za 1px).
Ono sto sam ja dosad uspeo je:

Code:

.elseif uMsg == WM_COMMAND
      .if wParam == 500
          invoke GetDC,hWnd
          mov hdc, eax
          invoke Paint_Proc,hWnd,hdc,1
          invoke ReleaseDC,hWnd,hdc
        ret
      .endif

Ovde pozivam Paint_Proc koja bi trebalo da iscrta to na ekranu

Paint_Proc izgleda ovako:

Code:

Paint_Proc proc hWin:DWORD, hDC:DWORD, smer:DWORD

    LOCAL memDC:DWORD
    local hOld:DWORD
    LOCAL var1 :DWORD
    LOCAL var2 :DWORD
    LOCAL x :DWORD

    invoke CreateCompatibleDC,hDC
    mov memDC, eax

    invoke SelectObject,memDC,hBitmap2
    mov hOld, eax

    .if smer == 1

      mov var1, 0
      mov x,600

      .while var1 < 50 ;

        invoke BitBlt,hDC,x,10,40,40,memDC,0,0,SRCCOPY

      ; -----------------------
      ; Simple delay technique
      ; -----------------------
        invoke GetTickCount
        mov var2, eax
        add var2, 10    ; nominal milliseconds delay

        .while eax < var2
          invoke GetTickCount
        .endw

        inc var1
        dec x
      .endw

    .endif

    invoke SelectObject,hDC,hOld
    invoke DeleteDC,memDC

    ret

Paint_Proc endp

Problem je sto mi ovo iscrtava image pomerene za 1px, ali ne obrise onaj prethodni tako da izgleda kao da image ostavlja trag za sobom.

Hvala vam unapred!

Odgovor na temu