Pintar DBGrid

[[duilioisola]]

Estuve haciendo pruebas y esto es lo que hace que falle:
Estableces el DisplayWidth durante el pintado de la celda.
Lo he quitado y veo que todo va bien.
Si deseas mantener esa funcionalidad, deberías pasarla al sitio donde se abren/cargan los datos (ComboBox1Change).

Como regla general, no deberías modificar datos/propiedades durante la visualización.

Paso 1:

1. Cargar
2. Validar/Calcular/Limitar/Filtrar/etc.
3. Dar formato

Paso 2:
Visualizar

Código Delphi [-]
procedure TFrmPrincipal.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var
  Grid         : TStringGrid; // Esto debería ser TDBGrid(Sender)
  Texto        : String;
  Rectangulo   : TRect; // Esto no se necesita. Es lo mismo que el parametro Rect
begin
  {
  //************** Auto Ancho *********************//
  if length(Column.Field.AsString) > Column.Field.Tag then
  begin
    Column.Field.Tag := length(Column.Field.AsString);
    Column.Field.DisplayWidth := Column.Field.Tag + 1;
  end;
  }

  if (gdSelected in State) then
  begin
  ...

[ramonibk]

Muchas gracias duilioisola.

Tras tu primer post también realice pruebas y llegue a la misma conclusión.

tendré que buscar como añadir la función de auto ajuste. pues en este tipo de tablas que cargan ficheros diferentes es muy cómodo para una buena visualización.

[[duilioisola]]

Una forma simple de hacerlo es la siguiente:
Asumo 6 pixels por letra (O calcular con TextWidth('w') el largo de la letra w en la fuente actual).
Multiplico la cantidad de letras por 6
Si no quiero que las columnas queden muy anchas, puedo limitar el ancho máximo (300 pixels en mi ejemplo).

Código Delphi [-]
procedure TFrmPrincipal.ComboBox1Change(Sender: TObject);
Var
 I : Integer;
begin
 FrmData.ADOQuery1.Close;
 FrmData.ADOQuery1.SQL.Text := 'Select * From ['+ComboBox1.Text+']';
 FrmData.ADOQuery1.Open;
 ComboBox2.Items.Clear;
 ComboBox3.Items.Clear;
 for I:=0 to FrmData.ADOQuery1.FieldCount-1 do
    Begin
     ComboBox2.Items.Add(FrmData.ADOQuery1.Fields[i].FieldName);
     ComboBox3.Items.Add(FrmData.ADOQuery1.Fields[i].FieldName);
     ComboBox3.ItemIndex := 0;
    End;

 // Ajusto ancho de columnas
 for I:=0 to DBGrid1.Columns.Count-1 do
 begin
    // Asigno 6px por letra
    DBGrid1.Columns[i].Width := DBGrid1.Columns[i].Field.DisplayWidth * 6;

    // Evito que la columna se pase de 300px
    if (DBGrid1.Columns[i].Width > 300) then
       DBGrid1.Columns[i].Width := 300;
 end;
end;

[ramonibk]

Muchas gracias duilioisola.

trabajare un poco en ello y os cuento.