Subversion Repositories Kolibri OS

Rev

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

Rev 3434 Rev 3991
Line 94... Line 94...
94
	DefineButton(x-1,y-1,w,10,btn_id+BT_HIDE,0);
94
	DefineButton(x-1,y-1,w,10,btn_id+BT_HIDE,0);
95
	DrawBar(x,y+8,w,1,0x4E00E7);
95
	DrawBar(x,y+8,w,1,0x4E00E7);
96
}
96
}
Line 97... Line 97...
97
 
97
 
98
 
98
 
99
:void PutShadow(dword x,y,w,h,border,strength)
99
:void PutShadow(dword x,y,w,h,skinned,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
 	GetProcessInfo(#wForm, SelfInfo);
104
 	GetProcessInfo(#wForm, SelfInfo);
105
	CopyScreen(shadow_buf, 5*border+x+wForm.left, GetSkinHeight()*border+y+wForm.top, w, h);
105
	CopyScreen(shadow_buf, 5*skinned+x+wForm.left, GetSkinHeight()*skinned+y+wForm.top, w, h);
106
	ShadowImage(shadow_buf, w, h, strength);
106
	ShadowImage(shadow_buf, w, h, strength);
107
	_PutImage(x,y,w,h,shadow_buf);
107
	_PutImage(x,y,w,h,shadow_buf);
Line -... Line 108...
-
 
108
	mem_Free(shadow_buf);
-
 
109
}
-
 
110
 
-
 
111
:void DrawPopupShadow(dword x,y,w,h,skinned)
-
 
112
{
-
 
113
	PutShadow(w+x+1,y,1,h+2,skinned,2);
-
 
114
	PutShadow(w+x+2,y+1,1,h+2,skinned,1);
-
 
115
	PutShadow(x,y+h+2,w+2,1,skinned,2);
-
 
116
	PutShadow(x+1,y+h+3,w+1,1,skinned,1);
-
 
117
}
-
 
118
 
-
 
119
:void DrawPopup(dword x,y,w,h,skinned, col_work,col_border)
-
 
120
{
-
 
121
	DrawRectangle(x,y,w,h,col_border);
-
 
122
	DrawRectangle3D(x+1,y+1,w-2,h-2,0xFFFfff,col_work);
-
 
123
	DrawBar(x+2,y+2,w-3,h-3,col_work);
108
	mem_Free(shadow_buf);
124
	DrawPopupShadow(x,y,w,h-1,skinned);
109
}
125
}
110
 
126
 
111
:void GrayScaleImage(dword color_image, w, h)
127
:void GrayScaleImage(dword color_image, w, h)
112
{
128
{