StringGrid를 사용합니다.

StringGridDrawCell 이벤트에서 각 셀마다 오른쪽, 왼쪽, 중앙정렬 을 하고싶습니다.

 

SetTextAlign 라는 함수를 이용해서 정렬을 하고 싶은데 에러가 나네요..

정확한 코딩을 알려주세요....

 

procedure Ta.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
   oldalign, Left, Top : Integer;
begin
  inherited;
       Left := Rect.Left + Round((Rect.Right-Rect.Left-sgrd_s1.Canvas.TextWidth(sgrd_s1.Cells[Acol,ARow]))/2);
       Top  := Rect.Top + 2;  

  case ACol of
     0: 

        oldalign := SetTextAlign(sgrd_s1.Canvas.Handle, TA_CENTER); 중앙정렬
        sgrd_s1.Canvas.TextRect(Rect, ((Rect.Right+Rect.Left) div 2), Rect.Top+2, sgrd_s1.Cells[Acol,ARow]);
        SetTextAlign(StringGrid1.Canvas.Handle, oldalign);
   end;

 

end;