Rev 3363 | Rev 3991 | 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 | } |