kolibrios-gitea/programs/network/ircc/gui.inc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                                 ;;
;; Copyright (C) KolibriOS team 2004-2020. All rights reserved.    ;;
;; Distributed under terms of the GNU General Public License       ;;
;;                                                                 ;;
;;   Written by hidnplayr@kolibrios.org                            ;;
;;                                                                 ;;
;;         GNU GENERAL PUBLIC LICENSE                              ;;
;;          Version 2, June 1991                                   ;;
;;                                                                 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


draw_window:    ; Completely redraw the window, recalculate all coordinates and sizes

        pusha

; get system colors
        mcall   48, 3, colors, 40
        call    set_edit_box_and_scrollbar_colors

        mcall   9, thread_info, -1                      ; get information about this thread
        mov     eax, [thread_info.box.width]            ; window xsize
        mov     ebx, [thread_info.box.height]           ; ysize
        mov     edx, [thread_info.client_box.width]     ; work area xsize
        mov     esi, [thread_info.client_box.height]    ; ysize
        sub     eax, edx
        sub     ebx, esi

        cmp     edx, WIN_MIN_X
        jae     .x_ok
        mov     edx, WIN_MIN_X
  .x_ok:
        mov     [xsize], edx
        add     edx, eax

        cmp     esi, WIN_MIN_Y
        jae     .y_ok
        mov     esi, WIN_MIN_Y
  .y_ok:
        mov     [ysize], esi
        add     esi, ebx
        mcall   67, -1, -1                              ; set the new sizes

        popa

  .dont_resize:

        pusha

        mcall   12, 1
        xor     eax, eax                                ; draw window
        mov     ebx, WIN_MIN_X+10
        mov     ecx, WIN_MIN_Y+30
        mov     edx, [colors.work]
        add     edx, 0x33000000
        mov     edi, str_programname
        mcall
                        
        test    [thread_info.wnd_state], 100b           ; skip if window is rolled up
        jne     .exit

        cmp     [window_active], 0
        je      .no_window

; calculate available space for textbox and coordinates for scrollbars
        mov     eax, [ysize]
        sub     eax, TOP_Y + INPUTBOX_HEIGHT - 1
        mov     [scroll2.y_size], ax
        mov     [scroll1.y_size], ax
        sub     eax, 4
        xor     edx, edx
        mov     ecx, FONT_HEIGHT
        div     ecx
        mov     [textbox_height], eax
        mov     [scroll2.cur_area], eax
        mov     [scroll1.cur_area], eax

        mov     eax, [xsize]
        sub     eax, SCROLLBAR_WIDTH
        mov     [scroll1.x_pos], ax
        mov     edi, [window_active]
        cmp     [edi + window.type], WINDOWTYPE_CHANNEL
        jne     @f
        sub     eax, USERLIST_WIDTH + SCROLLBAR_WIDTH + 2
  @@:
        mov     [scroll2.x_pos], ax
        sub     eax, 10
        xor     edx, edx
        mov     ecx, FONT_WIDTH
        div     ecx
        mov     [textbox_width], eax

; recalculate text line breaks (because height/width might have changed..)
; meanwhile, recalculate line number of current line
        mov     esi, [edi + window.text_print]
        mov     al, byte[esi]
        push    eax
        mov     byte[esi], 0
        push    esi

        mov     esi, [edi + window.text_start]
        call    text_insert_newlines
        mov     [edi + window.text_lines], edx
        mov     [edi + window.text_scanned], esi
        mov     [edi + window.text_line_print], edx

        pop     esi
        pop     eax
        mov     byte[esi], al

; and redraw the textbox (and scrollbar if needed)
        mov     [scroll2.all_redraw], 1
        call    draw_channel_text

; Draw userlist if active window is a channel
        mov     edi, [window_active]
        cmp     [edi + window.type], WINDOWTYPE_CHANNEL
        jne     .not_channel

        mov     [scroll1.all_redraw], 1
        call    draw_user_list

; draw a vertical separator line when there is no scrollbar
        cmp     [scroll2.all_redraw], 1
        jne     .not_channel

        mov     ebx, [xsize]
        sub     ebx, USERLIST_WIDTH + SCROLLBAR_WIDTH + 3
        push    bx
        shl     ebx, 16
        pop     bx
        mov     ecx, [ysize]
        add     ecx, TOP_Y shl 16 - (INPUTBOX_HEIGHT)
        mov     edx, [colors.work_graph]
        mcall   38
  .not_channel:
  .no_window:

; draw editbox
        mov     eax, [ysize]
        sub     eax, INPUTBOX_HEIGHT
        mov     [edit1.top], eax

        mov     eax, [xsize]
        mov     [edit1.width], eax

        invoke  edit_box_draw, edit1

; draw tabs
        call    draw_window_tabs
                
  .exit:
        mcall   12, 2
        popa
        ret



draw_user_list:

        pusha

        ; Do we need a scrollbar?
        mov     ebx, [window_active]
        mov     eax, [ebx + window.users]
        mov     [scroll1.max_area], eax
        cmp     [scroll1.cur_area], eax
        jae     .noscroll

        ; Is the current position greater then the max position?
        cmp     eax, [scroll1.position]
        ja      @f
        mov     [scroll1.position], eax
  @@:
        ; OK, draw the scrollbar
        invoke  scrollbar_draw, scroll1

        ; dont redraw scrollbar completely next time,
        ; unless draw_window asks us to by setting [scroll1.all_redraw] back to 1
        mov     [scroll1.all_redraw], 0
        jmp     .scroll_done

  .noscroll:
        mov     [scroll1.position], 0
  .scroll_done:

        ; draw an invisible button, where the usernames will go
        mov     ebx, [xsize]
        sub     ebx, USERLIST_WIDTH + SCROLLBAR_WIDTH
        shl     ebx, 16
        push    ebx
        mov     bx, USERLIST_WIDTH
        mov     ecx, [ysize]
        add     ecx, TEXT_Y shl 16 - (TEXT_Y + 16)
        push    ecx ebx
        mov     edx, WINDOW_BTN_LIST + 1 shl 29 + 1 shl 30
        mcall   8

        ; draw a filled rectangle to clear previously printed names
        pop     ebx ecx
        mov     edx, [colors.work]
        mcall   13

; now, draw the names according to the scrollbar position and window size
        mov     eax, [scroll1.position]
        xor     edx, edx
        mov     ecx, MAX_NICK_LEN
        mul     ecx
        mov     edx, eax
        mov     eax, [window_active]
        mov     ebp, [eax + window.selected]
        add     edx, [eax + window.data_ptr]
        sub     ebp, [scroll1.position]
        add     edx, window_data.names

        pop     ebx
        mov     bx, TEXT_Y
        mov     ecx, [colors.work_text]
        or      ecx, 0x90000000                 ; 8x16 font, zero terminated string
        mov     eax, 4                          ; draw text

        mov     edi, [textbox_height]           ; how many names will fit on screen
  .loop:
        cmp     byte[edx], 0                    ; end of list?
        je      .done

        dec     ebp                             ; is this name selected?
        jnz     .nothighlight
                                                ; yes, highlight it
        pusha
        mov     cx, bx
        mov     bx, USERLIST_WIDTH
        shl     ecx, 16
        mov     cx, FONT_HEIGHT
        mov     edx, 0x00000055                 ; blue!
        mcall   13
        popa

        mov     ecx, 0x9000ffff                 ; cyan!
        mcall

        mov     ecx, [colors.work_text]
        or      ecx, 0x90000000                 ; 8x16 font, zero terminated string
        jmp     .next

  .nothighlight:
        mcall

  .next:
        add     edx, MAX_NICK_LEN
        add     ebx, FONT_HEIGHT
        dec     edi
        jnz     .loop

  .done:
        popa

        ret


draw_window_tabs:

; Draw horizontal line

        mov     ebx, [xsize]
        mov     edx, [colors.work_graph]
        mov     ecx, TOP_Y SHL 16 + TOP_Y
        mcall   38

; Create the buttons

        mov     eax, 8
        mov     ebx, TAB_WIDTH
        mov     ecx, TOP_SPACE shl 16 + TAB_HEIGHT
        mov     edx, WINDOW_BTN_START
        mov     edi, windows
  .more_btn:
        mov     esi, [colors.work]
        cmp     [window_active], edi
        jne     @f
        ;not     esi
        ;and     esi, 0x00ffffff
        mov      esi,  [colors.work_light]  
      @@:
        mcall
        inc     edx
        add     ebx, (TAB_WIDTH + TAB_SPACE) shl 16
        add     edi, sizeof.window
        cmp     [edi + window.data_ptr], 0
        jne     .more_btn

; Draw the close window button
        mov     edi, [window_active]
        cmp     [edi + window.type], WINDOWTYPE_SERVER  ; dont let the user close server window
        je      @f

;        mov     eax, 8
        mov     ebx, [xsize]
        sub     ebx, SCROLLBAR_WIDTH
        shl     ebx, 16
        mov     bx, SCROLLBAR_WIDTH
        mov     ecx, TOP_SPACE shl 16 + TAB_HEIGHT - 1
        mov     edx, WINDOW_BTN_CLOSE
        mov     esi, 0x00aa0000         ; red !
        mcall

        pusha
        ; write closing cross
        mov     ebx, [xsize]
        sub     ebx, 9
        shl     ebx, 16
        add     ebx, TOP_SPACE+3
        mov     ecx, 0x80FFFfff
        mov     edx, closing_cross
        mcall   4
        popa
  @@:

; Draw the windownames onto the buttons

        mov     eax, 4
        mov     ebx, 5 shl 16 + TOP_SPACE + 4 ;;;;
        mov     esi, MAX_WINDOWS
        mov     edi, windows
  .more:
        mov     ecx, [colors.work_text]
        test    [edi + window.flags], FLAG_UPDATED
        jz      @f
        mov     ecx, 0x00aa0000         ; RED!
  @@:
        or      ecx, 0x80000000         ; ASCIIZ string
        lea     edx, [edi + window.name]
        mcall
        add     edi, sizeof.window      ; get ptr to next window
        cmp     [edi + window.data_ptr], 0
        je      .enough
        add     ebx, (TAB_WIDTH + TAB_SPACE) shl 16
        dec     esi
        jnz     .more
  .enough:

        ret



highlight_updated_tabs:
        mov     eax, 4
        mov     ebx, 5 shl 16 + TOP_SPACE + 4 ;;;;
        mov     ecx, 0x80aa0000
        mov     esi, MAX_WINDOWS
        mov     edi, windows
  .more_:
        test    [edi + window.flags], FLAG_UPDATED
        jz      .next
        lea     edx, [edi + window.name]
        mcall
  .next:
        add     edi, sizeof.window      ; get ptr to next window
        cmp     [edi + window.data_ptr], 0
        je      .enough_
        add     ebx, (TAB_WIDTH + TAB_SPACE) shl 16
        dec     esi
        jnz     .more_
  .enough_:

        ret
		
set_edit_box_and_scrollbar_colors:
        mov     eax, [colors.work]
        mov     [scroll1.bg_color], eax
        mov     [scroll2.bg_color], eax

        mov     eax, [colors.work_button]
        mov     [scroll1.front_color], eax
        mov     [scroll2.front_color], eax

        mov     eax, [colors.work_text]
        mov     [scroll1.line_color], eax
        mov     [scroll2.line_color], eax

        mov     [scroll1.type], 0               ; 0 = simple, 1 = skinned
        mov     [scroll2.type], 0

        ret