Subversion Repositories Kolibri OS

; ìàêðîñ äëÿ ñèñòåìíîé áèáëèîòåêè box_lib.obj

; ýëåìåíò TreeList äëÿ Kolibri OS

; ôàéë ïîñëåäíèé ðàç èçìåíÿëñÿ 23.12.2009 IgorA

; íà êîä ïðèìåíåíà GPL2 ëèöåíçèÿ

sizeof.TreeList equ 20

;struct TreeList

;  type dw ? ;+ 0 òèï ýëåìåíòà, èëè èíäåêñ èêîíêè äëÿ óçëà

;  lev db ?  ;+ 2 óðîâåíü ýëåìåíòà

;  clo db ?  ;+ 3 ôëàã çàêðûòèÿ, èëè îòêðûòèÿ (èìååò ñìûñë äëÿ ðîäèòåëüñêîãî óçëà)

;  perv dd ? ;+ 4 èíäåêñ ïðåäûäóùåãî ýëåìåíòà

;  next dd ? ;+ 8 èíäåêñ ïîñëåäóþùåãî ýëåìåíòà

;  tc dd ?   ;+12 âðåì. ñîçäàíèÿ

;  td dd ?   ;+16 âðåì. óäàëåíèÿ

;ends

tl_info_size  equ  word[edi +4] ;ðàçìåð äàííûõ âûäåëÿåìûõ äëÿ êàæäîãî óçëà (ïîëüçîâàòåëüñüêèå äàííûå + òåêñò äëÿ ïîäïèñè)

tl_style      equ dword[edi+10] ;ñòèëè ýëåìåíòà

tl_data_nodes equ dword[edi+14] ;óêàçàòåëü íà ñòðóêòóðû óçëîâ

tl_img_cx     equ  word[edi+22] ;øèðèíà èêîíîê

tl_img_cy     equ  word[edi+24] ;âûñîòà èêîíîê

tl_data_img_sys equ dword[edi+26] ;óêàçàòåëü íà ñèñòåìíûå èçîáðàæåíèÿ (ñòðåëêè, ïëþñèêè)

tl_ch_tim     equ dword[edi+30] ;êîëè÷åñòâî èçìåíåíèé â ôàéëå

tl_tim_undo   equ dword[edi+38] ;êîëè÷åñòâî îòìåíåííûõ äåéñòâèé

tl_cur_pos    equ dword[edi+42] ;ïîçèöèÿ êóðñîðà

tl_col_bkg    equ dword[edi+46] ;öâåò ôîíà

tl_col_zag    equ dword[edi+50] ;öâåò çàãîëîâêà

tl_col_txt    equ dword[edi+54] ;öâåò òåêñòà

tl_box_left   equ dword[edi+58]

tl_box_top    equ dword[edi+62]

tl_box_width  equ dword[edi+66]

tl_box_height equ dword[edi+70]

tl_capt_cy    equ  word[edi+74] ;âûñîòà ïîäïèñè

tl_info_capt_offs equ word[edi+76] ;ñäâèã äëÿ íà÷àëà òåêñòà (ïîäïèñè óçëà)

tl_info_capt_len equ word[edi+78] ;äëèííà òåêñòà ïîäïèñè óçëà (åñëè = 0 òî äî êîíöà ñòðóêòóðû)

tl_el_focus   equ dword[edi+80] ;óêàçàòåëü íà ñòðóêòóðó ýëåìåíòà â ôîêóñå

tl_p_scrol    equ dword[edi+84] ;óêàçàòåëü íà ñòðóêòóðó ñêðîëëèíãà

tl_on_press   equ dword[edi+96] ;óêàçàòåëü íà ôóíêöèþ, êîòîðàÿ âûçûâàåòñÿ ïðè íàæàòèè Enter

;êîíñòàíòû ñòèëÿ

tl_key_no_edit   equ   1b ;ýëåìåíò íåëüçÿ ðåäàêòèðîâàòü íà êëàâèàòóðå (èçìåíÿòü óðîâíè, óäàëÿòü)

tl_draw_par_line equ  10b ;ðèñîâàòü ëèíèè ê ðîäèòåëüñêîìó óçëó

tl_list_box_mode equ 100b ;ñòèëü íå îòîáðàæàåò óðîâíè (êàê â ListBox âñå îäíîãî óðîâíÿ)

;êîíñòàíòû äëÿ ôóíêöèé

tl_err_save_memory_size equ  10b ;íå õâàòàåò ïàìÿòè äëÿ ñîõðàíåíèÿ ýëåìåíòà

tl_err_load_caption     equ   1b ;â ïàìÿòè íåò çàãîëîâêà 'tree'

tl_err_load_info_size   equ 100b ;íå ñîâïàäàåò ðàçìåð èíôîðìàöèîííîé ñòðóêòóðû ïðè îòêðûòèè

tl_load_mode_add        equ 0x20000 ;îïöèÿ ñ÷èòûâàíèÿ â ðåæèìå äîáàâëåíèÿ èíôîðìàöèè

tl_save_load_heder_size equ 26 ;ðàçìåð çàãîëîâêà äëÿ çàïèñè/÷òåíèÿ ýëåìåíòîâ

;data_info	 dd ? ;+ 0 óêàçàòåëü íà îñíîâíûå äàíûå

;info_max_count dd ? ;+ 6 ìàêñèìàëüíîå êîëëè÷åñòâî ñòðóêòóð

;data_img	 dd ? ;+18 óêàçàòåëü íà èçîáðàæåíèÿ

;ls_tim		dd ? ;+34 âðåìÿ ïîñëåäíåãî ñîõðàíåíèÿ

;on_activate dd ? ;+92 óêàçàòåëü íà ôóíêöèþ ïðè àêòèâèðîâàíèè óçëà

struc tree_list info_size,info_max_count,style, img_cx,img_cy,\

    col_bkg,col_zag,col_txt, box_l,box_t,box_w,box_h, capt_cy,info_capt_offs,\

    info_capt_len,el_focus, p_scrol,on_press {

  .data_info	dd 0

  .info_size	dw info_size

  .info_max_count dd info_max_count

  .style	    dd style

  .data_nodes	dd 0

  .data_img	 dd 0

  .img_cx	   dw img_cx

  .img_cy	   dw img_cy

  .data_img_sys	 dd 0

  .ch_tim		  dd 0

  .ls_tim		  dd 0

  .tim_undo	 dd 0

  .cur_pos	  dd 0

  .col_bkg	  dd col_bkg

  .col_zag	  dd col_zag

  .col_txt	  dd col_txt

  .box_left   dd box_l

  .box_top    dd box_t

  .box_width  dd box_w

  .box_height dd box_h

  .capt_cy	   dw capt_cy

  .info_capt_offs dw info_capt_offs

  .info_capt_len dw info_capt_len

  .el_focus dd el_focus

  .p_scrol  dd p_scrol

  rb 4

  .on_activate dd 0

  .on_press dd on_press

}

macro use_tree_list

{

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

;ôóíêöèÿ äëÿ âûäåëåíèÿ ïàìÿòè

;input:

; ecx = size data

;otput:

; eax = pointer to memory

align 4

mem_Alloc:

  push ebx

  mov eax,68

  mov ebx,12

  int 0x40

  pop ebx

  ret

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

;ôóíêöèÿ äëÿ îñâîáîæäåíèÿ ïàìÿòè

;input:

; ecx = pointer to memory

align 4

mem_Free:

  push eax ebx

  cmp ecx,0

  jz @f

    mov eax,68

    mov ebx,13

    int 0x40

  @@:

  pop ebx eax

  ret

align 4

tl_data_init: ;âûäåëíèå ïàìÿòè äëÿ ñòðóêòóð ñïèñêà è îñíîâíîé èíôîðìàöèè (êîíñòðóêòîð)

  push ebp

  mov ebp,esp

  push eax ecx edi

    mov edi,dword[ebp+8]

    xor ecx,ecx

    mov cx,tl_info_size

    imul ecx,dword[edi+6]

    call mem_Alloc

    mov dword[edi],eax ;êîïèðóåì óêàçàòåëü íà ïîëó÷åíóþ ïàìÿòü â ñòðóêòóðó

    mov dword[edi+18],0 ;îáíóëÿåì óêàçàòåëü 'data_img'

    mov tl_data_img_sys,0 ;îáíóëÿåì óêàçàòåëü 'data_img_sys'

    mov ecx,sizeof.TreeList

    imul ecx,dword[edi+6]

    call mem_Alloc

    mov tl_data_nodes,eax ;êîïèðóåì óêàçàòåëü íà ïîëó÷åíóþ ïàìÿòü â ñòðóêòóðó

    push dword edi

    call tl_info_clear

    ;íàñòðîéêè äî÷åðíåãî ñêðîëëèíãà

    cmp tl_p_scrol,0

    je @f

      mov eax,tl_p_scrol

      ;*** öâåòîâûå íàñòðîéêè ***

      mov ecx,tl_col_bkg

      mov dword[eax+28],ecx ;+28 .bckg_col

      mov ecx,tl_col_zag

      mov dword[eax+32],ecx ;+32 .frnt_col

      mov ecx,tl_col_txt

      mov dword[eax+36],ecx ;+32 .line_col

      ;*** íàñòðîéêè ðàçìåðîâ ***

      mov ecx,tl_box_left

      add ecx,tl_box_width

      mov word[eax+2],cx

      mov ecx,tl_box_height

      mov word[eax+4],cx

      mov ecx,tl_box_top

      mov word[eax+6],cx

    @@:

  pop edi ecx eax

  pop ebp

  ret 4

align 4

tl_data_clear: ;î÷èñòêà ïàìÿòè ýëåìåíòà (äåñòðóêòîð)

  push ebp

  mov ebp,esp

    push ecx edi

    mov edi,dword[ebp+8]

    cmp dword[edi+18],0 ;data_img

    je @f

      mov ecx,dword[edi+18]

      call mem_Free ;÷èñòêà ñèñòåìíûõ èêîíîê

    @@:

    cmp tl_data_img_sys,0

    je @f

      mov ecx,tl_data_img_sys

      call mem_Free ;÷èñòêà ñèñòåìíûõ èêîíîê

    @@:

    mov ecx,dword[edi]

    call mem_Free

    mov ecx,tl_data_nodes

    call mem_Free

    pop edi ecx

  pop ebp

  ret 4

align 4

tl_info_clear: ;î÷èñòêà ñïèñêà (èíôîðìàöèè)

  push ebp

  mov ebp,esp

    push eax ecx edi

    mov edi,dword[ebp+8]

    mov tl_ch_tim,0

    mov dword[edi+34],0 ;ls_tim

    mov tl_tim_undo,0

    mov tl_cur_pos,0

    ;xor ecx,ecx

    mov ecx,sizeof.TreeList

    imul ecx,dword[edi+6]

    mov eax,tl_data_nodes

    @@:

      mov byte[eax],0 ;÷èñòèì óçëû 0-ìè

      inc eax

      loop @b

    mov eax,tl_data_nodes ;óêàçàòåëü íà 0-é óçåë

    mov dword[eax+8],1 ;óêàçàòåëü next â 0-ì óçëå ïðèðàâíèâàåì ê 1

    cmp tl_p_scrol,0 ;îáðàáîòêà ñêðîëëèíãà

    je @f

      mov eax,tl_p_scrol

      mov dword[eax+24],0 ;+24 .position

      call tb_scrol_resize

    @@:

    pop edi ecx eax

  pop ebp

  ret 4

align 4

tl_key: ;ðåàêöèÿ íà êëàâèàòóðó

  push ebp

  mov ebp,esp

    push