В Delphi, как я могу изменить цвет линий сетки в TDBGrid? - PullRequest
Новая
       79

В Delphi, как я могу изменить цвет линий сетки в TDBGrid?

0 голосов
/ 31 декабря 2018

Я использую компонент TDBGrid в приложении Delphi, когда я меняю цвета строк, линии сетки становятся нечеткими или почти невидимыми.

Итак, любой может показать нам, как изменить цвет линий сетки?

Я имею в виду: как изменить цвет границ ячеек (см. Следующий рисунок)

Границы ячеек

image

1 Ответ

0 голосов
/ 31 декабря 2018

Вы ищете 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const [Ref] Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var
  R: TRect;
begin
  R:= Rect;
  with DBGrid1.Canvas do
    begin
      Brush.Color:= clRed;
      R.Offset(Column.Width, 0);
      FillRect(R);
      R:= System.Types.Rect(Rect.Left, Rect.Bottom - 1, Rect.Right, Rect.Bottom);
      FillRect(R);
    end;
end;

Результаты будут выглядеть так:

image

Лучший способ (из Том Брунберг комментарий) должен использовать FrameRect() как 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const [Ref] Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with DBGrid1.Canvas do
    begin
      Brush.Color:= clRed;
      FrameRect(Rect);
    end;
end;

Используйте FrameRect () , чтобы нарисовать границу шириной 1 пиксель вокруг прямоугольной области, которая не заполняет внутреннюю часть прямоугольникаКистиЧтобы нарисовать границу с помощью пера, используйте метод Polygon

...