comparison src/w32term.c @ 96403:4b6d1b55f59c

* 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.

96402:7f88a1df4a80

  WCRANGE ranges[1];
} GLYPHSET;

#endif

/* Dynamic linking to GetFontUnicodeRanges (not available on 95, 98, ME).  */
DWORD (PASCAL *pfnGetFontUnicodeRanges) (HDC device, GLYPHSET *ranges);

/* Frame being updated by update_frame.  This is declared in term.c.
   This is set by update_begin and looked at by all the
   w32 functions.  It is zero while not inside an update.
   In that case, the w32 functions assume that `SELECTED_FRAME ()'

    }

  release_frame_dc (f, hdc);
}


/***********************************************************************
		    Starting and ending an update
 ***********************************************************************/

static void
frame_highlight (f)
     struct frame *f;
{
  x_update_cursor (f, 1);
}

static void
frame_unhighlight (f)
     struct frame *f;
{
  x_update_cursor (f, 1);
}

/* The focus has changed.  Update the frames as necessary to reflect
   the new situation.  Note that we can't change the selected frame
   here, because the Lisp code we are interrupting might become confused.

  /* Dynamically link to optional system components.  */
  {
    UINT smoothing_type;
    BOOL smoothing_enabled;

    HANDLE gdi_lib = LoadLibrary ("gdi32.dll");

#define LOAD_PROC(lib, fn) pfn##fn = (void *) GetProcAddress (lib, #fn)

    LOAD_PROC (gdi_lib, GetFontUnicodeRanges);

#undef LOAD_PROC

    FreeLibrary (gdi_lib);

    /* Ensure scrollbar handle is at least 5 pixels.  */
    vertical_scroll_bar_min_handle = 5;

    /* For either kind of scroll bar, take account of the arrows; these

96403:4b6d1b55f59c

  WCRANGE ranges[1];
} GLYPHSET;

#endif

/* Dynamic linking to SetLayeredWindowAttribute (only since 2000).  */
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.
   This is set by update_begin and looked at by all the
   w32 functions.  It is zero while not inside an update.
   In that case, the w32 functions assume that `SELECTED_FRAME ()'

    }

  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
 ***********************************************************************/

static void
frame_highlight (f)
     struct frame *f;
{
  x_update_cursor (f, 1);
  x_set_frame_alpha (f);
}

static void
frame_unhighlight (f)
     struct frame *f;
{
  x_update_cursor (f, 1);
  x_set_frame_alpha (f);
}

/* The focus has changed.  Update the frames as necessary to reflect
   the new situation.  Note that we can't change the selected frame
   here, because the Lisp code we are interrupting might become confused.

  /* Dynamically link to optional system components.  */
  {
    UINT smoothing_type;
    BOOL smoothing_enabled;

    HANDLE user_lib = LoadLibrary ("user32.dll");

#define LOAD_PROC(lib, fn) pfn##fn = (void *) GetProcAddress (lib, #fn)

    LOAD_PROC (user_lib, SetLayeredWindowAttributes);

#undef LOAD_PROC

    FreeLibrary (user_lib);

    /* Ensure scrollbar handle is at least 5 pixels.  */
    vertical_scroll_bar_min_handle = 5;

    /* For either kind of scroll bar, take account of the arrows; these