| 0,0 → 1,1326 |
|---|
| ;************************************************************** |
| ; ScrollBar Macro for Kolibri OS |
| ; Copyright (c) 2009, Mario79 |
| ; All rights reserved. |
| ; |
| ; Redistribution and use in source and binary forms, with or without |
| ; modification, are permitted provided that the following conditions are met: |
| ; * Redistributions of source code must retain the above copyright |
| ; notice, this list of conditions and the following disclaimer. |
| ; * Redistributions in binary form must reproduce the above copyright |
| ; notice, this list of conditions and the following disclaimer in the |
| ; documentation and/or other materials provided with the distribution. |
| ; * Neither the name of the <organization> nor the |
| ; names of its contributors may be used to endorse or promote products |
| ; derived from this software without specific prior written permission. |
| ; |
| ; THIS SOFTWARE IS PROVIDED BY Mario79 ''AS IS'' AND ANY |
| ; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED |
| ; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE |
| ; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY |
| ; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES |
| ; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; |
| ; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND |
| ; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| ; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS |
| ; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| ;***************************************************************************** |
| macro scroll_bar_exit |
| { |
| popa |
| ret 4 |
| } |
| ;***************************************************************************** |
| macro draw_up_arrow_vertical |
| { |
| push ebx |
| |
| xor eax,eax |
| mov ax,sb_size_x |
| shr eax,1 |
| shl eax,16 |
| add ebx,eax |
| |
| xor eax,eax |
| mov ax,sb_btn_high |
| shr eax,1 |
| shl eax,16 |
| add ecx,eax |
| |
| mov edx,sb_line_col |
| sub ebx,4 shl 16 |
| mov bx,7 |
| mov cx,1 |
| mov eax,13 |
| int 0x40 |
| sub ecx,1 shl 16 |
| add ebx,1 shl 16 |
| mov bx,5 |
| int 0x40 |
| sub ecx,1 shl 16 |
| add ebx,1 shl 16 |
| mov bx,3 |
| int 0x40 |
| sub ecx,1 shl 16 |
| add ebx,1 shl 16 |
| mov bx,1 |
| int 0x40 |
| pop ebx |
| } |
| ;***************************************************************************** |
| macro draw_down_arrow_vertical |
| { |
| push ebx |
| |
| xor eax,eax |
| mov ax,sb_size_x |
| shr eax,1 |
| shl eax,16 |
| add ebx,eax |
| |
| xor eax,eax |
| mov ax,sb_btn_high |
| shr eax,1 |
| shl eax,16 |
| add ecx,eax |
| |
| mov edx,sb_line_col |
| sub ebx,4 shl 16 |
| mov bx,7 |
| sub ecx,2 shl 16 |
| mov cx,1 |
| mov eax,13 |
| int 0x40 |
| add ecx,1 shl 16 |
| add ebx,1 shl 16 |
| mov bx,5 |
| int 0x40 |
| add ecx,1 shl 16 |
| add ebx,1 shl 16 |
| mov bx,3 |
| int 0x40 |
| add ecx,1 shl 16 |
| add ebx,1 shl 16 |
| mov bx,1 |
| int 0x40 |
| pop ebx |
| } |
| ;***************************************************************************** |
| macro draw_runner_center_vertical |
| { |
| push ebx |
| push ecx |
| |
| xor eax,eax |
| mov ax,sb_size_x |
| shr eax,1 |
| shl eax,16 |
| add ebx,eax |
| |
| mov edx,sb_run_size |
| shr edx,1 |
| shl edx,16 |
| add ecx,edx |
| mov edx,sb_line_col |
| sub ecx,8 shl 16 |
| sub ebx,5 shl 16 |
| mov bx,10 |
| add ecx,4 shl 16 |
| mov cx,1 |
| mov eax,13 |
| int 0x40 |
| add ecx,3 shl 16 |
| sub ebx,1 shl 16 |
| mov bx,12 |
| int 0x40 |
| add ebx,1 shl 16 |
| mov bx,10 |
| add ecx,3 shl 16 |
| int 0x40 |
| pop ecx |
| pop ebx |
| } |
| ;***************************************************************************** |
| macro draw_up_arrow_horizontal |
| { |
| push ecx |
| |
| xor eax,eax |
| mov ax,sb_btn_high |
| shr eax,1 |
| shl eax,16 |
| add ebx,eax |
| |
| xor eax,eax |
| mov ax,sb_size_y |
| shr eax,1 |
| shl eax,16 |
| add ecx,eax |
| |
| mov edx,sb_line_col |
| sub ecx,4 shl 16 |
| mov cx,7 |
| mov bx,1 |
| |
| mov eax,13 |
| int 0x40 |
| sub ebx,1 shl 16 |
| add ecx,1 shl 16 |
| mov cx,5 |
| int 0x40 |
| sub ebx,1 shl 16 |
| add ecx,1 shl 16 |
| mov cx,3 |
| int 0x40 |
| sub ebx,1 shl 16 |
| add ecx,1 shl 16 |
| mov cx,1 |
| int 0x40 |
| pop ecx |
| } |
| ;***************************************************************************** |
| macro draw_down_arrow_horizontal |
| { |
| push ecx |
| |
| xor eax,eax |
| mov ax,sb_btn_high |
| shr eax,1 |
| shl eax,16 |
| add ebx,eax |
| |
| xor eax,eax |
| mov ax,sb_size_y |
| shr eax,1 |
| shl eax,16 |
| add ecx,eax |
| |
| mov edx,sb_line_col |
| sub ecx,4 shl 16 |
| mov cx,7 |
| sub ebx,2 shl 16 |
| mov bx,1 |
| mov eax,13 |
| int 0x40 |
| add ebx,1 shl 16 |
| add ecx,1 shl 16 |
| mov cx,5 |
| int 0x40 |
| add ebx,1 shl 16 |
| add ecx,1 shl 16 |
| mov cx,3 |
| int 0x40 |
| add ecx,1 shl 16 |
| add ebx,1 shl 16 |
| mov cx,1 |
| int 0x40 |
| pop ecx |
| } |
| ;***************************************************************************** |
| macro draw_runner_center_horizontal |
| { |
| push ebx |
| push ecx |
| |
| xor eax,eax |
| mov ax,sb_size_y |
| shr eax,1 |
| shl eax,16 |
| add ecx,eax |
| |
| mov edx,sb_run_size |
| shr edx,1 |
| shl edx,16 |
| add ebx,edx |
| mov edx,sb_line_col |
| sub ebx,8 shl 16 |
| sub ecx,5 shl 16 |
| mov cx,10 |
| add ebx,4 shl 16 |
| mov bx,1 |
| mov eax,13 |
| int 0x40 |
| add ebx,3 shl 16 |
| sub ecx,1 shl 16 |
| mov cx,12 |
| int 0x40 |
| add ecx,1 shl 16 |
| mov cx,10 |
| add ebx,3 shl 16 |
| int 0x40 |
| pop ecx |
| pop ebx |
| } |
| ;***************************************************************************** |
| macro use_scroll_bar |
| { |
| scroll_bar: |
| sb_size_x equ [edi] |
| sb_start_x equ [edi+2] |
| sb_size_y equ [edi+4] |
| sb_start_y equ [edi+6] |
| sb_btn_high equ [edi+8] |
| sb_type equ [edi+12] |
| sb_max_area equ [edi+16] |
| sb_cur_area equ [edi+20] |
| sb_position equ [edi+24] |
| sb_bckg_col equ [edi+28] |
| sb_frnt_col equ [edi+32] |
| sb_line_col equ [edi+36] |
| sb_redraw equ [edi+40] |
| sb_delta equ [edi+44] |
| sb_delta2 equ [edi+46] |
| sb_r_size_x equ [edi+48] |
| sb_r_start_x equ [edi+50] |
| sb_r_size_y equ [edi+52] |
| sb_r_start_y equ [edi+54] |
| sb_m_pos equ [edi+56] |
| sb_m_pos_2 equ [edi+60] |
| sb_m_keys equ [edi+64] |
| sb_run_size equ [edi+68] |
| sb_position2 equ [edi+72] |
| sb_work_size equ [edi+76] |
| sb_all_redraw equ [edi+80] |
| } |
| ;***************************************************************************** |
| ;***************************************************************************** |
| ; draw event |
| ;***************************************************************************** |
| ;***************************************************************************** |
| macro use_scroll_bar_vertical |
| { |
| scroll_bar_vertical: |
| .draw: |
| pusha |
| mov edi,dword [esp+36] |
| mov sb_all_redraw,dword 1 |
| call .draw_1 |
| mov sb_all_redraw,dword 0 |
| scroll_bar_exit |
| .draw_1: |
| pusha |
| ;********************************* |
| xor eax,eax |
| mov ax,sb_size_y |
| mov edx,sb_btn_high |
| shl edx,1 |
| sub eax,edx |
| mov sb_work_size,eax |
| ;********************************* |
| mov eax,sb_work_size ;sb_max_area |
| mov ebx,sb_max_area |
| cmp ebx,sb_cur_area |
| ja @f |
| |
| jmp .no_size |
| |
| @@: |
| imul eax,sb_cur_area |
| xor edx,edx |
| div ebx |
| cmp eax,10 |
| jae @f |
| mov eax,10 |
| @@: |
| .no_size: |
| mov sb_run_size,eax |
| ;********************************* |
| cmp sb_delta,word 1 |
| je .@@_3 |
| mov eax,sb_work_size |
| sub eax,sb_run_size |
| mov ebx,sb_max_area |
| cmp ebx,sb_cur_area |
| ja @f |
| xor eax,eax |
| jmp .@@_1 |
| @@: |
| sub ebx,sb_cur_area |
| imul eax,sb_position |
| xor edx,edx |
| div ebx |
| .@@_1: |
| mov sb_position2,eax |
| xor edx,edx |
| mov dx,sb_size_y |
| sub edx,sb_btn_high |
| sub edx,sb_btn_high |
| sub edx,sb_run_size |
| cmp sb_position2,edx |
| jbe .@@_3 |
| mov sb_position2,edx |
| .@@_3: |
| ;********************************* |
| mov ebx,sb_start_x |
| shl ebx,16 |
| inc ebx |
| mov ecx,sb_size_y |
| mov edx,sb_line_col |
| mov eax,13 |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; left extreme line |
| @@: |
| push ebx |
| ror ebx,16 |
| add bx,sb_size_x |
| rol ebx,16 |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; right extreme line |
| @@: |
| pop ebx |
| |
| push ecx |
| |
| add ebx,1 shl 16 |
| mov bx,sb_size_x |
| dec ebx |
| mov cx,1 |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; top button - extreme line |
| @@: |
| push ecx |
| add ecx,1 shl 16 |
| add ecx,sb_btn_high |
| sub ecx,2 |
| mov edx,sb_frnt_col |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; top button filling |
| ;********************************* |
| draw_up_arrow_vertical |
| ;********************************* |
| @@: |
| pop ecx |
| |
| ror ecx,16 |
| add ecx,sb_btn_high ;14 shl 16 |
| rol ecx,16 |
| mov edx,sb_line_col |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; top button - bottom line |
| @@: |
| pop ecx |
| ;********************************* |
| ror ecx,16 |
| add ecx,sb_btn_high ;15 shl 16 |
| inc ecx |
| rol ecx,16 |
| sub ecx,sb_btn_high ;30 |
| sub ecx,sb_btn_high |
| push ecx |
| mov cx,0 |
| add ecx,sb_position2 |
| dec cx |
| mov eax,13 |
| test cx,0x8000 |
| jnz @f |
| mov edx,sb_bckg_col |
| int 0x40 ; top interval |
| @@: |
| ;********************************* |
| shr ecx,16 |
| add ecx,sb_position2 |
| dec ecx |
| shl ecx,16 |
| inc ecx |
| mov edx,sb_line_col |
| int 0x40 ; runner - top extreme line |
| |
| add ecx,1 shl 16 |
| mov cx,0 |
| add ecx,sb_run_size |
| mov sb_r_size_x,ebx |
| mov sb_r_size_y,ecx |
| sub ecx,2 |
| mov edx,sb_frnt_col |
| int 0x40 ; runner filling |
| ;********************************* |
| draw_runner_center_vertical |
| ;********************************* |
| shr ecx,16 |
| add ecx,sb_run_size |
| sub ecx,2 |
| shl ecx,16 |
| inc ecx |
| mov edx,sb_line_col |
| int 0x40 ; runner - bottom extreme line |
| |
| add ecx,1 shl 16 |
| mov cx,sb_start_y |
| add cx,sb_size_y |
| sub ecx,sb_btn_high |
| dec ecx |
| mov eax,ecx |
| shr eax,16 |
| sub cx,ax |
| test cx,0x8000 |
| jnz @f |
| mov edx,sb_bckg_col |
| mov eax,13 |
| int 0x40 ; bottom interval |
| @@: |
| pop ecx |
| ;********************************* |
| mov ax,cx |
| shr ecx,16 |
| add cx,ax |
| sub ecx,2 |
| shl ecx,16 |
| inc ecx |
| mov edx,sb_line_col |
| mov eax,13 |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; bottom button - top line |
| @@: |
| push ecx |
| add ecx,1 shl 16 |
| add cx,sb_btn_high |
| sub ecx,2 |
| mov edx,sb_frnt_col |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; bottom button filling |
| ;********************************* |
| draw_down_arrow_vertical |
| ;********************************* |
| @@: |
| pop ecx |
| |
| ror ecx,16 |
| add ecx,sb_btn_high ;14 shl 16 |
| rol ecx,16 |
| |
| mov edx,sb_line_col |
| mov cx,1 |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; bottom button - extreme line |
| @@: |
| popa |
| ret |
| ;***************************************************************************** |
| ;***************************************************************************** |
| ; mouse event |
| ;***************************************************************************** |
| ;***************************************************************************** |
| .mouse: |
| pusha |
| mov edi,dword [esp+36] |
| mcall 37,1 |
| mov sb_m_pos,eax |
| cmp sb_m_pos_2,dword 0 |
| jne @f |
| |
| mov sb_m_pos_2,eax |
| @@: |
| mcall 37,2 |
| mov sb_m_keys,eax |
| |
| cmp sb_m_keys,eax |
| je @f |
| |
| mov sb_m_keys,eax |
| |
| mov sb_delta,dword 0 |
| |
| mov eax,sb_m_pos |
| mov sb_m_pos_2,eax |
| jmp .continue_2 |
| |
| @@: |
| cmp sb_m_keys,dword 0 |
| jne @f ;.continue_2 |
| mov eax,sb_m_pos |
| mov sb_m_pos_2,eax |
| jmp .correct_1 ;.exit_sb |
| @@: |
| mov sb_delta,word 1 |
| |
| .continue_2: |
| mov eax,sb_m_pos |
| test eax,0x80000000 |
| jnz .exit_sb |
| |
| test eax,0x8000 |
| jnz .exit_sb |
| |
| mov ebx,eax |
| shr ebx,16 ; x position |
| shl eax,16 |
| shr eax,16 ; y position |
| |
| mov cx,sb_start_y |
| cmp ax,cx |
| jb .exit_sb |
| |
| cmp sb_delta2,word 0 |
| je @f |
| push ecx |
| add cx,sb_btn_high |
| cmp ax,cx |
| pop ecx |
| jb .exit_sb |
| |
| @@: |
| add cx,sb_size_y |
| cmp ax,cx |
| ja .exit_sb |
| |
| cmp sb_delta2,word 0 |
| je @f |
| sub cx,sb_btn_high |
| cmp ax,cx |
| ja .exit_sb |
| |
| @@: |
| cmp sb_delta2,word 1 |
| je @f |
| |
| cmp sb_m_keys,dword 0 |
| je .exit_sb |
| |
| mov cx,sb_start_x |
| cmp bx,cx |
| jb .exit_sb |
| |
| add cx,sb_size_x |
| cmp bx,cx |
| ja .exit_sb |
| |
| mov cx,sb_r_start_y |
| cmp ax,cx |
| jb .no_runner |
| |
| add cx,sb_r_size_y |
| cmp ax,cx |
| ja .no_runner |
| |
| mov sb_delta2,word 1 |
| @@: |
| push eax |
| mov ax,sb_m_pos |
| cmp ax,sb_m_pos_2 |
| je .correct ;.exit_sb |
| |
| shl eax,16 |
| shr eax,16 |
| mov ebx,sb_m_pos_2 |
| shl ebx,16 |
| shr ebx,16 |
| cmp eax,ebx |
| jb .sub |
| |
| sub eax,ebx |
| mov ebx,eax |
| add sb_position2,ebx |
| xor eax,eax |
| mov ax,sb_size_y |
| sub eax,sb_btn_high |
| sub eax,sb_btn_high |
| sub eax,sb_run_size |
| cmp sb_position2,eax |
| jbe @f |
| |
| mov sb_position2,eax |
| @@: |
| mov eax,sb_m_pos |
| mov sb_m_pos_2,eax |
| pop eax |
| call .draw_1 |
| jmp .no_runner_1 |
| |
| .correct: |
| pop eax |
| jmp .exit_sb |
| .correct_1: |
| mov sb_delta,dword 0 |
| jmp .exit_sb |
| |
| .sub: |
| sub ebx,eax |
| sub sb_position2,ebx |
| test sb_position2,dword 0x80000000 |
| jz @f |
| |
| mov sb_position2,dword 0 |
| @@: |
| mov eax,sb_m_pos |
| mov sb_m_pos_2,eax |
| pop eax |
| call .draw_1 |
| jmp .no_runner_1 |
| |
| ;***************************************************************************** |
| .no_runner: |
| mov sb_delta,dword 0 |
| .no_runner_1: |
| xor ecx,ecx |
| mov cx,sb_start_y |
| add cx,sb_btn_high ;15 |
| cmp sb_delta,word 1 |
| je .scroll_sb |
| |
| cmp ax,cx |
| ja .scroll_sb |
| |
| cmp sb_m_keys,dword 0 |
| je .exit_sb |
| |
| cmp sb_position,dword 0 |
| ; je .exit_sb |
| je @f |
| |
| dec dword sb_position |
| jmp .all_sb |
| @@: |
| mov sb_position2,dword 0 |
| jmp .all_sb |
| ;***************************************************************************** |
| .scroll_sb: |
| add cx,sb_size_y |
| sub cx,sb_btn_high |
| sub cx,sb_btn_high |
| cmp sb_delta,word 1 |
| je @f |
| |
| cmp ax,cx |
| ja .down_sb |
| |
| @@: |
| mov ebx,sb_btn_high ;16 ;15 |
| ; inc ebx |
| add bx,sb_start_y |
| sub cx,bx |
| sub ax,bx |
| |
| .scroll_sb_1: |
| mov ebx,sb_run_size |
| ;***************************************************************************** |
| cmp sb_delta,word 1 |
| je .continue |
| |
| @@: |
| mov edx,eax |
| ; sub edx,sb_btn_high |
| push ebx |
| shr ebx,1 |
| sub edx,ebx |
| pop ebx |
| mov sb_position2,edx |
| test sb_position2,dword 0x80000000 |
| jz .test_1 |
| |
| mov sb_position2,dword 0 |
| jmp .continue |
| |
| .test_1: |
| xor edx,edx |
| mov dx,sb_size_y |
| sub edx,sb_btn_high |
| sub edx,sb_btn_high |
| sub edx,sb_run_size |
| cmp sb_position2,edx |
| jbe .continue |
| |
| mov sb_position2,edx |
| ; jmp .continue_1 |
| |
| .continue: |
| mov eax,sb_position2 |
| sub ecx,ebx |
| .continue_1: |
| ;***************************************************************************** |
| mov ebx,eax |
| |
| mov eax,sb_max_area |
| cmp eax,sb_cur_area |
| ja @f |
| |
| xor eax,eax |
| inc eax |
| mov sb_position2,eax |
| jmp .all_sb ;.store_position |
| @@: |
| sub eax,sb_cur_area |
| inc eax |
| shl eax,10 |
| xor edx,edx |
| div ecx |
| shl edx,1 |
| cmp edx,ecx |
| jb @f |
| |
| inc eax |
| |
| @@: |
| imul eax,ebx |
| shr eax,10 |
| |
| cmp sb_position,eax |
| je .exit_sb |
| |
| cmp eax,0 |
| ja @f |
| |
| xor eax,eax |
| |
| @@: |
| .store_position: |
| mov sb_position,eax |
| .all_sb: |
| mov sb_redraw,dword 1 |
| call .draw_1 |
| mov eax,sb_m_pos |
| mov sb_m_pos_2,eax |
| jmp .exit_sb |
| ;***************************************************************************** |
| .down_sb: |
| cmp sb_m_keys,dword 0 |
| je .exit_sb |
| |
| mov eax,sb_max_area |
| sub eax,sb_cur_area |
| cmp sb_position,eax |
| ; jae .exit_sb |
| jae @f |
| |
| inc dword sb_position |
| jmp .all_sb |
| @@: |
| xor eax,eax |
| mov ax,sb_size_y |
| sub eax,sb_btn_high |
| sub eax,sb_btn_high |
| sub eax,sb_run_size |
| mov sb_position2,eax |
| jmp .all_sb |
| .exit_sb: |
| scroll_bar_exit |
| } |
| |
| ;***************************************************************************** |
| ;***************************************************************************** |
| ;***************************************************************************** |
| ;***************************************************************************** |
| ;***************************************************************************** |
| macro use_scroll_bar_horizontal |
| { |
| scroll_bar_horizontal: |
| .draw: |
| pusha |
| mov edi,dword [esp+36] |
| mov sb_all_redraw,dword 1 |
| call .draw_1 |
| mov sb_all_redraw,dword 0 |
| scroll_bar_exit |
| .draw_1: |
| pusha |
| ;********************************* |
| xor eax,eax |
| mov ax,sb_size_x ;sb_size_y |
| mov edx,sb_btn_high |
| shl edx,1 |
| sub eax,edx |
| mov sb_work_size,eax |
| ;********************************* |
| mov eax,sb_work_size ;sb_max_area |
| mov ebx,sb_max_area |
| cmp ebx,sb_cur_area |
| ja @f |
| |
| jmp .no_size |
| |
| @@: |
| imul eax,sb_cur_area |
| xor edx,edx |
| div ebx |
| cmp eax,10 |
| jae @f |
| mov eax,10 |
| @@: |
| .no_size: |
| mov sb_run_size,eax |
| ;********************************* |
| cmp sb_delta,word 1 |
| je .@@_3 |
| mov eax,sb_work_size |
| sub eax,sb_run_size |
| mov ebx,sb_max_area |
| cmp ebx,sb_cur_area |
| ja @f |
| xor eax,eax |
| jmp .@@_1 |
| @@: |
| sub ebx,sb_cur_area |
| imul eax,sb_position |
| xor edx,edx |
| div ebx |
| .@@_1: |
| mov sb_position2,eax |
| xor edx,edx |
| mov dx,sb_size_x |
| sub edx,sb_btn_high |
| sub edx,sb_btn_high |
| sub edx,sb_run_size |
| cmp sb_position2,edx |
| jbe .@@_3 |
| mov sb_position2,edx |
| .@@_3: |
| ;********************************* |
| mov ebx,sb_size_x |
| mov ecx,sb_start_y |
| shl ecx,16 |
| inc ecx |
| mov edx,sb_line_col |
| mov eax,13 |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; top extreme line |
| @@: |
| push ecx |
| ror ecx,16 |
| add cx,sb_size_y |
| rol ecx,16 |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; bottom extreme line |
| @@: |
| pop ecx |
| |
| push ebx |
| |
| add ecx,1 shl 16 |
| mov cx,sb_size_y |
| dec ecx |
| mov bx,1 |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; left button - extreme line |
| @@: |
| push ebx |
| add ebx,1 shl 16 |
| add ebx,sb_btn_high |
| sub ebx,2 |
| mov edx,sb_frnt_col |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; left button filling |
| ;********************************* |
| draw_up_arrow_horizontal |
| ;********************************* |
| @@: |
| pop ebx |
| |
| ror ebx,16 |
| add ebx,sb_btn_high ;14 shl 16 |
| rol ebx,16 |
| mov edx,sb_line_col |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; left button - right line |
| @@: |
| pop ebx |
| ;********************************* |
| ror ebx,16 |
| add ebx,sb_btn_high ;15 shl 16 |
| inc ebx |
| rol ebx,16 |
| sub ebx,sb_btn_high ;30 |
| sub ebx,sb_btn_high |
| push ebx |
| mov bx,0 |
| add ebx,sb_position2 |
| dec bx |
| mov eax,13 |
| test bx,0x8000 |
| jnz @f |
| mov edx,sb_bckg_col |
| int 0x40 ; left interval |
| @@: |
| ;********************************* |
| shr ebx,16 |
| add ebx,sb_position2 |
| dec ebx |
| shl ebx,16 |
| inc ebx |
| mov edx,sb_line_col |
| int 0x40 ; runner - left extreme line |
| |
| add ebx,1 shl 16 |
| mov bx,0 |
| add ebx,sb_run_size |
| mov sb_r_size_x,ebx |
| mov sb_r_size_y,ecx |
| sub ebx,2 |
| mov edx,sb_frnt_col |
| int 0x40 ; runner filling |
| ;********************************* |
| draw_runner_center_horizontal |
| ;********************************* |
| shr ebx,16 |
| add ebx,sb_run_size |
| sub ebx,2 |
| shl ebx,16 |
| inc ebx |
| mov edx,sb_line_col |
| int 0x40 ; runner - bottom extreme line |
| |
| add ebx,1 shl 16 |
| mov bx,sb_start_x |
| add bx,sb_size_x |
| sub ebx,sb_btn_high |
| dec ebx |
| mov eax,ebx |
| shr eax,16 |
| sub bx,ax |
| test bx,0x8000 |
| jnz @f |
| mov edx,sb_bckg_col |
| mov eax,13 |
| int 0x40 ; bottom interval |
| @@: |
| pop ebx |
| ;********************************* |
| mov ax,bx |
| shr ebx,16 |
| add bx,ax |
| sub ebx,2 |
| shl ebx,16 |
| inc ebx |
| mov edx,sb_line_col |
| mov eax,13 |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; bottom button - top line |
| @@: |
| push ebx |
| add ebx,1 shl 16 |
| add bx,sb_btn_high |
| sub ebx,2 |
| mov edx,sb_frnt_col |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; bottom button filling |
| ;********************************* |
| draw_down_arrow_horizontal |
| ;********************************* |
| @@: |
| pop ebx |
| |
| ror ebx,16 |
| add ebx,sb_btn_high ;14 shl 16 |
| rol ebx,16 |
| |
| mov edx,sb_line_col |
| mov bx,1 |
| cmp sb_all_redraw,dword 0 |
| je @f |
| int 0x40 ; bottom button - extreme line |
| @@: |
| popa |
| ret |
| ;***************************************************************************** |
| ; mouse event |
| ;***************************************************************************** |
| .mouse: |
| pusha |
| mov edi,dword [esp+36] |
| mcall 37,1 |
| mov sb_m_pos,eax |
| cmp sb_m_pos_2,dword 0 |
| jne @f |
| |
| mov sb_m_pos_2,eax |
| @@: |
| mcall 37,2 |
| mov sb_m_keys,eax |
| |
| cmp sb_m_keys,eax |
| je @f |
| |
| mov sb_m_keys,eax |
| |
| mov sb_delta,dword 0 |
| |
| mov eax,sb_m_pos |
| mov sb_m_pos_2,eax |
| jmp .continue_2 |
| |
| @@: |
| cmp sb_m_keys,dword 0 |
| jne @f ;.continue_2 |
| mov eax,sb_m_pos |
| mov sb_m_pos_2,eax |
| jmp .correct_1 ;.exit_sb |
| @@: |
| mov sb_delta,word 1 |
| |
| .continue_2: |
| mov eax,sb_m_pos |
| test eax,0x80000000 |
| jnz .exit_sb |
| |
| test eax,0x8000 |
| jnz .exit_sb |
| |
| mov ebx,eax |
| shr eax,16 ; x position |
| shl ebx,16 |
| shr ebx,16 ; y position |
| |
| mov cx,sb_start_x ;y |
| cmp ax,cx |
| jb .exit_sb |
| |
| cmp sb_delta2,word 0 |
| je @f |
| push ecx |
| add cx,sb_btn_high |
| cmp ax,cx |
| pop ecx |
| jb .exit_sb |
| |
| @@: |
| add cx,sb_size_x ;y |
| cmp ax,cx |
| ja .exit_sb |
| |
| cmp sb_delta2,word 0 |
| je @f |
| sub cx,sb_btn_high |
| cmp ax,cx |
| ja .exit_sb |
| |
| @@: |
| cmp sb_delta2,word 1 |
| je @f |
| |
| cmp sb_m_keys,dword 0 |
| je .exit_sb |
| |
| mov cx,sb_start_y ;x |
| cmp bx,cx |
| jb .exit_sb |
| |
| add cx,sb_size_y ;x |
| cmp bx,cx |
| ja .exit_sb |
| |
| mov cx,sb_r_start_x |
| cmp ax,cx |
| jb .no_runner |
| |
| add cx,sb_r_size_x |
| cmp ax,cx |
| ja .no_runner |
| |
| mov sb_delta2,word 1 |
| @@: |
| push eax |
| mov eax,sb_m_pos |
| mov ebx,sb_m_pos_2 |
| shr eax,16 |
| shr ebx,16 |
| cmp eax,ebx |
| je .correct ;.exit_sb |
| |
| ; shl eax,16 |
| ; shr eax,16 |
| ; mov ebx,sb_m_pos_2 |
| ; shl ebx,16 |
| ; shr ebx,16 |
| ; cmp eax,ebx |
| jb .sub |
| |
| sub eax,ebx |
| mov ebx,eax |
| add sb_position2,ebx |
| xor eax,eax |
| mov ax,sb_size_x ;y |
| sub eax,sb_btn_high |
| sub eax,sb_btn_high |
| sub eax,sb_run_size |
| cmp sb_position2,eax |
| jbe @f |
| |
| mov sb_position2,eax |
| @@: |
| mov eax,sb_m_pos |
| mov sb_m_pos_2,eax |
| pop eax |
| call .draw_1 |
| jmp .no_runner_1 |
| |
| .correct: |
| pop eax |
| jmp .exit_sb |
| .correct_1: |
| mov sb_delta,dword 0 |
| jmp .exit_sb |
| |
| .sub: |
| sub ebx,eax |
| sub sb_position2,ebx |
| test sb_position2,dword 0x80000000 |
| jz @f |
| |
| mov sb_position2,dword 0 |
| @@: |
| mov eax,sb_m_pos |
| mov sb_m_pos_2,eax |
| pop eax |
| call .draw_1 |
| jmp .no_runner_1 |
| |
| ;***************************************************************************** |
| .no_runner: |
| mov sb_delta,dword 0 |
| .no_runner_1: |
| xor ecx,ecx |
| mov cx,sb_start_x ;y |
| add cx,sb_btn_high ;15 |
| cmp sb_delta,word 1 |
| je .scroll_sb |
| |
| cmp ax,cx |
| ja .scroll_sb |
| |
| cmp sb_m_keys,dword 0 |
| je .exit_sb |
| |
| cmp sb_position,dword 0 |
| ; je .exit_sb |
| je @f |
| |
| dec dword sb_position |
| jmp .all_sb |
| @@: |
| mov sb_position2,dword 0 |
| jmp .all_sb |
| ;***************************************************************************** |
| .scroll_sb: |
| add cx,sb_size_x ;y |
| sub cx,sb_btn_high |
| sub cx,sb_btn_high |
| cmp sb_delta,word 1 |
| je @f |
| |
| cmp ax,cx |
| ja .down_sb |
| |
| @@: |
| mov ebx,sb_btn_high ;16 ;15 |
| ; inc ebx |
| add bx,sb_start_x ;y |
| sub cx,bx |
| sub ax,bx |
| |
| .scroll_sb_1: |
| mov ebx,sb_run_size |
| ;***************************************************************************** |
| cmp sb_delta,word 1 |
| je .continue |
| |
| @@: |
| mov edx,eax |
| ; sub edx,sb_btn_high |
| push ebx |
| shr ebx,1 |
| sub edx,ebx |
| pop ebx |
| mov sb_position2,edx |
| test sb_position2,dword 0x80000000 |
| jz .test_1 |
| |
| mov sb_position2,dword 0 |
| jmp .continue |
| |
| .test_1: |
| xor edx,edx |
| mov dx,sb_size_x ;y |
| sub edx,sb_btn_high |
| sub edx,sb_btn_high |
| sub edx,sb_run_size |
| cmp sb_position2,edx |
| jbe .continue |
| |
| mov sb_position2,edx |
| ; jmp .continue_1 |
| |
| .continue: |
| mov eax,sb_position2 |
| sub ecx,ebx |
| .continue_1: |
| ;***************************************************************************** |
| mov ebx,eax |
| |
| mov eax,sb_max_area |
| cmp eax,sb_cur_area |
| ja @f |
| |
| xor eax,eax |
| inc eax |
| mov sb_position2,eax |
| jmp .all_sb ;.store_position |
| @@: |
| sub eax,sb_cur_area |
| inc eax |
| shl eax,10 |
| xor edx,edx |
| div ecx |
| shl edx,1 |
| cmp edx,ecx |
| jb @f |
| |
| inc eax |
| |
| @@: |
| imul eax,ebx |
| shr eax,10 |
| |
| cmp sb_position,eax |
| je .exit_sb |
| |
| cmp eax,0 |
| ja @f |
| |
| xor eax,eax |
| |
| @@: |
| .store_position: |
| mov sb_position,eax |
| .all_sb: |
| mov sb_redraw,dword 1 |
| call .draw_1 |
| mov eax,sb_m_pos |
| mov sb_m_pos_2,eax |
| jmp .exit_sb |
| ;***************************************************************************** |
| .down_sb: |
| cmp sb_m_keys,dword 0 |
| je .exit_sb |
| |
| mov eax,sb_max_area |
| sub eax,sb_cur_area |
| cmp sb_position,eax |
| ; jae .exit_sb |
| jae @f |
| |
| inc dword sb_position |
| jmp .all_sb |
| @@: |
| xor eax,eax |
| mov ax,sb_size_x |
| sub eax,sb_btn_high |
| sub eax,sb_btn_high |
| sub eax,sb_run_size |
| mov sb_position2,eax |
| jmp .all_sb |
| .exit_sb: |
| scroll_bar_exit |
| } |