안녕하세요. 최용일입니다.



TStringGrid의 OnDrawCell에서 ACol, ARow로 정렬방식을 판단해서 아래와 같이 코딩해주세요.



var

LeftPos: Integer;

CellStr: string;

begin



// 왼쪽 정렬 *******************************************************

with TStringGrid(Sender).Canvas do

begin

CellStr := TStringGrid(Sender).Cells[ACol, ARow];

FillRect(Rect);

TextOut(Rect.Left + 2, Rect.Top+2, CellStr);

end;



// 가운데 정렬 *****************************************************

with TStringGrid(Sender).Canvas do

begin

CellStr := TStringGrid(Sender).Cells[ACol, ARow];

LeftPos := ((Rect.Right - Rect.Left -

TStringGrid(Sender).Canvas.TextWidth(CellStr)) div 2) + Rect.Left;

FillRect(Rect);

TextOut(LeftPos, Rect.Top+2, CellStr);

end;



// 오른쪽 정렬 *****************************************************

with TStringGrid(Sender).Canvas do

begin

CellStr := TStringGrid(Sender).Cells[ACol, ARow];

LeftPos := Rect.Right - TStringGrid(Sender).Canvas.TextWidth(CellStr);

FillRect(Rect);

TextOut(LeftPos-2, Rect.Top+2, CellStr);

end;

end;



^^ 항상 즐코하세요.



이태호 wrote:

> 스트링 Grid에서 문자 위치를 조정하려고 하는데 어떻게 하는지 모르겠군요?

>

> 제목은 가운데 정렬....

>

> 문자는 왼쪽 정렬.....

>

> 숫자는 오른쪽 정렬을 하려고 합니다.

>

> 어떻게 해야 하는지 가르쳐주에세요?????