WebSVN – Kolibri OS – Diff – /programs/fs/kfar/trunk/dialogs.inc


; int __stdcall GenericBox(DLGTEMPLATE* dlg, void* DlgProc);
;       int __stdcall DlgProc(DLGTEMPLATE* dlg, int msg, int param1, int param2);
 
virtual at 0
dlgtemplate:
; « £¨:
; ¡¨â 0: ¨á¯®«ì§®¢ âì áâ ­¤ àâ­ë¥ æ¢¥â  ¤¨ «®£ 
; ¡¨â 1: ¨á¯®«ì§®¢ âì áâ ­¤ àâ­ë¥ æ¢¥â  ¯à¥¤ã¯à¥¦¤¥­¨ï/®è¨¡ª¨
; (¥á«¨ «î¡®© ¨§ íâ¨å ¡¨â®¢ ãáâ ­®¢«¥­, ¯®«ï main_color,border_color,header_color
;  ¨£­®à¨àãîâáï)
.flags          dd      ?
.x              dd      ?
.y              dd      ?
.width          dd      ?
.height         dd      ?
.border_size_x  dd      ?
.border_size_y  dd      ?
.title          dd      ?
.main_color     db      ?
.border_color   db      ?
.header_color   db      ?
                db      ?       ; align
.size = $
end virtual
 
GenericBox:
        pushad
        mov     ebx, [esp+20h+4]
; center window if required
        push    [ebx+dlgtemplate.x]
        push    [ebx+dlgtemplate.y]
        cmp     [ebx+dlgtemplate.x], -1
        jnz     @f
        mov     eax, [cur_width]
        sub     eax, [ebx+dlgtemplate.width]
        shr     eax, 1
        mov     [ebx+dlgtemplate.x], eax
@@:
        cmp     [ebx+dlgtemplate.y], -1
        jnz     @f
        mov     eax, [cur_height]
        sub     eax, [ebx+dlgtemplate.height]
        shr     eax, 1
        mov     [ebx+dlgtemplate.y], eax
@@:
; some checks
        mov     eax, [ebx+dlgtemplate.x]
        cmp     eax, 1
        jl      .sizeerr
        add     eax, [ebx+dlgtemplate.width]
        cmp     eax, [cur_width]
        jge     .sizeerr
        mov     eax, [ebx+dlgtemplate.y]
        cmp     eax, 1
        jl      .sizeerr
        add     eax, [ebx+dlgtemplate.height]
        cmp     eax, [cur_height]
        jge     .sizeerr
        cmp     [ebx+dlgtemplate.border_size_x], 1
        jl      .sizeerr
        cmp     [ebx+dlgtemplate.border_size_y], 1
        jge     .sizeok
.sizeerr:
        pop     [ebx+dlgtemplate.y]
        pop     [ebx+dlgtemplate.x]
        popad
        or      eax, -1
        ret     8
.sizeok:
; set color if required
        test    byte [ebx+dlgtemplate.flags], 1
        jz      @f
        mov     edi, dialog_colors
        jmp     .setcolor
@@:
        test    byte [ebx+dlgtemplate.flags], 2
        jz      @f
        mov     edi, warning_colors
.setcolor:
        mov     al, [edi + dialog_main_color-dialog_colors]
        mov     [ebx+dlgtemplate.main_color], al
        mov     al, [edi + dialog_border_color-dialog_colors]
        mov     [ebx+dlgtemplate.border_color], al
        mov     al, [edi + dialog_header_color-dialog_colors]
        mov     [ebx+dlgtemplate.header_color], al
@@:
; allocate memory for data under dialog
; for 'No memory' dialog use static data area
        mov     ebp, nomem_dlgsavearea
        cmp     ebx, nomem_dlgdata
        jz      .allocated
        mov     eax, [ebx+dlgtemplate.width]
        add     eax, [ebx+dlgtemplate.border_size_x]
        add     eax, [ebx+dlgtemplate.border_size_x]
        inc     eax
        inc     eax
        mov     edx, [ebx+dlgtemplate.height]
        add     edx, [ebx+dlgtemplate.border_size_y]
        add     edx, [ebx+dlgtemplate.border_size_y]
        inc     edx
        mul     edx
        lea     ecx, [eax*2]
        call    xpgalloc
        test    eax, eax
        jnz     @f
        pop     [ebx+dlgtemplate.y]
        pop     [ebx+dlgtemplate.x]
        popad
        or      eax, -1
        ret     8
@@:
        mov     ebp, eax
.allocated:
; save data
        mov     eax, [ebx+dlgtemplate.y]
        add     eax, [ebx+dlgtemplate.height]
        add     eax, [ebx+dlgtemplate.border_size_y]
        inc     eax
        push    eax
        mov     eax, [ebx+dlgtemplate.x]
        add     eax, [ebx+dlgtemplate.width]
        add     eax, [ebx+dlgtemplate.border_size_x]
        inc     eax
        inc     eax
        push    eax
        mov     eax, [ebx+dlgtemplate.y]
        sub     eax, [ebx+dlgtemplate.border_size_y]
        push    eax
        mov     eax, [ebx+dlgtemplate.x]
        sub     eax, [ebx+dlgtemplate.border_size_x]
        push    eax
        call    save_console_data
; draw shadow
        mov     eax, [ebx+dlgtemplate.x]
        sub     eax, [ebx+dlgtemplate.border_size_x]
        ja      @f
        xor     eax, eax
@@:
        push    eax     ; save real window left
        inc     eax
        inc     eax
        mov     edx, [ebx+dlgtemplate.y]
        sub     edx, [ebx+dlgtemplate.border_size_y]
        ja      @f
        xor     edx, edx
@@:
        push    edx     ; save real window top
        inc     edx
        call    get_console_ptr
        mov     ecx, [ebx+dlgtemplate.y]
        add     ecx, [ebx+dlgtemplate.height]
        add     ecx, [ebx+dlgtemplate.border_size_y]
        inc     ecx
        cmp     ecx, [cur_height]
        jb      @f
        mov     ecx, [cur_height]
@@:
        sub     ecx, edx
        mov     edx, ecx
        mov     ecx, [ebx+dlgtemplate.x]
        add     ecx, [ebx+dlgtemplate.width]
        add     ecx, [ebx+dlgtemplate.border_size_x]
        inc     ecx
        inc     ecx
        cmp     ecx, [cur_width]
        jb      @f
        mov     ecx, [cur_width]
@@:
        sub     ecx, eax
        mov     eax, ecx
.shadow_loop:
        mov     ecx, eax
        push    edi
.sl1:
        inc     edi
        test    byte [edi], 0x0F
        jnz     @f
        or      byte [edi], 8
@@:
        and     byte [edi], 0x0F
        inc     edi
        loop    .sl1
        pop     edi
        add     edi, [cur_width]
        add     edi, [cur_width]
        dec     edx
        jnz     .shadow_loop
; draw area background
        pop     edx
        pop     eax
        call    get_console_ptr
        mov     ecx, [ebx+dlgtemplate.x]
        add     ecx, [ebx+dlgtemplate.width]
        add     ecx, [ebx+dlgtemplate.border_size_x]
        cmp     ecx, [cur_width]
        jb      @f
        mov     ecx, [cur_width]
@@:
        sub     ecx, eax
        mov     esi, ecx
        mov     ecx, [ebx+dlgtemplate.y]
        add     ecx, [ebx+dlgtemplate.height]
        add     ecx, [ebx+dlgtemplate.border_size_y]
        cmp     ecx, [cur_height]
        jb      @f
        mov     ecx, [cur_height]
@@:
        sub     ecx, edx
        mov     edx, ecx
        mov     al, ' '
        mov     ah, [ebx+dlgtemplate.border_color]
.1:
        mov     ecx, esi
        push    edi
        rep     stosw
        pop     edi
        add     edi, [cur_width]
        add     edi, [cur_width]
        dec     edx
        jnz     .1
; draw border
        mov     eax, [ebx+dlgtemplate.x]
        dec     eax
        mov     edx, [ebx+dlgtemplate.y]
        dec     edx
        call    get_console_ptr
        mov     edx, [ebx+dlgtemplate.height]
        inc     edx
        inc     edx
        mov     ah, [ebx+dlgtemplate.border_color]
        push    ebx
        mov     ebx, [ebx+dlgtemplate.width]
        inc     ebx
        inc     ebx
        call    draw_border
        pop     ebx
; draw header
        mov     esi, [ebx+dlgtemplate.title]
        test    esi, esi
        jz      .noheader
        cmp     byte [esi], 0
        jz      .noheader
        push    esi
@@:     lodsb
        test    al, al
        jnz     @b
        mov     eax, esi
        pop     esi
        sub     eax, esi
        inc     eax     ; eax = ¤«¨­  § £®«®¢ª  + 2
        mov     ecx, [ebx+dlgtemplate.width]
        cmp     eax, ecx
        jbe     .fullhea
        sub     ecx, 5
        jb      .noheader
        xor     edx, edx
        jmp     .drawhea
.fullhea:
        mov     edx, ecx
        sub     edx, eax
        shr     edx, 1
.drawhea:
        mov     eax, [ebx+dlgtemplate.x]
        add     eax, edx
        mov     edx, [ebx+dlgtemplate.y]
        dec     edx
        call    get_console_ptr
        mov     ah, [ebx+dlgtemplate.header_color]
        mov     al, ' '
        stosw
.2:
        dec     ecx
        jz	.3
        lodsb
        test    al, al
        jz      .4
        stosw
        jmp     .2
.3:
        mov     al, '.'
        stosw
        stosw
        stosw
.4:
        mov     al, ' '
        stosw
.noheader:
; draw window background
        mov     eax, [ebx+dlgtemplate.x]
        mov     edx, [ebx+dlgtemplate.y]
        call    get_console_ptr
        mov     ah, [ebx+dlgtemplate.main_color]
        mov     al, ' '
        mov     edx, [ebx+dlgtemplate.height]
@@:
        mov     ecx, [ebx+dlgtemplate.width]
        push    edi
        rep     stosw
        pop     edi
        add     edi, [cur_width]
        add     edi, [cur_width]
        dec     edx
        jnz     @b
; send redraw message
        mov     eax, [esp+28h+8]
        push    ebx ebp
        push    0
        push    0
        push    1
        push    ebx
        call    eax
        call    draw_image
        pop     ebp ebx
; message loop
.event:
        push    10
        pop     eax
        int     40h
        dec     eax
        jz      .redraw
        dec     eax
        jz      .key
        or      eax, -1
        int     40h
.redraw:
        push    ebx ebp
        call    draw_window
        pop     ebp ebx
        jmp     .event
.key:
        mov     al, 2
        int     40h
        shr     eax, 8
        cmp     al, 0xE0
        jnz     @f
        mov     [bWasE0], 1
        jmp     .event
@@:
        xchg    ah, [bWasE0]
        cmp     al, 0x1D
        jz      .ctrl_down
        cmp     al, 0x9D
        jz      .ctrl_up
        cmp     al, 0x2A
        jz      .lshift_down
        cmp     al, 0xAA
        jz      .lshift_up
        cmp     al, 0x36
        jz      .rshift_down
        cmp     al, 0xB6
        jz      .rshift_up
        cmp     al, 0x38
        jz      .alt_down
        cmp     al, 0xB8
        jz      .alt_up
        mov     ecx, [esp+28h+8]
        push    ebx ebp
        push    0
        push    eax
        push    2
        push    ebx
        call    ecx
        pop     ebp ebx
        test    eax, eax
        jz      .event
        mov     [esp+8+28], eax
        jmp     .exit
.ctrl_down:
        test    ah, ah
        jnz     .rctrl_down
        or      [ctrlstate], 4
        jmp     .event
.rctrl_down:
        or      [ctrlstate], 8
        jmp     .event
.ctrl_up:
        test    ah, ah
        jnz     .rctrl_up
        and     [ctrlstate], not 4
        jmp     .event
.rctrl_up:
        and     [ctrlstate], not 8
        jmp     .event
.lshift_down:
        test    ah, ah
        jnz     @f
        or      [ctrlstate], 1
@@:     jmp     .event
.lshift_up:
        test    ah, ah
        jnz     @b
        and     [ctrlstate], not 1
        jmp     @b
.rshift_down:
        or      [ctrlstate], 2
        jmp     .event
.rshift_up:
        and     [ctrlstate], not 2
        jmp     .event
.alt_down:
        test    ah, ah
        jnz     .ralt_down
        or      [ctrlstate], 0x10
        jmp     .event
.ralt_down:
        or      [ctrlstate], 0x20
        jmp     .event
.alt_up:
        test    ah, ah
        jnz     .ralt_up
        and     [ctrlstate], not 0x10
        jmp     .event
.ralt_up:
        and     [ctrlstate], not 0x20
        jmp     .event
.exit:
; restore data
        mov     eax, [ebx+dlgtemplate.y]
        add     eax, [ebx+dlgtemplate.height]
        add     eax, [ebx+dlgtemplate.border_size_y]
        inc     eax
        push    eax
        mov     eax, [ebx+dlgtemplate.x]
        add     eax, [ebx+dlgtemplate.width]
        add     eax, [ebx+dlgtemplate.border_size_x]
        inc     eax
        inc     eax
        push    eax
        mov     eax, [ebx+dlgtemplate.y]
        sub     eax, [ebx+dlgtemplate.border_size_y]
        push    eax
        mov     eax, [ebx+dlgtemplate.x]
        sub     eax, [ebx+dlgtemplate.border_size_x]
        push    eax
        call    restore_console_data
        call    draw_keybar
        cmp     ebx, nomem_dlgdata
        jz      @f
        mov     ecx, ebp
        call    pgfree
@@:
        pop     [ebx+dlgtemplate.y]
        pop     [ebx+dlgtemplate.x]
        or      [cursor_x], -1
        or      [cursor_y], -1
        call    draw_image
        popad
        ret     8
 
save_console_data:
        cmp     dword [esp+4], 0
        jge     @f
        and     dword [esp+4], 0
@@:
        cmp     dword [esp+8], 0
        jge     @f
        and     dword [esp+8], 0
@@:
        mov     eax, [esp+12]
        cmp     eax, [cur_width]
        jbe     @f
        mov     eax, [cur_width]
@@:
        sub     eax, [esp+4]
        ja      @f
        ret     16
@@:
        mov     [esp+12], eax
        mov     eax, [esp+16]
        cmp     eax, [cur_height]
        jbe     @f
        mov     eax, [cur_height]
@@:
        sub     eax, [esp+8]
        ja      @f
        ret     16
@@:
        mov     [esp+16], eax
        mov     eax, [esp+4]
        mov     edx, [esp+8]
        call    get_console_ptr
        mov     esi, edi
        mov     edi, ebp
.l:
        mov     ecx, [esp+12]
        push    esi
        shr     ecx, 1
        rep     movsd
        adc     ecx, ecx
        rep     movsw
        pop     esi
        add     esi, [cur_width]
        add     esi, [cur_width]
        dec     dword [esp+16]
        jnz     .l
        ret     16
 
restore_console_data:
        cmp     dword [esp+4], 0
        jge     @f
        and     dword [esp+4], 0
@@:
        cmp     dword [esp+8], 0
        jge     @f
        and     dword [esp+8], 0
@@:
        mov     eax, [esp+12]
        cmp     eax, [cur_width]
        jbe     @f
        mov     eax, [cur_width]
@@:
        sub     eax, [esp+4]
        ja      @f
        ret     16
@@:
        mov     [esp+12], eax
        mov     eax, [esp+16]
        cmp     eax, [cur_height]
        jbe     @f
        mov     eax, [cur_height]
@@:
        sub     eax, [esp+8]
        ja      @f
        ret     16
@@:
        mov     [esp+16], eax
        mov     eax, [esp+4]
        mov     edx, [esp+8]
        call    get_console_ptr
        mov     esi, ebp
.l:
        mov     ecx, [esp+12]
        push    edi
        shr     ecx, 1
        rep     movsd
        adc     ecx, ecx
        rep     movsw
        pop     edi
        add     edi, [cur_width]
        add     edi, [cur_width]
        dec     dword [esp+16]
        jnz     .l
        ret     16
 
; int __stdcall menu(void* variants, const char* title, unsigned flags);
; variants ãª §ë¢ ¥â ­  â¥ªãé¨© í«¥¬¥­â ¢ ¤¢ãá¢ï§­®¬ «¨­¥©­®¬ á¯¨áª¥
menu:
        pop     eax
        push    [cur_height]
        push    [cur_width]
        push    0
        push    0
        push    eax
 
; int __stdcall menu_centered_in(unsigned left, unsigned top, unsigned width, unsigned height,
;       void* variants, const char* title, unsigned flags);
menu_centered_in:
        pushad
        mov     ecx, 56
; 36 bytes for dlgtemplate + additional:
; +36: dd cur_variant
; +40: dd num_variants
; +44: dd begin_variant
; +48: dd end_variant
; +52: dd cur_variant_idx
        call    xpgalloc
        test    eax, eax
        jnz     @f
.ret_bad:
        popad
        or      eax, -1
        ret     28
@@:
        mov     ebx, eax
        mov     eax, 1
        test    byte [esp+20h+28], 1
        jz      @f
        mov     al, 3
@@:
        mov     [ebx+dlgtemplate.border_size_x], eax
        inc     eax
        shr     eax, 1
        mov     [ebx+dlgtemplate.border_size_y], eax
;  å®¤¨¬ è¨à¨­ã ¨ ¢ëá®âã ®ª­ 
        xor     eax, eax
        xor     ecx, ecx
        mov     esi, [esp+20h+20]
        mov     [ebx+36], esi
        and     dword [ebx+52], 0
@@:
        cmp     dword [esi+4], 0
        jz      .find_width
        mov     esi, [esi+4]
        inc     dword [ebx+52]
        jmp     @b
.find_width:
        mov     [ebx+44], esi
        add     esi, 8
        push    esi
        xor     edx, edx
.fw1:
        cmp     byte [esi], '&'
        jnz     @f
        mov     dl, 1
@@:
        inc     esi
        cmp     byte [esi-1], 0
        jnz     .fw1
        sub     esi, [esp]
        sub     esi, edx
        dec     esi
        cmp     eax, esi
        ja      @f
        mov     eax, esi
@@:
        inc     ecx
        pop     esi
        mov     esi, [esi-8]
        test    esi, esi
        jnz     .find_width
        add     eax, 3
        add     eax, [ebx+dlgtemplate.border_size_x]
        add     eax, [ebx+dlgtemplate.border_size_x]
        cmp     eax, [cur_width]
        jb      @f
        mov     eax, [cur_width]
@@:
        sub     eax, [ebx+dlgtemplate.border_size_x]
        sub     eax, [ebx+dlgtemplate.border_size_x]
        mov     [ebx+dlgtemplate.width], eax
        mov     [ebx+dlgtemplate.height], ecx
        mov     [ebx+40], ecx
        sub     eax, [esp+20h+12]
        neg     eax
        sar     eax, 1
        add     eax, [esp+20h+4]
        cmp     eax, [ebx+dlgtemplate.border_size_x]
        jge     @f
        mov     eax, [ebx+dlgtemplate.border_size_x]
@@:
        push    eax
        add     eax, [ebx+dlgtemplate.width]
        add     eax, [ebx+dlgtemplate.border_size_x]
        cmp     eax, [cur_width]
        jbe     @f
        pop     eax
        mov     eax, [cur_width]
        sub     eax, [ebx+dlgtemplate.width]
        sub     eax, [ebx+dlgtemplate.border_size_x]
        push    eax
@@:
        pop     [ebx+dlgtemplate.x]
        sub     ecx, [esp+20h+16]
        neg     ecx
        sar     ecx, 1
        add     ecx, [esp+20h+8]
        cmp     ecx, [ebx+dlgtemplate.border_size_y]
        jge     @f
        mov     ecx, [ebx+dlgtemplate.border_size_y]
@@:
        push    ecx
        add     ecx, [ebx+dlgtemplate.height]
        add     ecx, [ebx+dlgtemplate.border_size_y]
        cmp     ecx, [cur_height]
        jbe     @f
        pop     ecx
        mov     ecx, [cur_height]
        sub     ecx, [ebx+dlgtemplate.height]
        sub     ecx, [ebx+dlgtemplate.border_size_y]
        push    ecx
@@:
        pop     [ebx+dlgtemplate.y]
        mov     eax, [cur_height]
        sub     eax, 6
        cmp     [ebx+dlgtemplate.height], eax
        jbe     .small_height
        mov     [ebx+dlgtemplate.height], eax
        mov     [ebx+dlgtemplate.y], 3
.small_height:
        mov     ecx, [ebx+dlgtemplate.height]
        mov     eax, [ebx+36]
        mov     [ebx+44], eax
        dec     ecx
        jz      .skip
        push    ecx
@@:
        cmp     dword [eax+4], 0
        jz      @f
        mov     eax, [eax+4]
        loop    @b
@@:
        mov     [ebx+44], eax
        pop     ecx
.loop:
        mov     eax, [eax]
        loop    .loop
.skip:
        mov     [ebx+48], eax
        mov     eax, [esp+20h+24]
        mov     [ebx+dlgtemplate.title], eax
        mov     al, [menu_normal_color]
        mov     [ebx+dlgtemplate.main_color], al
        mov     al, [menu_border_color]
        mov     [ebx+dlgtemplate.border_color], al
        mov     al, [menu_header_color]
        mov     [ebx+dlgtemplate.header_color], al
        push    MenuDlgProc
        push    ebx
        call    GenericBox
        mov     [esp+28], eax
        mov     ecx, ebx
        call    pgfree
        popad
        ret     28
 
MenuDlgProc:
        mov     eax, [esp+8]
        cmp     al, 1
        jz      .draw
        cmp     al, 2
        jz      .key
        ret     16
.draw:
        call    .dodraw
        ret     16
.prev:
        mov     eax, [ebx+36]
        cmp     dword [eax+4], 0
        jz      .end
        call    .line_prev
.posret:
        mov     [ebx+36], eax
.redraw:
        call    .dodraw
        call    draw_image
        xor     eax, eax
        ret     16
.next:
        mov     eax, [ebx+36]
        cmp     dword [eax], 0
        jz      .home
        call    .line_next
        jmp     .posret
.pgdn:
        mov     eax, [ebx+36]
        mov     ecx, [ebx+dlgtemplate.height]
.pgdnl:
        cmp     dword [eax], 0
        jz      .posret
        call    .line_next
        loop    .pgdnl
        jmp     .posret
.key:
        mov     al, [esp+12]
        cmp     al, 0x48
        jz      .prev
        cmp     al, 0x4B
        jz      .prev
        cmp     al, 0x4D
        jz      .next
        cmp     al, 0x50
        jz      .next
        cmp     al, 0x1C
        jz      .enter
        cmp     al, 1
        jz      .esc
        cmp     al, 0x47
        jz      .home
        cmp     al, 0x4F
        jz      .end
        cmp     al, 0x51
        jz      .pgdn
        cmp     al, 0x49
        jz      .pgup
        mov     edx, [ebx+36]
@@:
        cmp     dword [edx+4], 0
        jz      @f
        mov     edx, [edx+4]
        jmp     @b
@@:
.l:
        lea     esi, [edx+7]
@@:
        inc     esi
        cmp     byte [esi], 0
        jz      .n
        cmp     byte [esi], '&'
        jnz     @b
        movzx   ecx, byte [esi+1]
        cmp     [ascii2scan+ecx], al
        jnz     .n
        mov     eax, edx
        ret     16
.n:
        mov     edx, [edx]
        test    edx, edx
        jnz     .l
.ret:
        xor     eax, eax
        ret     16
.pgup:
        mov     eax, [ebx+36]
        mov     ecx, [ebx+dlgtemplate.height]
.pgupl:
        cmp     dword [eax+4], 0
        jz      .posret
        call    .line_prev
        loop    .pgupl
        jmp     .posret
.home:
        mov     eax, [ebx+36]
@@:
        cmp     dword [eax+4], 0
        jz      @f
        mov     eax, [eax+4]
        jmp     @b
@@:
        mov     [ebx+44], eax
        push    eax
        mov     ecx, [ebx+dlgtemplate.height]
        dec     ecx
        jz      .h1
.h2:
        mov     eax, [eax]
        loop    .h2
.h1:
        mov     [ebx+48], eax
        pop     eax
        and     dword [ebx+52], 0
        jmp     .posret
.end:
        mov     eax, [ebx+36]
@@:
        cmp     dword [eax], 0
        jz      @f
        mov     eax, [eax]
        jmp     @b
@@:
        mov     [ebx+48], eax
        push    eax
        mov     ecx, [ebx+dlgtemplate.height]
        dec     ecx
        jz      .e1
.e2:
        mov     eax, [eax+4]
        loop    .e2
.e1:
        mov     [ebx+44], eax
        mov     eax, [ebx+40]
        dec     eax
        mov     [ebx+52], eax
        pop     eax
        jmp     .posret
.esc:
        or      eax, -1
        ret     16
.enter:
        mov     eax, [ebx+36]
        ret     16
 
.line_prev:
        cmp     eax, [ebx+44]
        jnz     @f
        mov     edx, [ebx+44]
        mov     edx, [edx+4]
        mov     [ebx+44], edx
        mov     edx, [ebx+48]
        mov     edx, [edx+4]
        mov     [ebx+48], edx
@@:
        mov     eax, [eax+4]
        dec     dword [ebx+52]
        ret
.line_next:
        cmp     eax, [ebx+48]
        jnz     @f
        mov     edx, [ebx+44]
        mov     edx, [edx]
        mov     [ebx+44], edx
        mov     edx, [ebx+48]
        mov     edx, [edx]
        mov     [ebx+48], edx
@@:
        mov     eax, [eax]
        inc     dword [ebx+52]
        ret
 
.dodraw:
        mov     eax, [ebx+dlgtemplate.x]
        mov     edx, [ebx+dlgtemplate.y]
        call    get_console_ptr
        mov     esi, [ebx+44]
.0:
        xor     edx, edx
        mov     ah, [menu_selected_color]
        cmp     esi, [ebx+36]
        jz      @f
        mov     ah, [menu_normal_color]
@@:
        push    edi
        mov     ecx, [ebx+dlgtemplate.width]
        mov     al, ' '
        stosw
        dec     ecx
        stosw
        dec     ecx
        dec     ecx
        push    esi
        add     esi, 8
@@:
        lodsb
        test    al, al
        jz      @f
        cmp     al, '&'
        jnz     .noamp
        test    dl, dl
        jnz     .noamp
        mov     dl, 1
        lodsb
        push    eax
        mov     ah, [menu_selected_highlight_color]
        push    ecx
        mov     ecx, [esp+8]
        cmp     ecx, [ebx+36]
        pop     ecx
        jz      .amp1
        mov     ah, [menu_highlight_color]
.amp1:
        stosw
        pop     eax
        jmp     .amp2
.noamp:
        stosw
.amp2:
        loop    @b
        mov     al, ' '
        cmp     byte [esi], 0
        jnz     .1
        lodsb
        jmp     .1
@@:
        mov     al, ' '
.1:
        stosw
        mov     al, ' '
        rep     stosw
        pop     esi edi
        add     edi, [cur_width]
        add     edi, [cur_width]
        cmp     esi, [ebx+48]
        jz      @f
        mov     esi, [esi]
        test    esi, esi
        jnz     .0
@@:
; ¨­¥©ª  ¯à®ªàãâª¨
        mov     ecx, [ebx+dlgtemplate.height]
        cmp     ecx, [ebx+40]
        jz      .noscrollbar
        sub     ecx, 2
        jbe     .noscrollbar
        mov     eax, [ebx+52]
        mul     ecx
        div     dword [ebx+40]
        push    eax
        mov     eax, [ebx+dlgtemplate.x]
        add     eax, [ebx+dlgtemplate.width]
        mov     edx, [ebx+dlgtemplate.y]
        call    get_console_ptr
        pop     edx
        inc     edx
        mov     al, 0x1E
        mov     ah, [menu_scrollbar_color]
        mov     [edi], ax
        add     edi, [cur_width]
        add     edi, [cur_width]
.2:
        mov     al, 0xB2
        dec     edx
        jz      @f
        mov     al, 0xB0
@@:
        mov     [edi], ax
        add     edi, [cur_width]
        add     edi, [cur_width]
        loop    .2
        mov     al, 0x1F
        stosw
.noscrollbar:
        ret
 
virtual at 0
dlgitemtemplate:
; «¥¬¥­âë:
;       1 = áâ â¨ç¥áª¨© â¥ªáâ
;       2 = ª­®¯ª 
;       3 = ¯®«¥ à¥¤ ªâ¨à®¢ ­¨ï
.type           dd      ?
.x1             dd      ?
.y1             dd      ?
.x2             dd      ?
.y2             dd      ?
;  ­­ë¥:
; ¤«ï â¥ªáâ : const char* data - ASCIIZ-áâà®ª 
; ¤«ï ª­®¯ª¨: const char* data - § £®«®¢®ª
; ¤«ï à¥¤ ªâ®à : struct {unsigned maxlength; unsigned pos; unsigned start;
;                        char data[maxlength+1];}* data;
.data           dd      ?
.flags          dd      ?
; « £¨:
;       0 = ¢ëà ¢­¨¢ ­¨¥ ¢«¥¢®
;       1 = ¢ëà ¢­¨¢ ­¨¥ ¯® æ¥­âàã
;       2 = ¢ëà ¢­¨¢ ­¨¥ ¢¯à ¢®
;       4 = í«¥¬¥­â ¨¬¥¥â ä®ªãá ¢¢®¤ 
;       8 = í«¥¬¥­â ¬®¦¥â ¨¬¥âì ä®ªãá ¢¢®¤ 
;       10h: ¤«ï ª­®¯ª¨ = ª­®¯ª  ¯® ã¬®«ç ­¨î (Enter ­  ­¥-ª­®¯ª¥)
;            ¤«ï ¯®«ï ¢¢®¤  = ¤ ­­ë¥ ¡ë«¨ ¬®¤¨ä¨æ¨à®¢ ­ë
.size = $
end virtual
;       struct DLGDATA
;       {
;               DLGTEMPLATE dialog;     /* window description */
;               void* DlgProc;          /* dialog procedure */
; /* int __stdcall DlgProc(DLGDATA* dlg, int msg, int param1, int param2); */
;               void* user_data;        /* arbitrary user data */
;               unsigned num_items;     /* number of items in the following array */
;               DLGITEMTEMPLATE items[]; /* array of dialog items */
;       }
; int __stdcall DialogBox(DLGDATA* dlg);
DialogBox:
        push    ManagerDlgProc
        push    dword [esp+8]
        call    GenericBox
        ret     4
 
ManagerDlgProc:
        mov     ebp, ebx
        mov     eax, [esp+8]
        dec     eax
        jz      .draw
        dec     eax
        jz      .key
        xor     eax, eax
        ret     16
.draw:
        call    .dodraw
        ret     16
.key:
; find item with focus
        add     ebx, dlgtemplate.size+12
        mov     ecx, [ebx-4]
        jecxz   .nobtns
@@:
        test    [ebx+dlgitemtemplate.flags], 4
        jnz     @f
        add     ebx, dlgitemtemplate.size
        loop    @b
@@:
.nobtns:
        mov     al, [esp+12]
        cmp     al, 1
        jz      .esc
        cmp     al, 0x1C
        jz      .enter
        cmp     al, 0xF
        jz      .tab
        cmp     al, 0x48
        jz      .up
        cmp     al, 0x50
        jz      .down
        jecxz   @f
        cmp     [ebx+dlgitemtemplate.type], 3
        jz      .key_edit
@@:
        cmp     al, 0x4B
        jz      .left
        cmp     al, 0x4D
        jz      .right
.ret0:
        xor     eax, eax
        ret     16
.esc:
        or      eax, -1
        ret     16
.enter:
        cmp     [ebx+dlgitemtemplate.type], 2
        jnz     @f
.enter_found:
        mov     eax, ebx
        ret     16
@@:
        lea     ebx, [ebp+dlgtemplate.size+12]
        mov     ecx, [ebx-4]
.enter_find:
        cmp     [ebx+dlgitemtemplate.type], 2
        jnz     @f
        test    [ebx+dlgitemtemplate.flags], 0x10
        jnz     .enter_found
@@:
        add     ebx, dlgitemtemplate.size
        loop    .enter_find
        jmp     .enter_found
.tab:
        test    [ctrlstate], 3
        jnz     .shift_tab
.right:
.down:
        jecxz   .ret0
        and     byte [ebx+dlgitemtemplate.flags], not 4
        dec     ecx
        jz      .find_first_btn
@@:
        add     ebx, dlgitemtemplate.size
        test    [ebx+dlgitemtemplate.flags], 8
        jnz     .btn_found
        loop    @b
.find_first_btn:
        lea     ebx, [ebp+dlgtemplate.size+12]
@@:
        test    [ebx+dlgitemtemplate.flags], 8
        jnz     .btn_found
        add     ebx, dlgitemtemplate.size
        jmp     @b
.btn_found:
        or      byte [ebx+dlgitemtemplate.flags], 4
.ret_draw:
        mov     ebx, ebp
        call    .dodraw
        call    draw_image
        xor     eax, eax
        ret     16
.shift_tab:
.left:
.up:
        jecxz   .ret0
        and     byte [ebx+dlgitemtemplate.flags], not 4
        sub     ecx, [ebp+dlgtemplate.size+8]
        neg     ecx
        jz      .find_last_btn
@@:
        sub     ebx, dlgitemtemplate.size
        test    [ebx+dlgitemtemplate.flags], 8
        loopz   @b
        jnz     .btn_found
.find_last_btn:
        mov     ebx, [ebp+dlgtemplate.size+8]
        imul    ebx, dlgitemtemplate.size
        lea     ebx, [ebx+ebp+dlgtemplate.size+12]
@@:
        sub     ebx, dlgitemtemplate.size
        test    [ebx+dlgitemtemplate.flags], 8
        jz      @b
        jmp     .btn_found
.key_edit:
; ®¡à ¡®âª  ª« ¢¨è ¢ ¯®«¥ ¢¢®¤ 
        test    al, 0x80
        jnz     .ret0
        or      [ebx+dlgitemtemplate.flags], 0x10
        mov     edx, [ebx+dlgitemtemplate.data]
        cmp     al, 0x4B
        jz      .editor_left
        cmp     al, 0x4D
        jz      .editor_right
        cmp     al, 0x47
        jz      .editor_home
        cmp     al, 0x4F
        jz      .editor_end
        cmp     al, 0x0E
        jz      .editor_backspace
        cmp     al, 0x53
        jnz     .editor_char
.editor_del:
        mov     ecx, [edx+4]
        lea     edi, [ecx+edx+12]
        lea     esi, [edi+1]
        cmp     byte [edi], 0
        jz      .ret_test
        jmp     .copy_and_ret_test
.editor_left:
        mov     ecx, [edx+4]
        jecxz   @f
        dec     dword [edx+4]
@@:     jmp     .ret_test
.editor_right:
        mov     ecx, [edx+4]
        cmp     byte [edx+ecx+12], 0
        jz      @b
        inc     dword [edx+4]
        jmp     @b
.editor_home:
        and     dword [edx+4], 0
        jmp     @b
.editor_end:
        lea     edi, [edx+12]
        xor     eax, eax
        or      ecx, -1
        repnz   scasb
        not     ecx
        dec     ecx
        mov     [edx+4], ecx
.ret_test:
        mov     eax, [edx+4]
        cmp     [edx+8], eax
        jl      .ret_test.l1
        mov     [edx+8], eax
        jmp     .ret_test.l2
.ret_test.l1:
        add     eax, [ebx+dlgitemtemplate.x1]
        sub     eax, [ebx+dlgitemtemplate.x2]
        cmp     [edx+8], eax
        jge     .ret_test.l2
        mov     [edx+8], eax
.ret_test.l2:
        jmp     .ret_draw
.editor_backspace:
        mov     ecx, [edx+4]
        jecxz   .ret_test
        dec     dword [edx+4]
        lea     esi, [edx+ecx+12]
        lea     edi, [esi-1]
.copy_and_ret_test:
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        jmp     .ret_test
.editor_char:
        test    [ctrlstate], 0x3C
        jnz     .ret_draw
; query keyboard layout
        pushad
        push    26
        pop     eax
        push    2
        pop     ebx
        xor     ecx, ecx
        cmp     [ctrlstate], 1
        sbb     ecx, -2
        mov     edx, layout
        int     0x40
        popad
; translate scancode to ASCII
        movzx   eax, al
        movzx   eax, byte [layout+eax]
        push    eax
; insert entered symbol
        xor     eax, eax
        lea     edi, [edx+12]
        or      ecx, -1
        repnz   scasb
        not     ecx
        pop     eax
        cmp     ecx, [edx]
        ja      .ret_test       ; buffer capacity exceeded
        lea     edi, [edx+ecx+12-1]
        mov     esi, [edx+4]
        lea     esi, [edx+esi+12]
@@:
        mov     cl, [edi]
        mov     [edi+1], cl
        dec     edi
        cmp     edi, esi
        jae     @b
        mov     [esi], al
        inc     dword [edx+4]
@@:     jmp     .ret_test
 
.dodraw:
        or      [cursor_x], -1
        or      [cursor_y], -1
        add     ebx, dlgtemplate.size+8
        mov     ecx, [ebx]
        add     ebx, 4
        jecxz   .done_draw
.draw_loop:
        push    ecx
        mov     eax, [ebx+dlgitemtemplate.type]
        dec     eax
        jz      .draw_text
        dec     eax
        jz      .draw_button
        dec     eax
        jnz     .draw_loop_continue
        call    draw_editbox
        jmp     .draw_loop_continue
.draw_button:
        call    draw_button
        jmp     .draw_loop_continue
.draw_text:
        call    draw_static_text
.draw_loop_continue:
        pop     ecx
        add     ebx, dlgitemtemplate.size
        loop    .draw_loop
.done_draw:
        ret
 
draw_static_text:
; à¨áã¥¬ áâ â¨ç¥áª¨© â¥ªáâ
        mov     ah, [dialog_main_color]
        test    byte [ebp+dlgtemplate.flags], 2
        jz      draw_text
        mov     ah, [warning_main_color]
draw_text:
; ®¯à¥¤¥«ï¥¬ ¤«¨­ã áâà®ª¨
        mov     esi, [ebx+dlgitemtemplate.data]
draw_text_esi:
        test    esi, esi
        jz      .ret
        or      ecx, -1
@@:
        inc     ecx
        cmp     byte [ecx+esi], 0
        jnz     @b
; ¢ ecx ¤«¨­  áâà®ª¨
        push    eax
        xor     eax, eax
        mov     edx, [ebx+dlgitemtemplate.x2]
        sub     edx, [ebx+dlgitemtemplate.x1]
        inc     edx
        cmp     ecx, edx
        jae     .text_draw
        mov     al, byte [ebx+dlgitemtemplate.flags]
        and     al, 3
        jz      .text_align_left
        cmp     al, 1
        jz      .text_align_center
; â¥ªáâ ¢ëà®¢­¥­ ¢¯à ¢®
        mov     eax, edx
        sub     eax, ecx
        jmp     .text_draw
.text_align_center:
        mov     eax, edx
        sub     eax, ecx
        shr     eax, 1
        jmp     .text_draw
.text_align_left:
        xor     eax, eax
.text_draw:
        push    ecx
        push    eax
        mov     eax, [ebx+dlgitemtemplate.x1]
        add     eax, [ebp+dlgtemplate.x]
        push    edx
        mov     edx, [ebx+dlgitemtemplate.y1]
        add     edx, [ebp+dlgtemplate.y]
        call    get_console_ptr
        pop     edx
        pop     ecx
        mov     ah, [esp+5]
        mov     al, ' '
        rep     stosw
        pop     ecx
        cmp     ecx, edx
        jbe     .text_copy
        cmp     [ebx+dlgitemtemplate.type], 3
        jnz     @f
        mov     ecx, edx
        jmp     .text_copy
@@:
        cmp     edx, 3
        jb      .ret
        mov     al, '.'
        stosw
        stosw
        stosw
        add     esi, ecx
        mov     ecx, edx
        sub     ecx, 3
        sub     esi, ecx
.text_copy:
        jecxz   .ret
@@:
        lodsb
        stosw
        loop    @b
.ret:
        mov     eax, [ebp+dlgtemplate.x]
        mov     edx, [ebp+dlgtemplate.y]
        add     eax, [ebx+dlgitemtemplate.x2]
        inc     eax
        add     edx, [ebx+dlgitemtemplate.y1]
        mov     ecx, edi
        call    get_console_ptr
        xchg    ecx, edi
        sub     ecx, edi
        shr     ecx, 1
        pop     eax
        mov     al, ' '
        rep     stosw
        ret
 
draw_button:
        mov     ecx, dialog_colors
        test    byte [ebp+dlgtemplate.flags], 2
        jz      @f
        mov     ecx, warning_colors
@@:
        mov     ah, [dialog_normal_btn_color-dialog_colors+ecx]
        test    [ebx+dlgitemtemplate.flags], 4
        jz      @f
        mov     ah, [dialog_selected_btn_color-dialog_colors+ecx]
@@:
        jmp     draw_text
 
draw_editbox:
        mov     edx, [ebx+dlgitemtemplate.data]
        test    [ebx+dlgitemtemplate.flags], 4
        jz      @f
        mov     eax, [ebx+dlgitemtemplate.x1]
        add     eax, [edx+4]
        sub     eax, [edx+8]
        add     eax, [ebp+dlgtemplate.x]
        mov     [cursor_x], eax
        mov     eax, [ebx+dlgitemtemplate.y1]
        add     eax, [ebp+dlgtemplate.y]
        mov     [cursor_y], eax
@@:
        mov     ecx, dialog_colors
        test    byte [ebp+dlgtemplate.flags], 2
        jz      @f
        mov     ecx, warning_colors
@@:
        mov     ah, [dialog_edit_color-dialog_colors+ecx]
        test    [ebx+dlgitemtemplate.flags], 10h
        jnz     @f
        mov     ah, [dialog_unmodified_edit_color-dialog_colors+ecx]
@@:
        mov     esi, [ebx+dlgitemtemplate.data]
        add     esi, [edx+8]
        add     esi, 12
        jmp     draw_text_esi
 
; void __stdcall SayNoMem(void);
SayNoMem:
        or      dword [nomem_dlgdata+4], -1
        or      dword [nomem_dlgdata+8], -1
        push    nomem_dlgdata
        call    DialogBox
        ret
 
; int __stdcall SayErr(const char* title, int x, int y,
;                       int num_strings, const char* strings[],
;                       int num_buttons, const char* buttons[]);
; may be x=-1 and/or y=-1
SayErr:
        push    2
        jmp     @f
 
; int __stdcall Message(const char* title, int x, int y,
;                       int num_strings, const char* strings[],
;                       int num_buttons, const char* buttons[]);
Message:
        push    1
@@:
; [esp+4] = title
; [esp+8] = x
; [esp+12] = y
; [esp+16] = num_strings
; [esp+20] = strings
; [esp+24] = num_buttons
; [esp+28] = buttons
        pop     eax
        pushad
        mov     ecx, [esp+4+16]
        add     ecx, [esp+4+24]
        imul    ecx, dlgitemtemplate.size
        add     ecx, dlgtemplate.size+12
        call    xpgalloc
        test    eax, eax
        jnz     @f
        popad
        or      eax, -1
        ret     28
@@:
        mov     ebx, eax
        mov     edi, eax
        mov     eax, [esp+28]
        stosd                           ; dlgtemplate.flags
        mov     eax, [esp+32+8]
        stosd                           ; dlgtemplate.x
        mov     eax, [esp+32+12]
        stosd                           ; dlgtemplate.y
; calculate width
        mov     ecx, [esp+32+16]
        mov     esi, [esp+32+20]
        xor     edx, edx
.calcwidth:
        lodsd
@@:
        inc     eax
        cmp     byte [eax-1], 0
        jnz     @b
        sub     eax, [esi-4]
        inc     eax
        cmp     edx, eax
        ja      @f
        mov     edx, eax
@@:
        loop    .calcwidth
        mov     ecx, [esp+32+24]
        mov     esi, [esp+32+28]
        xor     ebp, ebp
.calcwidth2:
        lodsd
@@:
        inc     eax
        cmp     byte [eax-1], 0
        jnz     @b
        sub     eax, [esi-4]
        inc     eax
        add     ebp, eax
        loop    .calcwidth2
        inc     ebp
        inc     ebp
        cmp     edx, ebp
        ja      @f
        mov     edx, ebp
@@:
        mov     eax, [cur_width]
        sub     eax, 8
        cmp     edx, eax
        jb      @f
        mov     edx, eax
@@:
        mov     eax, edx
        stosd                           ; dlgtemplate.width
        mov     eax, [esp+32+16]
        inc     eax
        stosd                           ; dlgtemplate.height
        mov     eax, 3
        stosd                           ; dlgtemplate.border_size_x
        mov     al, 2
        stosd                           ; dlgtemplate.border_size_y
        mov     eax, [esp+32+4]
        stosd                           ; dlgtemplate.title
        xor     eax, eax
        stosd                           ; (ignored)
        stosd                           ; DlgProc
        stosd                           ; userdata
        mov     eax, [esp+32+16]
        add     eax, [esp+32+24]
        stosd                           ; num_items
; fill strings
        xor     ecx, ecx
        mov     esi, [esp+32+20]
@@:
        mov     eax, 1
        stosd                           ; dlgitemtemplate.type
        dec     eax
        stosd                           ; dlgitemtemplate.x1
        mov     eax, ecx
        stosd                           ; dlgitemtemplate.y1
        lea     eax, [edx-1]
        stosd                           ; dlgitemtemplate.x2
        mov     eax, ecx
        stosd                           ; dlgitemtemplate.y2
        movsd                           ; dlgitemtemplate.data
        mov     eax, 1
        stosd                           ; dlgitemtemplate.flags
        inc     ecx
        cmp     ecx, [esp+32+16]
        jb      @b
; fill buttons
        mov     ecx, [esp+32+24]
        mov     esi, [esp+32+28]
        sub     edx, ebp
        jc      .big
        shr     edx, 1
        inc     edx
        jmp     .fillbtns
.big:
        xor     edx, edx
.fillbtns:
        mov     eax, 2
        stosd                           ; dlgitemtemplate.type
        mov     eax, edx
        stosd                           ; dlgitemtemplate.x1
        mov     eax, [ebx+dlgtemplate.height]
        dec     eax
        stosd                           ; dlgitemtemplate.y1
        push    eax
        lodsd
        sub     eax, edx
@@:
        inc     edx
        cmp     byte [eax+edx-1], 0
        jnz     @b
        mov     eax, edx
        inc     edx
        stosd                           ; dlgitemtemplate.x2
        pop     eax
        stosd                           ; dlgitemtemplate.y2
        mov     eax, [esi-4]
        stosd                           ; dlgitemtemplate.data
        mov     eax, 9
        cmp     ecx, [esp+32+24]
        jnz     @f
        or      al, 4
@@:
        stosd                           ; dlgitemtemplate.flags
        loop    .fillbtns
        push    ebx
        call    DialogBox
        cmp     eax, -1
        jz      @f
        sub     eax, ebx
        sub     eax, dlgtemplate.size+12
        xor     edx, edx
        mov     ecx, dlgitemtemplate.size
        div     ecx
        sub     eax, [esp+32+16]
@@:
        mov     [esp+28], eax
        mov     ecx, ebx
        call    pgfree
        popad
        ret     28

Rev 485	Rev 517
1	; int __stdcall GenericBox(DLGTEMPLATE* dlg, void* DlgProc);	1	; int __stdcall GenericBox(DLGTEMPLATE* dlg, void* DlgProc);
2	; int __stdcall DlgProc(DLGTEMPLATE* dlg, int msg, int param1, int param2);	2	; int __stdcall DlgProc(DLGTEMPLATE* dlg, int msg, int param1, int param2);
3		3
4	virtual at 0	4	virtual at 0
5	dlgtemplate:	5	dlgtemplate:
6	; « £¨:	6	; « £¨:
7	; ¡¨â 0: ¨á¯®«ì§®¢ âì áâ ¤ àâë¥ æ¢¥â ¤¨ «®£	7	; ¡¨â 0: ¨á¯®«ì§®¢ âì áâ ¤ àâë¥ æ¢¥â ¤¨ «®£
8	; ¡¨â 1: ¨á¯®«ì§®¢ âì áâ ¤ àâë¥ æ¢¥â ¯à¥¤ã¯à¥¦¤¥¨ï/®è¨¡ª¨	8	; ¡¨â 1: ¨á¯®«ì§®¢ âì áâ ¤ àâë¥ æ¢¥â ¯à¥¤ã¯à¥¦¤¥¨ï/®è¨¡ª¨
9	; (¥á«¨ «î¡®© ¨§ íâ¨å ¡¨â®¢ ãáâ ®¢«¥, ¯®«ï main_color,border_color,header_color	9	; (¥á«¨ «î¡®© ¨§ íâ¨å ¡¨â®¢ ãáâ ®¢«¥, ¯®«ï main_color,border_color,header_color
10	; ¨£®à¨àãîâáï)	10	; ¨£®à¨àãîâáï)
11	.flags dd ?	11	.flags dd ?
12	.x dd ?	12	.x dd ?
13	.y dd ?	13	.y dd ?
14	.width dd ?	14	.width dd ?
15	.height dd ?	15	.height dd ?
16	.border_size_x dd ?	16	.border_size_x dd ?
17	.border_size_y dd ?	17	.border_size_y dd ?
18	.title dd ?	18	.title dd ?
19	.main_color db ?	19	.main_color db ?
20	.border_color db ?	20	.border_color db ?
21	.header_color db ?	21	.header_color db ?
22	db ? ; align	22	db ? ; align
23	.size = $	23	.size = $
24	end virtual	24	end virtual
25		25
26	GenericBox:	26	GenericBox:
27	pushad	27	pushad
28	mov ebx, [esp+20h+4]	28	mov ebx, [esp+20h+4]
29	; center window if required	29	; center window if required
30	push [ebx+dlgtemplate.x]	30	push [ebx+dlgtemplate.x]
31	push [ebx+dlgtemplate.y]	31	push [ebx+dlgtemplate.y]
32	cmp [ebx+dlgtemplate.x], -1	32	cmp [ebx+dlgtemplate.x], -1
33	jnz @f	33	jnz @f
34	mov eax, [cur_width]	34	mov eax, [cur_width]
35	sub eax, [ebx+dlgtemplate.width]	35	sub eax, [ebx+dlgtemplate.width]
36	shr eax, 1	36	shr eax, 1
37	mov [ebx+dlgtemplate.x], eax	37	mov [ebx+dlgtemplate.x], eax
38	@@:	38	@@:
39	cmp [ebx+dlgtemplate.y], -1	39	cmp [ebx+dlgtemplate.y], -1
40	jnz @f	40	jnz @f
41	mov eax, [cur_height]	41	mov eax, [cur_height]
42	sub eax, [ebx+dlgtemplate.height]	42	sub eax, [ebx+dlgtemplate.height]
43	shr eax, 1	43	shr eax, 1
44	mov [ebx+dlgtemplate.y], eax	44	mov [ebx+dlgtemplate.y], eax
45	@@:	45	@@:
46	; some checks	46	; some checks
47	mov eax, [ebx+dlgtemplate.x]	47	mov eax, [ebx+dlgtemplate.x]
48	cmp eax, 1	48	cmp eax, 1
49	jl .sizeerr	49	jl .sizeerr
50	add eax, [ebx+dlgtemplate.width]	50	add eax, [ebx+dlgtemplate.width]
51	cmp eax, [cur_width]	51	cmp eax, [cur_width]
52	jge .sizeerr	52	jge .sizeerr
53	mov eax, [ebx+dlgtemplate.y]	53	mov eax, [ebx+dlgtemplate.y]
54	cmp eax, 1	54	cmp eax, 1
55	jl .sizeerr	55	jl .sizeerr
56	add eax, [ebx+dlgtemplate.height]	56	add eax, [ebx+dlgtemplate.height]
57	cmp eax, [cur_height]	57	cmp eax, [cur_height]
58	jge .sizeerr	58	jge .sizeerr
59	cmp [ebx+dlgtemplate.border_size_x], 1	59	cmp [ebx+dlgtemplate.border_size_x], 1
60	jl .sizeerr	60	jl .sizeerr
61	cmp [ebx+dlgtemplate.border_size_y], 1	61	cmp [ebx+dlgtemplate.border_size_y], 1
62	jge .sizeok	62	jge .sizeok
63	.sizeerr:	63	.sizeerr:
64	pop [ebx+dlgtemplate.y]	64	pop [ebx+dlgtemplate.y]
65	pop [ebx+dlgtemplate.x]	65	pop [ebx+dlgtemplate.x]
66	popad	66	popad
67	or eax, -1	67	or eax, -1
68	ret 8	68	ret 8
69	.sizeok:	69	.sizeok:
70	; set color if required	70	; set color if required
71	test byte [ebx+dlgtemplate.flags], 1	71	test byte [ebx+dlgtemplate.flags], 1
72	jz @f	72	jz @f
73	mov edi, dialog_colors	73	mov edi, dialog_colors
74	jmp .setcolor	74	jmp .setcolor
75	@@:	75	@@:
76	test byte [ebx+dlgtemplate.flags], 2	76	test byte [ebx+dlgtemplate.flags], 2
77	jz @f	77	jz @f
78	mov edi, warning_colors	78	mov edi, warning_colors
79	.setcolor:	79	.setcolor:
80	mov al, [edi + dialog_main_color-dialog_colors]	80	mov al, [edi + dialog_main_color-dialog_colors]
81	mov [ebx+dlgtemplate.main_color], al	81	mov [ebx+dlgtemplate.main_color], al
82	mov al, [edi + dialog_border_color-dialog_colors]	82	mov al, [edi + dialog_border_color-dialog_colors]
83	mov [ebx+dlgtemplate.border_color], al	83	mov [ebx+dlgtemplate.border_color], al
84	mov al, [edi + dialog_header_color-dialog_colors]	84	mov al, [edi + dialog_header_color-dialog_colors]
85	mov [ebx+dlgtemplate.header_color], al	85	mov [ebx+dlgtemplate.header_color], al
86	@@:	86	@@:
87	; allocate memory for data under dialog	87	; allocate memory for data under dialog
88	; for 'No memory' dialog use static data area	88	; for 'No memory' dialog use static data area
89	mov ebp, nomem_dlgsavearea	89	mov ebp, nomem_dlgsavearea
90	cmp ebx, nomem_dlgdata	90	cmp ebx, nomem_dlgdata
91	jz .allocated	91	jz .allocated
92	mov eax, [ebx+dlgtemplate.width]	92	mov eax, [ebx+dlgtemplate.width]
93	add eax, [ebx+dlgtemplate.border_size_x]	93	add eax, [ebx+dlgtemplate.border_size_x]
94	add eax, [ebx+dlgtemplate.border_size_x]	94	add eax, [ebx+dlgtemplate.border_size_x]
95	inc eax	95	inc eax
96	inc eax	96	inc eax
97	mov edx, [ebx+dlgtemplate.height]	97	mov edx, [ebx+dlgtemplate.height]
98	add edx, [ebx+dlgtemplate.border_size_y]	98	add edx, [ebx+dlgtemplate.border_size_y]
99	add edx, [ebx+dlgtemplate.border_size_y]	99	add edx, [ebx+dlgtemplate.border_size_y]
100	inc edx	100	inc edx
101	mul edx	101	mul edx
102	lea ecx, [eax*2]	102	lea ecx, [eax*2]
103	call xpgalloc	103	call xpgalloc
104	test eax, eax	104	test eax, eax
105	jnz @f	105	jnz @f
106	pop [ebx+dlgtemplate.y]	106	pop [ebx+dlgtemplate.y]
107	pop [ebx+dlgtemplate.x]	107	pop [ebx+dlgtemplate.x]
108	popad	108	popad
109	or eax, -1	109	or eax, -1
110	ret 8	110	ret 8
111	@@:	111	@@:
112	mov ebp, eax	112	mov ebp, eax
113	.allocated:	113	.allocated:
114	; save data	114	; save data
115	mov eax, [ebx+dlgtemplate.y]	115	mov eax, [ebx+dlgtemplate.y]
116	add eax, [ebx+dlgtemplate.height]	116	add eax, [ebx+dlgtemplate.height]
117	add eax, [ebx+dlgtemplate.border_size_y]	117	add eax, [ebx+dlgtemplate.border_size_y]
118	inc eax	118	inc eax
119	push eax	119	push eax
120	mov eax, [ebx+dlgtemplate.x]	120	mov eax, [ebx+dlgtemplate.x]
121	add eax, [ebx+dlgtemplate.width]	121	add eax, [ebx+dlgtemplate.width]
122	add eax, [ebx+dlgtemplate.border_size_x]	122	add eax, [ebx+dlgtemplate.border_size_x]
123	inc eax	123	inc eax
124	inc eax	124	inc eax
125	push eax	125	push eax
126	mov eax, [ebx+dlgtemplate.y]	126	mov eax, [ebx+dlgtemplate.y]
127	sub eax, [ebx+dlgtemplate.border_size_y]	127	sub eax, [ebx+dlgtemplate.border_size_y]
128	push eax	128	push eax
129	mov eax, [ebx+dlgtemplate.x]	129	mov eax, [ebx+dlgtemplate.x]
130	sub eax, [ebx+dlgtemplate.border_size_x]	130	sub eax, [ebx+dlgtemplate.border_size_x]
131	push eax	131	push eax
132	call save_console_data	132	call save_console_data
133	; draw shadow	133	; draw shadow
134	mov eax, [ebx+dlgtemplate.x]	134	mov eax, [ebx+dlgtemplate.x]
135	sub eax, [ebx+dlgtemplate.border_size_x]	135	sub eax, [ebx+dlgtemplate.border_size_x]
136	ja @f	136	ja @f
137	xor eax, eax	137	xor eax, eax
138	@@:	138	@@:
139	push eax ; save real window left	139	push eax ; save real window left
140	inc eax	140	inc eax
141	inc eax	141	inc eax
142	mov edx, [ebx+dlgtemplate.y]	142	mov edx, [ebx+dlgtemplate.y]
143	sub edx, [ebx+dlgtemplate.border_size_y]	143	sub edx, [ebx+dlgtemplate.border_size_y]
144	ja @f	144	ja @f
145	xor edx, edx	145	xor edx, edx
146	@@:	146	@@:
147	push edx ; save real window top	147	push edx ; save real window top
148	inc edx	148	inc edx
149	call get_console_ptr	149	call get_console_ptr
150	mov ecx, [ebx+dlgtemplate.y]	150	mov ecx, [ebx+dlgtemplate.y]
151	add ecx, [ebx+dlgtemplate.height]	151	add ecx, [ebx+dlgtemplate.height]
152	add ecx, [ebx+dlgtemplate.border_size_y]	152	add ecx, [ebx+dlgtemplate.border_size_y]
153	inc ecx	153	inc ecx
154	cmp ecx, [cur_height]	154	cmp ecx, [cur_height]
155	jb @f	155	jb @f
156	mov ecx, [cur_height]	156	mov ecx, [cur_height]
157	@@:	157	@@:
158	sub ecx, edx	158	sub ecx, edx
159	mov edx, ecx	159	mov edx, ecx
160	mov ecx, [ebx+dlgtemplate.x]	160	mov ecx, [ebx+dlgtemplate.x]
161	add ecx, [ebx+dlgtemplate.width]	161	add ecx, [ebx+dlgtemplate.width]
162	add ecx, [ebx+dlgtemplate.border_size_x]	162	add ecx, [ebx+dlgtemplate.border_size_x]
163	inc ecx	163	inc ecx
164	inc ecx	164	inc ecx
165	cmp ecx, [cur_width]	165	cmp ecx, [cur_width]
166	jb @f	166	jb @f
167	mov ecx, [cur_width]	167	mov ecx, [cur_width]
168	@@:	168	@@:
169	sub ecx, eax	169	sub ecx, eax
170	mov eax, ecx	170	mov eax, ecx
171	.shadow_loop:	171	.shadow_loop:
172	mov ecx, eax	172	mov ecx, eax
173	push edi	173	push edi
174	.sl1:	174	.sl1:
175	inc edi	175	inc edi
176	test byte [edi], 0x0F	176	test byte [edi], 0x0F
177	jnz @f	177	jnz @f
178	or byte [edi], 8	178	or byte [edi], 8
179	@@:	179	@@:
180	and byte [edi], 0x0F	180	and byte [edi], 0x0F
181	inc edi	181	inc edi
182	loop .sl1	182	loop .sl1
183	pop edi	183	pop edi
184	add edi, [cur_width]	184	add edi, [cur_width]
185	add edi, [cur_width]	185	add edi, [cur_width]
186	dec edx	186	dec edx
187	jnz .shadow_loop	187	jnz .shadow_loop
188	; draw area background	188	; draw area background
189	pop edx	189	pop edx
190	pop eax	190	pop eax
191	call get_console_ptr	191	call get_console_ptr
192	mov ecx, [ebx+dlgtemplate.x]	192	mov ecx, [ebx+dlgtemplate.x]
193	add ecx, [ebx+dlgtemplate.width]	193	add ecx, [ebx+dlgtemplate.width]
194	add ecx, [ebx+dlgtemplate.border_size_x]	194	add ecx, [ebx+dlgtemplate.border_size_x]
195	cmp ecx, [cur_width]	195	cmp ecx, [cur_width]
196	jb @f	196	jb @f
197	mov ecx, [cur_width]	197	mov ecx, [cur_width]
198	@@:	198	@@:
199	sub ecx, eax	199	sub ecx, eax
200	mov esi, ecx	200	mov esi, ecx
201	mov ecx, [ebx+dlgtemplate.y]	201	mov ecx, [ebx+dlgtemplate.y]
202	add ecx, [ebx+dlgtemplate.height]	202	add ecx, [ebx+dlgtemplate.height]
203	add ecx, [ebx+dlgtemplate.border_size_y]	203	add ecx, [ebx+dlgtemplate.border_size_y]
204	cmp ecx, [cur_height]	204	cmp ecx, [cur_height]
205	jb @f	205	jb @f
206	mov ecx, [cur_height]	206	mov ecx, [cur_height]
207	@@:	207	@@:
208	sub ecx, edx	208	sub ecx, edx
209	mov edx, ecx	209	mov edx, ecx
210	mov al, ' '	210	mov al, ' '
211	mov ah, [ebx+dlgtemplate.border_color]	211	mov ah, [ebx+dlgtemplate.border_color]
212	.1:	212	.1:
213	mov ecx, esi	213	mov ecx, esi
214	push edi	214	push edi
215	rep stosw	215	rep stosw
216	pop edi	216	pop edi
217	add edi, [cur_width]	217	add edi, [cur_width]
218	add edi, [cur_width]	218	add edi, [cur_width]
219	dec edx	219	dec edx
220	jnz .1	220	jnz .1
221	; draw border	221	; draw border
222	mov eax, [ebx+dlgtemplate.x]	222	mov eax, [ebx+dlgtemplate.x]
223	dec eax	223	dec eax
224	mov edx, [ebx+dlgtemplate.y]	224	mov edx, [ebx+dlgtemplate.y]
225	dec edx	225	dec edx
226	call get_console_ptr	226	call get_console_ptr
227	mov edx, [ebx+dlgtemplate.height]	227	mov edx, [ebx+dlgtemplate.height]
228	inc edx	228	inc edx
229	inc edx	229	inc edx
230	mov ah, [ebx+dlgtemplate.border_color]	230	mov ah, [ebx+dlgtemplate.border_color]
231	push ebx	231	push ebx
232	mov ebx, [ebx+dlgtemplate.width]	232	mov ebx, [ebx+dlgtemplate.width]
233	inc ebx	233	inc ebx
234	inc ebx	234	inc ebx
235	call draw_border	235	call draw_border
236	pop ebx	236	pop ebx
237	; draw header	237	; draw header
238	mov esi, [ebx+dlgtemplate.title]	238	mov esi, [ebx+dlgtemplate.title]
239	test esi, esi	239	test esi, esi
240	jz .noheader	240	jz .noheader
241	cmp byte [esi], 0	241	cmp byte [esi], 0
242	jz .noheader	242	jz .noheader
243	push esi	243	push esi
244	@@: lodsb	244	@@: lodsb
245	test al, al	245	test al, al
246	jnz @b	246	jnz @b
247	mov eax, esi	247	mov eax, esi
248	pop esi	248	pop esi
249	sub eax, esi	249	sub eax, esi
250	inc eax ; eax = ¤«¨ § £®«®¢ª + 2	250	inc eax ; eax = ¤«¨ § £®«®¢ª + 2
251	mov ecx, [ebx+dlgtemplate.width]	251	mov ecx, [ebx+dlgtemplate.width]
252	cmp eax, ecx	252	cmp eax, ecx
253	jbe .fullhea	253	jbe .fullhea
254	sub ecx, 5	254	sub ecx, 5
255	jb .noheader	255	jb .noheader
256	xor edx, edx	256	xor edx, edx
257	jmp .drawhea	257	jmp .drawhea
258	.fullhea:	258	.fullhea:
259	mov edx, ecx	259	mov edx, ecx
260	sub edx, eax	260	sub edx, eax
261	shr edx, 1	261	shr edx, 1
262	.drawhea:	262	.drawhea:
263	mov eax, [ebx+dlgtemplate.x]	263	mov eax, [ebx+dlgtemplate.x]
264	add eax, edx	264	add eax, edx
265	mov edx, [ebx+dlgtemplate.y]	265	mov edx, [ebx+dlgtemplate.y]
266	dec edx	266	dec edx
267	call get_console_ptr	267	call get_console_ptr
268	mov ah, [ebx+dlgtemplate.header_color]	268	mov ah, [ebx+dlgtemplate.header_color]
269	mov al, ' '	269	mov al, ' '
270	stosw	270	stosw
271	.2:	271	.2:
272	dec ecx	272	dec ecx
273	jz .3	273	jz .3
274	lodsb	274	lodsb
275	test al, al	275	test al, al
276	jz .4	276	jz .4
277	stosw	277	stosw
278	jmp .2	278	jmp .2
279	.3:	279	.3:
280	mov al, '.'	280	mov al, '.'
281	stosw	281	stosw
282	stosw	282	stosw
283	stosw	283	stosw
284	.4:	284	.4:
285	mov al, ' '	285	mov al, ' '
286	stosw	286	stosw
287	.noheader:	287	.noheader:
288	; draw window background	288	; draw window background
289	mov eax, [ebx+dlgtemplate.x]	289	mov eax, [ebx+dlgtemplate.x]
290	mov edx, [ebx+dlgtemplate.y]	290	mov edx, [ebx+dlgtemplate.y]
291	call get_console_ptr	291	call get_console_ptr
292	mov ah, [ebx+dlgtemplate.main_color]	292	mov ah, [ebx+dlgtemplate.main_color]
293	mov al, ' '	293	mov al, ' '
294	mov edx, [ebx+dlgtemplate.height]	294	mov edx, [ebx+dlgtemplate.height]
295	@@:	295	@@:
296	mov ecx, [ebx+dlgtemplate.width]	296	mov ecx, [ebx+dlgtemplate.width]
297	push edi	297	push edi
298	rep stosw	298	rep stosw
299	pop edi	299	pop edi
300	add edi, [cur_width]	300	add edi, [cur_width]
301	add edi, [cur_width]	301	add edi, [cur_width]
302	dec edx	302	dec edx
303	jnz @b	303	jnz @b
304	; send redraw message	304	; send redraw message
305	mov eax, [esp+28h+8]	305	mov eax, [esp+28h+8]
306	push ebx ebp	306	push ebx ebp
307	push 0	307	push 0
308	push 0	308	push 0
309	push 1	309	push 1
310	push ebx	310	push ebx
311	call eax	311	call eax
312	call draw_image	312	call draw_image
313	pop ebp ebx	313	pop ebp ebx
314	; message loop	314	; message loop
315	.event:	315	.event:
316	push 10	316	push 10
317	pop eax	317	pop eax
318	mcall	318	int 40h
319	dec eax	319	dec eax
320	jz .redraw	320	jz .redraw
321	dec eax	321	dec eax
322	jz .key	322	jz .key
323	or eax, -1	323	or eax, -1
324	mcall	324	int 40h
325	.redraw:	325	.redraw:
326	push ebx ebp	326	push ebx ebp
327	call draw_window	327	call draw_window
328	pop ebp ebx	328	pop ebp ebx
329	jmp .event	329	jmp .event
330	.key:	330	.key:
331	mov al, 2	331	mov al, 2
332	mcall	332	int 40h
333	shr eax, 8	333	shr eax, 8
334	cmp al, 0xE0	334	cmp al, 0xE0
335	jnz @f	335	jnz @f
336	mov [bWasE0], 1	336	mov [bWasE0], 1
337	jmp .event	337	jmp .event
338	@@:	338	@@:
339	xchg ah, [bWasE0]	339	xchg ah, [bWasE0]
340	cmp al, 0x1D	340	cmp al, 0x1D
341	jz .ctrl_down	341	jz .ctrl_down
342	cmp al, 0x9D	342	cmp al, 0x9D
343	jz .ctrl_up	343	jz .ctrl_up
344	cmp al, 0x2A	344	cmp al, 0x2A
345	jz .lshift_down	345	jz .lshift_down
346	cmp al, 0xAA	346	cmp al, 0xAA
347	jz .lshift_up	347	jz .lshift_up
348	cmp al, 0x36	348	cmp al, 0x36
349	jz .rshift_down	349	jz .rshift_down
350	cmp al, 0xB6	350	cmp al, 0xB6
351	jz .rshift_up	351	jz .rshift_up
352	cmp al, 0x38	352	cmp al, 0x38
353	jz .alt_down	353	jz .alt_down
354	cmp al, 0xB8	354	cmp al, 0xB8
355	jz .alt_up	355	jz .alt_up
356	mov ecx, [esp+28h+8]	356	mov ecx, [esp+28h+8]
357	push ebx ebp	357	push ebx ebp
358	push 0	358	push 0
359	push eax	359	push eax
360	push 2	360	push 2
361	push ebx	361	push ebx
362	call ecx	362	call ecx
363	pop ebp ebx	363	pop ebp ebx
364	test eax, eax	364	test eax, eax
365	jz .event	365	jz .event
366	mov [esp+8+28], eax	366	mov [esp+8+28], eax
367	jmp .exit	367	jmp .exit
368	.ctrl_down:	368	.ctrl_down:
369	test ah, ah	369	test ah, ah
370	jnz .rctrl_down	370	jnz .rctrl_down
371	or [ctrlstate], 4	371	or [ctrlstate], 4
372	jmp .event	372	jmp .event
373	.rctrl_down:	373	.rctrl_down:
374	or [ctrlstate], 8	374	or [ctrlstate], 8
375	jmp .event	375	jmp .event
376	.ctrl_up:	376	.ctrl_up:
377	test ah, ah	377	test ah, ah
378	jnz .rctrl_up	378	jnz .rctrl_up
379	and [ctrlstate], not 4	379	and [ctrlstate], not 4
380	jmp .event	380	jmp .event
381	.rctrl_up:	381	.rctrl_up:
382	and [ctrlstate], not 8	382	and [ctrlstate], not 8
383	jmp .event	383	jmp .event
384	.lshift_down:	384	.lshift_down:
385	test ah, ah	385	test ah, ah
386	jnz @f	386	jnz @f
387	or [ctrlstate], 1	387	or [ctrlstate], 1
388	@@: jmp .event	388	@@: jmp .event
389	.lshift_up:	389	.lshift_up:
390	test ah, ah	390	test ah, ah
391	jnz @b	391	jnz @b
392	and [ctrlstate], not 1	392	and [ctrlstate], not 1
393	jmp @b	393	jmp @b
394	.rshift_down:	394	.rshift_down:
395	or [ctrlstate], 2	395	or [ctrlstate], 2
396	jmp .event	396	jmp .event
397	.rshift_up:	397	.rshift_up:
398	and [ctrlstate], not 2	398	and [ctrlstate], not 2
399	jmp .event	399	jmp .event
400	.alt_down:	400	.alt_down:
401	test ah, ah	401	test ah, ah
402	jnz .ralt_down	402	jnz .ralt_down
403	or [ctrlstate], 0x10	403	or [ctrlstate], 0x10
404	jmp .event	404	jmp .event
405	.ralt_down:	405	.ralt_down:
406	or [ctrlstate], 0x20	406	or [ctrlstate], 0x20
407	jmp .event	407	jmp .event
408	.alt_up:	408	.alt_up:
409	test ah, ah	409	test ah, ah
410	jnz .ralt_up	410	jnz .ralt_up
411	and [ctrlstate], not 0x10	411	and [ctrlstate], not 0x10
412	jmp .event	412	jmp .event
413	.ralt_up:	413	.ralt_up:
414	and [ctrlstate], not 0x20	414	and [ctrlstate], not 0x20
415	jmp .event	415	jmp .event
416	.exit:	416	.exit:
417	; restore data	417	; restore data
418	mov eax, [ebx+dlgtemplate.y]	418	mov eax, [ebx+dlgtemplate.y]
419	add eax, [ebx+dlgtemplate.height]	419	add eax, [ebx+dlgtemplate.height]
420	add eax, [ebx+dlgtemplate.border_size_y]	420	add eax, [ebx+dlgtemplate.border_size_y]
421	inc eax	421	inc eax
422	push eax	422	push eax
423	mov eax, [ebx+dlgtemplate.x]	423	mov eax, [ebx+dlgtemplate.x]
424	add eax, [ebx+dlgtemplate.width]	424	add eax, [ebx+dlgtemplate.width]
425	add eax, [ebx+dlgtemplate.border_size_x]	425	add eax, [ebx+dlgtemplate.border_size_x]
426	inc eax	426	inc eax
427	inc eax	427	inc eax
428	push eax	428	push eax
429	mov eax, [ebx+dlgtemplate.y]	429	mov eax, [ebx+dlgtemplate.y]
430	sub eax, [ebx+dlgtemplate.border_size_y]	430	sub eax, [ebx+dlgtemplate.border_size_y]
431	push eax	431	push eax
432	mov eax, [ebx+dlgtemplate.x]	432	mov eax, [ebx+dlgtemplate.x]
433	sub eax, [ebx+dlgtemplate.border_size_x]	433	sub eax, [ebx+dlgtemplate.border_size_x]
434	push eax	434	push eax
435	call restore_console_data	435	call restore_console_data
436	call draw_keybar	436	call draw_keybar
437	cmp ebx, nomem_dlgdata	437	cmp ebx, nomem_dlgdata
438	jz @f	438	jz @f
439	mov ecx, ebp	439	mov ecx, ebp
440	call pgfree	440	call pgfree
441	@@:	441	@@:
442	pop [ebx+dlgtemplate.y]	442	pop [ebx+dlgtemplate.y]
443	pop [ebx+dlgtemplate.x]	443	pop [ebx+dlgtemplate.x]
444	or [cursor_x], -1	444	or [cursor_x], -1
445	or [cursor_y], -1	445	or [cursor_y], -1
446	call draw_image	446	call draw_image
447	popad	447	popad
448	ret 8	448	ret 8
449		449
450	save_console_data:	450	save_console_data:
451	cmp dword [esp+4], 0	451	cmp dword [esp+4], 0
452	jge @f	452	jge @f
453	and dword [esp+4], 0	453	and dword [esp+4], 0
454	@@:	454	@@:
455	cmp dword [esp+8], 0	455	cmp dword [esp+8], 0
456	jge @f	456	jge @f
457	and dword [esp+8], 0	457	and dword [esp+8], 0
458	@@:	458	@@:
459	mov eax, [esp+12]	459	mov eax, [esp+12]
460	cmp eax, [cur_width]	460	cmp eax, [cur_width]
461	jbe @f	461	jbe @f
462	mov eax, [cur_width]	462	mov eax, [cur_width]
463	@@:	463	@@:
464	sub eax, [esp+4]	464	sub eax, [esp+4]
465	ja @f	465	ja @f
466	ret 16	466	ret 16
467	@@:	467	@@:
468	mov [esp+12], eax	468	mov [esp+12], eax
469	mov eax, [esp+16]	469	mov eax, [esp+16]
470	cmp eax, [cur_height]	470	cmp eax, [cur_height]
471	jbe @f	471	jbe @f
472	mov eax, [cur_height]	472	mov eax, [cur_height]
473	@@:	473	@@:
474	sub eax, [esp+8]	474	sub eax, [esp+8]
475	ja @f	475	ja @f
476	ret 16	476	ret 16
477	@@:	477	@@:
478	mov [esp+16], eax	478	mov [esp+16], eax
479	mov eax, [esp+4]	479	mov eax, [esp+4]
480	mov edx, [esp+8]	480	mov edx, [esp+8]
481	call get_console_ptr	481	call get_console_ptr
482	mov esi, edi	482	mov esi, edi
483	mov edi, ebp	483	mov edi, ebp
484	.l:	484	.l:
485	mov ecx, [esp+12]	485	mov ecx, [esp+12]
486	push esi	486	push esi
487	shr ecx, 1	487	shr ecx, 1
488	rep movsd	488	rep movsd
489	adc ecx, ecx	489	adc ecx, ecx
490	rep movsw	490	rep movsw
491	pop esi	491	pop esi
492	add esi, [cur_width]	492	add esi, [cur_width]
493	add esi, [cur_width]	493	add esi, [cur_width]
494	dec dword [esp+16]	494	dec dword [esp+16]
495	jnz .l	495	jnz .l
496	ret 16	496	ret 16
497		497
498	restore_console_data:	498	restore_console_data:
499	cmp dword [esp+4], 0	499	cmp dword [esp+4], 0
500	jge @f	500	jge @f

Subversion Repositories Kolibri OS

(root)/programs/fs/kfar/trunk/dialogs.inc @ 474 – Rev 485 → 517