Mantener las propiedades de un DBGrid !!!

[[Lepe]]

Yo tengo un punto de vista diferente.

Al abrir las consultas, se lee la propiedad DisplayWidth de cada campo y entonces se modifica el ancho de las columnas.

Yo pondría el código que módifica el ancho despues de abrir las consultas. la fuente y demás no hace falta.

Un saludo

[TriLoCBA]

Desde ya, agradezco a ambos por vuestras respuestas...

Probe todas las variantes que propusieron:

• Como suele sucederme (...debe ser porque comence a programas en lenguajes no visuales ... ) siempre me inclino a escribir el codigo. De todas maneras la solución de "definir las columnas en tiempo de diseño" andaria bien.

• Con respecto a repetir el codigo en "OnDrawColumnCell", por alguna razon el DBGrid queda con un efecto de barrido permanente .

• No sucede esto si, en cambio, repito las propiedades de columnas luego del Open del ADOStoredProc. El problema es que la actualizacion del ADOStoredProc, la tengo que hacer en varias situaciones distintas, por lo que tendria repetido muchas veces la configuracion de columnas del DBGrid. Aunque podria solucionarlo, creando una funcion que invoque estas lineas (... aun no se como se hace en Delphi ).

Nuevamente... MUCHAS GRACIAS !!!

[jmariano]

El efecto de barrido o parpadeo ocurre porque, en Windows, los controles necesitan ser "repintados" cada dos por tres debido a ciertas acciones (una ventana es arrastrada o una ventana tapa a otra, etc.).

La mejor solución es la que te dio Lepe si lo quieres hacer por código, si no es mejor definir las columnas por diseño.

Hacer la función es fácil, podrías, por ejemplo, añadir un método al formulario que contiene el DBGrid para que actualice las columnas:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    DBGrid1: TDBGrid;
    ...
    procedure Button1Click(Sender: TObject);
  private
    procedure ActualizarGrid; // Método que actualiza el DBGrid
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ActualizarGrid;
begin
  with DBGrid1 do
  begin
    DataSource:= ds1;
    Options:=[dgRowSelect,dgTitles,dgConfirmDelete,dgCancelOnExit]; 
    Ctl3D:= False;

    //Configuracion de Titulos...
    FixedColor:= clYellow;
    Color:=clBlack;
    TitleFont.Name:= 'Arial';
    TitleFont.Size:= 10;
    TitleFont.Style:=[fsBold];

    //Configuracion de ancho fijo de columnas...
    Columns[0].Width:=100;  //Columna-> Tipo de Evento
    Columns[1].Width:=140;  //Columna-> Fecha y Hora
    Columns[2].Width:=200;  //Columna-> Descripción Evento
    Columns[3].Width:=80;   //Columna-> Usuario

    //Configuracion de datos...
    Font.Name:= 'Tahoma';  //Tipo letra datos
    Font.Color:= clYellow; //Color letra datos

    Columns[0].Font.Name:= 'Webdings';
    Columns[0].Font.Size:= 30;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Ejecutas la consulta
  ...

  ActualizarGrid; // Lo llamamos siempre que sea necesario actualizar el DBGrid
end;

end.

[TriLoCBA]

Muchas gracias JMariano... con ambos datos ya soluciono el problema !!!