Subversion Repositories Kolibri OS

Rev

Rev 3363 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3363 Rev 3434
Line 99... Line 99...
99 
:void PutShadow(dword x,y,w,h,border,strength)
 99 
:void PutShadow(dword x,y,w,h,border,strength)
100 
{
 100 
{
101 
	proc_info wForm;
 101 
	proc_info wForm;
102 
	dword shadow_buf, skin_height;
 102 
	dword shadow_buf, skin_height;
103 
	shadow_buf = mem_Alloc(w*h*3);
 103 
	shadow_buf = mem_Alloc(w*h*3);
104 
 	//skin_height = GetSkinHeight();
 - 
 
105 
 	GetProcessInfo(#wForm, SelfInfo);
 104 
 	GetProcessInfo(#wForm, SelfInfo);
106 
	CopyScreen(shadow_buf, x+wForm.left, y+wForm.top, w, h);
 105 
	CopyScreen(shadow_buf, 5*border+x+wForm.left, GetSkinHeight()*border+y+wForm.top, w, h);
107 
	ShadowImage(shadow_buf, w, h, strength);
 106 
	ShadowImage(shadow_buf, w, h, strength);
108 
	_PutImage(x,y,w,h,shadow_buf);
 107 
	_PutImage(x,y,w,h,shadow_buf);
109 
	mem_Free(shadow_buf);
 108 
	mem_Free(shadow_buf);
110 
}
 109 
}