제가 자주 쓰는 코딩입니다.



procedure TForm_FC3602.StringAlignGrid_mainDrawCell(Sender: TObject; Col,

Row: Integer; Rect: TRect; State: TGridDrawState);

var

L: integer; //alignment 을 위한 var

S: string; //cell의 text 저장 var

begin

inherited;

with StringGrid_main.Canvas do

begin

S:= Trim(StringGrid_main.Cells[col,row]);

//=== font color 지정

Font.color := clRed;

Font.Name := 'Arial';



//=== Cell 안에서 문자 정렬

if (row = 0) OR (col = 2) or (col = 5) then //center

L:= (Rect.Right - Rect.Left - Textwidth(S)) div 2 + Rect.Left

else if (col = 0) OR (col = 1) then //left 정렬

L:= Rect.Left + 7

else //right 정렬

L:= (Rect.Right - Rect.Left - Textwidth(S)) + Rect.Left -3;

TextRect(Rect, L, rect.Top + 4, S);

end; // end of with



end;









hnc wrote:

> STRING GRID를 오른쪽 정렬 할려구 합니다