Tema: ¿ Cómo ver todas las líneas de un IWGrid sin superponerse con los datos de abajo ?
Ver Mensaje Individual
  #3  
Antiguo 29-01-2010
fcios fcios is offline
Miembro
  
Registrado: jul 2003
Posts: 108
Reputación: 21
fcios Va por buen camino
Talking ¿ Cómo ver todas las líneas de un IWGrid sin superponerse con los datos de abajo ?
No utilicé el Top, utilicé el Height para agrandar los IWRegion y de esta forma se mueven varios componentes para abajo

Tambien definí una constante nAltoLineaGrid = 24 la cual multiplico por la cantidad de líneas que tienen los Querys

y me quedó así

Código Delphi [-]

procedure TIndustriasF.IWAppFormRender(Sender: TObject);
var n:integer;
begin
  PermisoEditar(bEdicion); // aca saco/coloco permisos EdiTable := False/True

  n := UserSession.dm22.Query1.RecordCount * nAltoLineaGrid;
  IWRegion1.Height := IWRegion1.Height + n;

  n := UserSession.dm22.Query2.RecordCount * nAltoLineaGrid;
  IWRegion2.Height := IWRegion2.Height + n;
...
end;

Me imagino que esta no es la forma mas adecuada pero funciona

Muchas gracias Caro
Responder Con Cita