如何改變表格列的矩形區域顏色

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>

    本例實現在表格中把年齡小於等於歲的年齡字段的矩形區域顏色改為紅色把年齡大於歲的年齡字段的矩形區域顏色改為綠色如圖所示

圖  改變表格列的矩形區域顏色

    通過表格的CanvasTextRect方法改變矩形區域的顏色主要代碼如下
    procedure TFrmOrderByDBGListDrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TColumn;
      State: TGridDrawState);
    var
      TemRect: TRect;
      RWidth: Integer;
      RHeigh: Integer;
    begin
      TemRectTop := RectTop + ;
      TemRectBottom := RectBottom ;
      RHeigh := TemRectBottom TemRectTop;
      RWidth := RectRight RectLeft;
      RWidth := (RWidth RHeigh) div ;
      TemRectLeft := RectLeft + RWidth;
      TemRectRight := TemRectLeft + RHeigh;
      if ColumnTitleCaption = 年齡 then
       begin
         DBGListCanvasTextRect(Rect );
         if ColumnFieldAsInteger <= then
           DBGListCanvasBrushColor := clRed
         else
           DBGListCanvasBrushColor := clLime;
         DBGListCanvasFillRect(TemRect);
        end;
    end;

From:http://tw.wingwit.com/Article/program/Delphi/201311/8502.html