выравнивание столбцов dbgrid по ширине текста

[kate158]

вопрос прост, как выравнить столбцы dbgrida по ширине текста?

[Stilet]

В теории примерно так:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var w:Integer;
begin
 w:=DBGrid1.Canvas.TextWidth(Column.Field.AsString);
 if Column.Width<w then Column.Width:=w;
 DBGrid1.Canvas.TextOut(rect.Left,rect.Top,Column.Field.AsString);
end;

Плюс выключить свойство DefaultDrawing.

[kate158]

Виталик,спасибо за код.
а почему при запуске смещается сетка грида?
а при изменении записи все жестко виснет..