- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我使用Delphi7,带有所有者绘制的PageControl。我无法获得如此简单且漂亮的选项卡外观,正如我在非所有者绘制的 PageControl 上看到的那样。有什么不好的:使用owner-draw时,我无法在“整个”选项卡标题区域上绘制,选项卡标题周围的1-2px小框架是由操作系统绘制的。
1)Delphi不是所有者绘制的,看起来也不错(使用XPMan):
2)Delphi所有者绘制,你看到不是整个选项卡标题都可以着色(使用XPMan):
我在这里用蓝色绘制当前选项卡,用白色绘制其他选项卡。仅举个例子。代码:
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
c: TCanvas;
begin
c:= (Control as TPageControl).Canvas;
if Active then
c.Brush.Color:= clBlue
else
c.Brush.Color:= clWhite;
c.FillRect(Rect);
end;
2b)真实应用程序中的 Delphi 所有者绘制(使用 XPMan):
为什么我需要使用所有者绘制?简单的。在选项卡标题上绘制 X 按钮,用自定义颜色绘制上线,从图像列表中绘制图标。
我正在寻找一种方法来绘制选项卡标题的整个矩形,而不是减少为 PageControl 所有者绘制事件提供的矩形。我尝试增加所有者绘制事件给出的矩形,但这没有帮助,操作系统无论如何都会在选项卡标题周围重新绘制这个薄的 1-2px 框架。
最佳答案
所有者的选项卡绘制了 native “选项卡控件”(VCL 中的 TPageControl
,尽管它的上一代被适本地命名为 TCustomTabControl
- 任何人都猜测为什么有创意的命名。 .),预计在处理 WM_DRAWITEM
消息时由其父控件绘制,如 documented here .
VCL 通过将消息转变为 CN_DRAWITEM
消息并将其发送到控件本身来承担父级的负担。在此过程中VCL没有进一步干预。如果由用户代码分配,它只会调用 OnDrawTab
消息处理程序,并传递适当的参数。
因此,绘制选项卡边框的不是 VCL,而是操作系统本身。而且,显然,它不会在处理 WM_DRAWITEM
消息期间执行此操作,而是在稍后的绘制过程中执行此操作。您可以通过在页面控件的父级上放置一个空的 WM_DRAWITEM
处理程序来验证这一点。结果是,无论我们在事件处理程序中绘制什么,它稍后都会由操作系统获得边框。
我们可能会尝试阻止操作系统绘制的内容生效,毕竟我们有设备上下文(如 Canvas.Handle)。不幸的是,这条路线也是一个死胡同,因为 VCL 在事件处理程序返回后恢复设备上下文的状态。
那么,我们唯一的方法就是完全放弃处理 OnDrawTab
事件,并根据 CN_DRAWITEM
消息进行操作。下面的示例代码使用插入器类,但您可以按照自己喜欢的方式对控件进行子类化。确保已设置 OwnerDrawn
。
type
TPageControl = class(comctrls.TPageControl)
protected
procedure CNDrawitem(var Message: TWMDrawItem); message CN_DRAWITEM;
end;
TForm1 = class(TForm)
..
..
procedure TPageControl.CNDrawitem(var Message: TWMDrawItem);
var
Color: TColor;
Rect: TRect;
Rgn: HRGN;
begin
Color := 0;
// draw in different colors so we see where we've drawn
case Message.DrawItemStruct.itemID of
0: Color := $D0C0BF;
1: Color := $D0C0DF;
2: Color := $D0C0FF;
end;
SetDCBrushColor(Message.DrawItemStruct.hDC, Color);
// we don't want to get clipped in the passed rectangle
SelectClipRgn(Message.DrawItemStruct.hDC, 0);
// magic numbers corresponding to where the OS draw the borders
Rect := Message.DrawItemStruct.rcItem;
if Bool(Message.DrawItemStruct.itemState and ODS_SELECTED) then begin
Inc(Rect.Left, 2);
// Inc(Rect.Top, 1);
Dec(Rect.Right, 2);
Dec(Rect.Bottom, 3);
end else begin
Dec(Rect.Left, 2);
Dec(Rect.Top, 2);
Inc(Rect.Right, 2);
Inc(Rect.Bottom);
end;
FillRect(Message.DrawItemStruct.hDC, Rect,
GetStockObject(DC_BRUSH));
// just some indication for the active tab
SetROP2(Message.DrawItemStruct.hDC, R2_NOTXORPEN);
if Bool(Message.DrawItemStruct.itemState and ODS_SELECTED) then
Ellipse(Message.DrawItemStruct.hDC, Rect.Left + 4, Rect.Top + 4,
Rect.Left + 12, Rect.Top + 12);
// we want to clip the DC so that the borders to be drawn are out of region
Rgn := CreateRectRgn(0, 0, 0, 0);
SelectClipRgn(Message.DrawItemStruct.hDC, Rgn);
DeleteObject(Rgn);
Message.Result := 1;
inherited;
end;
以下是上面的内容:
关于delphi - 使所有者绘制的 TPageControl 选项卡看起来更好,就像没有所有者绘制一样,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18282728/
我在主窗体上有一个带有 TPageControl 的应用程序。 pagecontrol 有几个选项卡。该应用程序可以最小化为托盘图标。有时在运行最小化一段时间后,当我恢复主窗口(通过鼠标右键单击托盘图
我的问题是我有一个 TPageControl,其中包含动态创建的多个选项卡,每个选项卡包含一个 (alClient) TMemo。当选项卡数量超过控件的宽度并且滚动箭头出现在选项卡标题上时,我的所有(
我被一个表现出一些奇怪行为的 TPageControl 困住了.. 该控件有 3 个页面,但是当我这样做时 for I:=0 to PageControl.PageCount-1 do begin
我想通过带有圆角的 TPagecontrols 来改善我的应用程序的外观,就像 DELPHI IDE 本身使用的圆角一样。我怎样才能做到这一点 ???? 最佳答案 Delphi IDE 使用 TTab
如何获取对象所在页面的编号?例如:第一页有Button1,第二页有Button2,如果没有ActivePageIndex,如何获取有Button1的页码?谢谢。 最佳答案 想要找到特定类的最近父类是很
我已经搜索和搜索,但没有找到示例。我想动态创建PageControl每个实例都有自己的偏移量TTabsheets .我没有收到来自 Delphi IDE 的任何投诉,但是我确实得到了: Access
我是 Delphi 新手(再次强调 - 我早在 1994 年就使用过 Delphi)。我现在有 Delphi 2009 Pro。 来自Java,我发现对象继承非常晦涩难懂。 我的用户想要选项卡位于左侧
我有这个表格: 绿色箭头:选项卡常规,我希望保持它始终可见,但是当表单小于选项卡时,TPageControl 会创建一个导航器(红色箭头)。 这很好,但我希望允许用户导航,但继续显示单击“常规”选项卡
在将软件开发从 VCL 框架工作更改为 Firemonkey 时,我无法理解 TPagecontrol 组件从良好的旧 VCL 框架中消失了。 我已经在我的表单上放置了一个 TTabControl 并
我希望将上下文菜单添加到 TPageControl 的(只是)选项卡,以区别于选项卡区域(例如,像 Delphi 那样提供文件/页面选项)。我知道我可以用 TRzPageControl 做到这一点,但
我正在使用页面控制组件,我需要添加一个按钮并单击它以转到指定页面。 请问我该怎么做? 最佳答案 向表单添加一个按钮并编写一个 OnClick 事件处理程序,如下所示: procedure TMyFor
当我向 TPageControl 的 OnChange 事件添加慢速代码时,我遇到了问题。 如果代码速度很快并且不需要花费很多时间,那就没问题。 但是,如果代码需要很长时间才能返回 +/- 0.5 到
我有一个应用程序,使用 TNotebook 在所示的不同子页面之间切换。 现在我必须稍微扩展此代码(即添加页面并更改大小)。 我被告知不应再使用 TNotebook。在 Delphi 的帮助中,我找到
我正在使用 Delphi 7 代码,以确保在用户切换选项卡之前已保存在选项卡上输入的注释。 这些选项卡位于 TPageControl ,并且此代码被触发 OnExit procedure TfCall
我正在尝试在 TPageControl 上使用 TLinkLabel,但找不到让它使用其父级背景的方法。 // Image removed because the website doesn't ex
我使用Delphi7,带有所有者绘制的PageControl。我无法获得如此简单且漂亮的选项卡外观,正如我在非所有者绘制的 PageControl 上看到的那样。有什么不好的:使用owner-draw
我需要 catch "OnMouseEnter"和 "0nMouseLeave"对于的某个区域TPageControl 组件 .对于那个特定区域,我的意思是 整个“标签页眉”矩形 . 问题是,页面控制
检查下面的图片! 如何在 TPageControl 内的两个 TGroupBox 之间放置 TSplitter? 我还尝试将 TGroupBox 包装在 TPanels 中,并将 TSplitter
我想在 PageControl 上实现一个关闭按钮,我也读过这个问题 How to implement a close button for a TTabsheet of a TPageControl
我有一个 VCL 表单,上面有五个选项卡 TPageControl。每个 TTabSheet 的内容都相当不相关,并且有很多单独的控件和处理逻辑...所以我想将其分解,以便更容易处理“仅该选项卡”的代
我是一名优秀的程序员,十分优秀!