Subversion Repositories Kolibri OS

@use_library_mem mem.Alloc, mem.Free, mem.ReAlloc, dll.Load

fn_icon1 db '../../develop/libraries/box_lib/trunk/tl_sys_16_w.bmp', 0

fn_icon2 db '../../develop/libraries/box_lib/trunk/tl_nod_16_w.bmp', 0

bmp_icon dd 0

TLIST_SZ = 325+16 ;=341. 16 is x-size of scroll bar

TLIST1_X = 50

TLIST2_X = 409

BT_SZ_X  = 40

SYS_COL  = 0xe6e6e6

BT_COL   = 0xcccccc

STR_COL  = 0x595959 ;0x000000

; TODO: automatic resizing of GUI elements on window resizing

align 4

;;================================================================================================;;

gui: ;////////////////////////////////////////////////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? GUI-specific functions                                                                         ;;

;;------------------------------------------------------------------------------------------------;;

;> none                                                                                           ;;

;;------------------------------------------------------------------------------------------------;;

;< none                                                                                           ;;

;;================================================================================================;;

    dd .init

    dd .server_addr

    dd .get_username

    dd .get_cmd

    dd .print

    dd .set_flags

    dd .list

    dd .progress

    dd .error

    .init:

        ; load libraries

        stdcall dll.Load, @IMPORT_BOXLIB

        test    eax, eax

        jnz     .exit

        mcall   48, 3, sc, sizeof.system_colors

        mcall   40, 0xC0000027 ; set event mask

        ret

    .server_addr:

        mov     [auto_list], 1

        jmp     login_gui.server_addr

    .get_username:

        jmp     login_gui.get_username

;;================================================================================================;;

    .main: ;//////////////////////////////////////////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? Initialize tree list, editbox and textedit elements                                            ;;

;;------------------------------------------------------------------------------------------------;;

;> none                                                                                           ;;

;;------------------------------------------------------------------------------------------------;;

;< none                                                                                           ;;

;;================================================================================================;;

        stdcall [ted_init], tedit0

        mov     dword[tedit0.rec.width], 9

        mov     dword[tedit0.rec.height], 16

        stdcall dword[edit_box_set_text], edit_volume, root_dir

        ; initialize tree list elements

        stdcall dword[tl_data_init], tree1

        stdcall dword[tl_data_init], tree2

        ; read *.bmp file system icons

        copy_path fn_icon1,path,filestruct.name, 0

        mov     ecx, 3*256*13

        stdcall mem.Alloc, ecx

        mov     [bmp_icon], eax

        mov     [filestruct.ptr], eax

        mov     [filestruct.subfn], 0

        mov     [filestruct.offset], 54

        mov     [filestruct.size], ecx

        mcall   70, filestruct

        cmp     ebx, 0

        jl      @f

        m2m     dword[tree1.data_img_sys], dword[bmp_icon]

        m2m     dword[tree2.data_img_sys], dword[bmp_icon]

      @@:

        ; read * .bmp file with the icon of nodes

        copy_path fn_icon2, path, filestruct.name, 0

        mov     ecx, 3*256*13

        stdcall mem.Alloc, ecx

        mov     [bmp_icon], eax

        mov     [filestruct.ptr], eax

        ;mov    [filestruct.subfn], 0

        ;mov    [filestruct.offset], 54

        mov     [filestruct.size], ecx

        mcall   70, filestruct

        cmp     ebx, 0

        jl      @f

        m2m     dword[tree1.data_img], dword[bmp_icon]

        m2m     dword[tree2.data_img], dword[bmp_icon]

      @@:

        mcall   67, 35, 20, 830, 555 ; resize to main gui window's coordinates

        call    .draw

        ; create initial tree list for root_dir

        call    populate_local_tree_list

        jmp     arg_handler.connect

    .get_cmd:

        dec     [auto_list]

        jnz     .redraw

        call    .clear_remote_tree

        jmp     cmd_list

    .redraw:

        call     .draw

    align 4

    .still:

        mcall   10

        dec     eax

        jz      .redraw

        dec     eax

        jz      .key

        dec     eax

        jz      .button

        sub     eax, 3

        jz      .mouse

        jmp     .still

    .error:

        jmp     login_gui.error

    .exit:

    ;   stdcall mem.Free,[bmp_icon]

        stdcall dword[tl_data_clear], tree1

        stdcall dword[tl_data_clear], tree2

        stdcall [ted_delete], tedit0

        jmp     exit

    align 4

    .draw:

        mcall   12, 1

        ; main window

        mcall   0, <35,830>, <20,555>, 0x34000000+SYS_COL, 0x805080DD, hed

        ;-------------------------

        ; textedit components

        ;-------------------------

        mcall   9, procinfo, -1

        mov     edi, tedit0

        call    EvSize

        movzx   ebx,word[procinfo.client_box.width]

        inc     bx

        mcall   13, , ted_wnd_t

        stdcall [ted_draw], tedit0

        ; draw "disconnect" button

        mcall   8, <50,85>, <25,25>, 3, BT_COL

        ; string "disconnect"

        mcall   4, <50+5,25+5>, 0xb0000000+STR_COL, str_disconnect

        ; draw "Copy" button

        mcall   8, <50,40>, <326,25>, 4, BT_COL

        ; string "copy"

        mcall   4, <50+5,326+5>, 0xb0000000+STR_COL, str_copy

        ; draw "Search" button

        mcall   8, , <20,25>, 5, BT_COL

        ; string "Search"

        mcall   4, , 0xb0000000+STR_COL, str_search

        ; draw "LIST" button

        mcall   8, , <50,25>, 12, BT_COL

        ; string "LIST"

        mcall   4, , 0xb0000000+STR_COL, str_list

        ; draw "DELE" button

        mcall   8, , <50,25>, 7, BT_COL

        ; string "DELE"

        mcall   4, , 0xb0000000+STR_COL, str_dele

        ; draw "RDIR" button

        mcall   8, , <50,25>, 8, BT_COL

        ; string "RDIR"

        mcall   4, , 0xb0000000+STR_COL, str_rdir

        ; draw "RMD" button

        mcall   8, , <50,25>, 9, BT_COL

        ; string "RMD"

        mcall   4, , 0xb0000000+STR_COL, str_rmd

        ; draw "mkd" button

        mcall   8, , <80,20>, 6, BT_COL

        ; string "mkd"

        mcall   4, , 0xb0000000+STR_COL, str_mkd

        ; draw "cancel" button

        mcall   8, <555,55>, <308,25>, 10, BT_COL

        ; string "Cancel"

        mcall   4, <555+5,308+5>, 0xb0000000+STR_COL, str_abort

        ; draw "change volume" button

        mcall   8, , <100-20,22>, 11, BT_COL

        ; string "Change"

        mcall   4, , 0xb0000000+STR_COL, str_change

        ;--------------------------

        ; tree list components

        ;--------------------------

        stdcall dword[tl_draw], tree1

        stdcall dword[tl_draw], tree2

        mov     dword[wScr.all_redraw], 1

        stdcall [scrollbar_ver_draw], wScr

        mov     dword[wScr2.all_redraw],1

        stdcall [scrollbar_ver_draw], wScr2

        stdcall [edit_box_draw], edit_mkd

        stdcall [edit_box_draw], edit_volume

        stdcall [edit_box_draw], edit_search

        ; progress bar

        stdcall [progressbar_draw], pb

        mcall   12,2

        ret

    align 16

    .mouse:

        mcall   37, 1

        cmp     word[tedit0.wnd.top], ax

        jg      .no_edit

        shr     eax, 16

        cmp     word[tedit0.wnd.left], ax

        jg      .no_edit

        mcall   37, 3

        bt      eax, 24

        jnc     @f

        stdcall [ted_but_select_word], tedit0

        jmp     .still

      @@:

        stdcall [ted_mouse], tedit0

        jmp     .still

      .no_edit:

        stdcall [tl_mouse], tree1

        stdcall [tl_mouse], tree2

        stdcall [edit_box_mouse], edit_mkd

        stdcall [edit_box_mouse], edit_volume

        stdcall [edit_box_mouse], edit_search

        jmp     .still

    align 16

    .key:

        mcall   2

        stdcall [tl_key], tree1

        stdcall [tl_key], tree2

        stdcall [edit_box_key], edit_mkd

        stdcall [edit_box_key], edit_volume

        stdcall [edit_box_key], edit_search

        jmp     .still

    align 16

    .button:

        mcall   17

        cmp     ah, 3

        jne     @f

        ijmp    eax, interface_addr, interface.server_addr

        jmp     .still

      @@:

        cmp     ah, 4

        jne     @f

        stdcall [ted_but_copy], tedit0

        jmp     .still

      @@:

        cmp     ah, 5

        jne     @f

        je      filter_remote_list

      @@:

        cmp     ah, 6

        je      create_remote_dir

        cmp     ah, 7

        je      delete_file

        cmp     ah, 8

        je      cmd_rdir

        cmp     ah, 9

        je      remove_dir

        cmp     ah, 10

        je      cmd_abor

        cmp     ah, 11

        jne     @f

        call    populate_local_tree_list

      @@:

        cmp     ah, 12

        jne     @f

        call    .clear_remote_tree

        je      cmd_list

      @@:

        cmp     ah, 1

        je      .exit

        jmp     .still

    .print:

        pushad

        mov     ebx, ted_opt_ed_change_time + ted_opt_ed_move_cursor

        mov     ecx, 2 ; 0a0d

        mov     esi, [esp+36]

        mov     word[tedit_buffer], 0x0a0d

        lea     edi, [tedit_buffer+2]

      @@:

        movsb

        inc     ecx

        cmp     byte[esi], 0

        jne     @b

        stdcall [ted_text_add], tedit0, tedit_buffer, ecx, ebx

        stdcall [ted_draw], tedit0

        ; write to log file

        mov     eax, [esp+36]

        cmp     [logfile_offset], -1 ; disabled logging?

        je      @f

        call    write_to_file

      @@:

        popad

        ret     4

    .set_flags:

        ret     4

;;================================================================================================;;

    .list: ;//////////////////////////////////////////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? update tree2 with remote directory listing                                                     ;;

;;------------------------------------------------------------------------------------------------;;

;> buf_buffer2 = received data buffer                                                             ;;

;> eax = size of data                                                                             ;;

;> remote_list_buf = buffer containing last incomplete entry (if any)                             ;;

;;------------------------------------------------------------------------------------------------;;

;< none                                                                                           ;;

;;================================================================================================;;

        push    edx

        push    eax

        ; check if any incomplete entry to be parsed

        cmp     byte[remote_list_buf], 0

        je      .no_backlog

        ; find end of remote_list_buf

        mov     edi, remote_list_buf

        mov     al, 0

        repne   scasb

        ; copy rest of the incomplete entry to remote_list_buf

        mov     esi, buf_buffer2

        dec     edi

      @@:

        movsb

        cmp     word[esi-2], 0x0a0d

        jne     @b

        mov     byte[edi], 0

        mov     ecx, edi

        sub     ecx, remote_list_buf ; ecx = length of remote_list_buf

        mov     ebx, esi ; ebx = address at which next parse should start

        mov     edi, remote_list_buf

        jmp     .start_parsing

      .no_backlog:

        mov     ecx, eax    ; ecx = number of bytes remaining to parse in buf_buffer2

        mov     edi, buf_buffer2

      .start_parsing:

        ; find pointer to name

        cmp     byte[edi], 'd' ; file is a directory

        je      @f

        cmp     byte[edi], 'l' ; link

        je      @f

        mov     word[node_entry2], 'fi'

        jmp     .parse

      @@:

        mov     word[node_entry2], 'fo'

      .parse:

        mov     edx, 8

      @@:

        mov     al, ' '

        mov     ecx, [esp]

        add     ecx, buf_buffer2

        sub     ecx, edi

        repne   scasb

        ; check if the (last) entry is incomplete

        test    ecx, ecx

        jz      .store_last_entry

        rep     scasb

        test    ecx, ecx

        jz      .store_last_entry

        dec     edx

        jnz     @b

        lea     esi, [edi-1]

        lea     edi, [node_entry2+4]

      @@:

        movsb

        cmp     word[esi], 0x0a0d ; end of entry

        jne     @b

        mov     byte[edi], 0

        ; add node to tree list

        cmp     word[node_entry2], 'fi'

        jne     @f

        stdcall dword[tl_node_add], tree2, 0, node_entry2

        jmp     .added_remote_node

      @@:

        stdcall dword[tl_node_add], tree2, 0x10000, node_entry2

      .added_remote_node:

        ; check whether we are parsing remote_list_buf

        cmp     byte[remote_list_buf], 0

        je      @f

        mov     byte[remote_list_buf], 0 ; done parsing remote_list_buf

        mov     edi, ebx

        mov     eax, [esp]

        mov     ecx, buf_buffer2

        add     ecx, eax

        sub     ecx, ebx

        jmp     .start_parsing

      @@:

        ; any more entries to parse?

        lea     edi, [esi+2] ; skip 0a0d

        cmp     byte[edi], 0

        jne     .start_parsing

        jmp     .done_parsing

      .store_last_entry:

        ; find index of the last incomplete entry

        mov     ecx, -1

        mov     eax, [esp]

        lea     edi, [buf_buffer2+eax-2]

        mov     al, 0x0a

        std

        repne   scasb

        cld

        ; copy last (incomplete) entry of buf_buffer2 to remote_list_buf

        lea     esi, [edi+2]

        mov     edi, remote_list_buf

      @@:

        movsb

        cmp     byte[esi-1], 0

        jne     @b

      .done_parsing:

        call    .draw ; to update tree list immediately in case of "auto_list"

        pop     eax

        pop     edx

        jmp     data_loop

        ; clear tree list and add ".." node before executing "LIST"

      .clear_remote_tree:

        stdcall dword[tl_info_clear], tree2

        mov     dword[node_entry2+4], 0x2E2E

        stdcall dword[tl_node_add], tree2, 0x10000, node_entry2

        ret

;;================================================================================================;;

    .progress: ;//////////////////////////////////////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? Update progress bar every time new data is received from data_loop block                       ;;

;;------------------------------------------------------------------------------------------------;;

;> edx = no. of bytes downloaded                                                                  ;;

;;------------------------------------------------------------------------------------------------;;

;< none                                                                                           ;;

;;================================================================================================;;

        ; detect abort

        mcall   17

        cmp     ah, 10

        je      cmd_abor

        push    eax ebx ecx edx

        mov     ebx, [file_size]

        mov     ecx, 100

        mov     eax, edx

        mul     ecx

        div     ebx

        cmp     eax, 100

        jle     @f

        mov     eax, 100

      @@:

        mov     dword[pb], eax

        push    pb

        call    [progressbar_draw]

        pop     edx ecx ebx eax

        ret

remove_dir:

    stdcall dword[tl_node_get_data], tree2

    cmp     word[eax], 'fo'

    jne     gui.still

    lea     esi, [eax+4]

    lea     edi, [buf_cmd+4]

  @@:

    movsb

    cmp     byte[esi], 0

    jne     @b

    mov     word[edi], 0x000a

    jmp     cmd_rmd

delete_file:

    stdcall dword[tl_node_get_data], tree2

    cmp     word[eax], 'fi'

    jne     gui.still

    lea     esi, [eax+4]

    lea     edi, [buf_cmd+5]

  @@:

    movsb

    cmp     byte[esi], 0

    jne     @b

    mov     word[edi], 0x000a

    jmp     cmd_dele

create_remote_dir:

    lea     edi, [buf_cmd+4]

    mov     esi, new_dir_buf

  @@:

    movsb

    cmp     byte[esi], 0

    jne     @b

    mov     word[edi], 0x000a

    jmp     cmd_mkd

; Function to call when you press [Enter]

align 4

fun_on_enter:

    stdcall dword[tl_node_get_data], tree1

    cmp     word[eax], 'fi'

    je      @f

    lea     ecx, [eax+4] ; discard first 4 bytes

    call    populate_local_tree_list.read_new_dir

    ;stdcall dword[tl_draw], tree1

    ret

  @@:

    lea     esi, [eax+4]

    lea     edi, [buf_cmd+5]

  @@:

    movsb

    cmp     byte[esi], 0

    jne     @b

    mov     word[edi], 0x000a

    jmp     cmd_stor

; Function to call when you press [Enter]

; for treelist with remote directory listing

align 4

fun_on_enter2:

    stdcall dword[tl_node_get_data], tree2

    lea     esi, [eax+4]

    cmp     dword[esi], 0x2E2E

    jne     @f

    mov     [auto_list], 1

    jmp     cmd_cdup

  @@:

    cmp     word[eax], 'fo'

    je      @f

    lea     edi, [buf_cmd+5]

    jmp     .copy

  @@:

    lea     edi, [buf_cmd+4]

  .copy:

    movsb

    cmp     byte[esi], 0

    jne     .copy

    mov     word[edi], 0x000a ; extra character before 0 to compensate for

                                ; newline in console code

    cmp     word[eax], 'fo'

    je      @f

    jmp     cmd_retr

  @@:

    stdcall dword[tl_info_clear], tree2

    mov     [auto_list], 1

    jmp     cmd_cwd

;;================================================================================================;;

populate_local_tree_list: ;///////////////////////////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? Update tree1 with file names from current working directory                                    ;;

;;------------------------------------------------------------------------------------------------;;

;> none                                                                                           ;;

;;------------------------------------------------------------------------------------------------;;

;< none                                                                                           ;;

;;================================================================================================;;

    mov     [filestruct.subfn], 1

    mov     [filestruct.size], 32

    mov     [filestruct.ptr], folder_data

    mov     ecx, root_dir

  .read_new_dir: ; ecx = pointer to folder name

    ; parse ".."

    cmp     word[ecx], '..'

    jne     @f

    cmp     byte[ecx+2], 0

    jne     @f

    ; removes last file name from filestruct.name

    mcall   30, 2, filestruct.name,1024 ; get absolute path for cwd

    lea     edi, [filestruct.name+eax] ; edi = pointer to the tail of file name

    mov     al, '/'

    mov     ecx, -1

    std

    repne   scasb

    cld

    mov     byte[edi+1], 0

    mov     ecx, filestruct.name

  @@:

    mcall   30, 1, ; set cwd

    mcall   30, 2, filestruct.name, 1024 ; get absolute path for cwd

    ; clear all nodes in tree list

    stdcall dword[tl_info_clear], tree1

    mov     [filestruct.offset], 0

  ; read 32 blocks

  .outer:

    mcall   70, filestruct

    ;int3

    test    eax, eax

    jz      @f

    cmp     eax, 6 ; EOF

    je      @f

    call    error_fs

    jmp     .done

  @@:

    test    ebx, ebx

    je      .done ; when no. of blocks is multiple of 32

    add     [filestruct.offset], ebx

    mov     ecx, ebx

    mov     edx, folder_data+32+40 ; pointer to first file's name in BDFE

  .inner:   ; ebx = total number of BDFEs

            ; ecx = number of BDFEs remaining

            ; edx = pointer to file's name in BDFE

    ; ignore "." entry

    cmp     word[edx], 0x002E

    je      .added

    ; copy file/folder name to node_entry

    mov     esi, edx

    mov     edi, node_entry+4

  @@:

    movsb

    cmp     byte [esi-1], 0

    jne     @b

    ; check whether this is a file or a folder

    mov     al, byte[edx-40]

    and     al, 0x10

    jz      @f

    ; add a folder to tree

    mov     word[node_entry], 'fo'

    stdcall dword[tl_node_add], tree1, 0x10000, node_entry

    jmp     .added

  @@:

    ; add a file to tree

    mov     word[node_entry], 'fi'

    stdcall dword[tl_node_add], tree1, 0, node_entry

  .added:

    add     edx, 304 ; 304 = length of BDFE. jump to next file's name

    loop    .inner

    stdcall dword[tl_draw], tree1

    cmp     ebx, 32

    je      .outer ; more BDFEs to come

  .done:

    ret

MIN_M_WND_H equ 500 ;

;input:

; edi = pointer to tedit struct

align 4

EvSize:

    pushad

    mov     ebx, ted_scr_h

    mov     esi, ted_scr_w

    m2m     ted_wnd_w, [procinfo.client_box.width]

    mov     eax, ted_wnd_l

    sub     ted_wnd_w, eax

    sub     ted_wnd_w, 70

    movzx   eax, word[esi+sb_offs_size_x]

    sub     ted_wnd_w, eax

    ;m2m    ted_wnd_h,[procinfo.client_box.height] ;

    ;cmp    ted_wnd_h,MIN_M_WND_H

    ;jg     @f

    mov     ted_wnd_h, MIN_M_WND_H

    ;@@:

    movzx   eax, word[ebx+sb_offs_size_y]

    sub     ted_wnd_h, eax

    mov     eax, ted_wnd_t

    sub     ted_wnd_h, eax

    stdcall [ted_init_scroll_bars], tedit0,2

    popad

    ret

;;================================================================================================;;

filter_remote_list: ;/////////////////////////////////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? Filter tree list according to pattern specified in 'filter'                                    ;;

;;------------------------------------------------------------------------------------------------;;

;> none                                                                                           ;;

;;------------------------------------------------------------------------------------------------;;

;< none                                                                                           ;;

;;================================================================================================;;

        stdcall dword[tl_cur_beg], tree2

    .next_node:

        stdcall dword[tl_node_get_data], tree2

        ; check whether any nodes left

        test    eax, eax

        jnz     @f

        stdcall dword[tl_draw], tree2

        stdcall dword[edit_box_set_text], edit_search, str_null

        je      gui.still

    @@:

        cmp     byte[filter], 0

        je      gui.still

        ; calculate size of node entry

        lea     esi, [eax+4]

        mov     edi, esi

        mov     ecx, -1

    @@:

        lodsb

        inc     ecx

        test    al, al

        jnz     @b

        ; calculate size of pattern

        mov     esi, filter

        mov     edx, -1

    @@:

        lodsb

        inc     edx

        test    al, al

        jnz     @b

        mov     esi, filter

        call    search

        pop     esi

        test    al, al

        jnz     .get_next

        stdcall dword[tl_node_delete], tree2

        jmp     @f

    .get_next:

        stdcall dword[tl_cur_next], tree2

    @@:

        jmp     .next_node

;;================================================================================================;;

search: ;/////////////////////////////////////////////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? Search for a substring within a string                                                         ;;

;;------------------------------------------------------------------------------------------------;;

;> edi = pointer to haystack                                                                      ;;

;> ecx = size of haystack                                                                         ;;

;> esi = pointer to needle                                                                        ;;

;> edx = size of needle                                                                           ;;

;;------------------------------------------------------------------------------------------------;;

;< al = 0 (not found) / 1 (found)                                                                 ;;

;;================================================================================================;;

    push    ebx ecx edx esi edi

    ; if length of haystack < length of needle

    cmp     ecx, edx

    jge     @f

    mov     bh, 0

    jmp     .done

  @@:

    mov     bh, 1 ; flag (0 = not found, 1 = found)

    sub     ecx, edx

    dec     edi

  .outer:

    cmp     ecx, 0

    jl      .done

    dec     ecx

    inc     edi

    mov     bh, 1 ; flag (0 = not found, 1 = found)

    mov     edx, [esp+8]

    mov     esi, [esp+4]

  .inner:

    test    edx, edx

    jz      .done

    dec     edx

    mov     eax, esi

    sub     eax, [esp+4]

    mov     al, byte[edi+eax]

    mov     bl, byte[esi]

    inc     esi

    cmp     al, bl

    je      .inner

    mov     bh, 0

    jmp     .outer

  .done:

    mov     al, bh

    pop     edi esi edx ecx ebx

    ret

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

hed             db 'FTP Client - KolibriOS',0

str_change      db 'Change',0

str_disconnect  db 'Disconnect',0

str_copy        db 'Copy',0

str_mkd         db 'MKD',0

str_dele        db 'DELE',0

str_rdir        db 'RDIR',0

str_rmd         db 'RMD',0

str_abort       db 'Cancel',0

str_search      db 'Search',0

str_list        db 'LIST',0

str_null        db 0

;----------------------

; tree list elements

;----------------------

tree1 tree_list 64, 500, tl_list_box_mode, 16, 16, \

    0xffffff, BT_COL, 0x000000, TLIST1_X, 105, TLIST_SZ-16, 185, 14, 4,\

    0, el_focus, wScr, fun_on_enter

tree2 tree_list 64, 500, tl_list_box_mode, 16, 16, \

    0xffffff, BT_COL, 0x000000, TLIST2_X, 105, TLIST_SZ-16, 185, 14, 4, \

    0, el_focus, wScr2, fun_on_enter2

; editbox for mkd

edit_mkd edit_box TLIST_SZ-45, TLIST2_X, 82, 0xffffff, 0x6a9480, 0, \

    0xAABBCC, 0, 99, new_dir_buf, mouse_dd, 0

; editbox for default volume

edit_volume edit_box TLIST_SZ-60, TLIST1_X, 105-20, 0xffffff, 0x6a9480, 0, \

    0xAABBCC, 0, 99, root_dir, mouse_dd, 0

; editbox for search

edit_search edit_box TLIST_SZ-60, TLIST2_X, 25, 0xffffff, 0x6a9480, 0, \

    0xAABBCC, 0, 99, filter,mouse_dd, 0

; A subsidiary structure for scrolling

align 4

wScr:

    .x:

    .size_x     dw 16 ;+0

    .start_x    dw 250+50-16 ;+2

    .y:

    .size_y     dw 185 ;+4

    .start_y    dw 105 ;+6

    .btn_high   dd 15 ;+8

    .type       dd 1  ;+12

    .max_area   dd 100  ;+16

    .cur_area   dd 30  ;+20

    .position   dd 0  ;+24

    .bckg_col   dd 0xeeeeee ;+28

    .frnt_col   dd 0xbbddff ;+32

    .line_col   dd 0  ;+36

    .redraw     dd 0  ;+40

    .delta      dw 0  ;+44

    .delta2     dw 0  ;+46

    .run_x:

    .r_size_x   dw 0  ;+48

    .r_start_x  dw 0  ;+50

    .run_y:

    .r_size_y   dw 0 ;+52

    .r_start_y  dw 0 ;+54

    .m_pos      dd 0 ;+56

    .m_pos_2    dd 0 ;+60

    .m_keys     dd 0 ;+64

    .run_size   dd 0 ;+68

    .position2  dd 0 ;+72

    .work_size  dd 0 ;+76

    .all_redraw dd 0 ;+80

    .ar_offset  dd 1 ;+84

align 4

wScr2:

    .x:

    .size_x     dw 16 ;+0

    .start_x    dw 675+50-16 ;+2

    .y:

    .size_y     dw 185 ;+4

    .start_y    dw 105 ;+6

    .btn_high   dd 15 ;+8

    .type       dd 1  ;+12

    .max_area   dd 100  ;+16

    .cur_area   dd 30  ;+20

    .position   dd 0  ;+24

    .bckg_col   dd 0xeeeeee ;+28

    .frnt_col   dd 0xbbddff ;+32

    .line_col   dd 0  ;+36

    .redraw     dd 0  ;+40

    .delta      dw 0  ;+44

    .delta2     dw 0  ;+46

    .run_x:

    .r_size_x   dw 0  ;+48

    .r_start_x  dw 0  ;+50

    .run_y:

    .r_size_y   dw 0 ;+52

    .r_start_y  dw 0 ;+54

    .m_pos      dd 0 ;+56

    .m_pos_2    dd 0 ;+60

    .m_keys     dd 0 ;+64

    .run_size   dd 0 ;+68

    .position2  dd 0 ;+72

    .work_size  dd 0 ;+76

    .all_redraw dd 0 ;+80

    .ar_offset  dd 1 ;+84

;----------------------

; end tree list element

;----------------------

;----------------------

; textedit elements

;----------------------

align 4

tedit0:

    .wnd BOX 50,355,325,240 ;+ 0 195,5+40,325,240

    .rec BOX 30,13,7,10   ;+16

    .drag_m db 0 ;+32

    .drag_k db 0 ;+33

    .sel rb 16 ;+34

    .seln rb 16 ;+50

    .tex      dd 0 ;+66 text memory pointer

    .tex_1    dd 0 ;+70 text first symbol pointer

    .tex_end  dd 0 ;+74 text end memory pointer

    .cur_x    dd 0 ;+78

    .cur_y    dd 0 ;+82

    .max_chars dd 4096 ;+86

    .count_colors_text dd 1 ;+90

    .count_key_words   dd 0 ;+94

    .color_cursor      dd SYS_COL  ;+98

    .color_wnd_capt    dd BT_COL   ;+102

    .color_wnd_work    dd 0xffffff ;+106

    .color_wnd_bord    dd 0x737373 ;+110

    .color_select      dd 0x0000ff ;+114

    .color_cur_text    dd 0xffff00 ;+118

    .color_wnd_text    dd 0x000000 ;+122

    .syntax_file       dd 0 ;+126

    .syntax_file_size  dd 500 ;+130

    .text_colors       dd 0 ;+134

    .help_text_f1      dd 0 ;+138

    .help_id       dd -1 ;+142

    .key_words_data    dd 0 ;+146

    .tim_ch      dd ? ;+150

    .tim_undo    dd ? ;+154

    .tim_ls      dd ? ;+158

    .tim_co      dd ? ;+162

    .el_focus    dd el_focus ;+166

    .err_save    db 0 ;+170

    .panel_id    db 0 ;+171

    .key_new     db 0 ;+172

    .symbol_new_line db 20 ;+173

    .scr_w       dd scrol_w1 ;+174

    .scr_h       dd scrol_h1 ;+178

    .arr_key_pos dd 0 ;+182

    .buffer      dd ed_buffer ;+186

    .buffer_find dd 0 ;+190

    .cur_ins     db 1 ;+194

    .mode_color  db 1 ;+195

    .mode_invis  db 0 ;+196

    .gp_opt      db 0 ;+197

    dd 0;.fun_on_key_ctrl_o dd but_ctrl_o ;+198

    .fun_on_key_ctrl_f dd 0 ;+202 ... Ctrl+F

    dd 0;.fun_on_key_ctrl_n dd but_ctrl_n ;+206 ... Ctrl+N

    .fun_on_key_ctrl_s dd 0 ;+210 ... Ctrl+S

    .buffer_size       dd 4096 ;+214

    .fun_find_err      dd 0 ;+218

    .fun_init_synt_err dd 0 ;+222

    .fun_draw_panel_buttons dd 0 ;+226

    .fun_draw_panel_find    dd 0 ;+230

    .fun_draw_panel_syntax  dd 0 ;+234

    .fun_save_err       dd 0 ;+238

    .increase_size dd 1000 ;+242

    .ptr_free_symb dd ? ;+246

    .font_size     dd 16 shl 24 ; +250

align 4

scrol_w1:

    .x:

    .size_x   dw 16 ;+0

    .start_x  dw 85 ;+2

    .y:

    .size_y   dw 100 ; +4

    .start_y  dw  15 ; +6

    .btn_high dd  15 ; +8

    .type     dd   1 ;+12

    .max_area dd 100 ;+16

    rb 4+4

    .bckg_col dd 0xeeeeee ;+28

    .frnt_col dd 0xbbddff ;+32

    .line_col dd 0x808080 ;+36

    .redraw   dd   0 ;+40

    .delta    dw   0 ;+44

    .delta2   dw   0 ;+46

    .run_x:

    rb 2*4+4*6

    .all_redraw dd 0 ;+80

    .ar_offset  dd 1 ;+84

;---------------------------------------------------------------------

align 4

scrol_h1:

    .x:

    .size_x     dw 85 ;+0

    .start_x    dw 30 ;+2

    .y:

    .size_y     dw 16 ;+4

    .start_y    dw 100 ;+6

    .btn_high   dd 15 ;+8

    .type       dd 1  ;+12

    .max_area   dd 100 ;+16

    rb 4+4

    .bckg_col   dd 0xeeeeee ;+28

    .frnt_col   dd 0xbbddff ;+32

    .line_col   dd 0x808080 ;+36

    .redraw     dd 0  ;+40

    .delta      dw 0  ;+44

    .delta2     dw 0  ;+46

    .run_x:

    rb 2*4+4*6

    .all_redraw dd 0 ;+80

    .ar_offset  dd 1 ;+84

;------------

;Progress bar

;------------

struc pb

{

    dd 0  ; PB_VALUE          equ +0

    dd (TLIST2_X+TLIST1_X+TLIST_SZ)/2-150 ; PB_LEFT equ +4. 150 = PB_WIDTH/2

    dd 315; PB_TOP            equ +8

    dd 300; PB_WIDTH          equ +12

    dd 15 ; PB_HEIGHT         equ +16

    dd ?  ; PB_STYLE          equ +20

    dd 0  ; PB_MIN            equ +24

    dd 100; PB_MAX            equ +28

    dd 0xffffff; PB_BACK_COLOR     equ +32

    dd 0x00ff40; PB_PROGRESS_COLOR equ +36

    dd 0x808080; PB_FRAME_COLOR    equ +40

}

pb pb

align 4

@IMPORT_BOXLIB:

library box_lib, 'box_lib.obj'

import  box_lib, \

        edit_box_draw,      'edit_box', \

        edit_box_key,       'edit_box_key', \

        edit_box_mouse,     'edit_box_mouse', \

        edit_box_set_text,  'edit_box_set_text', \

        version_ed,         'version_ed', \