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 | { |