Если тип датасета не MemTableEh, то следующий обработчик события должен работать.
Код: procedure TForm1.DBGridEh1Columns0AdvDrawDataCell(Sender: TCustomDBGridEh; Cell,
AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect;
var Params: TColCellParamsEh; var Processed: Boolean);
var
Grid: TDBGridEhCrack;
NextRowIsSpecial: Boolean;
BottomLineIsDrawn: Boolean;
LinesIsDrawn: Boolean;
DataSet: TDataSet;
OldActiveRecord: Integer;
begin
Grid := TDBGridEhCrack(Sender);
DataSet := Grid.DataSource.DataSet;
NextRowIsSpecial := False;
if (DataSet.FieldByName('SpecialBorderState').AsInteger = 1) then
begin
Params.Background := $006DD3EB;
Params.Font.Style := [fsBold];
end;
Grid.DefaultDrawColumnDataCell(Cell, AreaCell, Column, ARect, Params);
if (AreaCell.Y < Grid.InstantReadRecordCount - 1) then
begin
try
//Grid.InstantReadRecordEnter(AreaCell.Y + 1);
OldActiveRecord := Grid.DataLink.ActiveRecord;
Grid.DataLink.ActiveRecord := AreaCell.Y + 1;
NextRowIsSpecial := DataSet.FieldByName('SpecialBorderState').AsInteger = 1;
finally
//Grid.InstantReadRecordLeave;
Grid.DataLink.ActiveRecord := OldActiveRecord;
end;
end;
LinesIsDrawn := False;
BottomLineIsDrawn := False;
if (Params.Row = Grid.Row) or (Params.Row = Grid.Row - 1) then
begin
Grid.Canvas.Pen.Color := clBlue;
if (Params.Row = Grid.Row) then
begin
Grid.DrawPolyline(Grid.Canvas, [Point(ARect.Left, ARect.Bottom), Point(ARect.Right, ARect.Bottom)]);
Grid.DrawPolyline(Grid.Canvas, [Point(ARect.Right, ARect.Top), Point(ARect.Right, ARect.Bottom+1)]);
if (AreaCell.X = 0) then
Grid.DrawPolyline(Grid.Canvas, [Point(ARect.Left, ARect.Top), Point(ARect.Left, ARect.Bottom+1)]);
LinesIsDrawn := True;
BottomLineIsDrawn := True;
end else
begin
Grid.DrawPolyline(Grid.Canvas, [Point(ARect.Left, ARect.Bottom), Point(ARect.Right+1, ARect.Bottom)]);
BottomLineIsDrawn := True;
end;
end;
if (DataSet.FieldByName('SpecialBorderState').AsInteger = 1) and not LinesIsDrawn then
begin
Grid.Canvas.Pen.Color := clRed;
if not (BottomLineIsDrawn) then
Grid.DrawPolyline(Grid.Canvas, [Point(ARect.Left, ARect.Bottom), Point(ARect.Right, ARect.Bottom)]);
Grid.DrawPolyline(Grid.Canvas, [Point(ARect.Right, ARect.Top), Point(ARect.Right, ARect.Bottom+1)]);
if (AreaCell.X = 0) then
Grid.DrawPolyline(Grid.Canvas, [Point(ARect.Left, ARect.Top), Point(ARect.Left, ARect.Bottom+1)]);
end else if NextRowIsSpecial and not BottomLineIsDrawn then
begin
Grid.Canvas.Pen.Color := clRed;
Grid.DrawPolyline(Grid.Canvas, [Point(ARect.Left, ARect.Bottom), Point(ARect.Right+1, ARect.Bottom)]);
end;
Processed := True;
end;
|
