FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Tamaño de filas de un dbgrid....
¿Como puedo cambiar el tamaño de las filas en un dbgrid?
Gracias... |
#2
|
||||
|
||||
dbgrid1.RowsHeight := 1500; // por ejemplo
|
#3
|
||||
|
||||
Pues a mí me sale todo este código:
Código:
procedure TForm1.Button1Click(Sender: TObject); var nFilas:Variant; nAltoRejilla:Integer; nCont:Integer; nNuevoAlto:Integer; begin nNuevoAlto:=40;//alto que le vamos a dar a las filas nAltoRejilla:=TStringGrid(DbGrid1).GridHeight; nFilas:=int(nAltoRejilla / nNuevoalto); //filas = AltoRejilla / NuevoAlto TStringGrid(DbGrid1).RowCount:=nFilas; //Aplicamos nuevo número de filas For nCont:=0 to nFilas -1 do begin //Ahora modificamos el Alto de todas ellas incluida la de título TStringGrid(DBGrid1).rowheights[nCont] := nNuevoAlto; end; end; procedure TForm1.Table1AfterScroll(DataSet: TDataSet); begin {Para que se siga redibujando correctamente cuando movamos el Dataset que repercute sobre la rejilla} DbGrid1.Refresh; end;
__________________
Guía de Estilo de los Foros Cita:
|
#4
|
||||
|
||||
ups, me colé. Como uso las RxLibs ....
mis disculpas |
|
|
|