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

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

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

OnDrawColumnHeader事件源码如下：

标签： cxGrid 表格 DBTableView
 

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 - ;

         ARect.Right := ARect.Right - ;

         InflateRect(ARect, -, -);

        if AViewInfo.Column.Options.Filtering then begin

             Sender.LookAndFeelPainter.DrawFilterDropDownButton(ACanvas, ARect

                 , cxbsNormal, AViewInfo.Column.Filtered);

             OffsetRect(ARect, -, );

        end;

        if AViewInfo.Column.SortIndex <> - 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 + )

         , ACanvas.Font, clFont, clBrush);

     ADone := True;

end;

让cxGrid像Excel那样高亮显示选区的行号列标的相关教程结束。