StringGridのセルの色がうまく付かない！

解決

えのき URL 2019-12-27 16:51:26 No: 148409

StringGridのセルの色を変更しようと思い、下記のコードを実行しているのですがURLの写真のようにセルの左端のところが若干切れてしまって、うまくセル全体に色が付きません。。
##コード
procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
　//赤
  if (ACol = 1) and (ARow = 1) then
    begin
    StringGrid1.Canvas.Brush.Color := clRed;
    StringGrid1.Canvas.FillRect(Rect);
    end;
　//青
  if (ACol = 2) and (ARow = 1) then
    begin
    StringGrid1.Canvas.Brush.Color := clBlue;
    StringGrid1.Canvas.FillRect(Rect);
    end;
end;

何かアドバイスがあればお願いします。

igy 2019-12-27 17:57:58 No: 148410

最初のほうで、
Rect.Left := Rect.Left - 4;
を追加してみるのは、いかがですか？

えのき 2020-01-06 11:38:32 No: 148426

セル全体に色を付けることができました！
ありがとうございました！