procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;

Rect: TRect; State: TGridDrawState);

begin

if (Col = 3) or (Col = 4) then begin

StringGrid1.Canvas.Pen.Width := 7;

StringGrid1.Canvas.MoveTo(Rect.Right, Rect.Top);

StringGrid1.Canvas.LineTo(Rect.Right, Rect.Bottom);

end;

if (Row = 0) or (Row = 4) then begin

StringGrid1.Canvas.Pen.Width := 7;

StringGrid1.Canvas.MoveTo(Rect.Left, Rect.Bottom);

StringGrid1.Canvas.LineTo(Rect.Right, Rect.Bottom);

end;

end;



박혁 께서 말씀하시기를...

> 기상이변에도 열심히 고민하시는 여러분께 격려의 박수를 보냅니다.

> 다름이 아니고, 스트링 그리드에서 특정한 행선과 열선을 굵게 또는 가늘게 표현할 수 있는지요. 전체적인 선의 굵기를 지정하는 property는 알고 있습니다. 가령 예를 들어 5 by 5 중

> 제 1행과 5행 ,4열과 5열만을 굵게 선을 표현할 수 있는 방법이 있는지요.

> 선생님들의 많은 조언 부탁드립니다.

신인재 께서 말씀하시기를...

> procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;

> Rect: TRect; State: TGridDrawState);

> begin

> if (Col = 3) or (Col = 4) then begin

> StringGrid1.Canvas.Pen.Width := 7;

> StringGrid1.Canvas.MoveTo(Rect.Right, Rect.Top);

> StringGrid1.Canvas.LineTo(Rect.Right, Rect.Bottom);

> end;

> if (Row = 0) or (Row = 4) then begin

> StringGrid1.Canvas.Pen.Width := 7;

> StringGrid1.Canvas.MoveTo(Rect.Left, Rect.Bottom);

> StringGrid1.Canvas.LineTo(Rect.Right, Rect.Bottom);

> end;

> end;

>

> 박혁 께서 말씀하시기를...

> > 기상이변에도 열심히 고민하시는 여러분께 격려의 박수를 보냅니다.

> > 다름이 아니고, 스트링 그리드에서 특정한 행선과 열선을 굵게 또는 가늘게 표현할 수 있는지요. 전체적인 선의 굵기를 지정하는 property는 알고 있습니다. 가령 예를 들어 5 by 5 중

> > 제 1행과 5행 ,4열과 5열만을 굵게 선을 표현할 수 있는 방법이 있는지요.

> > 선생님들의 많은 조언 부탁드립니다.

>

>