Ajustar coluna do grid

Question

Pessoal existe algum agoritmo pronto, que tb naum deixe lento, tipo:na hora que eu abrir minha tabela, cada coluna do  meu dbgrid tenha seu width ajustado de acordo com a maior tamanho para esse field...

Alexandre_sbo · Answer

Pessoal fiz esse codigo de teste por�m naum �
ainda o que quero pois tem que navegar por todos os registro
por�m creio que naum exista outro modo.

TTeste = record
    Fieldname: string;
    Width: Integer;
  end;

    teste: array of TTeste;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i: Integer;
begin
  if Length(teste) = 0 then
    begin

      for i := 0 to pred(IBOQuery1.Fields.Count) do
        begin
          SetLength(teste, length(teste) + 1);
          teste[High(teste)].Fieldname := IBOQuery1.Fields[i].FieldName;
          teste[High(teste)].Width := 0;
        end; { <-- For }
    end;

  for i := low(teste) to High(teste) do
    begin
      if Column.FieldName = teste[i].Fieldname then
        begin
          if teste[i].Width < Canvas.TextWidth(Column.Field.AsString) then
            begin
              teste[i].Width := Canvas.TextWidth(Column.Field.AsString);
              Column.Width := teste[i].Width + 10;
            end;
        end; { <-- if }
    end; { <-- For }
end;

F�rum Ajustar coluna do grid #291162