FASM + WinAPI, рисование фона окна

  ; Регистрация класса окна wc------------------\
  invoke  GetModuleHandle, 0
  mov     [wc.hInstance], eax
  invoke  LoadIcon, eax, 17
  mov     [wc.hIcon], eax
  invoke  LoadCursor, 0, IDC_ARROW
  mov     [wc.hCursor], eax
  mov     [wc.hbrBackground], NULL  ;для обработки сообщения WM_ERASEBKGND, необходимо установливать в NULL
  invoke  RegisterClass, wc
;-----------------------------------------------/
 
  ; Создание базового окна----------------------\
  invoke  CreateWindowEx, 0, _class, _title, WS_VISIBLE+WS_OVERLAPPEDWINDOW, 70, 70, 860, 342, NULL, NULL, [wc.hInstance], NULL
  mov     ebx, eax                      ; В регистре - ebx сохраняется дескриптор базового окна для дальнейшего его использования
  mov     [hBaseWindow], eax            ; В переменной - hBaseWindow сохраняется дескриптор базового окна для дальнейшего его использования
;-----------------------------------------------/
 
  ; Кольцо сообщений----------------------------\
.wmcreate:
  invoke  LoadBitmap, [wc.hInstance], IDB_BITMAP_MSW                          ;загрузка картинки из ресурса
  mov     [hBmp], eax
  invoke  CreatePatternBrush, [hBmp]                                          ;создаем шаблон кисти из картинки
  mov     [hBrush], eax
  invoke  DeleteObject, [hBmp]                                                ;удаляем дескриптор картинки
  xor     eax, eax                                                            ;возвращаем 0
  jmp     .finish
 
.wmerasebkgnd:
  invoke  GetClientRect, [hwnd], Rct                                          ;узнаём размер клиентской области окна
  invoke  SelectObject, [wparam], [hBrush]                                    ;выберем в контекст кисть
  invoke  PatBlt, [wparam], 0, 0, [Rct.right], [Rct.bottom], PATCOPY          ;заполним прямоугольную область
  mov     eax, 1                                                              ;возвращаем TRUE
  jmp     .finish
;-----------------------------------------------/
 
  ; Секция ресурсов-----------------------------\
section '.rsrc' resource data readable;************************************************************
 
  ; Директория ресурсов
  directory RT_ICON,       icons,\
        RT_GROUP_ICON, group_icons
 
  ; Субдиректория ресурсов
  resource icons,         1,  LANG_NEUTRAL,  icon_data
  resource group_icons,  17,  LANG_NEUTRAL,  main_icon
  icon main_icon,icon_data,'TCP.ico'
 
  resource bitmaps, IDB_BITMAP_MSW, LANG_ENGLISH+SUBLANG_DEFAULT, bitmap1
  bitmap bitmap1,'TCP/StyleB2D.bmp'
;-----------------------------------------------/