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

来源：互联网发布：智能手机中的电子数据编辑：程序博客网时间：2024/05/18 18:45

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;