아래는 모든 셀의 내용을 수직, 수평 가운데로 바꾸어 줍니다...



이거 조금만 수정하시면 되겠죠....?



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

Rect: TRect; State: TGridDrawState);

var

Tx, Ty : Integer;

begin

if StringGrid1.Cells[Col,Row] <> '' then begin

Tx := (Rect.Right - Rect.Left) - StringGrid1.canvas.TextWidth(StringGrid1.Cells[Col,Row]);

Tx := Tx div 2;

Ty := (Rect.Bottom - Rect.Top) - StringGrid1.canvas.TextHeight(StringGrid1.Cells[Col,Row]);

Ty := Ty div 2;

StringGrid1.canvas.TextRect( rect, Rect.Left + Tx, rect.top + Ty,

StringGrid1.Cells[Col,Row] );

end;

end;



곽승주 께서 말씀하시기를...

> 스트링 그리드의 첫고정행의 제목(즉 필드명)을 수직,수평가운데로

> 조정하고 싶은데 어떻게 하나요?