Работа с компонентом StringGrid

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
    aRect: TRect; aState: TGridDrawState);
begin
    StringGrid1.Canvas.Pen.Color:= clBlue;
    StringGrid1.Canvas.Pen.Width:= 2;
    StringGrid1.Canvas.Line(0 , StringGrid1.DefaultRowHeight, 7*StringGrid1.DefaultColWidth, StringGrid1.DefaultRowHeight);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
    aRect: TRect; aState: TGridDrawState);
var g: TStringGrid;
begin
    g:= Sender as TStringGrid;
    g.Canvas.Pen.Color:= clBlue;
    g.Canvas.Pen.Width:= 2;
    g.Canvas.Line(0 , g.DefaultRowHeight, 7*g.DefaultColWidth, g.DefaultRowHeight);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
var Canv : TCanvas;
begin
  Canv := (Sender as TStringGrid).Canvas;
  if ARow = 0 then
  begin
    Canv.Pen.Color := clBlue;
    Canv.Pen.Width := 2;
    Canv.Line(Point(ARect.Left - 1, ARect.Bottom - 1), Point(ARect.Right + 1, ARect.Bottom - 1));
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
    aRect: TRect; aState: TGridDrawState);
var i: integer;
    Canv: TCanvas;
    //g: TStringGrid;
begin
    //g:= Sender as TStringGrid;
    //g.Canvas.Pen.Color:= clBlue;
    //g.Canvas.Pen.Width:= 1;
    //g.Canvas.Line(0 , 0, 7*g.DefaultColWidth, 0);                                               // Верхняя горизонталь
    //g.Canvas.Line(0 , g.DefaultRowHeight, 7*g.DefaultColWidth, g.DefaultRowHeight);             // Подчёркивание дней недели
    //g.Canvas.Line(0 , 7*g.DefaultRowHeight-1, 7*g.DefaultColWidth, 7*g.DefaultRowHeight-1);     // Нижхняя горизонталь
    //g.Canvas.Line(0 , 0, 0, 7*g.DefaultRowHeight);                                              // Левая вертикаль
    //for i:= 1 to 6 do
    //    g.Canvas.Line(i*g.DefaultColWidth , 0, i*g.DefaultColWidth, g.DefaultRowHeight);        // Вертикальные чёрточки
    //g.Canvas.Line(7*g.DefaultColWidth-1 , 0, 7*g.DefaultColWidth-1, 7*g.DefaultRowHeight);      // Правая вертикаль
 
    Canv := (Sender as TStringGrid).Canvas;
    Canv.Pen.Color := clBlue;
    Canv.Pen.Width := 1;
    Canv.Brush.Color:= clBtnFace;
    Canv.FillRect(10, 10, 10 ,10);   // <-  ЭТО ДЛЯ ПРОБЫ
    if (ARow = 0) then
    begin
        for i:= 1 to 6 do
            Canv.Line(i*SQUARE - 1 , 0, i*SQUARE - 1, SQUARE);        // Вертикальные чёрточки
        Canv.Line(Point(0, 0), Point(ARect.Right, 0));
        Canv.Line(Point(ARect.Left - 1, ARect.Bottom - 1), Point(ARect.Right + 1, ARect.Bottom - 1));
    end;
    if (ARow = 6) then
    begin
        Canv.Line(Point(ARect.Left - 1, ARect.Bottom - 1), Point(ARect.Right + 1, ARect.Bottom - 1));
    end;
    if (ACol = 0) then
    begin
        Canv.Line(Point(ARect.Left, 0), Point(ARect.Left, ARect.Bottom));
    end;
    if (ACol = 6) then
    begin
        Canv.Line(Point(ARect.Right - 1, 0), Point(ARect.Right - 1, ARect.Bottom));
    end;
 
end;

type
  { TStringGrid }
  TStringGrid = class(Grids.TStringGrid)
    procedure Paint; override;
  end;
 
// ...
implemented
 
{ TStringGrid }
 
procedure TStringGrid.Paint;
var
  i : Integer;
  R : TRect;
begin
  inherited Paint;
 
  if Tag <> 0 then
  begin
    Canvas.Pen.Color := BorderColor;
    for i := 0 to Pred(ColCount) do
    begin
      R := CellRect(i, 0);
      Canvas.Line(Point(R.Right, R.Top), R.BottomRight);
    end;
    Canvas.Line(0, R.Bottom, Width, R.Bottom);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i, R, C : Integer;
begin
  StringGrid1.Flat := True; // !!! Обязательно !!!
  StringGrid1.BorderColor := clBlue;
  StringGrid1.FixedRows := 1;
  StringGrid1.Options := [];
  StringGrid1.Tag := 1; // Будут рисоваться линии в верхней строке только в этом гриде, остальные - без изменений.
 
  StringGrid1.Rows[0].CommaText := 'Пн,Вт,Ср,Чт,Пт,Сб,Вс';
  R := 1; C := DayOfTheWeek(StartOfTheMonth(Now)) - 1;
  for i := 1 to DaysInMonth(Now) do
  begin
    StringGrid1.Cells[C, R] := IntToStr(i);
    Inc(C);
    if C >= StringGrid1.ColCount then
    begin
      C := 0; Inc(R);
    end;
  end;
end;
 
procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
  aState: TGridDrawState);
var
  MyTextStyle: TTextStyle;
  canv : TCanvas;
begin
  canv := (sender as TStringGrid).Canvas;
  MyTextStyle := canv.TextStyle;
  MyTextStyle.Alignment := taCenter; // в данном случае все ячейки будут выровнены по центру
  canv.TextStyle := MyTextStyle;
 
  if aCol = 6 then
  begin
    canv.Font.Color := clRed;
  end;
 
  if gdFocused in aState then
  begin
    canv.Brush.Color := clHighlight;
    canv.Font.Color := clWindow;
  end;
end;
 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; aCol, aRow: Integer;
  var CanSelect: Boolean);
var Value : Integer;
begin
  CanSelect := (aRow > 0); // Запрещаем выбирать ячейку с днем недели
  if CanSelect and TryStrToInt((Sender as TStringGrid).Cells[ACol, ARow], Value)
  then Label1.Caption := IntToStr(Value);
end;

implementation
 
{$R *.lfm}
//implemented
 
{ TStringGrid }
 
procedure TStringGrid.Paint;
var
  i : Integer;
  R : TRect;
begin
  inherited Paint;
 
  if Tag <> 0 then
  begin
    //Canvas.Pen.Color := BorderColor;
    //for i := 0 to Pred(ColCount) do
    //begin
    //  R := CellRect(i, 0);
    //  Canvas.Line(Point(R.Right, R.Top), R.BottomRight);
    //end;
    //Canvas.Line(0, R.Bottom, Width, R.Bottom);
  end;
end;
{ TForm1 }

for i := 0 to Pred(ColCount) do

Pred(ColCount) == ColCount-1

        //Rows[0].CommaText := 'Пн,Вт,Ср,Чт,Пт,Сб,Вс';
        Cells[0,0]:= ' Пн';
        Cells[1,0]:= ' Вт';
        Cells[2,0]:= ' Ср';
        Cells[3,0]:= ' Чт';
        Cells[4,0]:= ' Пт';
        Cells[5,0]:= ' Сб';
        Cells[6,0]:= ' Вс';

procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
  aState: TGridDrawState);
var
  MyTextStyle: TTextStyle;
  canv : TCanvas;
begin
  canv := (sender as TStringGrid).Canvas;
  MyTextStyle := canv.TextStyle;
  MyTextStyle.Alignment := taCenter;
  canv.TextStyle := MyTextStyle;
 
  if aRow = 0 then // вот этот код добавляем
  begin
    canv.Brush.Color := clBtnFace;
  end;
 
  if aCol = 6 then
  begin
    canv.Font.Color := clRed;
  end;
 
  if gdFocused in aState then
  begin
    canv.Brush.Color := clHighlight;
    canv.Font.Color := clWindow;
  end;
end;