注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

【转载】让cxGrid像Excel那样高亮显示选区的行号列标  

2014-09-27 07:42:09|  分类: delphixe7 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Developer Express的cxGrid控件是一个相当有特色的数据栅格组件,支持自动分组、卡片式显示、和像Excel那样的过滤功能等。不过它在多选区时的显示 方式却不太友善,对于我这样还有点追求的人来说肯定是不会满足的了,于是通过它的OnDrawColumnHeader事件和 OnDrawIndicatorCell事件把它变成像Excel那样以高亮显示行号列标。一切以图片说话,如下图:
cxGrid高亮显示行号列标

PS:我平时是用来显示数据的,没有考虑编辑状态;为了说明效果,cxGrid使用DBTableView并设成允许多选和选区方式(在OptionsView里有设)。

OnDrawColumnHeader事件源码如下:
procedure TfrmAccount.cxtvMasterCustomDrawColumnHeader(
  Sender: TcxGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);
var
    AButtonState: TcxButtonState;
    ARect: TRect;
begin
    if AViewInfo.Column.Selected then begin
        AButtonState := cxbsHot;
        ARect := AViewInfo.Bounds;
        Sender.LookAndFeelPainter.DrawHeader(ACanvas, ARect, AViewInfo.TextAreaBounds
            , [], cxBordersAll, AButtonState, AViewInfo.Column.HeaderAlignmentHorz
            , AViewInfo.Column.HeaderAlignmentVert, False, False
            , AViewInfo.Column.Caption, ACanvas.Font, Sender.Styles.Selection.TextColor
            , Sender.Styles.Selection.Color);
{========================================================================
  DESIGN BY :  彭国辉
  DATE:        2007-03-02
  SITE:       
http://kacarton.yeah.net/
  BLOG:        http://blog.csdn.net/nhconch
  EMAIL:       kacarton#sohu.com
  文章为作者原创,转载前请先与本人联系,转载请注明文章出处、保留作者信息,谢谢支持!
=========================================================================}

        ARect.Left := ARect.Right - 19;
        ARect.Right := ARect.Right - 1;
        InflateRect(ARect, -1, -3);
        if AViewInfo.Column.Options.Filtering then begin
            Sender.LookAndFeelPainter.DrawFilterDropDownButton(ACanvas, ARect
                , cxbsNormal, AViewInfo.Column.Filtered);
            OffsetRect(ARect, -16, 0);
        end;
        if AViewInfo.Column.SortIndex <> -1 then
            Sender.LookAndFeelPainter.DrawSortingMark(ACanvas, ARect
                , AViewInfo.Column.SortOrder=soAscending);
        ADone := true;
    end;
end;

OnDrawIndicatorCell事件源码如下:
procedure TfrmAccount.cxtvMasterCustomDrawIndicatorCell(
  Sender: TcxGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
    AButtonState: TcxButtonState;
    clFont, clBrush: TColor;
begin
    if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then Exit;

    if TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Selected then begin
        AButtonState := cxbsHot;
        if Sender.LookAndFeelPainter.LookAndFeelStyle = lfsOffice11 then begin
            clFont := ACanvas.Font.Color;
            clBrush := ACanvas.Brush.Color;
        end else begin
            clFont := Sender.Styles.Selection.TextColor;
            clBrush := Sender.Styles.Selection.Color;
        end;
    end else begin
        AButtonState := cxbsNormal;
        clFont := ACanvas.Font.Color;
        clBrush := ACanvas.Brush.Color;
    end;
    Sender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.ContentBounds,
        AViewInfo.ContentBounds, [], [bLeft, bRight, bBottom], AButtonState, taCenter
        , vaCenter, False, False, IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1)
        , ACanvas.Font, clFont, clBrush);
    ADone := True;
end;

  评论这张
 
阅读(211)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017