Subversion Repositories Kolibri OS

Compare Revisions

Ignore whitespace Rev 6252 → Rev 6253

/programs/other/personal/Tupfile.lua
0,0 → 1,2
if tup.getconfig("NO_FASM") ~= "" then return end
tup.rule("personal.asm", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "personal")
/programs/other/personal/build.bat
0,0 → 1,3
@fasm personal.asm personal
@kpack personal
@pause
/programs/other/personal/inc/button.inc
130,14 → 130,10
call button_draw_all
; arrow
pusha
mov eax , 7
mov ebx , arrowa
mov ecx , 6 shl 16 + 10
mov edx , 46 shl 16 + 13
int 0x40
mov ebx , arrowb
mov edx , 17 shl 16 + 13
int 0x40
mov ecx,[sc.btn_text]
or ecx,0x90000000
mcall 4,<15,11>, ,arrowa
mcall ,<45,11>, ,arrowb
popa
ret
 
/programs/other/personal/personal.asm
13,7 → 13,7
dd 0x0
dd 0x0
 
include 'macros.inc'
include '../../macros.inc'
;=============================================================================;
;============================[ EVENTS ]===========================;
;=============================================================================;
107,7 → 107,7
xor eax,eax ; Î÷èùàåì eax (mov eax,0) (Ôóíêöèÿ 0)
mov ebx,200 shl 16+240 ; [êîîðäèíàòà ïî îñè x]*65536 + [ðàçìåð ïî îñè x]
add ecx,200 shl 16+280 ; Âûñîòà ñêèíà + [êîîðäèíàòà ïî y]*65536 + [ðàçìåð ïî y]
mov edx,[sc.win_body] ; Âèäèìî ñòèëü îêíà ïî äåôîëòó
mov edx,[sc.win_body] ; Âèäèìî ñòèëü îêíà ïî äåôîëòó
or edx,0x34000000 ; Èëè îêíî ñî ñêèíîì ôèêñèðîâàííûõ ðàçìåðîâ
mov edi,title ; Çàãîëîâîê îêíà
int 0x40 ; Ïðåðûâàíèå
145,10 → 145,8
;; button -------------------------------------------------
bnext new_button
bback new_button
arrowa:
file 'l.raw'
arrowb:
file 'r.raw'
arrowa db '<',0
arrowb db '>',0
;; edit ---------------------------------------------------
edit_cnt dd 1 ; counter
edit_win db 'WINDOW',0 ; 1