Commit 8b61a891 authored by Jason Rumney's avatar Jason Rumney

* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.

(pfnSetLayeredWindowAttributes): New function pointer.
(w32_initialize): Initialize it when supported.
(x_set_frame_alpha): New function.

* w32fns.c (Fx_create_frame): Initialize frame parameter `alpha'.
(w32_frame_parm_handlers): Set alpha handler.

* frame.c (x_set_alpha) [HAVE_NTGUI]: Call x_set_frame_alpha.
parent a7d54520
2008-06-28 Jason Rumney <jasonr@gnu.org>
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
(pfnSetLayeredWindowAttributes): New function pointer.
(w32_initialize): Initialize it when supported.
(x_set_frame_alpha): New function.
* w32fns.c (Fx_create_frame): Initialize frame parameter `alpha'.
(w32_frame_parm_handlers): Set alpha handler.
* frame.c (x_set_alpha) [HAVE_NTGUI]: Call x_set_frame_alpha.
2008-06-27 Jason Rumney <jasonr@gnu.org> 2008-06-27 Jason Rumney <jasonr@gnu.org>
* w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight) * w32fns.c (x_to_w32_font, w32_to_x_font, x_to_w32_weight)
......
...@@ -3692,7 +3692,7 @@ x_set_alpha (f, arg, oldval) ...@@ -3692,7 +3692,7 @@ x_set_alpha (f, arg, oldval)
for (i = 0; i < 2; i++) for (i = 0; i < 2; i++)
f->alpha[i] = newval[i]; f->alpha[i] = newval[i];
#ifdef HAVE_X_WINDOWS #if defined (HAVE_X_WINDOWS) || defined (HAVE_NTGUI)
BLOCK_INPUT; BLOCK_INPUT;
x_set_frame_alpha (f); x_set_frame_alpha (f);
UNBLOCK_INPUT; UNBLOCK_INPUT;
......
...@@ -4521,6 +4521,8 @@ This function is an internal primitive--use `make-frame' instead. */) ...@@ -4521,6 +4521,8 @@ This function is an internal primitive--use `make-frame' instead. */)
"cursorType", "CursorType", RES_TYPE_SYMBOL); "cursorType", "CursorType", RES_TYPE_SYMBOL);
x_default_parameter (f, parameters, Qscroll_bar_width, Qnil, x_default_parameter (f, parameters, Qscroll_bar_width, Qnil,
"scrollBarWidth", "ScrollBarWidth", RES_TYPE_NUMBER); "scrollBarWidth", "ScrollBarWidth", RES_TYPE_NUMBER);
x_default_parameter (f, parameters, Qalpha, Qnil,
"alpha", "Alpha", RES_TYPE_NUMBER);
/* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size. /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
Change will not be effected unless different from the current Change will not be effected unless different from the current
...@@ -6883,7 +6885,7 @@ frame_parm_handler w32_frame_parm_handlers[] = ...@@ -6883,7 +6885,7 @@ frame_parm_handler w32_frame_parm_handlers[] =
0, /* x_set_wait_for_wm, */ 0, /* x_set_wait_for_wm, */
x_set_fullscreen, x_set_fullscreen,
x_set_font_backend, x_set_font_backend,
0 /* x_set_alpha, */ x_set_alpha
}; };
void void
......
...@@ -139,8 +139,12 @@ typedef struct tagGLYPHSET ...@@ -139,8 +139,12 @@ typedef struct tagGLYPHSET
#endif #endif
/* Dynamic linking to GetFontUnicodeRanges (not available on 95, 98, ME). */ /* Dynamic linking to SetLayeredWindowAttribute (only since 2000). */
DWORD (PASCAL *pfnGetFontUnicodeRanges) (HDC device, GLYPHSET *ranges); BOOL (PASCAL *pfnSetLayeredWindowAttributes) (HWND, COLORREF, BYTE, DWORD);
#ifndef LWA_ALPHA
#define LWA_ALPHA 0x02
#endif
/* Frame being updated by update_frame. This is declared in term.c. /* Frame being updated by update_frame. This is declared in term.c.
This is set by update_begin and looked at by all the This is set by update_begin and looked at by all the
...@@ -412,6 +416,53 @@ w32_clear_window (f) ...@@ -412,6 +416,53 @@ w32_clear_window (f)
release_frame_dc (f, hdc); release_frame_dc (f, hdc);
} }
#define OPAQUE_FRAME 255
void
x_set_frame_alpha (f)
struct frame *f;
{
struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
double alpha = 1.0;
double alpha_min = 1.0;
BYTE opac;
LONG ex_style;
HWND window = FRAME_W32_WINDOW (f);
/* Older versions of Windows do not support transparency. */
if (!pfnSetLayeredWindowAttributes)
return;
if (dpyinfo->x_highlight_frame == f)
alpha = f->alpha[0];
else
alpha = f->alpha[1];
if (FLOATP (Vframe_alpha_lower_limit))
alpha_min = XFLOAT_DATA (Vframe_alpha_lower_limit);
else if (INTEGERP (Vframe_alpha_lower_limit))
alpha_min = (XINT (Vframe_alpha_lower_limit)) / 100.0;
if (alpha < 0.0 || 1.0 < alpha)
alpha = 1.0;
else if (alpha < alpha_min && alpha_min <= 1.0)
alpha = alpha_min;
opac = alpha * OPAQUE_FRAME;
ex_style = GetWindowLong (window, GWL_EXSTYLE);
if (opac == OPAQUE_FRAME)
ex_style ^= WS_EX_LAYERED;
else
ex_style |= WS_EX_LAYERED;
SetWindowLong (window, GWL_EXSTYLE, ex_style);
if (opac != OPAQUE_FRAME)
pfnSetLayeredWindowAttributes (window, 0, opac, LWA_ALPHA);
}
/*********************************************************************** /***********************************************************************
Starting and ending an update Starting and ending an update
...@@ -2616,6 +2667,7 @@ frame_highlight (f) ...@@ -2616,6 +2667,7 @@ frame_highlight (f)
struct frame *f; struct frame *f;
{ {
x_update_cursor (f, 1); x_update_cursor (f, 1);
x_set_frame_alpha (f);
} }
static void static void
...@@ -2623,6 +2675,7 @@ frame_unhighlight (f) ...@@ -2623,6 +2675,7 @@ frame_unhighlight (f)
struct frame *f; struct frame *f;
{ {
x_update_cursor (f, 1); x_update_cursor (f, 1);
x_set_frame_alpha (f);
} }
/* The focus has changed. Update the frames as necessary to reflect /* The focus has changed. Update the frames as necessary to reflect
...@@ -6291,15 +6344,15 @@ w32_initialize () ...@@ -6291,15 +6344,15 @@ w32_initialize ()
UINT smoothing_type; UINT smoothing_type;
BOOL smoothing_enabled; BOOL smoothing_enabled;
HANDLE gdi_lib = LoadLibrary ("gdi32.dll"); HANDLE user_lib = LoadLibrary ("user32.dll");
#define LOAD_PROC(lib, fn) pfn##fn = (void *) GetProcAddress (lib, #fn) #define LOAD_PROC(lib, fn) pfn##fn = (void *) GetProcAddress (lib, #fn)
LOAD_PROC (gdi_lib, GetFontUnicodeRanges); LOAD_PROC (user_lib, SetLayeredWindowAttributes);
#undef LOAD_PROC #undef LOAD_PROC
FreeLibrary (gdi_lib); FreeLibrary (user_lib);
/* Ensure scrollbar handle is at least 5 pixels. */ /* Ensure scrollbar handle is at least 5 pixels. */
vertical_scroll_bar_min_handle = 5; vertical_scroll_bar_min_handle = 5;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment