已知未解决问题

  • 全屏时当窗体失去焦点,则会显示出未绘制完成的原标题栏(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 优化改进的更多相关文章

  1. 美团分布式ID生成框架Leaf源码分析及优化改进

    本文主要是对美团的分布式ID框架Leaf的原理进行介绍,针对Leaf原项目中的一些issue,对Leaf项目进行功能增强,问题修复及优化改进,改进后的项目地址在这里: Leaf项目改进计划 https ...

  2. 冒泡排序(Bubble Sort),比较次数优化改进

    body, table{font-family: 微软雅黑; font-size: 13.5pt} table{border-collapse: collapse; border: solid gra ...

  3. 记录下push推送优化改进点

    一)自主研发的push服务的特点及优势: 1) 消息回执确认(ack); 2) 有效期推送(设置消息的有效期); 3) 精准推送(设置设备组别推送); 4) 下发任务分解(拆分任务,多进程); 5) ...

  4. 如何写出高质量的Python代码--做好优化--改进算法点滴做起

    小伙伴你的程序还是停留在糊墙吗?优化代码可以显示程序员的素质欧! 普及一下基础了欧: 一层for简写:y = [1,2,3,4,5,6],[(i*2) for i in y ]       会输出  ...

  5. IntelliJ IDEA 2021.3 正式发布:支持远程开发、IDE故障排查等多项优化改进

    作者:程序猿DD 博客:https://blog.didispace.com/ 昨天刚刚跟大家聊了Jetbrains即将推出轻量级编辑器Fleet,以挑战 VS Code的消息,今天又收到了Intel ...

  6. P1011 传纸条//dp优化改进状态表示

    P1011 传纸条 时间: 1000ms / 空间: 131072KiB / Java类名: Main 背景 NOIP2008复赛提高组第三题 描述 小渊和小轩是好朋友也是同班同学,他们在一起总有谈不 ...

  7. Netty实现高性能RPC服务器优化篇之消息序列化

    在本人写的前一篇文章中,谈及有关如何利用Netty开发实现,高性能RPC服务器的一些设计思路.设计原理,以及具体的实现方案(具体参见:谈谈如何使用Netty开发实现高性能的RPC服务器).在文章的最后 ...

  8. C#.NET 大型企业信息化系统集成快速开发平台 4.2 版本 - 多软件系统集成缓存体系改进

    由于我们同时开发多个大型应用系统同时系统有大量用户.高并发用户,平时访问系统的用户数量就有3万多人在线.需要对几十个系统进行持续优化改进,同时要增强信息系统的各种安全性. 如此多的系统.如此多的用户, ...

  9. HBase设计与开发性能优化(转)

    本文主要是从HBase应用程序设计与开发的角度,总结几种常用的性能优化方法.有关HBase系统配置级别的优化,这里涉及的不多,这部分可以参考:淘宝Ken Wu同学的博客. 1. 表的设计 1.1 Pr ...

随机推荐

  1. Java [Leetcode 229]Bulls and Cows

    题目描述: You are playing the following Bulls and Cows game with your friend: You write down a number an ...

  2. (转)c & c++内存分配

    一.预备知识—程序的内存分配 一个由c/C++编译的程序占用的内存分为以下几个部分1.栈区(stack)— 由编译器自动分配释放 ,存放函数的参数值,局部变量的值等.其操作方式类似于 数据结构中的栈. ...

  3. 【转】android 自定义控件 使用declare-styleable进行配置属性(源码角度)

    原文网址:http://blog.csdn.net/vipzjyno1/article/details/23696537 最近在模仿今日头条,发现它的很多属性都是通过自定义控件并设定相关的配置属性进行 ...

  4. javascript中常用数组函数

    1.split方法——通过分隔符,将字符串分割,导出字符数组 常用于:分割IP地址,分割文件路径(上传文件时)等等 <!DOCTYPE html PUBLIC "-//W3C//DTD ...

  5. 怎样查看Eclipse是32位还是64位

    首先进入到Eclipse的安装目录,如下图:   查找到文件名为"eclipse.ini" 文件,使用文本编辑工具,或记事本打开,如下图: 如图中的红框所示,如果是win32.x8 ...

  6. SPFile的使用

    转:http://blog.csdn.net/pclzr/article/details/7591741 SPFile对应于SharePoint对象模型中的文件,它的使用方法与SPFolder类大致相 ...

  7. OLAP、OLTP的介绍和比较 via csdn

    OLAP.OLTP的介绍和比较 数据处理大致可以分成两大类: OLTP(On-Line Transaction Processing)联机事务处理 也称为面向交易的处理系统,其基本特征是顾客的原始数据 ...

  8. 36、Android Bitmap 全面解析

    Android Bitmap 全面解析(一)加载大尺寸图片 http://www.eoeandroid.com/thread-331669-1-1.html Android Bitmap 全面解析(二 ...

  9. 【Unity入门】场景编辑与场景漫游快捷键

    版权声明:本文为博主原创文章,转载请注明出处. 打开Unity主窗口,选择顶部菜单栏的“GameObject”->“3D Object”->“Plane”在游戏场景里面添加一个面板对象.然 ...

  10. 关于webpack最好的文档

    这几天研究webpack打包工具,在网上搜了无数的资料,鱼龙混杂.看了几十份资料,依然没有一个可以完整的描述的. 折腾了那么久,还是放弃治疗了.回到官网,一字一句的阅读,一个小时就彻底明白了. 学习新 ...