Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 551 → Rev 2703

/programs/demos/cslide/trunk/cslide.asm
28,9 → 28,7
still:
call mouse_info
 
mov eax,23
mov ebx,2
mcall
mcall 23, 2
 
cmp eax,1 ; redraw request ?
je red
46,20 → 44,17
jmp still
 
key: ; key
mov eax,2 ; just read it and ignore
mcall
mcall 2 ; just read it and ignore
jmp still
 
button: ; button
mov eax,17 ; get id
mcall
mcall 17 ; get id
 
shr eax,8
 
cmp eax,1 ; button id=1 ?
jne noclose
mov eax,-1 ; close this program
mcall
mcall -1 ; close this program
noclose:
 
 
73,16 → 68,9
 
 
draw_window:
mov eax,12 ; function 12:tell os about windowdraw
mov ebx,1 ; 1, start of draw
mcall
; DRAW WINDOW
mov eax,0 ; function 0 : define and draw window
mov ebx,100*65536+200 ; [x start] *65536 + [x size]
mov ecx,100*65536+200 ; [y start] *65536 + [y size]
mov edx,0x14ffffff ; color of work area RRGGBB,8->color gl
mov edi,title ; WINDOW LABEL
mcall
mcall 12, 1 ; 1, start of draw
mcall 0, <100,200>, <100,200>, 0x14ffffff, , title ; DRAW WINDOW
mcall 12,2 ; end WINDOW redraw
 
call draw_slider_info
 
96,11 → 84,6
jmp Draw_Controls_Loop
Draw_Controls_Done:
 
 
mov eax,12 ; function 12:tell os about windowdraw
mov ebx,2 ; 2, end of draw
mcall
 
ret
 
 
112,14 → 95,10
mouseb dd 0
 
mouse_info:
mov eax, 37 ;get mouse cordinates
mov ebx, 1 ;
mcall ;
mcall 37, 1 ;get mouse cordinates
mov ecx, eax ;
push ecx ;
mov eax, 37 ;get mouse buttons
mov ebx, 2 ;
mcall ;
mcall 37, 2 ;get mouse buttons
cmp [mouseb], eax ;compare old mouse states to new states
jne redraw_mouse_info ;
cmp [mousey], cx ;
171,11 → 150,7
 
draw_slider_info:
;Repaint value background
mov eax, 13
mov ebx, 0x00960028
mov ecx, 0x00240010
mov edx, 0x00ffffff
mcall
mcall 13, 144*65536+36, 72*65536+9, 0x00ffffff
;Draw Color Box
xor edx, edx
movzx ecx,word [slider_1+12]
194,7 → 169,7
mov eax, 47
mov ebx, 0x00060100
mov esi, 0
mov edx, 0x009A0029
mov edx, 144*65536+72
mcall
ret
 
267,7 → 242,7
mov eax, 13 ;slider background
mov ebx, [ebp] ;x start/width
mov ecx, [ebp+4] ;y start/height
mov edx, 0x002288DD ;color
mov edx, 0x00EBEBEB ;color
mcall ;draw bar
;Draw line for slide rail
mov eax, 38 ;draw vertical slide line