WebSVN – Kolibri OS – Blame – /kernel/branches/Kolibri-acpi/gui/skincode.inc

Rev	Author	Line No.	Line
431	serge	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
2465	Serge	3	;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;
431	serge	4	;; Distributed under terms of the GNU General Public License ;;
		5	;; ;;
		6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		7
593	mikedld	8	$Revision: 3589 $
		9
		10
7	me_root	11	include "skindata.inc"
1	ha	12
381	serge	13	;skin_data = 0x00778000
2439	Serge	14	;------------------------------------------------------------------------------
		15	align 4
523	diamond	16	read_skin_file:
		17	stdcall load_file, ebx
		18	test eax, eax
		19	jz .notfound
3589	Serge	20
523	diamond	21	cmp dword [eax], 'SKIN'
		22	jnz .noskin
3589	Serge	23
		24	xchg eax, [skin_data]
		25	test eax, eax
		26	jz @f
		27
		28	stdcall kernel_free, eax
523	diamond	29	@@:
		30	call parse_skin_data
		31	xor eax, eax
		32	ret
2439	Serge	33	;--------------------------------------
		34	align 4
523	diamond	35	.notfound:
		36	xor eax, eax
		37	inc eax
		38	ret
2439	Serge	39	;--------------------------------------
		40	align 4
523	diamond	41	.noskin:
		42	stdcall kernel_free, eax
3589	Serge	43	mov eax, 2
523	diamond	44	ret
2439	Serge	45	;------------------------------------------------------------------------------
2434	Serge	46	struct SKIN_HEADER
		47	ident dd ?
		48	version dd ?
		49	params dd ?
		50	buttons dd ?
		51	bitmaps dd ?
49	mikedld	52	ends
1	ha	53
2434	Serge	54	struct SKIN_PARAMS
		55	skin_height dd ?
		56	margin.right dw ?
		57	margin.left dw ?
		58	margin.bottom dw ?
		59	margin.top dw ?
		60	colors.inner dd ?
		61	colors.outer dd ?
		62	colors.frame dd ?
		63	colors_1.inner dd ?
		64	colors_1.outer dd ?
		65	colors_1.frame dd ?
		66	dtp.size dd ?
		67	dtp.data rb 40
49	mikedld	68	ends
1	ha	69
2434	Serge	70	struct SKIN_BUTTONS
		71	type dd ?
		72	; position
		73	left dw ?
		74	top dw ?
		75	; size
		76	width dw ?
		77	height dw ?
49	mikedld	78	ends
1	ha	79
2434	Serge	80	struct SKIN_BITMAPS
		81	kind dw ?
		82	type dw ?
		83	data dd ?
49	mikedld	84	ends
2439	Serge	85	;------------------------------------------------------------------------------
		86	align 4
523	diamond	87	load_default_skin:
2434	Serge	88	mov [_skinh], 22
		89	mov ebx, _skin_file_default
523	diamond	90	call read_skin_file
49	mikedld	91	ret
2439	Serge	92	;------------------------------------------------------------------------------
		93	align 4
49	mikedld	94	parse_skin_data:
3589	Serge	95	mov ebp, [skin_data]
2434	Serge	96	cmp [ebp+SKIN_HEADER.ident], 'SKIN'
49	mikedld	97	jne .exit
1	ha	98
2434	Serge	99	mov edi, skin_udata
		100	mov ecx, (skin_udata.end-skin_udata)/4
		101	xor eax, eax
54	mikedld	102	cld
2434	Serge	103	rep stosd
54	mikedld	104
2434	Serge	105	mov ebx, [ebp+SKIN_HEADER.params]
3589	Serge	106	add ebx, [skin_data]
2434	Serge	107	mov eax, [ebx+SKIN_PARAMS.skin_height]
		108	mov [_skinh], eax
		109	mov eax, [ebx+SKIN_PARAMS.colors.inner]
		110	mov [skin_active.colors.inner], eax
		111	mov eax, [ebx+SKIN_PARAMS.colors.outer]
		112	mov [skin_active.colors.outer], eax
		113	mov eax, [ebx+SKIN_PARAMS.colors.frame]
		114	mov [skin_active.colors.frame], eax
		115	mov eax, [ebx+SKIN_PARAMS.colors_1.inner]
		116	mov [skin_inactive.colors.inner], eax
		117	mov eax, [ebx+SKIN_PARAMS.colors_1.outer]
		118	mov [skin_inactive.colors.outer], eax
		119	mov eax, [ebx+SKIN_PARAMS.colors_1.frame]
		120	mov [skin_inactive.colors.frame], eax
		121	lea esi, [ebx+SKIN_PARAMS.dtp.data]
		122	mov edi, common_colours
		123	mov ecx, [ebx+SKIN_PARAMS.dtp.size]
		124	and ecx, 127
		125	rep movsb
		126	mov eax, dword[ebx+SKIN_PARAMS.margin.right]
		127	mov dword[_skinmargins+0], eax
		128	mov eax, dword[ebx+SKIN_PARAMS.margin.bottom]
		129	mov dword[_skinmargins+4], eax
1	ha	130
2434	Serge	131	mov ebx, [ebp+SKIN_HEADER.bitmaps]
3589	Serge	132	add ebx, [skin_data]
2439	Serge	133	;--------------------------------------
		134	align 4
		135	.lp1:
2434	Serge	136	cmp dword[ebx], 0
49	mikedld	137	je .end_bitmaps
2434	Serge	138	movzx eax, [ebx+SKIN_BITMAPS.kind]
		139	movzx ecx, [ebx+SKIN_BITMAPS.type]
49	mikedld	140	dec eax
		141	jnz .not_left
2434	Serge	142	xor eax, eax
		143	mov edx, skin_active.left.data
		144	or ecx, ecx
49	mikedld	145	jnz @f
2434	Serge	146	mov edx, skin_inactive.left.data
2439	Serge	147	;--------------------------------------
		148	align 4
		149	@@:
2434	Serge	150	jmp .next_bitmap
2439	Serge	151	;--------------------------------------
		152	align 4
		153	.not_left:
49	mikedld	154	dec eax
		155	jnz .not_oper
2434	Serge	156	mov esi, [ebx+SKIN_BITMAPS.data]
3589	Serge	157	add esi, [skin_data]
2434	Serge	158	mov eax, [esi+0]
49	mikedld	159	neg eax
2434	Serge	160	mov edx, skin_active.oper.data
		161	or ecx, ecx
49	mikedld	162	jnz @f
2434	Serge	163	mov edx, skin_inactive.oper.data
2439	Serge	164	;--------------------------------------
		165	align 4
		166	@@:
2434	Serge	167	jmp .next_bitmap
2439	Serge	168	;--------------------------------------
		169	align 4
		170	.not_oper:
49	mikedld	171	dec eax
		172	jnz .not_base
2434	Serge	173	mov eax, [skin_active.left.width]
		174	mov edx, skin_active.base.data
		175	or ecx, ecx
49	mikedld	176	jnz @f
2434	Serge	177	mov eax, [skin_inactive.left.width]
		178	mov edx, skin_inactive.base.data
2439	Serge	179	;--------------------------------------
		180	align 4
		181	@@:
2434	Serge	182	jmp .next_bitmap
2439	Serge	183	;--------------------------------------
		184	align 4
		185	.not_base:
2434	Serge	186	add ebx, 8
49	mikedld	187	jmp .lp1
2439	Serge	188	;--------------------------------------
		189	align 4
		190	.next_bitmap:
2434	Serge	191	mov ecx, [ebx+SKIN_BITMAPS.data]
3589	Serge	192	add ecx, [skin_data]
2434	Serge	193	mov [edx+4], eax
		194	mov eax, [ecx+0]
		195	mov [edx+8], eax
		196	add ecx, 8
		197	mov [edx+0], ecx
		198	add ebx, 8
49	mikedld	199	jmp .lp1
2439	Serge	200	;--------------------------------------
		201	align 4
		202	.end_bitmaps:
2434	Serge	203	mov ebx, [ebp+SKIN_HEADER.buttons]
3589	Serge	204	add ebx, [skin_data]
2439	Serge	205	;--------------------------------------
		206	align 4
		207	.lp2:
2434	Serge	208	cmp dword[ebx], 0
49	mikedld	209	je .end_buttons
2434	Serge	210	mov eax, [ebx+SKIN_BUTTONS.type]
49	mikedld	211	dec eax
		212	jnz .not_close
2434	Serge	213	mov edx, skin_btn_close
49	mikedld	214	jmp .next_button
2439	Serge	215	;--------------------------------------
		216	align 4
		217	.not_close:
49	mikedld	218	dec eax
		219	jnz .not_minimize
2434	Serge	220	mov edx, skin_btn_minimize
49	mikedld	221	jmp .next_button
2439	Serge	222	;--------------------------------------
		223	align 4
		224	.not_minimize:
2434	Serge	225	add ebx, 12
49	mikedld	226	jmp .lp2
2439	Serge	227	;--------------------------------------
		228	align 4
		229	.next_button:
2434	Serge	230	movsx eax, [ebx+SKIN_BUTTONS.left]
		231	mov [edx+SKIN_BUTTON.left], eax
		232	movsx eax, [ebx+SKIN_BUTTONS.top]
		233	mov [edx+SKIN_BUTTON.top], eax
		234	movsx eax, [ebx+SKIN_BUTTONS.width]
		235	mov [edx+SKIN_BUTTON.width], eax
		236	movsx eax, [ebx+SKIN_BUTTONS.height]
		237	mov [edx+SKIN_BUTTON.height], eax
		238	add ebx, 12
49	mikedld	239	jmp .lp2
2439	Serge	240	;--------------------------------------
		241	align 4
		242	.end_buttons:
		243	.exit:
49	mikedld	244	ret
2439	Serge	245	;------------------------------------------------------------------------------
		246	align 4
114	mikedld	247	drawwindow_IV_caption:
		248
2434	Serge	249	mov ebp, skin_active
		250	or al, al
114	mikedld	251	jnz @f
2434	Serge	252	mov ebp, skin_inactive
2439	Serge	253	;--------------------------------------
		254	align 4
		255	@@:
2434	Serge	256	mov esi, [esp+4]
		257	mov eax, [esi+WDATA.box.width] ; window width
		258	mov edx, [ebp+SKIN_DATA.left.left]
		259	shl edx, 16
		260	mov ecx, [ebp+SKIN_DATA.left.width]
		261	shl ecx, 16
		262	add ecx, [_skinh]
114	mikedld	263
		264	mov ebx, [ebp+SKIN_DATA.left.data]
2439	Serge	265	or ebx, ebx
		266	jz @f
		267	call sys_putimage.forced
		268	;--------------------------------------
		269	align 4
		270	@@:
2434	Serge	271	mov esi, [esp+4]
		272	mov eax, [esi+WDATA.box.width]
		273	sub eax, [ebp+SKIN_DATA.left.width]
		274	sub eax, [ebp+SKIN_DATA.oper.width]
		275	cmp eax, [ebp+SKIN_DATA.base.left]
114	mikedld	276	jng .non_base
2434	Serge	277	xor edx, edx
		278	mov ecx, [ebp+SKIN_DATA.base.width]
114	mikedld	279	jecxz .non_base
		280	div ecx
		281
		282	inc eax
		283
2434	Serge	284	mov ebx, [ebp+SKIN_DATA.base.data]
		285	mov ecx, [ebp+SKIN_DATA.base.width]
		286	shl ecx, 16
		287	add ecx, [_skinh]
		288	mov edx, [ebp+SKIN_DATA.base.left]
		289	sub edx, [ebp+SKIN_DATA.base.width]
		290	shl edx, 16
2439	Serge	291	;--------------------------------------
		292	align 4
		293	.baseskinloop:
2434	Serge	294	shr edx, 16
		295	add edx, [ebp+SKIN_DATA.base.width]
		296	shl edx, 16
114	mikedld	297
		298	push eax ebx ecx edx
2439	Serge	299
		300	or ebx, ebx
		301	jz @f
		302	call sys_putimage.forced
		303	;--------------------------------------
		304	align 4
		305	@@:
114	mikedld	306	pop edx ecx ebx eax
		307
		308	dec eax
		309	jnz .baseskinloop
2439	Serge	310	;--------------------------------------
		311	align 4
		312	.non_base:
114	mikedld	313
2434	Serge	314	mov esi, [esp+4]
		315	mov edx, [esi+WDATA.box.width]
		316	sub edx, [ebp+SKIN_DATA.oper.width]
114	mikedld	317	inc edx
2434	Serge	318	shl edx, 16
		319	mov ebx, [ebp+SKIN_DATA.oper.data]
114	mikedld	320
2434	Serge	321	mov ecx, [ebp+SKIN_DATA.oper.width]
		322	shl ecx, 16
		323	add ecx, [_skinh]
114	mikedld	324
2439	Serge	325	or ebx, ebx
		326	jz @f
		327	call sys_putimage.forced
		328	;--------------------------------------
		329	align 4
		330	@@:
114	mikedld	331	ret
2439	Serge	332	;------------------------------------------------------------------------------
		333	align 4
1	ha	334	drawwindow_IV:
35	halyavin	335	;param1 - aw_yes
1	ha	336	pusha
		337
2434	Serge	338	push edx
1	ha	339
2434	Serge	340	mov edi, edx
1	ha	341
2434	Serge	342	mov ebp, skin_active
		343	cmp byte [esp+32+4+4], 0
49	mikedld	344	jne @f
2434	Serge	345	mov ebp, skin_inactive
2439	Serge	346	;--------------------------------------
		347	align 4
		348	@@:
2434	Serge	349	mov eax, [edi+WDATA.box.left]
		350	shl eax, 16
		351	mov ax, word [edi+WDATA.box.left]
		352	add ax, word [edi+WDATA.box.width]
		353	mov ebx, [edi+WDATA.box.top]
		354	shl ebx, 16
		355	mov bx, word [edi+WDATA.box.top]
		356	add bx, word [edi+WDATA.box.height]
		357	mov esi, [ebp+SKIN_DATA.colors.outer]
		358	or esi, 1 shl 25 ; 0x02000000 used for draw_rectangle without top line
		359	ror ebx, 16
		360	add ebx, [_skinh]
		361	sub bx, 1
		362	rol ebx, 16
		363	call draw_rectangle
		364	mov ecx, 3
2439	Serge	365	;--------------------------------------
		366	align 4
		367	_dw3l:
2434	Serge	368	add eax, 1*65536-1
		369	add ebx, 0*65536-1
		370	test ax, ax
		371	js no_skin_add_button
		372	test bx, bx
		373	js no_skin_add_button
		374	mov esi, [ebp+SKIN_DATA.colors.frame];[edi+24]
		375	or esi, 1 shl 25; 0x02000000 used for draw_rectangle without top line
		376	call draw_rectangle
		377	dec ecx
		378	jnz _dw3l
		379	mov esi, [ebp+SKIN_DATA.colors.inner]
		380	or esi, 1 shl 25; 0x02000000 used for draw_rectangle without top line
		381	add eax, 1*65536-1
		382	add ebx, 0*65536-1
		383	test ax, ax
		384	js no_skin_add_button
		385	test bx, bx
		386	js no_skin_add_button
2467	Serge	387	test [edi + WDATA.fl_wstate], WSTATE_ROLLEDUP
		388	jnz @f
2434	Serge	389	call draw_rectangle
2467	Serge	390	;--------------------------------------
		391	align 4
		392	@@:
3589	Serge	393	mov eax, [skin_data]
		394	cmp [eax], dword 'SKIN'
2434	Serge	395	je @f
		396	xor eax, eax
		397	xor ebx, ebx
		398	mov esi, [esp]
		399	mov ecx, [esi+WDATA.box.width]
		400	inc ecx
		401	mov edx, [_skinh]
		402	mov edi, [common_colours+4]; standard grab color
2465	Serge	403	; call [drawbar]
		404	call vesa20_drawbar
2434	Serge	405	jmp draw_clientbar
2439	Serge	406	;--------------------------------------
		407	align 4
		408	@@:
2434	Serge	409	mov al, [esp+32+4+4]
114	mikedld	410	call drawwindow_IV_caption
2439	Serge	411	;--------------------------------------
		412	align 4
		413	draw_clientbar:
2434	Serge	414	mov esi, [esp]
1	ha	415
2434	Serge	416	mov edx, [esi+WDATA.box.top] ; WORK AREA
		417	add edx, 21+5
		418	mov ebx, [esi+WDATA.box.top]
		419	add ebx, [esi+WDATA.box.height]
		420	cmp edx, ebx
		421	jg _noinside2
		422	mov eax, 5
		423	mov ebx, [_skinh]
		424	mov ecx, [esi+WDATA.box.width]
		425	mov edx, [esi+WDATA.box.height]
		426	sub ecx, 4
		427	sub edx, 4
		428	mov edi, [esi+WDATA.cl_workarea]
		429	test edi, 0x40000000
		430	jnz _noinside2
2465	Serge	431	; call [drawbar]
		432	call vesa20_drawbar
2439	Serge	433	;--------------------------------------
		434	align 4
		435	_noinside2:
3589	Serge	436	mov eax, [skin_data]
		437	cmp [eax], dword 'SKIN'
2434	Serge	438	jne no_skin_add_button
49	mikedld	439	;* close button
2434	Serge	440	mov edi, [BTN_ADDR]
		441	movzx eax, word [edi]
		442	cmp eax, 1000
		443	jge no_skin_add_button
		444	inc eax
		445	mov [edi], ax
1	ha	446
2434	Serge	447	shl eax, 4
		448	add eax, edi
1	ha	449
2434	Serge	450	mov bx, [CURRENT_TASK]
		451	mov [eax], bx
1	ha	452
2434	Serge	453	add eax, 2 ; save button id number
		454	mov bx, 1
		455	mov [eax], bx
		456	add eax, 2 ; x start
		457	xor ebx, ebx
		458	cmp [skin_btn_close.left], 0
		459	jge _bCx_at_right
		460	mov ebx, [esp]
		461	mov ebx, [ebx+WDATA.box.width]
		462	inc ebx
2439	Serge	463	;--------------------------------------
		464	align 4
		465	_bCx_at_right:
2434	Serge	466	add ebx, [skin_btn_close.left]
		467	mov [eax], bx
		468	add eax, 2 ; x size
		469	mov ebx, [skin_btn_close.width]
		470	dec ebx
		471	mov [eax], bx
		472	add eax, 2 ; y start
		473	mov ebx, [skin_btn_close.top]
		474	mov [eax], bx
		475	add eax, 2 ; y size
		476	mov ebx, [skin_btn_close.height]
		477	dec ebx
		478	mov [eax], bx
1	ha	479	;* minimize button
2434	Serge	480	mov edi, [BTN_ADDR]
		481	movzx eax, word [edi]
		482	cmp eax, 1000
		483	jge no_skin_add_button
		484	inc eax
		485	mov [edi], ax
1	ha	486
2434	Serge	487	shl eax, 4
		488	add eax, edi
1	ha	489
2434	Serge	490	mov bx, [CURRENT_TASK]
		491	mov [eax], bx
1	ha	492
2434	Serge	493	add eax, 2 ; save button id number
		494	mov bx, 65535;999
		495	mov [eax], bx
		496	add eax, 2 ; x start
		497	xor ebx, ebx
		498	cmp [skin_btn_minimize.left], 0
		499	jge _bMx_at_right
		500	mov ebx, [esp]
		501	mov ebx, [ebx+WDATA.box.width]
		502	inc ebx
2439	Serge	503	;--------------------------------------
		504	align 4
		505	_bMx_at_right:
2434	Serge	506	add ebx, [skin_btn_minimize.left]
		507	mov [eax], bx
		508	add eax, 2 ; x size
		509	mov ebx, [skin_btn_minimize.width]
		510	dec ebx
		511	mov [eax], bx
		512	add eax, 2 ; y start
		513	mov ebx, [skin_btn_minimize.top]
		514	mov [eax], bx
		515	add eax, 2 ; y size
		516	mov ebx, [skin_btn_minimize.height]
		517	dec ebx
		518	mov [eax], bx
2439	Serge	519	;--------------------------------------
		520	align 4
		521	no_skin_add_button:
186	diamond	522	pop edi
1	ha	523	popa
2434	Serge	524	ret 4
2439	Serge	525	;------------------------------------------------------------------------------

Subversion Repositories Kolibri OS

(root)/kernel/branches/Kolibri-acpi/gui/skincode.inc – Rev 3589