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

Subversion Repositories Kolibri OS

(root)/programs/fs/kfar/trunk/dialogs.inc @ 3165 – Rev 9039 → 9059