스트링그리드의 3번째 칼럼부터 우측정렬을 하고 싶을경우의 예제입니다.
procedure TSelling.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
var oldalign : word;
begin
if Col > 2 then begin
oldalign:=settextalign(StringGrid1.canvas.handle,ta_right);
StringGrid1.canvas.textrect(rect,rect.right-2,rect.top+2,StringGrid1.cells[col,row]);
settextalign(StringGrid1.canvas.handle,oldalign);
end;
end;
|