StringGridفوری!!!

[vDelphi]

من می خواهم در StringGrridیکی از ستونها دارای BiDiMode چب به راست و بقیه از راست به چپ باشد! چطور می تونم این کار رو بکنم؟؟

[hr110]

با سلام
میتوانید در ondrawcell گرید این دستورات را بنویسید:


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
Grid : TStringGrid;
begin
Grid:=Sender as TStringGrid;

if(ACol<>3)then
begin
inherited ;
Exit;
end;

Rect.Right:=Rect.Right-1;
Rect.Left:=Rect.Left+1;

Grid.Canvas.Brush.Style:=bsClear;
Grid.Canvas.Brush.Color:=$00F7F7F7;
Grid.Canvas.FillRect(Rect);
DrawText(Grid.Canvas.Handle,PChar(Grid.Cells[ACol, ARow]),Length(Grid.Cells[ACol,ARow]),Rect,DT_RTLRE ADING or DT_RIGHT or DT_VCENTER);
end;