ASM Community

;-- -----------------------------------------------------------------------------
; This subprogram assumes that EBX=wParam, EDX=lParam, ESI=m_hWnd, EBP=0
NFOC STRUCT
 return   DWORD ?
NFOC$3        = $
 hdcPaint DWORD ?
 hdcMem   DWORD ?
 hbmMem   DWORD ?
 rc       RECT  {}
NFOC$4        = $
NFOC ENDS

NF EQU ESP.NFOC                    ;save some typing

 .DATA?
hOldBmp        DWORD ?
hbBackground   DWORD ?
hdcChars       DWORD ?
hNullBmp       DWORD ?
m_hWnd         DWORD ?
m_hCharBitmap  DWORD ?
m_nVScrollPos  DWORD ?
m_nCharWidth   DWORD ?
m_nCharHeight  DWORD ?
m_nWindowLines DWORD ?
m_crBackground DWORD ?
m_hFile        DWORD ?
m_lpLines      DWORD ?
nLine          DWORD ?
lpLine         DWORD ?
nX             DWORD ?
nY             DWORD ?

 .CODE
NFOCtrl_OnPaint:
 LEA EAX,
 INVOKE GetClientRect,ESI,EAX
 INVOKE GetDC,ESI
 MOV ,EAX

 INVOKE GetParent,ESI
 INVOKE IsIconic,EAX

 .IF !EAX
   INVOKE CreateCompatibleDC,
   INVOKE CreateCompatibleBitmap,,\
                                 ,
   INVOKE SelectObject,,
   INVOKE CreateSolidBrush,
   MOV ,EAX
   PUSH EAX                        ;***push param for DeleteObject below
   LEA ECX,
   INVOKE FillRect,,ECX,EAX
   INVOKIT DeleteObject,;***parameter pushed above

   .IF ( != EBP) && ( != EBP)
     INVOKE CreateCompatibleDC,
     MOV ,EAX
     INVOKE SelectObject,,

     MOV EAX,
     MOV ECX,
     MOV ,EBP
     MOV ,EBP
     ADD ECX,
     MOV ,EAX
     PUSH ECX                      ;loop counter on stack

     .WHILE TRUE
       MOV EAX,
     .BREAK .IF EAX >= 
       MOV ECX,
       MOV ,ECX

       .WHILE BYTE PTR  >= ' '
         PUSH SRCCOPY
         MOVZX EAX,BYTE PTR 
         SUB EAX,' '
         AND EAX,0FH
         MUL 
         PUSH EAX
         MOVZX EAX,BYTE PTR 
         SUB EAX,' '
         SHR EAX,4
         MUL 
         PUSH EAX
         INVOKIT BitBlt,,,,\
                        ,,
         MOV EAX,
         INC ,EAX]
         MOV ECX,
       .ENDW

       MOV EAX,
       MOV ,EBP
       ADD ,EAX
      INC 
     .ENDW
     POP EAX                       ;stack cleared of loop counter

     INVOKE SelectObject,,
     INVOKE DeleteDC,
   .ENDIF

   INVOKE BitBlt,,EBP,EBP,,,,EBP,EBP,SRCCOPY
   INVOKE SelectObject,,
   INVOKE DeleteObject,
   INVOKE DeleteDC,
 .ENDIF

 INVOKE ReleaseDC,,
 INVOKE ValidateRect,,EBP

 MOV EAX,ESP
 RET NFOC$4-NFOC$3

 END