- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在一个相当大的具有多种形式的应用程序中自定义绘制我的标题栏,并决定尝试用老式的方式来完成它,通过自己处理一些消息并在处理 WM_NCPAINT 时进行绘图。
这幅画本身进展顺利并且基本上有效。但其中一件事是行不通的,那就是绘制 TMainMenu。要么我让默认的 WM_NCACTIVATE 处理程序在绘制之前绘制整个非客户区域(我必须在 WM_NCPAINT 处理程序中执行 WM_NCACTIVATE 消息),这会导致似乎无法帮助的闪烁。或者我可以尝试让 WM_NCPAINT 的默认处理程序仅绘制包含 TMainMenu 的 Rect,这会产生平滑的结果,但不会重新绘制菜单。
我的问题是:
我已经尝试了几次,我认为我的方法是正确的,但遇到了困难;我对我正在做的事情没有足够的了解,并且似乎找不到关于它的明确文档。我的代码中最重要的部分是:
RedrawWindow(Handle, nil, MenuRegion, RDW_INVALIDATE or RDW_FRAME or RDW_NOERASE or RDW_ALLCHILDREN or RDW_UPDATENOW);
我认为这正是问题所在。 (或者更确切地说,是我计算“MenuRegion”的代码。我只是不知道它是否出了问题,因为我使用了错误的坐标系,或者是否因为我完全以错误的方式进行了处理。
这是我的代码的简化版本,它将在 delphi (xe3) 中“按原样”编译和运行:
unit Unit3;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus;
type
TForm3 = class(TForm)
private
FDrawMenu: Boolean;
function CalcFrameRegion: HRGN;
function CalcMenuRegion: HRGN;
procedure DrawMenu;
procedure FormFrame(minimal: Boolean = false);
procedure WMNCActivate(var message: TWMNCActivate); message WM_NCACTIVATE;
procedure WMNCPaint(var message: TMessage); message WM_NCPAINT;
procedure WMSIZE(var message : TWMSIZE); message WM_SIZE;
constructor Create(AOwner: TComponent); override;
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
{ TForm3 }
function TForm3.CalcFrameRegion: HRGN;
var
YCaption, YFrame, XFrame: Integer;
begin
YCaption := GetSystemMetrics(SM_CYCaption);
YFrame := GetSystemMetrics(SM_CYFRAME);
XFrame := GetSystemMetrics(SM_CXFRAME);
Result := CreateRectRgn(0, 0, YCaption + YFrame, Width);
Result := Result + CreateRectRgn(0, 0, Height, XFrame);
Result := Result + CreateRectRgn(0, Height - YFrame, Width, Height);
Result := Result + CreateRectRgn(Width - XFrame, 0, Width, Height);
end;
function TForm3.CalcMenuRegion: HRGN;
var
XFrame, YFrame, YCaption, YMenu: Integer;
begin
XFrame := GetSystemMetrics(SM_CXFRAME);
YFrame := GetSystemMetrics(SM_CYFRAME);
YCaption := GetSystemMetrics(SM_CYCAPTION);
YMenu := GetSystemMetrics(SM_CYMENU);
Result := CreateRectRgn(XFrame, YFrame + YCaption, Width - XFrame, YFrame + YCaption + YMenu);
end;
constructor TForm3.Create(AOwner: TComponent);
var
testItem: TMenuItem;
begin
inherited;
// Creating a MainMenu and attatching it to the form.
Menu := TMainMenu.Create(self);
// The menu need san item.
testItem := TMenuItem.Create(Menu);
testItem.Caption := 'test';
Menu.Items.Add(testItem);
FDrawMenu := false;
end;
procedure TForm3.FormFrame(minimal: Boolean);
var
YCaption, YFrame, XFrame: Integer;
begin
YCaption := GetSystemMetrics(SM_CYCaption);
YFrame := GetSystemMetrics(SM_CYFRAME);
XFrame := GetSystemMetrics(SM_CXFRAME);
Canvas.Handle := GetWindowDC(Handle);
Canvas.Pen.Style := psClear;
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := clRed;
if not minimal then begin
Canvas.Rectangle(0, 0, Width + 1, YCaption + YFRame + 1);
Canvas.Rectangle(0, YCaption + YFRame, XFrame + 1, Height + 1);
Canvas.Rectangle(XFrame, Height - YFrame, Width + 1, Height + 1);
Canvas.Rectangle(Width - XFrame, YCaption + YFRame, Width + 1, Height - YFrame + 1);
end;
end;
procedure TForm3.DrawMenu;
var
MenuRegion: HRGN;
begin
if Assigned(Menu) then begin
MenuRegion := CalcMenuRegion;
FDrawMenu := true; // Make sure the inherited handler gets called.
// Force a redraw of the region defined by MenuRegion.
RedrawWindow(Handle, nil, MenuRegion,
RDW_INVALIDATE or RDW_FRAME or RDW_NOERASE or RDW_ALLCHILDREN or RDW_UPDATENOW);
FDrawMenu := false; // Use the FormFrame function again.
end;
end;
procedure TForm3.WMNCActivate(var message: TWMNCActivate);
begin
FormFrame;
message.Result := 1; // This makes sure the message gets handled properly.
end;
procedure TForm3.WMNCPaint(var message: TMessage);
begin
if FDrawMenu then
inherited // Gets called when the Menu has to be drawn.
else
FormFrame; // Gets called in all other cases.
end;
procedure TForm3.WMSIZE(var message: TWMSIZE);
begin
inherited;
DrawMenu;
end;
end.
最佳答案
“当我自己处理 WM_NCPAINT 时,如何才能重绘 TMainMenu 并且只重绘 TMainmenu?”
理论上你可以修改WM_NCPAINT
传递的区域。定义一个与菜单栏区域相对应的区域,省略其余部分。以下是概念证明:
procedure TForm3.WMNCPaint(var Message: TWMNCPaint);
var
R: TRect;
MenubarInfo: TMenuBarInfo;
MenuRgn: HRGN;
begin
FormFrame( whatever );
MenubarInfo.cbSize := SizeOf(MenubarInfo);
GetMenuBarInfo(Handle, OBJID_MENU, 0, MenubarInfo);
MenuRgn := CreateRectRgnIndirect(MenubarInfo.rcBar);
if Message.RGN <> 1 then
DeleteObject(Message.RGN);
Message.RGN := MenuRgn;
inherited;
end;
实际上,你最终会放弃这条路线。请注意上面示例中“1”的测试。 documentation 中未提及更新区域的伪句柄。 。然而对于普通窗口来说,区域句柄始终为“1”。事实上,非客户处理从未被正确记录。我的猜测是,这是因为操作系统本身不遵守规则。以在默认处理 WM_NCACTIVATE
期间绘制 NC 区域的情况为例。激活与NC喷漆有什么关系?为什么操作系统会在你背后作画?
我的建议是,走VCL风格已经走的路线。进入绘图 NC 区域后,将其全部绘制。菜单栏区域是非客户区域的一部分。
关于delphi - 自己处理 WM_NCPAINT 时强制重新绘制 TMainMenu,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24020728/
我学习 SDL 二维编程已有一段时间了,现在我想创建一个结合使用 SDL 和 OpenGL 的程序。我是这样设置的: SDL_Init(SDL_INIT_VIDEO); window = SDL_Cr
尝试查找可在地块中使用的不同类型项目的列表 来自不同样本的投影类型: projection = list(type = "equirectangular") projection = list(typ
我正在尝试使用 Java Graphics API 绘制 GIF,但无法使用下面的代码成功绘制 GIF。仅绘制 GIF 的第一张图像或缩略图,但不播放。 public void paintCompon
我目前正在使用 JFrame 并尝试绘制一个矩形,但我不知道如何执行代码 paint(Graphics g),如何获取 Graphics 对象? package com.raggaer.frame;
这个领域的新手,希望得到一些帮助。 我有一个"Missile.java" 类,我在那里画东西。我想绘制一个 ImageView,我正在使用以下代码: ImageView v = (ImageView)
下面列出了圆形的例子 这是我的 JavaScript 代码。 最佳答案 假设您的 randomColor 是正确的,您只需要: 从 canvas.onclick 中移除 context.clearR
我在绘制和缩放 ImageView 时遇到问题。请帮帮我.. 当我画一些东西然后拖动或缩放图像时 - 绘图保留在原处,如您在屏幕截图中所见。而且我只需要简单地在图片上绘图,并且可以缩放和拖动这张图片。
我们可以在形式之外绘制图像和文本...我的意思是在字面上... 我知道问这个问题很愚蠢但是我们能不能... 最佳答案 您可以通过创建表单并将其 TransparentColor 属性设置为背景色来“作
我在绘制/布局期间收到 3 个对象分配警告 super.onDraw(canvas); canvas.drawColor(Color.WHITE); Paint textPaint = new Pai
我有一个示例时间序列数据框: df = pd.DataFrame({'year':'1990','1991','1992','1993','1994','1995','1996',
我试图想出一种简洁的方法来绘制 R 数据框中所有列的 GridView 。问题是我的数据框中既有离散值又有数值。为简单起见,我们可以使用 R 提供的名为 iris 的示例数据集。我会使用 par(mf
我有一个由 10 列和 50 行组成的 data.frame。我使用 apply 函数逐列计算密度函数。现在我想绘制我一次计算的密度。 换句话说,而不是绘图... plot(den[[1]]) plo
我想知道我们如何才能在第一个和第二个组件之外绘制个人,如下所示: 最佳答案 这可能有效: pc.cr <- princomp(USArrests, cor = TRUE) pairs(pc.cr$lo
我是Pandas和matplotlib的新手,想绘制此DataFrame season won team matches pct_won 0 20
我正在尝试为 distplot 子图编写一个 for 循环。 我有一个包含许多不同长度列的数据框。 (不包括 NaN 值) fig = make_subplots( rows=len(asse
我想创建一个具有密度的 3d 图。 我使用函数 density 首先为特定的 x 值创建一个二维图,然后该函数创建密度并将它们放入 y 变量中。现在我有第二组 x 值并将其再次放入密度函数中,然后我得
全部, 我一直在研究全局所有 MTB 步道的索引。我是 Python 人,所以对于所有涉及的步骤,我都尝试使用 Python 模块。 我能够像这样从 OSM 立交桥 API 中获取关系: from O
我正在使用 e1071 包中的支持向量机对我的数据进行分类,并希望可视化机器实际如何进行分类。但是,在使用 plot.svm 函数时,出现无法解决的错误。 脚本: library("e1071") d
我制作了以下图表,它是使用 xts 对象创建的。 我使用的代码很简单 plot(graphTS1$CCLL, type = "l", las = 2, ylab = "(c)\nCC for I
在绘制状态图时,您如何知道哪些状态放在框中,哪些状态用于转换箭头?我注意到转换也是状态。 我正在查看 this page 上的图 1 : 最佳答案 转换不是状态。转换是将对象从一种状态移动到下一种状态
我是一名优秀的程序员,十分优秀!