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
;  ¨£­®à¨àãîâáï)
; ¡¨â 2: ­¥ à¨á®¢ âì â¥­ì
.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
.dataptr        dd      ?       ; used internally, ignored on input
.size = $
end virtual
 
GenericBox:
        push    [cursor_x]
        push    [cursor_y]
        push    dword [esp+8+8]
        push    dword [esp+8+8]
        call    ShowGenericBox
        test    eax, eax
        jz      @f
        pop     [cursor_y]
        pop     [cursor_x]
        ret
@@:
        pushad
; message loop
.event:
;        call    get_event
        push    10
        pop     eax
        int     40h
        dec     eax
        jz      .redraw
        dec     eax
        jz      .key
        jmp     exit
.redraw:
        call    draw_window
        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     ebx, [esp+24h+8]
        mov     ecx, [esp+28h+8]
        push    0
        push    eax
        push    2
        push    ebx
        call    ecx
        test    eax, eax
        jz      .event
        mov     [esp+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:
        popad
        push    eax
        push    0
        push    dword [esp+12+8]
        call    HideGenericBox
        pop     eax
        pop     [cursor_y]
        pop     [cursor_x]
        pushad
        call    draw_image
        popad
        ret     8
 
; int __stdcall ShowGenericBox(DLGTEMPLATE* dlg, void* DlgProc);
ShowGenericBox:
        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     eax, 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+8]
        call    xpgalloc
        test    eax, eax
        jnz     @f
        pop     [ebx+dlgtemplate.y]
        pop     [ebx+dlgtemplate.x]
        popad
        or      eax, -1
        ret     8
@@:
.allocated:
        mov     [ebx+dlgtemplate.dataptr], eax
        pop     dword [eax+4]
        pop     dword [eax]
        lea     ebp, [eax+8]
; 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
        test    byte [ebx+dlgtemplate.flags], 4
        jnz     .noshadow
        call    draw_dialog_shadow
.noshadow:
        popad
        push    dword [esp+8]
        push    dword [esp+8]
        call    DrawGenericBox
        xor     eax, eax
        ret     8
 
draw_dialog_shadow:
        mov     eax, [ebx+dlgtemplate.x]
        sub     eax, [ebx+dlgtemplate.border_size_x]
        ja      @f
        xor     eax, eax
@@:
        inc     eax
        inc     eax
        mov     edx, [ebx+dlgtemplate.y]
        sub     edx, [ebx+dlgtemplate.border_size_y]
        ja      @f
        xor     edx, edx
@@:
        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
 
        ret
 
 
 
 
 
 
; void __stdcall DrawGenericBox(DLGDATA* dlg, void* DlgProc)
DrawGenericBox:
        pushad
        mov     ebx, [esp+24h]
; draw area background
        mov     eax, [ebx+dlgtemplate.x]
        sub     eax, [ebx+dlgtemplate.border_size_x]
        ja      @f
        xor     eax, eax
@@:
        mov     edx, [ebx+dlgtemplate.y]
        sub     edx, [ebx+dlgtemplate.border_size_y]
        ja      @f
        xor     edx, edx
@@:
        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]
        push    0
        push    0
        push    1
        push    ebx
        call    eax
        call    draw_image
        popad
        ret     8
 
; void __stdcall HideGenericBox(DLGTEMPLATE* dlg, int bRedrawWindow);
HideGenericBox:
; void __stdcall HideDialogBox(DLGDATA* dlg, int bRedrawWindow);
HideDialogBox:
        pushad
        mov     ebx, [esp+24h]
        mov     ebp, [ebx+dlgtemplate.dataptr]
        add     ebp, 8
; 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
        lea     ecx, [ebp-8]
        push    dword [ecx]
        push    dword [ecx+4]
        pop     [ebx+dlgtemplate.y]
        pop     [ebx+dlgtemplate.x]
        cmp     ebx, nomem_dlgdata
        jz      @f
        call    pgfree
@@:
        or      [cursor_x], -1
        or      [cursor_y], -1
        cmp     dword [esp+28h], 0
        jz      @f
        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, 60
; 40 bytes for dlgtemplate + additional:
; +40: dd cur_variant
; +44: dd num_variants
; +48: dd begin_variant
; +52: dd end_variant
; +56: 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+40], esi
        mov     dword [ebx+56], eax
@@:
        cmp     dword [esi+4], eax
        jz      .find_width
        mov     esi, [esi+4]
        inc     dword [ebx+56]
        jmp     @b
.find_width:
        mov     [ebx+48], 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+44], 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+40]
        mov     [ebx+48], eax
        dec     ecx
        jz      .skip
        push    ecx
@@:
        cmp     dword [eax+4], 0
        jz      @f
        mov     eax, [eax+4]
        loop    @b
@@:
        mov     [ebx+48], eax
        pop     ecx
.loop:
        mov     eax, [eax]
        loop    .loop
.skip:
        mov     [ebx+52], 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+40]
        cmp     dword [eax+4], 0
        jz      .end
        call    .line_prev
.posret:
        mov     [ebx+40], eax
.redraw:
        call    .dodraw
        call    draw_image
        xor     eax, eax
        ret     16
.next:
        mov     eax, [ebx+40]
        cmp     dword [eax], 0
        jz      .home
        call    .line_next
        jmp     .posret
.pgdn:
        mov     eax, [ebx+40]
        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
        cmp     al, 0x52
        jz      .ins
        cmp     al, 0x53
        jz      .del
        mov     edx, [ebx+40]
@@:
        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+40]
        mov     ecx, [ebx+dlgtemplate.height]
.pgupl:
        cmp     dword [eax+4], 0
        jz      .posret
        call    .line_prev
        loop    .pgupl
        jmp     .posret
.home:
        mov     eax, [ebx+40]
@@:
        cmp     dword [eax+4], 0
        jz      @f
        mov     eax, [eax+4]
        jmp     @b
@@:
        mov     [ebx+48], eax
        push    eax
        mov     ecx, [ebx+dlgtemplate.height]
        dec     ecx
        jz      .h1
.h2:
        mov     eax, [eax]
        loop    .h2
.h1:
        mov     [ebx+52], eax
        pop     eax
        and     dword [ebx+56], 0
        jmp     .posret
.end:
        mov     eax, [ebx+40]
@@:
        cmp     dword [eax], 0
        jz      @f
        mov     eax, [eax]
        jmp     @b
@@:
        mov     [ebx+52], eax
        push    eax
        mov     ecx, [ebx+dlgtemplate.height]
        dec     ecx
        jz      .e1
.e2:
        mov     eax, [eax+4]
        loop    .e2
.e1:
        mov     [ebx+48], eax
        mov     eax, [ebx+44]
        dec     eax
        mov     [ebx+56], eax
        pop     eax
        jmp     .posret
.esc:
        or      eax, -1
        ret     16
.enter:
        mov     eax, [ebx+40]
        ret     16
.ins:
        push    5
        pop     edx
        jmp     @f
.del:
        push    4
        pop     edx
@@:
        mov     eax, [ebx+40]
        cmp     byte [eax+8], '/'
        jnz     @f
        cmp     word [eax+9], 'cd'
        jnz     @f
        movzx   ecx, byte [eax+11]
        sub     ecx, '0'
        push    24
        pop     eax
        mov     ebx, edx
        int     40h
@@:
        xor     eax, eax
        ret     16
 
.line_prev:
        cmp     eax, [ebx+48]
        jnz     @f
        mov     edx, [ebx+48]
        mov     edx, [edx+4]
        mov     [ebx+48], edx
        mov     edx, [ebx+52]
        mov     edx, [edx+4]
        mov     [ebx+52], edx
@@:
        mov     eax, [eax+4]
        dec     dword [ebx+56]
        ret
.line_next:
        cmp     eax, [ebx+52]
        jnz     @f
        mov     edx, [ebx+48]
        mov     edx, [edx]
        mov     [ebx+48], edx
        mov     edx, [ebx+52]
        mov     edx, [edx]
        mov     [ebx+52], edx
@@:
        mov     eax, [eax]
        inc     dword [ebx+56]
        ret
 
.dodraw:
        mov     eax, [ebx+dlgtemplate.x]
        mov     edx, [ebx+dlgtemplate.y]
        call    get_console_ptr
        mov     esi, [ebx+48]
.0:
        xor     edx, edx
        mov     ah, [menu_selected_color]
        cmp     esi, [ebx+40]
        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+40]
        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+52]
        jz      @f
        mov     esi, [esi]
        test    esi, esi
        jnz     .0
@@:
; ¨­¥©ª  ¯à®ªàãâª¨
        mov     ecx, [ebx+dlgtemplate.height]
        cmp     ecx, [ebx+44]
        jz      .noscrollbar
        sub     ecx, 2
        jbe     .noscrollbar
        mov     eax, [ebx+56]
        mul     ecx
        div     dword [ebx+44]
        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
 
get_ascii_char:
; query keyboard layout
        pushad
        mov     al, [ctrlstate]
        and     al, 3
        xor     ecx, ecx
        cmp     al, 1
        sbb     ecx, -2
        push    26
        pop     eax
        push    2
        pop     ebx
        mov     edx, layout
        int     0x40
        popad
; translate scancode to ASCII
        movzx   eax, byte [layout+eax]
        ret
 
virtual at 0
dlgitemtemplate:
; «¥¬¥­âë:
;       1 = áâ â¨ç¥áª¨© â¥ªáâ
;       2 = ª­®¯ª 
;       3 = ¯®«¥ à¥¤ ªâ¨à®¢ ­¨ï
;       4 = £®à¨§®­â «ì­ë© à §¤¥«¨â¥«ì
;       5 = ä« ¦®ª
;       6 = ᯨ᮪
.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;
; ¤«ï á¯¨áª : struct {listitem* curitemptr; unsigned numitems;
;               listitem *head; unsigned curitem;}* data;
; head = ãª § â¥«ì ­  ¯¥à¢ë© ®â®¡à ¦ ¥¬ë© í«¥¬¥­â,
; curitemptr = ãª § â¥«ì ­  ¢ë¤¥«¥­­ë© í«¥¬¥­â, curitem = ¥£® ¨­¤¥ªá ¢ á¯¨áª¥ (®â 0)
; (£¤¥ struct listitem {listitem* next; listitem* prev; char text[];};)
.data           dd      ?
.flags          dd      ?
; « £¨:
;       0 = ¢ëà ¢­¨¢ ­¨¥ ¢«¥¢®
;       1 = ¢ëà ¢­¨¢ ­¨¥ ¯® æ¥­âàã
;       2 = ¢ëà ¢­¨¢ ­¨¥ ¢¯à ¢®
;       4 = í«¥¬¥­â ¨¬¥¥â ä®ªãá ¢¢®¤ 
;       8 = í«¥¬¥­â ¬®¦¥â ¨¬¥âì ä®ªãá ¢¢®¤ 
;       10h: ¤«ï ª­®¯ª¨ = ª­®¯ª  ¯® ã¬®«ç ­¨î (Enter ­  ­¥-ª­®¯ª¥)
;            ¤«ï ¯®«ï ¢¢®¤  = ¤ ­­ë¥ ¡ë«¨ ¬®¤¨ä¨æ¨à®¢ ­ë
;            ¤«ï ä« ¦ª  = ä« ¦®ª ãáâ ­®¢«¥­
;       20h: ¤«ï ¯®«ï ¢¢®¤  = ­¥ ®â®¡à ¦ âì ¢¢®¤¨¬ë¥ ¤ ­­ë¥ (¯®ª §ë¢ âì '*')
.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
 
; int __stdcall ShowDialogBox(DLGDATA* dlg);
ShowDialogBox:
        push    ManagerDlgProc
        push    dword [esp+8]
        call    ShowGenericBox
        ret     4
 
; void __stdcall DrawDialogBox(DLGDATA* dlg);
DrawDialogBox:
        push    ManagerDlgProc
        push    dword [esp+8]
        call    DrawGenericBox
        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   .nobtns2
        cmp     [ebx+dlgitemtemplate.type], 3
        jz      .key_edit
        cmp     [ebx+dlgitemtemplate.type], 5
        jnz     @f
        cmp     al, 0x39
        jnz     @f
        xor     [ebx+dlgitemtemplate.flags], 10h
        jmp     .ret_draw
@@:
.nobtns2:
        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
        movzx   eax, al
        call    get_ascii_char
        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]
 
 
 
 
 
 
 
        cmp     eax, draw_functions_num
 
 
        jae     .draw_loop_continue
 
        call    [draw_functions + eax*4]
.draw_loop_continue:
        pop     ecx
        add     ebx, dlgitemtemplate.size
        loop    .draw_loop
.done_draw:
        ret
 
iglobal
align 4
label draw_functions dword
        dd      ManagerDlgProc.done_draw
        dd      draw_static_text
        dd      draw_button
        dd      draw_editbox
        dd      draw_h_separator
        dd      draw_checkbox
        dd      draw_listbox
draw_functions_num = ($ - draw_functions) / 4
endg
 
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      .ret2
        push    eax
        push    -1
        pop     ecx
@@:
        inc     ecx
        cmp     byte [ecx+esi], 0
        jnz     @b
; ¢ ecx ¤«¨­  áâà®ª¨
 
        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
 
 
        push    edx
 
 
        call    dlgitem_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
; check for password editboxes
        cmp     [ebx+dlgitemtemplate.type], 3
        jnz     @f
        test    [ebx+dlgitemtemplate.flags], 20h
        jz      @f
        mov     al, '*'
        rep     stosw
        jmp     .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
.ret2:
        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
 
dlgitem_get_console_ptr:
        mov     eax, [ebx+dlgitemtemplate.x1]
        mov     edx, [ebx+dlgitemtemplate.y1]
        mov     ecx, eax
        add     eax, [ebp+dlgtemplate.x]
        add     edx, [ebp+dlgtemplate.y]
        jmp     get_console_ptr
 
draw_h_separator:
; à¨áã¥¬ £®à¨§®­â «ì­ë© à §¤¥«¨â¥«ì
        call    dlgitem_get_console_ptr
.scan:
        mov     al, 0xC7
        test    ecx, ecx
        js      @f
        mov     al, 0xB6
        cmp     ecx, [ebp+dlgtemplate.width]
        jz      @f
        mov     al, 0xC4
@@:
        stosb
        jz      .done
        inc     ecx
        inc     edi
        cmp     ecx, [ebx+dlgitemtemplate.x2]
        jb      .scan
.done:
        ret
 
draw_checkbox:
; à¨áã¥¬ ä« ¦®ª
        call    dlgitem_get_console_ptr
        test    byte [ebx+dlgitemtemplate.flags], 4
        jz      @f
        inc     eax
        mov     [cursor_x], eax
        mov     [cursor_y], edx
@@:
        mov     ah, [dialog_main_color]
        test    byte [ebp+dlgtemplate.flags], 2
        jz      @f
        mov     ah, [warning_main_color]
@@:
        mov     al, '['
        stosw
        mov     al, 'x'
        test    byte [ebx+dlgitemtemplate.flags], 10h
        jnz     @f
        mov     al, ' '
@@:
        stosw
        mov     al, ']'
        stosw
        mov     al, ' '
        stosw
        mov     ecx, [ebx+dlgitemtemplate.x2]
        sub     ecx, [ebx+dlgitemtemplate.x1]
        jb      .ret
        sub     ecx, 3
        jbe     .ret
        mov     esi, [ebx+dlgitemtemplate.data]
@@:
        lodsb
        test    al, al
        jz      .ret
        stosw
        loop    @b
.ret:
        ret
 
draw_listbox:
; à¨áã¥¬ á¯¨á®ª
        call    dlgitem_get_console_ptr
        mov     edx, [ebx+dlgitemtemplate.data]
        mov     esi, [edx+8]
        mov     eax, [ebx+dlgitemtemplate.y2]
        sub     eax, [ebx+dlgitemtemplate.y1]
        push    eax
        push    eax
.0:
        test    esi, esi
        jz      .listdone
        push    esi edi
        push    edx
        or      edx, -1
        mov     ecx, [ebx+dlgitemtemplate.x2]
        sub     ecx, [ebx+dlgitemtemplate.x1]
        inc     ecx
        xor     eax, eax
@@:
        inc     edx
        cmp     byte [esi+8+edx], al
        jnz     @b
@@:
        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:
        pop     edx
        cmp     esi, [edx]
        lea     esi, [esi+8+eax]
        mov     ah, [dialog_selected_list_color]
        jz      @f
        mov     ah, [dialog_list_color]
@@:
        jecxz   .next
@@:
        lodsb
        test    al, al
        jz      @f
        stosw
        loop    @b
@@:
        mov     al, ' '
        rep     stosw
.next:
        pop     edi esi
        add     edi, [cur_width]
        add     edi, [cur_width]
        mov     esi, [esi]
        dec     dword [esp]
        jns     .0
.listdone:
        pop     eax
; ¨­¥©ª  ¯à®ªàãâª¨
        pop     ecx
        inc     ecx
        mov     esi, [edx+4]
        cmp     ecx, esi
        jae     .noscrollbar
        sub     ecx, 2
        jbe     .noscrollbar
        mov     eax, [edx+12]
        mul     ecx
        div     esi
        push    eax
        mov     eax, [ebx+dlgitemtemplate.x2]
        add     eax, [ebp+dlgtemplate.x]
        mov     edx, [ebx+dlgitemtemplate.y1]
        add     edx, [ebp+dlgtemplate.y]
        call    get_console_ptr
        pop     edx
        inc     edx
        mov     al, 0x1E
        mov     ah, [dialog_scroll_list_color]
        mov     [edi], ax
        add     edi, [cur_width]
        add     edi, [cur_width]
.2:
        mov     al, 0xB1
        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
 
listbox_key:
        mov     edx, [ebx+dlgitemtemplate.data]
        cmp     al, 0x48
        jz      .prev
        cmp     al, 0x50
        jz      .next
        cmp     al, 0x47
        jz      .home
        cmp     al, 0x4F
        jz      .end
        cmp     al, 0x51
        jz      .pgdn
        cmp     al, 0x49
        jz      .pgup
        ret
.next:
        call    .calc_last_line
        mov     eax, [edx]
        cmp     dword [eax], 0
        jz      @f
        call    .line_next
@@:
        mov     [edx], eax
        ret
.pgdn:
        call    .calc_last_line
        mov     eax, [edx]
        mov     ecx, [ebx+dlgitemtemplate.y2]
        sub     ecx, [ebx+dlgitemtemplate.y1]
.pgdnl:
        cmp     dword [eax], 0
        jz      @f
        call    .line_next
        loop    .pgdnl
@@:
        mov     [edx], eax
        ret
.prev:
        mov     eax, [edx]
        cmp     dword [eax+4], 0
        jz      @f
        call    .line_prev
@@:
        mov     [edx], eax
        ret
.pgup:
        mov     eax, [edx]
        mov     ecx, [ebx+dlgitemtemplate.y2]
        sub     ecx, [ebx+dlgitemtemplate.y1]
;        inc     ecx
.pgupl:
        cmp     dword [eax+4], 0
        jz      @f
        call    .line_prev
        loop    .pgupl
@@:
        mov     [edx], eax
        ret
.home:
        mov     eax, [edx]
@@:
        cmp     dword [eax+4], 0
        jz      @f
        mov     eax, [eax+4]
        jmp     @b
@@:
        mov     [edx], eax
        mov     [edx+8], eax
        and     dword [edx+12], 0
        ret
.end:
        mov     eax, [edx]
@@:
        cmp     dword [eax], 0
        jz      @f
        mov     eax, [eax]
        jmp     @b
@@:
        mov     [edx], eax
        mov     ecx, [ebx+dlgitemtemplate.y2]
        sub     ecx, [ebx+dlgitemtemplate.y1]
        jz      .e1
.e2:
        mov     eax, [eax+4]
        loop    .e2
.e1:
        mov     [edx+8], eax
        mov     eax, [edx+4]
        dec     eax
        mov     [edx+12], eax
        ret
 
.line_prev:
        cmp     eax, [edx+8]
        mov     eax, [eax+4]
        jnz     @f
        mov     [edx+8], eax
@@:
        dec     dword [edx+12]
        ret
.calc_last_line:
        mov     esi, [edx+8]
        mov     ecx, [ebx+dlgitemtemplate.y2]
        sub     ecx, [ebx+dlgitemtemplate.y1]
        jz      .clldone
@@:
        mov     esi, [esi]
        test    esi, esi
        jz      @f
        loop    @b
.clldone:
        ret
.line_next:
        cmp     eax, esi
        mov     eax, [eax]
        jnz     @f
        push    eax
        mov     eax, [edx+8]
        mov     eax, [eax]
        mov     [edx+8], eax
        pop     eax
        mov     esi, eax
@@:
        inc     dword [edx+12]
        ret
 
; 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 ConfirmCancel(void);
; return value: 0 = the user is sure, nonzero = the user wants to continue
ConfirmCancel:
        push    YesOrNoBtn
        push    2
        push    ConfirmCancelMsg
        push    1
        push    aCancelled
        call    SayErrTitle
        test    eax, eax
        ret
 
; int __stdcall SayErr(int num_strings, const char* strings[],
;                      int num_buttons, const char* buttons[]);
SayErr:
        pop     eax
        push    aError
        push    eax
; int __stdcall SayErrTitle(const char* title,
;                       int num_strings, const char* strings[],
;                       int num_buttons, const char* buttons[]);
SayErrTitle:
        push    2
        jmp     @f
 
; int __stdcall Message(const char* title,
;                       int num_strings, const char* strings[],
;                       int num_buttons, const char* buttons[]);
Message:
        push    1
@@:
        pop     eax
; [esp+4] = title
; [esp+8] = num_strings
; [esp+12] = strings
; [esp+16] = num_buttons
; [esp+20] = buttons
        pushad
        mov     ecx, [esp+32+8]
        add     ecx, [esp+32+16]
        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
        or      eax, -1
        stosd                           ; dlgtemplate.x
        stosd                           ; dlgtemplate.y
; calculate width
        mov     ecx, [esp+32+8]
        mov     esi, [esp+32+12]
        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+16]
        mov     esi, [esp+32+20]
        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+8]
        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                           ; (ignored)
        stosd                           ; DlgProc
        stosd                           ; userdata
        mov     eax, [esp+32+8]
        add     eax, [esp+32+16]
        stosd                           ; num_items
; fill strings
        xor     ecx, ecx
        mov     esi, [esp+32+12]
@@:
        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+8]
        jb      @b
; fill buttons
        mov     ecx, [esp+32+16]
        mov     esi, [esp+32+20]
        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+16]
        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+8]
@@:
        mov     [esp+28], eax
        mov     ecx, ebx
        call    pgfree
        popad
        ret     20

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

Subversion Repositories Kolibri OS

(root)/programs/fs/kfar/trunk/dialogs.inc – Rev 814 → 997