Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 1100 → Rev 1101

/programs/develop/libraries/box_lib/trunk/proc32.inc
File deleted
/programs/develop/libraries/box_lib/trunk/data.inc
File deleted
\ No newline at end of file
/programs/develop/libraries/box_lib/trunk/w_about.inc
File deleted
\ No newline at end of file
/programs/develop/libraries/box_lib/trunk/config.inc
File deleted
/programs/develop/libraries/box_lib/trunk/load_lib.mac
File deleted
/programs/develop/libraries/box_lib/trunk/editbox_ex.asm
File deleted
\ No newline at end of file
/programs/develop/libraries/box_lib/trunk/cnv_bmp.obj
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property
/programs/develop/libraries/box_lib/trunk/macros.inc
File deleted
\ No newline at end of file
/programs/develop/libraries/box_lib/trunk/reload_16x16_8b.bmp
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property
/programs/develop/libraries/box_lib/trunk/editbox_ex.mac
File deleted
/programs/develop/libraries/box_lib/trunk/struct.inc
File deleted
/programs/develop/libraries/box_lib/trunk/ctrldemo.asm
File deleted
/programs/develop/libraries/box_lib/trunk/box_lib.asm
8,7 → 8,7
public EXPORTS
 
section '.flat' code readable align 16
include 'macros.inc'
include '../../../../macros.inc'
include 'editbox.mac' ;¬ ªà®á ª®â®àë© ¤®«¦¥­ ®¡«¥£ç¨âì ¦¨§­ì :) ᯥ樠«ì­® ¤«ï editbox
include 'checkbox.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î checkbox
include 'optionbox.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î optionbox
/programs/develop/libraries/box_lib/trunk/optionbox.mac
126,24 → 126,26
@@:
movzx ebx,word op_left ;çàãðóçèòü êîîðäèíàòó ïî õ
mov eax,dword op_size
mov bp,ax
shr eax,2
push ax
shr eax,2
add ebx,eax ;äîáàâèòü (ñòîðîíà ïðÿìîóãîëüíèêà/3)
push ax
add ebx,eax
shl ebx,16 ;ñäâèíåì íà 16 ðàçðÿäîâ â ëåâî (óìíîæèì íà 65536)
pop bx
shr bx,1 ;çàãðóçèòü (ñòîðîíà ïðÿìîóãîëüíèêà/2)
mov bp,bx ;ñîõðàíèì ðåãèñòð bx â ðåãèñòðå óêàçàòåëÿ áàçû
pop ax
lea eax,[eax*2]
sub bp,ax ;ñîõðàíèì ðåãèñòð bx â ðåãèñòðå óêàçàòåëÿ áàçû
mov bx,bp
 
movzx ecx,word op_top ;çàãðóçèòü êîîðäèíàòó ïî ó
mov eax,dword op_size
shr eax,2
add ecx,eax ;äîáàâèòü (ñòîðîíà ïðÿìîóãîëüíèêà/4)
pop ax
add cx,ax
shl ecx,16 ;ñäâèíåì íà 16 ðàçðÿäîâ â ëåâî (óìíîæèì íà 65536)
mov cx,bp ;çàãðóçèì çíà÷åíèÿ ðåãèñòðà óêàçàòåëÿ áàçû â cx
mov eax,13 ;â eax - çíà÷åíèÿ ôóíêöèè äëÿ âûâîäà ïîëîñû ò.å. ïî ñóòè ïðÿìîóãîëüíèêà, êîòîðûé îòîáðàæàåò âêëþ÷åííûé êîìïîíåíò ÷åê áîêñ
mcall ;âûâîä
ret ;âûéòè èç ïðîöåäóðû
 
}
 
 
/programs/develop/libraries/box_lib/trunk/run.bat
1,6 → 1,4
@fasm.exe -m 16384 box_lib.asm
@fasm.exe -m 16834 editbox_ex.asm editbox_ex.kex
@fasm.exe -m 16384 ctrldemo.asm ctrldemo.kex
REM ..\FASM\kpack.exe editbox_ex
REM @klbrinwin.exe editbox_ex.kex
if not exist bin mkdir bin
@fasm.exe -m 16384 box_lib.asm bin\box_lib.obj
@kpack bin\box_lib.obj
pause