DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: cuiqingbo
今日帖子: 2
在线用户: 6
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 13682671682 (我心飞翔) ▲△△△△ -
普通会员
2024/3/15 9:49:31
标题:
DBGridEh多表头怎样显示不同的颜色 浏览:631
加入我的收藏
楼主: 请问DBGridEh多表头怎样显示不同的颜色,如图:
此帖子包含附件:
PNG 图像
大小:4.2K
----------------------------------------------
-
作者:
男 jljaaj (小强) ▲▲▲△△ -
普通会员
2024/3/15 9:57:52
1楼: https://blog.csdn.net/xiaobin_zb/article/details/118335079
----------------------------------------------
-
作者:
男 13682671682 (我心飞翔) ▲△△△△ -
普通会员
2024/3/15 10:34:40
2楼: 你好!我想显示的是表头的颜色,数据行的颜色仍为白色。
----------------------------------------------
-
作者:
男 wwzjx123 (ww zjx) ★☆☆☆☆ -
普通会员
2024/3/15 11:05:25
3楼: 官方demo: Demos\DBGridEh.CustomTitleDraw

OnGetMultiTitleParams
此帖子包含附件:
PNG 图像
大小:144.5K
----------------------------------------------
SPAM
作者:
男 13682671682 (我心飞翔) ▲△△△△ -
普通会员
2024/3/15 13:45:08
4楼: 请问你用的什么版本的DBGridEh,我用的3.6的,没看到OnGetMultiTitleParams这个事件。
----------------------------------------------
-
作者:
男 tony2u (tony2u) ★☆☆☆☆ -
普通会员
2024/3/15 14:05:12
5楼: DBGridEh1.OnGetTitleParams := DBGridEh1GetMultiTitleParams;
DBGridEh1.OnDrawTitleCell := DBGridEh1DrawTitleCell;
----------------------------------------------
-
作者:
男 wwzjx123 (ww zjx) ★☆☆☆☆ -
普通会员
2024/3/15 14:29:13
6楼: procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGridEh1.OnGetTitleParams := DBGridEh1GetMultiTitleParams;
end;

procedure TForm1.DBGridEh1GetMultiTitleParams(Grid: TCustomDBGridEh;
  Params: TDBGridDrawTitleCellParamsEh);
var
  ForeInsideRect: TRect;
begin
  if (Params.Column = nil) then
  begin
    if (Params.MultiTitleNode <> nil) and
       (Params.MultiTitleNode.Text = 'Vendor of parts') then
    begin
      Params.Font.Size := 12;
      Params.Color := RGB(230,255,220); // $007DBEFF;
      Params.SecondColor := clWhite; //$000080FF;

      ForeInsideRect := Params.ForeInsideRect;
      ForeInsideRect.Left := ForeInsideRect.Left + 20;
      Params.ForeInsideRect := ForeInsideRect;
    end else
    begin
          if Params.MultiTitleNode.Text='Vendor Number' then Params.Color := $000080FF   // $007DBEFF;
      else if Params.MultiTitleNode.Text='Vendor Name'   then Params.Color := $007DBEFF;
    end;

    Params.Font.Style := [fsBold];
  end;
end;
----------------------------------------------
SPAM
作者:
男 13682671682 (我心飞翔) ▲△△△△ -
普通会员
2024/3/15 15:02:48
7楼: 您好!OnGetTitleParams这个属性也没有, 是不是我的版本太低的原因。
----------------------------------------------
-
作者:
男 tony2u (tony2u) ★☆☆☆☆ -
普通会员
2024/3/15 15:09:08
8楼: 3.6确实太老了,现在都是10.X,最新已经11.1了
----------------------------------------------
-
作者:
男 yaochangli (京酱肉丝) ★☆☆☆☆ -
盒子活跃会员
2024/3/15 15:27:50
9楼: OnGetTitleParams这个事件在Public里,不在Published里面,在对象编辑器上看不到的,要用代码实现
----------------------------------------------
我在马路边,看到一分钱,刚要弯腰捡,原来是口痰,我靠...谁吐这么圆!
作者:
男 tony2u (tony2u) ★☆☆☆☆ -
普通会员
2024/3/15 15:30:24
10楼: 楼上你确定?
此帖子包含附件:
PNG 图像
大小:18.0K
----------------------------------------------
-
作者:
男 yaochangli (京酱肉丝) ★☆☆☆☆ -
盒子活跃会员
2024/3/15 15:59:02
11楼: 楼上什么版本的,我的EhLib 9.0确实没有,我看源码了,确实不在published里面
----------------------------------------------
我在马路边,看到一分钱,刚要弯腰捡,原来是口痰,我靠...谁吐这么圆!
作者:
男 yaochangli (京酱肉丝) ★☆☆☆☆ -
盒子活跃会员
2024/3/15 16:06:18
12楼: 我的是这个样子的:
此帖子包含附件:
PNG 图像
大小:46.1K
----------------------------------------------
我在马路边,看到一分钱,刚要弯腰捡,原来是口痰,我靠...谁吐这么圆!
作者:
男 tony2u (tony2u) ★☆☆☆☆ -
普通会员
2024/3/15 19:17:02
13楼: 我这个是10.2,手头只有9.5的码已经定义在published里了
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行111.3281毫秒 RSS