Subversion Repositories Kolibri OS

Rev

Rev 3055 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3055 Rev 9713
Line 68... Line 68...
68 
 
 68 
 
Line 69... Line 69...
69 
	invoke	img.destroy, [image_initial]
 69 
        invoke  img.destroy, [image_initial]
70 
 
 70 
 
71 
	mov	ebx, [image_converted]
 71 
        mov     ebx, [image_converted]
- 
 
 72 
        mov     eax, [ebx + Image.Width]
72 
	mov	eax, [ebx + Image.Width]
 73 
        ; window x position + 10 pixels width for skin borders
Line 73... Line 74...
73 
	add	eax, 200*0x10000 + 5*2 - 1	; window x position + 10 pixels width for skin borders
 74 
        add     eax, 200*0x10000 + 5*2 - 1
74 
	mov	[window_width], eax
 75 
        mov     [window_width], eax
75 
 
 76 
 
76 
	mcall	48, 4	; get skin height
 77 
        mcall   48, 4   ; get skin height
- 
 
 78 
        mov     ebx, [image_converted]
77 
	mov	ebx, [image_converted]
 79 
        add     eax, [ebx + Image.Height]
78 
	add	eax, [ebx + Image.Height]
 80 
        ; window y position + 5 pixels height for skin bottom border
Line 79... Line 81...
79 
	add	eax, 100*0x10000 + 5 - 1	; window y position + 5 pixels height for skin bottom border
 81 
        add     eax, 100*0x10000 + 5 - 1
80 
	mov	[window_height], eax
 82 
        mov     [window_height], eax
Line 91... Line 93...
91 
	jmp	still
 93 
        jmp     still
Line 92... Line 94...
92 
 
 94 
 
93 
 
 95 
 
94 
  .draw_window:
 96 
  .draw_window:
- 
 
 97 
        mcall   12, 1
95 
	mcall	12, 1
 98 
        mcall   0, [window_width], [window_height], 0x74FFFFFF, 0x00000000, \
96 
	mcall	0, [window_width], [window_height], 0x74FFFFFF, 0x00000000, window_title
 99 
                window_title
97 
	call	draw_image
 100 
        call    draw_image
Line 98... Line 101...
98 
	mcall	12, 2
 101 
        mcall   12, 2
Line 114... Line 117...
114 
 
 117 
 
Line 115... Line 118...
115 
 
 118 
 
116 
proc	draw_image
 119 
proc    draw_image
- 
 
 120 
 
Line 117... Line 121...
117 
 
 121 
        mov     ebx, [image_converted]
118 
	mov	ebx, [image_converted]
 122 
        invoke  img.draw, ebx, 0, 0, [ebx + Image.Width], \
Line 119... Line 123...
119 
	invoke	img.draw, ebx, 0, 0, [ebx + Image.Width], [ebx + Image.Height], 0, 0
 123 
                [ebx + Image.Height], 0, 0