TChromeTabs 优化改进
已知未解决问题
- 全屏时当窗体失去焦点,则会显示出未绘制完成的原标题栏(Fixed);
- 处于非 Areo 效果下时,窗体标题栏需要定制。
- 新增按钮上的 Hint 提示后再移至其它标签,将无法重新提示。
1、解决全屏时未重新计算 ChromeTabs 占有的客户区问题。
全屏时 TChromeTabsGlassForm 窗体仍然会为 ChromeTabs 保留一个位置,因此,需要修改如下代码(在 ChromeTabsGlassForm.pas):
procedure TChromeTabsGlassForm.AdjustClientRect(var Rect: TRect); begin inherited; if ShowTabsInTitleBar then Inc(Rect.Top, GlassFrame.Top); end;
为如下代码
procedure TChromeTabsGlassForm.AdjustClientRect(var Rect: TRect); begin inherited; if ShowTabsInTitleBar and ChromeTabs.Visible then Inc(Rect.Top, GlassFrame.Top); end;
解决启动时窗体最大化时,左边有一白色竖线问题(未更新),需要修改 ChromeTabsGlassForm.pas 文件如下代码:
procedure TChromeTabsGlassForm.WMNCCalcSize(var Message: TWMNCCalcSize); begin if ShowTabsInTitleBar and ChromeTabs.Visible then begin if WindowState = wsMaximized then Inc(Message.CalcSize_Params.rgrc[].Left, FWndFrameSize + ) else Inc(Message.CalcSize_Params.rgrc[].Left, FWndFrameSize); Dec(Message.CalcSize_Params.rgrc[].Right, FWndFrameSize); Dec(Message.CalcSize_Params.rgrc[].Bottom, FWndFrameSize); end else inherited; end;
为如下代码:
procedure TChromeTabsGlassForm.WMNCCalcSize(var Message: TWMNCCalcSize); begin if ShowTabsInTitleBar and ChromeTabs.Visible then begin if WindowState = wsMaximized then Inc(Message.CalcSize_Params.rgrc[].Left, FWndFrameSize) else Inc(Message.CalcSize_Params.rgrc[].Left, FWndFrameSize); Dec(Message.CalcSize_Params.rgrc[].Right, FWndFrameSize); Dec(Message.CalcSize_Params.rgrc[].Bottom, FWndFrameSize); end else inherited; end;
2、为 TChromeTab 控件增加自定义的图标,而不使用 ImageList。
首先是 ChromeTabsClasses.pas
IChromeTabs 接口定义,增加如下接口方法,用于根据 Tab 的索引取得 TChromeTab 对象。尝试过使用 IChromeTab 对象强制转换为 TChromeTab 然后取 Picture 的值,只能取到空值。
function GetTabByIndex(index: integer): TChromeTab;
IChromeTab 接口的定义,增加如下方法。
function GetPicture: TPicture;
TChromeTab 类中增加如下属性和方法
TChromeTab = class(TCollectionItem, IChromeTab) private FPicture: TPicture; function GetPicture: TPicture; procedure SetPicture(const Value: TPicture); public constructor Create(Collection: TCollection); override; //要增加内容 destructor Destroy; override; //要增加内容 published property Picture: TPicture read FPicture write SetPicture; end;
增加的相关代码
constructor TChromeTab.Create(Collection: TCollection); begin FCollection := Collection; FImageIndex := -; FImageIndexOverlay := -; FVisible := TRUE; FPicture := TPicture.Create; //此行新增。 // Inherited needs to be here so the property values are // set before it is called inherited; // GetChromeTabInterface.TabCreate(Self); end; destructor TChromeTab.Destroy; begin // GetChromeTabInterface.TabDestroy(Self); FPicture.Free; //此行新增。 inherited; if FTabControl <> nil then FTabControl.Free; end; procedure TChromeTab.SetPicture(const Value: TPicture); begin FPicture.Assign(Value); end; function TChromeTab.GetPicture: TPicture; begin Result := FPicture; end;
ChromeTabs.pas 文件,修改 TCustomChromeTabs 类,增加新方法如下
function TCustomChromeTabs.GetTabByIndex(index: integer): TChromeTab; begin Result := FTabs[index]; end;
ChromeTabsControls.pas 文件,修改 CalculateRects 方法内容如下:
procedure TChromeTabControl.CalculateRects(var ImageRect, TextRect, CloseButtonRect, CloseButtonCrossRect: TRect; var NormalImageVisible, OverlayImageVisible, SpinnerVisible, TextVisible: Boolean); var LeftOffset, RightOffset, ImageWidth, ImageHeight: Integer; //xiefang Added. tab: TChromeTab; begin ...//关键是增加这个条件,以免图标位置计算错误以及不显示图标。 tab := ChromeTabs.GetTabByIndex(ChromeTab.GetIndex); //xiefang added. NormalImageVisible := Assigned(tab.Picture.Graphic) and (not tab.Picture.Graphic.Empty); //xiefang added. if not NormalImageVisible then //xiefang added. NormalImageVisible := ImageVisible(ChromeTabs.GetImages, ChromeTab.GetImageIndex); OverlayImageVisible := ImageVisible(ChromeTabs.GetImagesOverlay, ChromeTab.GetImageIndexOverlay); SpinnerVisible := (ChromeTab.GetSpinnerState <> tssNone) and (not (csDesigning in ChromeTabs.GetComponentState)); ... end;
TChromeTabControl.DrawTo 方法中嵌套方法 DrawImage() 修改如下
procedure DrawImage(Images: TCustomImageList; ImageIndex: Integer; ImageRect: TRect; ChromeTabItemType: TChromeTabItemType); var ImageBitmap: TGPImage; Handled: Boolean; tab: TChromeTab;//Xiefang Add. 2016-05-30 begin ChromeTabs.DoOnBeforeDrawItem(TabCanvas, ImageRect, ChromeTabItemType, ChromeTab.GetIndex, Handled); if not Handled then begin tab := ChromeTabs.GetTabByIndex(ChromeTab.GetIndex); //Xiefang Add. 2016-05-30 if Assigned(tab.Picture.Graphic) and (not tab.Picture.Graphic.Empty) then //Xiefang Add. 2016-05-30 begin //Xiefang Add. 2016-05-30 ImageBitmap := GraphicToGPBitmap(tab.Picture.Graphic); end else begin ImageBitmap := ImageListToTGPImage(Images, ImageIndex); end; try TabCanvas.DrawImage(ImageBitmap, ImageRect.Left, ImageRect.Top); finally FreeAndNil(ImageBitmap); end; end; ChromeTabs.DoOnAfterDrawItem(TabCanvas, ImageRect, ChromeTabItemType, ChromeTab.GetIndex); end;
ChromeTabsUtils.pas 中,增加公共方法如下
function GraphicToGPBitmap(Graphic: TGraphic): TGPBitmap; var MemStream: TMemoryStream; begin MemStream := TMemoryStream.Create; try Graphic.SaveToStream(MemStream); MemStream.Position := ; except FreeAndNil(MemStream); raise; end; Result := TGPBitmap.Create(TStreamAdapter.Create(MemStream, soOwned)); end;
大功告成。设置 ChromeTab 中的 Picture 属性为一个图标即可显示。
TChromeTabs 优化改进的更多相关文章
- 美团分布式ID生成框架Leaf源码分析及优化改进
本文主要是对美团的分布式ID框架Leaf的原理进行介绍,针对Leaf原项目中的一些issue,对Leaf项目进行功能增强,问题修复及优化改进,改进后的项目地址在这里: Leaf项目改进计划 https ...
- 冒泡排序(Bubble Sort),比较次数优化改进
body, table{font-family: 微软雅黑; font-size: 13.5pt} table{border-collapse: collapse; border: solid gra ...
- 记录下push推送优化改进点
一)自主研发的push服务的特点及优势: 1) 消息回执确认(ack); 2) 有效期推送(设置消息的有效期); 3) 精准推送(设置设备组别推送); 4) 下发任务分解(拆分任务,多进程); 5) ...
- 如何写出高质量的Python代码--做好优化--改进算法点滴做起
小伙伴你的程序还是停留在糊墙吗?优化代码可以显示程序员的素质欧! 普及一下基础了欧: 一层for简写:y = [1,2,3,4,5,6],[(i*2) for i in y ] 会输出 ...
- IntelliJ IDEA 2021.3 正式发布:支持远程开发、IDE故障排查等多项优化改进
作者:程序猿DD 博客:https://blog.didispace.com/ 昨天刚刚跟大家聊了Jetbrains即将推出轻量级编辑器Fleet,以挑战 VS Code的消息,今天又收到了Intel ...
- P1011 传纸条//dp优化改进状态表示
P1011 传纸条 时间: 1000ms / 空间: 131072KiB / Java类名: Main 背景 NOIP2008复赛提高组第三题 描述 小渊和小轩是好朋友也是同班同学,他们在一起总有谈不 ...
- Netty实现高性能RPC服务器优化篇之消息序列化
在本人写的前一篇文章中,谈及有关如何利用Netty开发实现,高性能RPC服务器的一些设计思路.设计原理,以及具体的实现方案(具体参见:谈谈如何使用Netty开发实现高性能的RPC服务器).在文章的最后 ...
- C#.NET 大型企业信息化系统集成快速开发平台 4.2 版本 - 多软件系统集成缓存体系改进
由于我们同时开发多个大型应用系统同时系统有大量用户.高并发用户,平时访问系统的用户数量就有3万多人在线.需要对几十个系统进行持续优化改进,同时要增强信息系统的各种安全性. 如此多的系统.如此多的用户, ...
- HBase设计与开发性能优化(转)
本文主要是从HBase应用程序设计与开发的角度,总结几种常用的性能优化方法.有关HBase系统配置级别的优化,这里涉及的不多,这部分可以参考:淘宝Ken Wu同学的博客. 1. 表的设计 1.1 Pr ...
随机推荐
- Java [Leetcode 229]Bulls and Cows
题目描述: You are playing the following Bulls and Cows game with your friend: You write down a number an ...
- (转)c & c++内存分配
一.预备知识—程序的内存分配 一个由c/C++编译的程序占用的内存分为以下几个部分1.栈区(stack)— 由编译器自动分配释放 ,存放函数的参数值,局部变量的值等.其操作方式类似于 数据结构中的栈. ...
- 【转】android 自定义控件 使用declare-styleable进行配置属性(源码角度)
原文网址:http://blog.csdn.net/vipzjyno1/article/details/23696537 最近在模仿今日头条,发现它的很多属性都是通过自定义控件并设定相关的配置属性进行 ...
- javascript中常用数组函数
1.split方法——通过分隔符,将字符串分割,导出字符数组 常用于:分割IP地址,分割文件路径(上传文件时)等等 <!DOCTYPE html PUBLIC "-//W3C//DTD ...
- 怎样查看Eclipse是32位还是64位
首先进入到Eclipse的安装目录,如下图: 查找到文件名为"eclipse.ini" 文件,使用文本编辑工具,或记事本打开,如下图: 如图中的红框所示,如果是win32.x8 ...
- SPFile的使用
转:http://blog.csdn.net/pclzr/article/details/7591741 SPFile对应于SharePoint对象模型中的文件,它的使用方法与SPFolder类大致相 ...
- OLAP、OLTP的介绍和比较 via csdn
OLAP.OLTP的介绍和比较 数据处理大致可以分成两大类: OLTP(On-Line Transaction Processing)联机事务处理 也称为面向交易的处理系统,其基本特征是顾客的原始数据 ...
- 36、Android Bitmap 全面解析
Android Bitmap 全面解析(一)加载大尺寸图片 http://www.eoeandroid.com/thread-331669-1-1.html Android Bitmap 全面解析(二 ...
- 【Unity入门】场景编辑与场景漫游快捷键
版权声明:本文为博主原创文章,转载请注明出处. 打开Unity主窗口,选择顶部菜单栏的“GameObject”->“3D Object”->“Plane”在游戏场景里面添加一个面板对象.然 ...
- 关于webpack最好的文档
这几天研究webpack打包工具,在网上搜了无数的资料,鱼龙混杂.看了几十份资料,依然没有一个可以完整的描述的. 折腾了那么久,还是放弃治疗了.回到官网,一字一句的阅读,一个小时就彻底明白了. 学习新 ...