김태영 wrote:

> 고수님들 스트링그리드의 픽스드열과 행에 제목을 중앙정렬로 하려고 하는데 어떻게 해야하나요. 고수님들의 답변 부탁드립니다.



좀 어설프지만...



procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

var S : String;

iWidth : integer;

iHeight : integer;

begin

if gdFixed in State then

begin

S := StringGrid1.Cells[ACol, ARow];

StringGrid1.Canvas.FillRect(Rect);

iWidth := Canvas.TextWidth(S);

iHeight := Canvas.TextHeight(S);

StringGrid1.Canvas.TextOut(

Rect.Left + (Rect.Right - Rect.Left - iWidth) Div 2,

Rect.Top + (Rect.Bottom - Rect.Top - iHeight) Div 2, S);

end;

end;