6

如何在 vista 上的标题栏中绘制文本（使用 onClick 事件），如 Windows 7 一样？

替代文字 http://img529.imageshack.us/img529/3643/immaginembl.jpg

delphi.about.com上的示例不适用于带有 Aero 的 Vista。你有什么想法？

谢谢大家。

对不起，我的英语不好。

4

6 回答 6

4

在非客户区域中绘图会导致玻璃自动禁用。MS Office 所做的是扩展客户区域以覆盖边界。查看这篇 WPF 文章的“使用玻璃在 NC 区域中绘图”部分以获取建议。恐怕您必须自己将 API 调用转换为 Delphi。

于 2009-07-22T21:11:35.773 回答
3

关键是 API DwmExtendFrameIntoClientArea

你应该声明它并像这样得到它：

DwmExtendFrameIntoClientAreaFunc = function(destWnd: HWND; const pMarInset: PMargins): HRESULT; stdcall; 
@fDwmExtendFrameIntoClientArea := GetProcAddress(hDWMDLL, 'DwmExtendFrameIntoClientArea');

您还可以在此处移植代码：Translucent Windows with Aero

没有框架你称之为：

DWM_ExtendFrameIntoClientArea(Form1.Handle, -1, -1, -1, -1);

有了这一切，实现你想要的应该不难。

于 2009-07-23T05:34:44.983 回答
0

感谢 DrawTextOnGlass 代码。b.handle b.canvas.handle但要按预期工作，我需要更换DrawThemeTextEx

于 2010-05-31T17:59:31.820 回答
0

在 Delphi 2009 中，TLabel 有一个名为“GlowSize”的新属性（参见帮助）。为这个属性设置一个正值的效果非常接近您想要的效果（标签文本周围的光晕）。

于 2009-07-24T20:23:51.073 回答
0

扩展框架是一回事，绘制 Vista 主题（发光）文本是另一回事。使用 Canvas.TextOut 或 DrawText，输出会弄乱 alpha，这将产生您得到的效果。您需要使用 DrawThemeTextEx。以下是在玻璃上绘制文字的正确程序：

uses Themes, UxTheme;

procedure DrawTextOnGlass(Canvas: TCanvas; Text: String; R: TRect);
var
  memoryHdc: HDC;
  b: TBitmap;
  dttOpts: TDTTOpts;
  DR: TRect;
  bf: TBlendFunction;
begin
  b := TBitmap.Create;
  try
    memoryHdc := CreateCompatibleDC(Canvas.Handle);

    b.Handle := memoryHdc;
    b.HandleType := bmDIB;
    b.PixelFormat := pf32bit;
    b.SetSize(R.Right - R.Left, R.Top - R.Bottom);
    b.Canvas.Font := Canvas.Font;

    DR := R;
    OffsetRect(DR, -DR.Left, -DR.Top);
    Inflaterect(dr, -5, -5);
    b.Canvas.Brush.Color := clBlack;
    b.Canvas.FillRect(DR);

    dttOpts.dwSize := SizeOf(TDTTOpts);
    dttOpts.iGlowSize := 8;
    dttOpts.dwFlags := DTT_COMPOSITED or DTT_GLOWSIZE or DTT_TEXTCOLOR;

    DrawThemeTextEx(ThemeServices.Theme[teWindow], b.Handle, WP_CAPTION, CS_ACTIVE, Text, -1,
      DT_CENTER or DT_VCENTER or DT_SINGLELINE or DT_NOPREFIX, DR, dttOpts);
  if GetLastError <> 0 then
        RaiseLastOSError;


    bf.BlendOp := AC_SRC_OVER;
    bf.BlendFlags := 0;
    bf.SourceConstantAlpha := 255;
    bf.AlphaFormat := AC_SRC_ALPHA;

    AlphaBlend(Canvas.Handle, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top,
      b.Canvas.Handle, 0, 0, R.Right - R.Left, R.Bottom - R.Top, bf);
  finally
    b.Free;
  end;
end;
于 2009-11-18T15:57:07.430 回答
0

您需要对 DwmSetWindowAttribute 进行一次调用，之后一切都非常简单。检查这篇文章，特别是评论:) http://delphihaven.wordpress.com/2010/04/22/setting-up-a-custom-title-bar-reprise/

于 2010-11-22T20:35:42.413 回答