[Visual Studio 2008 RTM, WindowsVista Business]
[XAMLコード]
<Window
x:Class="WpfApplication1.Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Window1" Height="300" Width="300"
AllowsTransparency="True" Background="Transparent" WindowStyle="None">
<Border BorderBrush="#FF404040" BorderThickness="1" CornerRadius="5">
<Border BorderBrush="#FFFFFFFF" BorderThickness="1" CornerRadius="5">
</Border>
</Border>
</Window>
[C#コード]
using System;
using System.Runtime.InteropServices;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Interop;
using System.Windows.Media;
namespace WpfApplication1
{
public partial class Window1 : Window
{
public Window1()
{
InitializeComponent();
}
protected override void OnSourceInitialized(EventArgs e)
{
base.OnSourceInitialized(e);
GlassExtender.ExtendGlassFrame(this, new Thickness(-1));
}
}
public static class GlassExtender
{
[DllImport("dwmapi.dll", PreserveSig = false)]
static extern void DwmExtendFrameIntoClientArea(IntPtr hwnd, ref MARGINS MARGINS);
[DllImport("dwmapi.dll", PreserveSig = false)]
static extern bool DwmIsCompositionEnabled();
struct MARGINS
{
public int Left;
public int Right;
public int Top;
public int Bottom;
public MARGINS(Thickness t)
{
Left = (int)t.Left;
Right = (int)t.Right;
Top = (int)t.Top;
Bottom = (int)t.Bottom;
}
}
public static bool ExtendGlassFrame(Window target, Thickness t)
{
if (!DwmIsCompositionEnabled()) return false;
IntPtr handle = new WindowInteropHelper(target).Handle;
if (handle == IntPtr.Zero) throw new InvalidOperationException("このウィンドウはGlass機能を使用できません。");
target.Background = Brushes.Transparent;
HwndSource.FromHwnd(handle).CompositionTarget.BackgroundColor = Colors.Transparent;
MARGINS margins = new MARGINS(t);
DwmExtendFrameIntoClientArea(handle, ref margins);
return true;
}
}
}
上記ソースは、WindowStyleがNoneのWindowにDwmExtendFrameIntoClientAreaでVistaのAero効果を付けているのですが、
透明なWindowが表示されてしまいます。
これは、WPFの仕様なのですか？
よろしくお願いします。
