include '%include%/win32a.inc'
data import ;section '.import' import data readable writeable
    library kernel32,'KERNEL32.DLL', user32,'USER32.DLL'
    include '%api%\kernel32.inc'
    include '%api%\user32.inc'
end data
data resource ;section '.rsrc' resource data readable
    directory RT_DIALOG,dialogs
    resource dialogs,0,LANG_ENGLISH+SUBLANG_DEFAULT,dialog0
    dialog  dialog0,'DlgEdit',0,0,400,300,WS_VISIBLE+WS_SYSMENU+WS_MAXIMIZEBOX+WS_MINIMIZEBOX+WS_THICKFRAME+DS_CENTER,2,,'Terminal'
        dialogitem 'EDIT','',10,0,0,0,0,WS_VISIBLE+WS_HSCROLL+WS_VSCROLL+ES_AUTOHSCROLL+ES_AUTOVSCROLL+ES_MULTILINE+ES_WANTRETURN;+WS_CHILD
    enddialog
end data
entry $
;        invoke  GetModuleHandle,0
        invoke  DialogBoxParam,eax,0,HWND_DESKTOP,DialogProc,0
        invoke  ExitProcess,0 

proc DialogProc,hwnd,msg,wparam,lparam
        push    ebx esi edi 
        cmp     [msg], WM_CTLCOLOREDIT
        je      fontcolours
        cmp     [msg], WM_SIZE
        je      wmsize
        cmp     [msg], WM_CLOSE
        je      wmclose 
        xor     eax, eax
 finish: pop     edi esi ebx
        ret

  wmclose:
        invoke  EndDialog,[hwnd],0
        jmp     finish

  fontcolours:
;        invoke  SetTextColor, [wparam], $ffff00
;        invoke  SetBkColor, [wparam], 0    ; test background color (for all lines with text)
;        invoke  CreateSolidBrush, 0       ; background colour for the rest of the lines
        jmp     finish

  wmsize:
        push    TRUE
        mov     eax, [lparam]
        shr     eax, 16
        push    eax
        mov     eax, [lparam]
        and     eax, 0ffffh
        push    eax
        push    0 0
        invoke  GetDlgItem,[hwnd],10
        invoke  MoveWindow,eax
        jmp     finish
endp    

  wmsize:
        mov     eax, [lparam]
        shr     eax, 16
        push    TRUE eax
        mov     eax, [lparam]
        and     eax, 0ffffh
        invoke  GetDlgItem,[hwnd],10,0,0,eax
        invoke  MoveWindow,eax
        jmp     finish