ASM Community

.386
.MODEL FLAT, STDCALL
OPTION CASEMAP:NONE

 INCLUDE Windows.inc
 INCLUDE User32.inc
 INCLUDE Kernel32.inc

  INCLUDELIB User32.lib
  INCLUDELIB Kernel32.lib

  INITIAL_WINDOW_WIDTH        EQU               200
  INITIAL_WINDOW_HEIGHT       EQU               INITIAL_WINDOW_WIDTH
  STICKY_FACTOR               EQU               5

.DATA
  ClassName                   DB                "#32770", 0
  WindowName                  DB                "Sticky Form", 0
  Messages                    MSG               <>
.DATA?
  hInstance                   HINSTANCE         ?
  CommandLine                 LPSTR             ?
  MainForm                    HWND              ?
  WindowClass                 WNDCLASSEX        <>
  ScreenDevice                DEVMODE           <>
.CODE

; ---------------------------------------------------------------------------

WndProc PROC hWnd:DWORD, Msg:UINT, wParam:WPARAM, lParam:LPARAM

  LOCAL   WindowWidth:DWORD
  LOCAL   WindowHeight:DWORD
  LOCAL   ScreenWidth:DWORD
  LOCAL   ScreenHeight:DWORD


  MOV     ESI , Msg


  @@:
    CMP     ESI , WM_CLOSE
    JNE     @F
    INVOKE  ExitProcess, 0


  @@:
    CMP     ESI , WM_MOVING
    JNE     @F

    ASSUME  EBX:PTR DEVMODE
    MOV     EBX , OFFSET ScreenDevice
    INVOKE  EnumDisplaySettings, NULL, 0FFFFFFFFh, EBX
    MOV     EAX , DWORD PTR .dmPelsWidth
    MOV     EDX , DWORD PTR .dmPelsHeight
    MOV     ScreenWidth , EAX
    MOV     ScreenHeight , EDX
    ASSUME  ESI:PTR RECT
    MOV     ESI , lParam
    MOV     EAX , DWORD PTR .left
    MOV     EBX , DWORD PTR .right
    MOV     ECX , DWORD PTR .top
    MOV     EDX , DWORD PTR .bottom
    MOV     EDI , EBX
    SUB     EDI , EAX
    MOV     WindowWidth , EDI
    MOV     EDI , EDX
    SUB     EDI , ECX
    MOV     WindowHeight , EDI

    ; EAX = left
    ; EBX = right
    ; ECX = top
    ; EDX = bottom
    ; ESI = RECT
    ; EDI = Free

    @@CheckStickingToTheLeftofScreen:
      CMP     EAX , 0 + STICKY_FACTOR
      JG      @@CheckStickingToTheRightofScreen
      MOV     DWORD PTR .left , 0000000h
      MOV     EDI , EBX
      SUB     EDI , EAX
      MOV     DWORD PTR .right , EDI

    @@CheckStickingToTheRightofScreen:
      MOV     EDI , ScreenWidth
      SUB     EDI , STICKY_FACTOR
      CMP     EBX , EDI
      JL      @@CheckStickingToTheTopofScreen
      MOV     EDI , ScreenWidth
      MOV     DWORD PTR .right , EDI
      SUB     EDI , WindowWidth
      MOV     DWORD PTR .left , EDI

    @@CheckStickingToTheTopofScreen:
      CMP     ECX , 0 + STICKY_FACTOR
      JG      @@CheckStickingToTheBottomofScreen
      XOR     EDI , EDI
      MOV     DWORD PTR .top , EDI
      MOV     EDI , WindowHeight
      MOV     DWORD PTR .bottom , EDI

    @@CheckStickingToTheBottomofScreen:
      MOV     EDI , ScreenHeight
      SUB     EDI , STICKY_FACTOR
      CMP     EDX , EDI
      JL      @F
      ADD     EDI , STICKY_FACTOR
      MOV     DWORD PTR .bottom , EDI
      SUB     EDI , WindowHeight
      MOV     DWORD PTR .top , EDI



  @@:
  INVOKE  DefWindowProc, hWnd, Msg, wParam, lParam
  RET
WndProc ENDP

; ---------------------------------------------------------------------------

START:
  INVOKE  GetModuleHandle, NULL
  MOV     hInstance, EAX
  MOV     ESI , EAX

  ASSUME  EDI:PTR WNDCLASSEX
  MOV     EDI , OFFSET WindowClass
  INVOKE  RtlZeroMemory, EDI, SIZEOF WNDCLASSEX
  MOV     DWORD PTR .cbSize , SIZEOF WNDCLASSEX
  MOV     DWORD PTR .hbrBackground , COLOR_BTNFACE + 1
  MOV     DWORD PTR .lpszClassName , OFFSET ClassName
  MOV     DWORD PTR .lpfnWndProc , OFFSET WndProc
  MOV     DWORD PTR .hInstance , ESI
  INVOKE  LoadCursor, 0, IDC_ARROW
  MOV     DWORD PTR .hCursor , EAX
  INVOKE  LoadIcon, 0, IDI_APPLICATION
  MOV     DWORD PTR .hIcon , EAX
  MOV     DWORD PTR .hIconSm , EAX
  INVOKE  RegisterClassEx, OFFSET WindowClass

  ; Position the screen in the center of the screen
  ASSUME  EBX:PTR DEVMODE
  MOV     EBX , OFFSET ScreenDevice
  INVOKE  EnumDisplaySettings, NULL, 0FFFFFFFFh, EBX
  MOV     EAX , DWORD PTR .dmPelsWidth
  SHR     EAX , 00000001h
  SUB     EAX , (INITIAL_WINDOW_WIDTH SHR 1)
  MOV     EDX , DWORD PTR .dmPelsHeight
  SHR     EDX , 00000001h
  SUB     EDX , (INITIAL_WINDOW_HEIGHT SHR 1)

  ; EAX = Center.X
  ; EDX = Center.Y

  INVOKE  CreateWindowEx, 0, OFFSET ClassName, OFFSET WindowName, WS_VISIBLE OR WS_OVERLAPPEDWINDOW, \
                          EAX, EDX, INITIAL_WINDOW_WIDTH, INITIAL_WINDOW_HEIGHT, 0, 0, ESI, 0

  MOV     DWORD PTR  , EAX
  MOV     ESI , EAX
  INVOKE  ShowWindow , EAX, SW_SHOWNORMAL
  INVOKE  UpdateWindow , ESI

  @@:
    INVOKE  GetMessage, OFFSET Messages, 0, 0, 0
    TEST    EAX , EAX
    JZ      @F
    INVOKE  TranslateMessage, OFFSET Messages
    INVOKE  DispatchMessage, OFFSET Messages
    JMP     @B
  @@:

  INVOKE  ExitProcess, 0

END START