if (zqOneDay5.FieldByName('TwoHoursKind').Value=2) and (Column = TGrid(Sender).Columns[1]) then
begin
TextRect := Bounds;
TextRect.Left := TextRect.Left+2;
TextRect.Right:= TextRect.Right-1;
TextRect.Top := TextRect.Top-(TextRect.Bottom-TextRect.Top)+1;
TextRect.Bottom :=TextRect.Bottom-2;
TextRect.Inflate(-HorzTextMargin, -VertTextMargin);
Canvas.Stroke.Thickness:=2;
Canvas.Stroke.Color:=TAlphaColorRec.Blue;
Canvas.DrawRect(TextRect, 0, 0, AllCorners, 1);
Canvas.Stroke.Thickness:=1;
TGrid(Sender).DefaultDrawColumnCell(Canvas, Column, Bounds, Row, Value, State);
end;
Вот, что получилось самое лучшее.
Как убрать белую линию-разделитель ячеек по горизонтали?