WebSVN – Kolibri OS – Diff – /programs/other/kpack/trunk/kpack.asm



;*********************************************************************
draw_window:
; start redraw
	mcall	12,1

	
	mcall	48,3,color_table,192
;--------------------------------------
edit_boxes_set_sys_color edit1,editboxes_end,color_table
check_boxes_set_sys_color2 check1,check1_end,color_table
;--------------------------------------
; define window
	xor	eax,eax
	mov	ecx,100 shl 16+306
	mov	edx,[color_table.win_body]
	add	edx,34000000h
	xor	esi,esi
	xor	edi,edi
	mcall	,<100,436>,,,[color_table.win_title],caption_str

	mcall	9,procinfo,-1
	
	mov	eax,[procinfo+70] ;status of window

draw_lines:
	mov	ecx,2 shl 16+12*3
; draw frame for messages data
	push	ecx
	add	ecx,50 shl 16+16
	mcall	38,<3,423>,,[color_table.gui_frame]
	add	ecx,224*(1 shl 16+1)
	mcall
	sub	cx,224
	mcall	,<3,3>
	mcall	,<423,423>

	ret
;*********************************************************************
draw_buttons:
; define compress button
	mov	cx,18
	mcall	8,<351,73>,<1, 17>,2,[color_table.btn_face]
; uncompress button
	add	ecx,18 shl 16
	inc	edx
	mcall
	;add	ecx,-12h+0Ch+140000h
	mov	ecx, 38 shl 16 + 11
; question button
	push	esi
	mov	dl,7
	mcall	,<413,11>
	shr	ecx,16
	lea	ebx,[ecx+1A00002h]
	mcall	4,,[color_table.btn_text],aQuestion,1
	pop	esi
; define settings buttons
	mov	ecx,16*2+2
	shl	ecx,16
	mov	cx,13
	mcall	8,<6,50>,,4
; text on settings buttons
	mov	ebx,8 shl 16+5
	mov	al,4
	mov	ecx,[color_table.win_text]
	push	buttons1names
	pop	edx
	push	8
	pop	esi
;--------------------------------------

	add	edx,esi
	add	ebx,16
	mcall
	add	edx,esi
	add	ebx,16
	mov	ecx,[color_table.btn_text]
	mcall
; text on compress and decompress buttons
	or	ecx,0x80000000
	mcall	,<364,6>,,aCompress
	mcall	,<359,24>,,aDecompress
	ret
;*********************************************************************
;Pack procedures

Rev 3946	Rev 4978
Line 423...	Line 423...
423	;*********************************************************************	423	;*********************************************************************
424	draw_window:	424	draw_window:
425	; start redraw	425	; start redraw
426	mcall 12,1	426	mcall 12,1
Line 427...	Line 427...
427		427
428	mcall 48,3,color_table,40	428	mcall 48,3,color_table,192
429	;--------------------------------------	429	;--------------------------------------
430	edit_boxes_set_sys_color edit1,editboxes_end,color_table	430	edit_boxes_set_sys_color edit1,editboxes_end,color_table
431	check_boxes_set_sys_color2 check1,check1_end,color_table	431	check_boxes_set_sys_color2 check1,check1_end,color_table
432	;--------------------------------------	432	;--------------------------------------
433	; define window	433	; define window
434	xor eax,eax	434	xor eax,eax
435	mov ecx,100 shl 16+306	435	mov ecx,100 shl 16+306
436	mov edx,[color_table+20]	436	mov edx,[color_table.win_body]
437	add edx,34000000h	437	add edx,34000000h
438	xor esi,esi	438	xor esi,esi
439	xor edi,edi	439	xor edi,edi
440	mcall ,<100,436>,,,,caption_str	440	mcall ,<100,436>,,,[color_table.win_title],caption_str
Line 441...	Line 441...
441	mcall 9,procinfo,-1	441	mcall 9,procinfo,-1
442		442
443	mov eax,[procinfo+70] ;status of window	443	mov eax,[procinfo+70] ;status of window
Line 494...	Line 494...
494	draw_lines:	494	draw_lines:
495	mov ecx,2 shl 16+12*3	495	mov ecx,2 shl 16+12*3
496	; draw frame for messages data	496	; draw frame for messages data
497	push ecx	497	push ecx
498	add ecx,50 shl 16+16	498	add ecx,50 shl 16+16
499	mcall 38,<3,423>,,[color_table+36]	499	mcall 38,<3,423>,,[color_table.gui_frame]
500	add ecx,224*(1 shl 16+1)	500	add ecx,224*(1 shl 16+1)
501	mcall	501	mcall
502	sub cx,224	502	sub cx,224
503	mcall ,<3,3>	503	mcall ,<3,3>
504	mcall ,<423,423>	504	mcall ,<423,423>
Line 506...	Line 506...
506	ret	506	ret
507	;*********************************************************************	507	;*********************************************************************
508	draw_buttons:	508	draw_buttons:
509	; define compress button	509	; define compress button
510	mov cx,18	510	mov cx,18
511	mcall 8,<351,72>,<1, 17>,2,[color_table+24]	511	mcall 8,<351,73>,<1, 17>,2,[color_table.btn_face]
512	; uncompress button	512	; uncompress button
513	add ecx,18 shl 16	513	add ecx,18 shl 16
514	inc edx	514	inc edx
515	mcall	515	mcall
516	add ecx,-12h+0Ah+140000h	516	;add ecx,-12h+0Ch+140000h
-		517	mov ecx, 38 shl 16 + 11
517	; question button	518	; question button
518	push esi	519	push esi
519	mov dl,7	520	mov dl,7
520	mcall ,<414,9>	521	mcall ,<413,11>
521	shr ecx,16	522	shr ecx,16
522	lea ebx,[ecx+1A10002h]	523	lea ebx,[ecx+1A00002h]
523	mcall 4,,[color_table+28],aQuestion,1	524	mcall 4,,[color_table.btn_text],aQuestion,1
524	pop esi	525	pop esi
525	; define settings buttons	526	; define settings buttons
526	mov ecx,16*2+2	527	mov ecx,16*2+2
527	shl ecx,16	528	shl ecx,16
528	mov cx,13	529	mov cx,13
529	mcall 8,<6,50>,,4	530	mcall 8,<6,50>,,4
530	; text on settings buttons	531	; text on settings buttons
531	mov ebx,9 shl 16+5	532	mov ebx,8 shl 16+5
532	mov al,4	533	mov al,4
533	mov ecx,[color_table+32]	534	mov ecx,[color_table.win_text]
534	push buttons1names	535	push buttons1names
535	pop edx	536	pop edx
536	push 8	537	push 8
537	pop esi	538	pop esi
538	;--------------------------------------	539	;--------------------------------------
Line 540...	Line 541...
540	add edx,esi	541	add edx,esi
541	add ebx,16	542	add ebx,16
542	mcall	543	mcall
543	add edx,esi	544	add edx,esi
544	add ebx,16	545	add ebx,16
545	mov ecx,[color_table+28]	546	mov ecx,[color_table.btn_text]
546	mcall	547	mcall
547	; text on compress and decompress buttons	548	; text on compress and decompress buttons
548	or ecx,80000000h	549	or ecx,0x80000000
549	mcall ,<364,6>,,aCompress	550	mcall ,<364,6>,,aCompress
550	mcall ,<359,24>,,aDecompress	551	mcall ,<359,24>,,aDecompress
551	ret	552	ret
552	;*********************************************************************	553	;*********************************************************************
553	;Pack procedures	554	;Pack procedures

Subversion Repositories Kolibri OS

(root)/programs/other/kpack/trunk/kpack.asm – Rev 3946 → 4978