kolibrios-gitea/programs/develop/libraries/box_lib/trunk/pathshow.mac
Marat Zakiyanov (Mario79) 47a917da42 BoxLib:
A new component PathShow - displaying the path for the files and directories. If the entire path to display in the show area is not possible, then the path is displayed in the compressed form.

git-svn-id: svn://kolibrios.org@1433 a494cfbc-eb01-0410-851d-a64ba20cac60
2010-03-15 19:40:50 +00:00

153 lines
4.8 KiB
Plaintext

;**************************************************************
; Path Show Macro for Kolibri OS
; Copyright (c) 2010, Marat Zakiyanov aka Mario79, aka Mario
; 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 Marat Zakiyanov ''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 path_show_start
{
pusha
mov edi,dword [esp+36]
}
;*****************************************************************************
macro path_show_exit
{
popa
ret 4
}
;*****************************************************************************
macro use_path_show
{
path_show:
ps_type equ [edi] ;dword
ps_start_y equ [edi+4] ;word
ps_start_x equ [edi+6] ;word
ps_font_size_x equ [edi+8] ;word
ps_area_size_x equ [edi+10] ;word
ps_font_number equ [edi+12] ;dword
ps_background_flag equ [edi+16] ;dword
ps_font_color equ [edi+20] ;dword
ps_background_color equ [edi+24] ;dword
ps_text_pointer equ [edi+28] ;dword
ps_work_area_pointer equ [edi+32] ;dword
ps_temp_text_length equ [edi+36] ;dword
;*****************************************************************************
;*****************************************************************************
; draw event
;*****************************************************************************
;*****************************************************************************
.prepare:
path_show_start
;-------------------------------------
mov esi,ps_text_pointer
xor eax,eax
xor ecx,ecx
dec ecx
cld
@@:
lodsb
inc ecx
test eax,eax
jnz @b
mov ps_temp_text_length,ecx
movzx eax,word ps_font_size_x
imul ecx,eax
movzx eax,word ps_area_size_x
cmp ecx,eax
jae .cut
;-------------------------------------
mov esi,ps_text_pointer
mov edi,ps_work_area_pointer
xor eax,eax
@@:
lodsb
stosb
test eax,eax
jnz @b
jmp .exit
;-------------------------------------
.cut:
; copy the first 6 characters of path
mov esi,ps_text_pointer
push edi
mov edi,ps_work_area_pointer
mov ecx,6
rep movsb
; insert a line break '...'
mov al,byte '.'
mov ecx,3
rep stosb
mov ecx,edi
; calculate the display length, in characters
pop edi
movzx ebx,word ps_font_size_x
movzx eax,word ps_area_size_x
xor edx,edx
div ebx
sub eax,9
; eax - maximum length of display area, the number of characters
mov esi,ps_temp_text_length
add esi,ps_text_pointer
sub esi,eax
; esi - pointer of the last segment of the displayed text
mov edi,ecx
mov ecx,eax
rep movsb
xor eax,eax
stosb
;-------------------------------------
.exit:
path_show_exit
;*****************************************************************************
;*****************************************************************************
; draw event
;*****************************************************************************
;*****************************************************************************
.draw:
path_show_start
;-------------------------------------
mov ebx,ps_start_y
xor ecx,ecx
or ecx,0x80000000
mov eax,ps_background_flag
and eax,1b
shl eax,30
add ecx,eax
mov eax,ps_font_number
and eax,11b
shl eax,28
add ecx,eax
mov eax,ps_font_color
and eax,0xffffff
add ecx,eax
mov edx,ps_work_area_pointer
mov eax,ps_background_color
and eax,0xffffff
xor esi,esi
mov edi,eax
mcall 4
path_show_exit
}
;*****************************************************************************