Subversion Repositories Kolibri OS

Rev

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

Rev 4869 Rev 7134
Line 99... Line 99...
99 
 	dd     SPP          ; esp
 99 
 	dd     SPP          ; esp
100 
	dd     params
 100 
	dd     params
101 
	dd     cur_dir_path
 101 
	dd     cur_dir_path
Line 102... Line 102...
102 
 
 102 
 
103 
 lang fix ru
 103 
 lang fix ru
104 
 include 'MACROS.INC'
 104 
 include 'macros.inc'
Line 105... Line 105...
105 
 include '..\..\proc32.inc'
 105 
 include 'proc32.inc'
106 
 
 106 
 
Line 107... Line 107...
107 
align 4
 107 
align 4
Line 180... Line 180...
180 
	mcall 0, <0,FW_WIDTH>, <0,FW_HEIGHT>, 0x54000000
 180 
	mcall 0, <0,FW_WIDTH>, <0,FW_HEIGHT>, 0x54000000
181 
	; mcall 0,,,COL_WINDOW_BG, ,title ; define window
 181 
	; mcall 0,,,COL_WINDOW_BG, ,title ; define window
182 
	mcall 71, 1, header
 182 
	mcall 71, 1, header
Line 183... Line 183...
183 
 
 183 
 
184 
	mcall 9,pinfo,-1
 184 
	mcall 9,pinfo,-1
185 
	mov   eax,[pinfo.x_size]
 185 
	mov   eax,[pinfo.box.width]
186 
	cdq
 186 
	cdq
187 
	sub   eax,20
 187 
	sub   eax,20
188 
	mov   ebx,6
 188 
	mov   ebx,6
189 
	div   ebx
 189 
	div   ebx
Line 190... Line 190...
190 
	mov   [pinfo.x_start],eax
 190 
	mov   [pinfo.box.left],eax
191 
 
 191 
 
192 
	mov   eax,[pinfo.y_size]
 192 
	mov   eax,[pinfo.box.height]
193 
	cdq
 193 
	cdq
194 
	sub   eax,40
 194 
	sub   eax,40
Line 195... Line 195...
195 
	mov   ebx,ROWH
 195 
	mov   ebx,ROWH
196 
	div   ebx
 196 
	div   ebx
197 
 
 197 
 
198 
	mov   [pinfo.y_start],eax
 198 
	mov   [pinfo.box.top],eax
199 
	call  erase_screen
 199 
	call  erase_screen
200 
	mcall 12, 2
 200 
	mcall 12, 2
Line 212... Line 212...
212 
 
 212 
 
213 
erase_screen:
 213 
erase_screen:
214 
	GetSkinHeight
 214 
	GetSkinHeight
215 
	mov ecx,eax
 215 
	mov ecx,eax
216 
	shl ecx,16
 216 
	shl ecx,16
217 
	add ecx,[pinfo.y_size]
 217 
	add ecx,[pinfo.box.height]
218 
	sub ecx,eax
 218 
	sub ecx,eax
219 
	sub ecx,4
219 
	sub ecx,4
220 
	mov   ebx,[pinfo.x_size]
 220 
	mov   ebx,[pinfo.box.width]
221 
	add   ebx,5 shl 16 - 9
 221 
	add   ebx,5 shl 16 - 9
222 
	mcall 13,,,0;xff
 222 
	mcall 13,,,0;xff
Line 236... Line 236...
236 
; 		inc  [cursor]
 236 
; 		inc  [cursor]
237 
 	.again:
 237 
 	.again:
238 
 		mov  [ebp],edi
 238 
 		mov  [ebp],edi
239 
 		mov  esi,[cursor]
 239 
 		mov  esi,[cursor]
240 
 		sub  esi,edi
 240 
 		sub  esi,edi
241 
 		mov  ecx,[pinfo.x_start]
 241 
 		mov  ecx,[pinfo.box.left]
242 
;   test ecx,ecx
 242 
;   test ecx,ecx
243 
;   jnz  .no0
 243 
;   jnz  .no0
244 
;   inc  ecx
 244 
;   inc  ecx
245 
;  .no0:
 245 
;  .no0:
246 
 		cmp  ecx,esi
 246 
 		cmp  ecx,esi
Line 259... Line 259...
259 
 		mov  [ebp-4],ecx
 259 
 		mov  [ebp-4],ecx
260 
 		cmp  edi,[cursor]
 260 
 		cmp  edi,[cursor]
261 
 		jb   .again
 261 
 		jb   .again
262 
 		and  dword[ebp],0
 262 
 		and  dword[ebp],0
263 
 ;		dpd  esi
 263 
 ;		dpd  esi
264 
 		mov  eax,[pinfo.y_start]
 264 
 		mov  eax,[pinfo.box.top]
265 
 		shl  eax,3
 265 
 		shl  eax,3
266 
 		sub  ebp,eax
 266 
 		sub  ebp,eax
267 
 		cmp  ebp,os_work
 267 
 		cmp  ebp,os_work
268 
 		jae  .ok2
 268 
 		jae  .ok2
269 
 		mov  ebp,os_work
 269 
 		mov  ebp,os_work
Line 314... Line 314...
314 
; 		inc  [cursor]
 314 
; 		inc  [cursor]
315 
 	e_.again:
 315 
 	e_.again:
316 
 		mov  [ebp],edi
 316 
 		mov  [ebp],edi
317 
 		mov  esi,[cursor]
 317 
 		mov  esi,[cursor]
318 
 		sub  esi,edi
 318 
 		sub  esi,edi
319 
 		mov  ecx,[pinfo.x_start]
 319 
 		mov  ecx,[pinfo.box.left]
320 
;   test ecx,ecx
 320 
;   test ecx,ecx
321 
;   jnz  .no0
 321 
;   jnz  .no0
322 
;   inc  ecx
 322 
;   inc  ecx
323 
;  .no0:
 323 
;  .no0:
324 
 		cmp  ecx,esi
 324 
 		cmp  ecx,esi
Line 337... Line 337...
337 
 		mov  [ebp-4],ecx
 337 
 		mov  [ebp-4],ecx
338 
 		cmp  edi,[cursor]
 338 
 		cmp  edi,[cursor]
339 
 		jb   e_.again
 339 
 		jb   e_.again
340 
 		and  dword[ebp],0
 340 
 		and  dword[ebp],0
341 
 ;		dpd  esi
 341 
 ;		dpd  esi
342 
 		mov  eax,[pinfo.y_start]
 342 
 		mov  eax,[pinfo.box.top]
343 
 		shl  eax,3
 343 
 		shl  eax,3
344 
 		sub  ebp,eax
 344 
 		sub  ebp,eax
345 
 		cmp  ebp,os_work
 345 
 		cmp  ebp,os_work
346 
 		jae  e_.ok2
 346 
 		jae  e_.ok2
347 
 		mov  ebp,os_work
 347 
 		mov  ebp,os_work