if Sender is TStringGrid then
begin
with (Sender as TStringGrid) do
begin
if (ACol = 1) and (ARow > 1) then
begin
Canvas.Font.Color := clBlue;
Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
end;
if (ARow = 1) and (ACol > 1) then
begin
Canvas.Font.Color := clBlue;
Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
end;
if (ACol = 0) and (ARow = 0) then
begin
//畫斜線
Canvas.Pen.Color := clBlack;
Canvas.MoveTo(Rect.Left, Rect.Top);
Canvas.LineTo(Rect.BottomRight.X + Canvas.Pen.Width, Rect.BottomRight.y + Canvas.Pen.Width);
//設置Pen
Canvas.Pen.Color := Canvas.Brush.Color;
//下面水平線
Canvas.MoveTo(Rect.Left, Rect.Bottom);
Canvas.LineTo(Rect.BottomRight.X, Rect.BottomRight.y);
//右面垂直線
Canvas.LineTo(Rect.Right, Rect.Top - Canvas.Pen.Width);
end;
if (ACol = 1) and (ARow = 1) then
begin
//畫斜線
Canvas.Pen.Color := clBlack;
Canvas.MoveTo(Rect.Left - Canvas.Pen.Width, Rect.Top - Canvas.Pen.Width);
Canvas.LineTo(Rect.BottomRight.X, Rect.BottomRight.y);
//設置Pen
Canvas.Pen.Color := Canvas.Brush.Color;
//左面水平線
Canvas.MoveTo(Rect.Left - Canvas.Pen.Width, Rect.Top);
Canvas.LineTo(Rect.Left - Canvas.Pen.Width, Rect.Bottom);
//上面垂直線
Canvas.MoveTo(Rect.Left, Rect.Top - Canvas.Pen.Width);
Canvas.LineTo(Rect.Right, Rect.Top - Canvas.Pen.Width);
end;
//設置標題
if (ACol = 1) and (ARow = 0) then
begin
Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, '難度');
end;
if (ACol = 0) and (ARow = 1) then
begin
Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, '題型');
end;
end;
end;