forked from KolibriOS/kolibrios
317 lines
8.1 KiB
PHP
317 lines
8.1 KiB
PHP
draw_window:
|
|
|
|
pusha
|
|
|
|
mcall 9, thread_info, -1 ; get current window size
|
|
mov eax, dword[thread_info+42] ; window xsize
|
|
mov ebx, dword[thread_info+46] ; ysize
|
|
mov edx, dword[thread_info+62] ; work area xsize
|
|
mov esi, dword[thread_info+66] ; 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
|
|
|
|
mcall 12, 1
|
|
xor eax, eax ; draw window
|
|
mov ebx, WIN_MIN_X
|
|
mov ecx, WIN_MIN_Y
|
|
mov edx, [colors.work]
|
|
add edx, 0x33000000
|
|
mov edi, str_programname
|
|
mcall
|
|
mcall 12, 2 ;; when do we actually need this??
|
|
|
|
mov ebx, [xsize]
|
|
mov ecx, [ysize]
|
|
sub cx, 15 ;;;;
|
|
push cx
|
|
shl ecx, 16
|
|
pop cx
|
|
mov edx, [colors.work_graph]
|
|
mcall 38 ; draw line
|
|
|
|
mov ecx, TOP_Y SHL 16 + TOP_Y
|
|
mcall
|
|
|
|
mov edi, [window_open]
|
|
cmp [edi + window.type], WINDOWTYPE_CHANNEL
|
|
jne .not_channel
|
|
|
|
; draw a vertical separator line
|
|
mov ebx, [xsize]
|
|
sub ebx, USERLIST_X + SCROLLBAR_WIDTH + 3
|
|
push bx
|
|
shl ebx, 16
|
|
pop bx
|
|
mov ecx, [ysize]
|
|
add ecx, TOP_Y SHL 16 -(15) ;;;;
|
|
mcall
|
|
|
|
call redraw_channel_list
|
|
|
|
.not_channel:
|
|
mov edx, [edi + window.data_ptr]
|
|
add edx, window_data.text
|
|
call draw_channel_text
|
|
|
|
; editbox
|
|
|
|
mov eax, [ysize]
|
|
sub eax, 12 ;;;;;;
|
|
mov [edit1.top], eax
|
|
|
|
mov eax, [xsize]
|
|
mov [edit1.width], eax
|
|
|
|
push dword edit1
|
|
call [edit_box_draw]
|
|
|
|
; tabs
|
|
|
|
call draw_windownames
|
|
|
|
popa
|
|
ret
|
|
|
|
|
|
|
|
redraw_channel_list:
|
|
|
|
; First, calculate scrollbar
|
|
|
|
mov ebx, [window_open]
|
|
mov eax, [ebx + window.users] ; number of users in the open window
|
|
mov [scroll1.max_area], eax
|
|
|
|
mov eax, [ysize]
|
|
sub eax, TOP_Y + 15 ;;;;
|
|
push eax
|
|
mov [scroll1.y_size], ax
|
|
|
|
mov eax, [xsize]
|
|
sub eax, SCROLLBAR_WIDTH
|
|
mov [scroll1.x_pos], ax
|
|
|
|
pop eax ; scrollbar height
|
|
xor edx, edx
|
|
mov ecx, 10
|
|
div ecx
|
|
mov [scroll1.cur_area], eax
|
|
|
|
; Do we need a scrollbar?
|
|
cmp eax, [scroll1.max_area]
|
|
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
|
|
mov [scroll1.all_redraw], 1
|
|
|
|
push dword scroll1
|
|
call [scrollbar_v_draw]
|
|
|
|
jmp print_channel_list
|
|
|
|
.noscroll:
|
|
mov [scroll1.position], 0
|
|
|
|
|
|
|
|
print_channel_list:
|
|
|
|
pusha
|
|
; Now, draw the usernames themselves
|
|
|
|
; first, draw an invisible button
|
|
mov ebx, [xsize]
|
|
sub ebx, USERLIST_X + SCROLLBAR_WIDTH
|
|
shl ebx, 16
|
|
push ebx
|
|
mov bx, USERLIST_X
|
|
mov ecx, [ysize]
|
|
add ecx, TEXT_Y shl 16 - (TEXT_Y + 15) ;;;;; + 10???
|
|
push ecx ebx
|
|
mov edx, 50 + 1 shl 29 + 1 shl 30
|
|
mcall 8
|
|
|
|
; now draw rectangle to clear the names
|
|
pop ebx ecx
|
|
mov edx, [colors.work]
|
|
mcall 13
|
|
|
|
; now draw the names according with 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_open]
|
|
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, 0x80000000 ; ASCIIZ string
|
|
mov eax, 4 ; draw text
|
|
|
|
mov edi, [ysize] ; Calculate how many names will fit on screen
|
|
sub edi, TEXT_Y + 15 ;+ 10 ;;;;;
|
|
.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_X
|
|
shl ecx, 16
|
|
mov cx, 10 - 1
|
|
mov edx, 0x00000055 ; blue!
|
|
mcall 13
|
|
popa
|
|
|
|
mov ecx, 0x8000ffff ; cyan!
|
|
mcall
|
|
|
|
mov ecx, [colors.work_text]
|
|
or ecx, 0x80000000 ; ASCIIZ string
|
|
jmp .next
|
|
|
|
.nothighlight:
|
|
mcall
|
|
|
|
.next:
|
|
add edx, MAX_NICK_LEN ; next name
|
|
add ebx, 10 ; height distance between lines
|
|
sub edi, 10
|
|
ja .loop
|
|
|
|
.done:
|
|
popa
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
draw_channel_text:
|
|
|
|
pusha
|
|
|
|
mov eax, 4 ; draw text
|
|
mov ebx, TEXT_X shl 16 + TEXT_Y
|
|
mov ecx, 12 ; 12 lines max ?
|
|
mov esi, [textbox_width]
|
|
|
|
.dct:
|
|
pusha
|
|
mov cx, bx
|
|
shl ecx, 16
|
|
mov cx, 9 ; character height
|
|
mov eax, 13 ; draw rectangle
|
|
mov ebx, TEXT_X shl 16
|
|
mov bx, word[textbox_width]
|
|
imul bx, 6 ; character width
|
|
mov edx, [colors.work]
|
|
mcall
|
|
popa
|
|
|
|
push ecx
|
|
mov ecx, [colors.work_text]
|
|
cmp word[edx], '* '
|
|
jne .no_red
|
|
mov ecx, 0x00aa0000
|
|
jmp .draw
|
|
.no_red:
|
|
|
|
cmp word[edx], '**'
|
|
jne .no_light_blue
|
|
cmp byte[edx+2], '*'
|
|
jne .no_light_blue
|
|
mov ecx, 0x000000aa
|
|
jmp .draw
|
|
.no_light_blue:
|
|
|
|
cmp byte[edx], '#'
|
|
jne .no_blue
|
|
mov ecx, 0x0000aa00
|
|
; jmp .draw
|
|
.no_blue:
|
|
|
|
.draw:
|
|
mcall
|
|
add edx, [textbox_width]
|
|
add ebx, 10 ; height distance between lines
|
|
|
|
pop ecx
|
|
loop .dct
|
|
|
|
popa
|
|
ret
|
|
|
|
|
|
|
|
draw_windownames:
|
|
|
|
mov eax, 8
|
|
mov ebx, 5 shl 16 + 120
|
|
mov ecx, 12 shl 16 + 12
|
|
mov edx, WINDOW_BTN_START
|
|
mov edi, windows
|
|
.more_btn:
|
|
mov esi, [colors.work_button]
|
|
cmp [window_open], edi
|
|
jne @f
|
|
not esi
|
|
and esi, 0x00ffffff
|
|
@@:
|
|
mcall
|
|
inc edx
|
|
add ebx, 125 shl 16
|
|
add edi, sizeof.window
|
|
cmp [edi + window.data_ptr], 0
|
|
jne .more_btn
|
|
|
|
mov eax, 4
|
|
mov ebx, 10 shl 16 + 15
|
|
mov ecx, [colors.work_button_text]
|
|
or ecx, 0x80000000 ; ASCIIZ string
|
|
lea edx, [windows + window.name]
|
|
mov esi, MAX_WINDOWS
|
|
.more:
|
|
mcall
|
|
add edx, sizeof.window
|
|
cmp byte[edx], 0
|
|
je .enough
|
|
add ebx, 125 shl 16
|
|
dec esi
|
|
jnz .more
|
|
.enough:
|
|
|
|
ret
|
|
|
|
|