Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 6581 → Rev 6582

/programs/network/ftpc/gui.inc
0,0 → 1,1191
@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, <TLIST2_X+TLIST_SZ-55,55>, <20,25>, 5, BT_COL
; string "Search"
mcall 4, <TLIST2_X+TLIST_SZ-55+5,20+5>, 0xb0000000+STR_COL, str_search
 
; draw "LIST" button
mcall 8, <TLIST2_X+TLIST_SZ-4*BT_SZ_X-15,BT_SZ_X>, <50,25>, 12, BT_COL
; string "LIST"
mcall 4, <TLIST2_X+TLIST_SZ-4*BT_SZ_X-15+5,50+5>, 0xb0000000+STR_COL, str_list
; draw "DELE" button
mcall 8, <TLIST2_X+TLIST_SZ-3*BT_SZ_X-10,BT_SZ_X>, <50,25>, 7, BT_COL
; string "DELE"
mcall 4, <TLIST2_X+TLIST_SZ-3*BT_SZ_X-10+5,50+5>, 0xb0000000+STR_COL, str_dele
; draw "RDIR" button
mcall 8, <TLIST2_X+TLIST_SZ-2*BT_SZ_X-5,BT_SZ_X>, <50,25>, 8, BT_COL
; string "RDIR"
mcall 4, <TLIST2_X+TLIST_SZ-2*BT_SZ_X-5+5,50+5>, 0xb0000000+STR_COL, str_rdir
; draw "RMD" button
mcall 8, <TLIST2_X+TLIST_SZ-BT_SZ_X,BT_SZ_X>, <50,25>, 9, BT_COL
; string "RMD"
mcall 4, <TLIST2_X+TLIST_SZ-BT_SZ_X+5,50+5>, 0xb0000000+STR_COL, str_rmd
 
; draw "mkd" button
mcall 8, <TLIST2_X+TLIST_SZ-BT_SZ_X,BT_SZ_X>, <80,20>, 6, BT_COL
; string "mkd"
mcall 4, <TLIST2_X+TLIST_SZ-BT_SZ_X+5,80+5>, 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, <TLIST1_X+TLIST_SZ-55,55>, <100-20,22>, 11, BT_COL
; string "Change"
mcall 4, <TLIST1_X+TLIST_SZ-55+5,100-20+5>, 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', \
scrollbar_ver_draw ,'scrollbar_v_draw', \
scrollbar_ver_mouse,'scrollbar_v_mouse', \
scrollbar_hor_draw, 'scrollbar_h_draw', \
scrollbar_hor_mouse,'scrollbar_h_mouse', \
version_scrollbar, 'version_scrollbar', \
tl_data_init, 'tl_data_init', \
tl_data_clear, 'tl_data_clear', \
tl_info_clear, 'tl_info_clear', \
tl_key, 'tl_key', \
tl_mouse, 'tl_mouse', \
tl_draw, 'tl_draw', \
tl_node_add, 'tl_node_add', \
tl_node_set_data, 'tl_node_set_data', \
tl_node_get_data, 'tl_node_get_data', \
tl_node_delete, 'tl_node_delete', \
tl_cur_beg, 'tl_cur_beg', \
tl_cur_next, 'tl_cur_next', \
tl_cur_perv, 'tl_cur_perv', \
tl_node_close_open, 'tl_node_close_open', \
ted_but_sumb_upper, 'ted_but_sumb_upper', \
ted_but_sumb_lover, 'ted_but_sumb_lover', \
ted_can_save, 'ted_can_save', \
ted_clear, 'ted_clear', \
ted_delete, 'ted_delete', \
ted_draw, 'ted_draw', \
ted_init, 'ted_init', \
ted_init_scroll_bars, 'ted_init_scroll_bars', \
ted_init_syntax_file, 'ted_init_syntax_file', \
ted_is_select, 'ted_is_select', \
ted_key, 'ted_key', \
ted_mouse, 'ted_mouse', \
ted_open_file, 'ted_open_file', \
ted_save_file, 'ted_save_file', \
ted_text_add, 'ted_text_add', \
ted_but_select_word,'ted_but_select_word', \
ted_but_cut, 'ted_but_cut', \
ted_but_copy, 'ted_but_copy', \
ted_but_paste, 'ted_but_paste', \
ted_but_undo, 'ted_but_undo', \
ted_but_redo, 'ted_but_redo', \
ted_but_reverse, 'ted_but_reverse', \
ted_but_find_next, 'ted_but_find_next', \
ted_text_colored, 'ted_text_colored', \
progressbar_draw, 'progressbar_draw'
 
 
auto_list db 1 ; to run LIST immediately after CWD
filter rb 512
root_dir db '/rd/1'
rb 507
new_dir_buf rb 512
folder_data rb 32+32*304
node_entry db '1111'
rb 512
node_entry2 db '1111'
rb 512
remote_list_buf rb 1024
conv_tabl rb 128
ed_buffer rb 100
tedit_buffer rb 1024
el_focus dd 0
;-----------------------
 
procinfo process_information
Property changes:
Added: svn:executable
+*
\ No newline at end of property