flat assembler
Message board for the users of flat assembler.

flat assembler > Windows > For Newbies: Mouse.asm Iczelion's example FASMW version

Author
Thread Post new topic Reply to topic
imagineer



Joined: 09 Aug 2003
Posts: 14
Code:
; Mouse.asm Iczelion's example FASMW version

format PE GUI 4.0
entry start


include '%include%\win32a.inc'

;---------------------------------------------
section '.data' data readable writeable

  _title db 'Mouse Click Demo',0
  _class db 'SimpleWinClass',0
  mainhwnd dd ?
  hinstance dd ?
  msg MSG
  wc WNDCLASS
  _hdc dd 0
  _ps PAINTSTRUCT
  _keychar dd 0
  _hitpoint POINT
  _MouseClick dd 0

;---------------------------------------------
section '.code' code readable executable

  start:
        invoke  GetModuleHandle,0
        mov     [hinstance],eax
        invoke  LoadIcon,0,IDI_APPLICATION
        mov     [wc.hIcon],eax
        invoke  LoadCursor,0,IDC_ARROW
        mov     [wc.hCursor],eax
        mov     [wc.style],0
        mov     [wc.lpfnWndProc],WindowProc
        mov     [wc.cbClsExtra],0
        mov     [wc.cbWndExtra],0
        mov     eax,[hinstance]
        mov     [wc.hInstance],eax
        mov     [wc.hbrBackground],COLOR_WINDOW+1
        mov     [wc.lpszMenuName],0
        mov     [wc.lpszClassName],_class
        invoke  RegisterClass,wc

        invoke  CreateWindowEx, 0, _class, _title, WS_OVERLAPPEDWINDOW,\
                                CW_USEDEFAULT, CW_USEDEFAULT , CW_USEDEFAULT, CW_USEDEFAULT,\
                                NULL, NULL, [hinstance], NULL
        mov     [mainhwnd],eax
        invoke  ShowWindow, [mainhwnd], SW_SHOWNORMAL
        invoke  UpdateWindow, [mainhwnd]

  msg_loop:
        invoke  GetMessage,msg,NULL,0,0
        or      eax,eax
        jz      end_loop
        invoke  TranslateMessage,msg
        invoke  DispatchMessage,msg
        jmp     msg_loop

  end_loop:
        invoke  ExitProcess,[msg.wParam]
;---------------------------------------------
proc WindowProc, hwnd,wmsg,wparam,lparam
        enter
        push    ebx esi edi
        cmp     [wmsg],WM_DESTROY
        je      wmdestroy
        cmp     [wmsg],WM_LBUTTONDOWN
        je      wmlbuttondown
        cmp     [wmsg],WM_PAINT
        je      wmpaint
  defwndproc:
        invoke  DefWindowProc,[hwnd],[wmsg],[wparam],[lparam]
        jmp     finish
  wmlbuttondown:
        mov     eax, [lparam]
        and     eax, 0ffffh
        mov     [_hitpoint.x], eax
        mov     eax,[lparam]
        shr     eax, 16
        mov     [_hitpoint.y], eax
        mov     [_MouseClick], TRUE
        invoke  InvalidateRect, [hwnd], NULL, TRUE
        jmp     finish
  wmpaint:
        invoke  BeginPaint, [hwnd], _ps
        mov     [_hdc], eax
        mov     eax, [_MouseClick]
        cmp     eax, TRUE
        jne     done
        invoke  lstrlen, _title
        invoke  TextOut, [_hdc], [_hitpoint.x],[_hitpoint.y], _title, eax
        invoke  EndPaint, [hwnd], _ps
  done: jmp     finish
  wmdestroy:
        invoke  PostQuitMessage,0
        xor     eax,eax
  finish:
        pop     edi esi ebx
        return
;-----------------------------------------------
section '.idata' import data readable writeable

  library kernel,'KERNEL32.DLL',\
          gdi, 'GDI32.DLL',\
          user,'USER32.DLL'

  import kernel,\
         GetModuleHandle,'GetModuleHandleA',\
         ExitProcess,'ExitProcess',\
         lstrlen, 'lstrlen'

  import user,\
         RegisterClass,'RegisterClassA',\
         CreateWindowEx,'CreateWindowExA',\
         DefWindowProc,'DefWindowProcA',\
         GetMessage,'GetMessageA',\
         TranslateMessage,'TranslateMessage',\
         DispatchMessage,'DispatchMessageA',\
         LoadCursor,'LoadCursorA',\
         LoadIcon,'LoadIconA',\
         PostQuitMessage,'PostQuitMessage',\
         ShowWindow,'ShowWindow',\
         UpdateWindow, 'UpdateWindow',\
         BeginPaint, 'BeginPaint',\
         EndPaint, 'EndPaint',\
         InvalidateRect, 'InvalidateRect'

   import gdi,\
         TextOut, 'TextOutA'
;=============================================
    


Cheers,

The I
Post 20 Aug 2003, 02:21
View user's profile Send private message Reply with quote
TronDoc



Joined: 30 Jul 2003
Posts: 9
Thank you for the example.
I'm not far enough along in
windoze asm to understand
much of it, but I will keep it
in my library until I get there! Smile Joe

_________________
peace
Post 24 Aug 2003, 20:29
View user's profile Send private message Visit poster's website Reply with quote
inskipp



Joined: 23 Jun 2003
Posts: 25
Location: Poland
Why not use some variables (for example _ps) as locals in WindowProc?
And variable _hdc is not needed - it's more simple to _use _ps.hdc instead.
Post 24 Aug 2003, 21:12
View user's profile Send private message ICQ Number Reply with quote
Blag



Joined: 04 Jul 2003
Posts: 90
Location: Perú
Hi imagineer:

Thanx for take the time to upload all those great codes....i just download the all in an special FASM folder, in order to read them, understand them and of course, try to modified them. Wink
Please, continue if you can, uploading those great newbie helpers. Very Happy

_________________
Alvaro Tejada Galindo
SinglePath games design
http://www.iespana.es/singlepath
Post 25 Aug 2003, 04:29
View user's profile Send private message MSN Messenger Reply with quote
Display posts from previous:
Post new topic Reply to topic

Jump to:  


< Last Thread | Next Thread >
Forum Rules:
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Copyright © 1999-2019, Tomasz Grysztar.

Powered by rwasa.