Dbgrideh等控件的行间自动画颜色、表头排序的代码

最新推荐文章于 2020-11-27 20:56:52 发布

zihan924

最新推荐文章于 2020-11-27 20:56:52 发布

阅读量910

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi技术文章标签： integer

本文链接：https://blog.youkuaiyun.com/zihan924/article/details/507886

Delphi技术专栏收录该内容

1 篇文章

订阅专栏

博客展示了DBGridEh控件的相关代码实现，包括排序支持、标题排序和绘制记录等功能。通过代码实现了对DBGridEh列标题按钮的设置，以及根据条件对数据集进行排序和绘制不同颜色的单元格，涉及到整数变量的使用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

public
    { Public declarations }
    procedure DBGridehTitleSort(Column: TColumnEh);
published
    procedure DBGridehDrawRec(const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState; DBGridEh: TDBGridEh);

procedure TResPubFrm.DBGridehSortSupport(DBGridEh: TDBGridEh);
var
i: integer;
begin
for i := 0 to DBGridEh.Columns.Count - 1 do
DBGridEh.Columns.Items[i].Title.TitleButton := true;
end;

procedure TResPubFrm.DBGridehTitleSort(Column: TColumnEh);
var
FadoQry: TADOQuery;
begin
try
FadoQry := Column.Field.DataSet as TADOQuery;
if FSortDrict = True then
begin
    FadoQry.Sort := Column.FieldName + ' DESC'; //Attion Add Space Chart
    FSortDrict := false;
end
else if FSortDrict = false then
begin
    FadoQry.Sort := Column.FieldName + ' ASC';
    FSortDrict := true;
end;
except
end
end;

//-------------------------------------------------------------------------------------------------

procedure TResPubFrm.DBGridehDrawRec(const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState; DBGridEh: TDBGridEh);
begin
if DBGrideh.DataSource.Dataset.RecNo mod 2 = 0 then
DBGrideh.Canvas.Brush.Color := $00FFF8F0 {clCream}
else
DBGrideh.Canvas.Brush.Color := clWhite;

if (gdSelected in State) and (gdFocused in State) then
DBGrideh.Canvas.Font.Color := clBlue
else
DBGrideh.Canvas.Font.Color := clBlack;

DBGrideh.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;