9 respuestas en este tema

[luk2009]

Hola a todos

Lo que quiero es fijar la altura de las columnas del dbgrid y el problema esta en que cuando se cambia el ancho de la columna, me cambia la altura. Se que debo utilizar [glow=red,2,300]ColWidthsChanged[/glow] pero no se donde.

Lo que hecho hasta  ahora es esto:

delphi

  private
    { Private declarations }
 
  public
    { Public declarations }
  end;
 
 type
   lucianoGrid = class(TDBGrid);
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormShow(Sender: TObject);
begin
 lucianoGrid(dbgrid1).DefaultRowHeight:=50;
 lucianoGrid(DBGrid1).RowHeights[0] := 17; // fila de tí­tulos
end;
 
procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; FromIndex,
  ToIndex: Integer);
begin
  inherited;
 
  lucianoGrid(dbgrid1).DefaultRowHeight:= 50;
  lucianoGrid(DBGrid1).RowHeights[0] := 17;
 
 
end;
   

[Wilson]

Ensaya esto, es una interposición de clase.

delphi

type
  TMyDBGrid = class(TDBGrid)
  public
    property DefaultRowHeight;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DbGrid1.Canvas.Font.Size := 13;
  TMyDBGrid(DBGrid1).DefaultRowHeight := DBGrid1.Canvas.TextHeight('MMMMM') + 4;
end;

o con esta

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.DisableControls;
  TStringGrid(DBGrid1).DefaultRowHeight := 55;
  DBGrid1.DataSource.DataSet.EnableControls;
end;

Espero te sirva
saludos

[luk2009]

Gracias Wilson por tu respuesta.

El problema es que cuando se cambia en tiempo de ejecucion el ancho de la columna, esta se vuelve a poner
del tamaño normal.

No quiero restringir la posibilidad de cambiar el ancho de la columna en ejecucion, porque voy a presentar un
campo memo y deseo se pueda ver completo en algun momento.

Lo que deseo hacer es que cuando alguien cambie el ancho de la columna, el programa indique que la configuracion de la altura no debe variar.

[Wilson]

Prueba con esta intentando sobrescribir el procedimiento ColWidthsChanged

delphi

type
  TLucianoDBGrid = class(TDBGrid)
  protected
    procedure ColWidthsChanged; override;
  end;
 
procedure TLucianoDBGrid.ColWidthsChanged;
begin
//tu codigo
end;
 
end.

[Wilson]

Aqui refino el codigo de la idea del ejemplo del post anterior, está probado en Delphi 2009. espero te sirva.

delphi

type
 
  TDBGrid = class(DBGrids.TDBGrid)
protected
procedure ColWidthsChanged; override;
 end;
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TDBGrid.ColWidthsChanged;
begin
// este codigo se ejecuta en todos los DBGrid que pongas en este form 
  showmessage('Luciano');
inherited ColWidthsChanged;
end;
 
end.

Si es necesario puedes quitar la linea del inherited ColWidthsChanged o pasarla a la parte superior del procedimiento.

Saludos

[luk2009]

Gracias por tus respuestas, si me funciona bien.
Pero, porque siempre hay algun pero.  Me gustaria dejar el tamaño de los titulos mas pequeños, porque ahora me los pone del mismo tamaño que el de las columnas.

Puse esto en un fomulario nuevo y me funciona de maravilla, pero si lo pongo en un formulario que ya tengo creado solo me cambia cuando muevo el ancho de la columna. Que crees que puedo estar haciendo mal para que codigo del oncreate del form no funcione.

Gracias de nuevo   

[egostar]

Gracias por tus respuestas, si me funciona bien.
Pero, porque siempre hay algun pero.  Me gustaria dejar el tamaño de los titulos mas pequeños, porque ahora me los pone del mismo tamaño que el de las columnas.

Puse esto en un fomulario nuevo y me funciona de maravilla, pero si lo pongo en un formulario que ya tengo creado solo me cambia cuando muevo el ancho de la columna. Que crees que puedo estar haciendo mal para que codigo del oncreate del form no funcione.

Gracias de nuevo   

Pues la razón de esto es que el evento OnCreate solo te funciona cuando incias la aplicación, para que puedas redimensionar tu dbGrid puedes usar el método OnShow o el método OnPaint de la forma que creo serí­a la mejor opción.

Salud OS

[luk2009]

Gracias Egostar por tu respuesta.

Ya estaba esperando tu ayuda, porque la idea de poner las columnas mas altas, la tomé de una imagen que vi de un programa tuyo. 

La prueba la estaba haciendo cuando abria el programa, pero voy a hacerlo como me dices y te comento.

[egostar]

Gracias Egostar por tu respuesta.

Ya estaba esperando tu ayuda, porque la idea de poner las columnas mas altas, la tomé de una imagen que vi de un programa tuyo. 

La prueba la estaba haciendo cuando abria el programa, pero voy a hacerlo como me dices y te comento.

Ah vaya, lo que pasa es que eso no es un DBGrid es un StringGrid, pequeña diferencia

Salud OS

[Wilson]

Se me ocurre que la razón por la que el evento OnCreate te funciona en un form nuevo y no en un viejo (que según entiendo es el problema actual) podrí­a ser el orden de creación de los componentes como el orden en las declaraciones, podrí­as ensayar primero colocando de últimas en la claúsula uses de la interface las units Grids, DBGrids; luego en la declaración de tipo del TForm justo depues de este colocar los DBGrids y finalmente en la implementación colocar de primero el procedure  TDBGrid.ColWidthsChanged.

Ensaya y me cuentas.
Saludos