码迷,mamicode.com
首页 > Web开发 > 详细

TChromeTabs 优化改进

时间:2016-05-27 18:15:02      阅读:663      评论:0      收藏:0      [点我收藏+]

标签:

1、全屏时 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;

 

TChromeTabs 优化改进

标签:

原文地址:http://www.cnblogs.com/newrainsoftware/p/5535516.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!