Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9587 → Rev 9713

/programs/develop/libraries/libs-dev/.test/005/test005.asm
70,13 → 70,15
 
mov ebx, [image_converted]
mov eax, [ebx + Image.Width]
add eax, 200*0x10000 + 5*2 - 1 ; window x position + 10 pixels width for skin borders
; window x position + 10 pixels width for skin borders
add eax, 200*0x10000 + 5*2 - 1
mov [window_width], eax
 
mcall 48, 4 ; get skin height
mov ebx, [image_converted]
add eax, [ebx + Image.Height]
add eax, 100*0x10000 + 5 - 1 ; window y position + 5 pixels height for skin bottom border
; window y position + 5 pixels height for skin bottom border
add eax, 100*0x10000 + 5 - 1
mov [window_height], eax
;-----------------------------------------------------------------------------
 
93,7 → 95,8
 
.draw_window:
mcall 12, 1
mcall 0, [window_width], [window_height], 0x74FFFFFF, 0x00000000, window_title
mcall 0, [window_width], [window_height], 0x74FFFFFF, 0x00000000, \
window_title
call draw_image
mcall 12, 2
jmp still
116,7 → 119,8
proc draw_image
 
mov ebx, [image_converted]
invoke img.draw, ebx, 0, 0, [ebx + Image.Width], [ebx + Image.Height], 0, 0
invoke img.draw, ebx, 0, 0, [ebx + Image.Width], \
[ebx + Image.Height], 0, 0
 
ret
endp