FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Grid y Scrollbar's
Hola Amigos del Foro !
Quiero prestar mi pequeña aportación al tema de los Grids y sus Scrollbar's. Llevo algo así como tres días analizando, buscando información, bajándome versiones de prueba de componentes de terceros, vamos en definitiva, comiéndome el coco de como poder ocultar decentemente los scrollbar's de un Grid. Nada me ha convencido !! Y de pronto se me ha ocurrido que a lo mejor la solución es siempre más fácil de lo que parece. ... claro, después de tres días y no se cuantas compilaciones, pruebas, etcétera. Bueno, termino el rollo .... Por qué no adjuntar un TPanel al form que se coloque justo encima del correspondiente ScrollBar (Vert/Horiz) en tamaño/posición y con el color del propio Grid, y hacerlo Visible o no según convenga !? ... y ya cada cual decide en su propio código cuando mostrar u ocultar dicho TPanel, y por consiguiente, ocultar o mostrar (respectivamente) el ScrollBar. Un saludo a todos
__________________
Piensa siempre en positivo ! |
#2
|
||||
|
||||
Saludos
Yo no entendí na Para ocultar el Scroll de un Grid solo hago eso
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! |
#3
|
||||
|
||||
Cita:
__________________
"En el siglo de la estupidez todas las casas comienzan por la fachada" (Fuckowsky) Planeta Insólito, La Pluma Inspirada |
#4
|
||||
|
||||
Me refería en mi caso concreto a los DBGrid's. La verdad es que será el 99.9% de mis casos. El StringGrid no lo he mirado en detalle, pero con bases de datos cliente/servidor, gran cantidad de registros, etcétera, supongo que es absurdo ponerse a pensar en el StringGrid, teniendo un componente especial para BBDD.
En innumerables foros estuve consultado cual era la mejor manera de ocultar sobre todo el scrollbar vertical, ya que el horizontal en mi caso se elimina solo por el propio diseño en pantalla. Aquí desarrollo un poco más la solución junto con TIBQuery (como ejemplo general): * Defino un DBGrid1 * Defino un TPanel, PanelVScrollBar1 cuyo tamaño y posición se adapte exáctamente al scrollbar vertical del DBGrid. Por defecto su propiedad Visible := True de tal manera que incluso en tiempo de diseño no veré el scrollbar una vez posicionado este PanelVScrollBar sobre el DBGrid1. Por supuesto el 'control' del PanelVScrollBar1 tendrá que ser 'bring to front' con respecto al DBGrid1 * En la rutina de entrada del form, que considero debería ser Form.OnPaint (para que se oculte correctamente cada vez que se redibuja el Form), o bien en el frame en mi caso particular, en cuyo caso he utilizado Frame.OnEnter, defino una llamada a un procedimiento llamado CheckVScrollBar1
* Dicho procedimiento CheckVScrollBar1 lo he desarrollado así :
Max_Rows se puede definir como variable global, o en mi caso concreto he reemplazado directamente el código con el valor concreto, ya que siempre será el mismo al no permitir redimensionar el DBGrid en ejecución. (... en mi caso mi código es If FieldByName('Count').Value > 4 ...). * En las rutinas de inserción o borrado de registros (se puede incluir también la de edición, pero en mi caso la de edición no añade ni borra registros, ni tampoco modifica la clave principal por lo que siempre seguirá siendo el registro parte del DBGrid), ejecuto una nueva llamada a CheckVScrollBar1 ... y al menos a mí me funciona de maravilla, y mucho mejor y efectivo que todo lo que he visto hasta ahora ! Sólo un dato más con respecto al comentario de vtdeleon: Intenté también con la rutina ShowScrollBar, pero cada vez que me reposiciono en el DBGrid (utilizo Delphi 2006) me vuelve a aparecer el ScrollBar, por lo que si lo quiero esconder cada vez, me causaba un efecto visual 'feo' con destellos. Incluso creo que definiéndome un componente derivado, e incluyendo esta llamada a ShowScrollBar en el evento OnPaint produciría ese 'flickering' indeseado. ... así que ya tengo la posibilidad de mostrar u ocultar de manera efectiva y eficiente mi scrollbar vertical cuando yo decida, y no cuando lo decida Delphi Saludos a todos.
__________________
Piensa siempre en positivo ! |
#5
|
||||
|
||||
Saludos
Que tal El 1ro deshabilita la barra y la 2da la oculta. Lo he probado y esta vez no reaparece Edito: Si reaparece. Por alguna razón la barra vertical reaparece, no asi la horizontal
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! Última edición por vtdeleon fecha: 23-01-2006 a las 12:48:51. |
#6
|
||||
|
||||
Prueba con algo así; derivando el DBGrid estandard:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#7
|
||||
|
||||
Uff !! ... mi primera componente propia.
Tengo documentación suficiente de como crear e instalar componentes en versiones anteriores a D2005 y D2006. Pero por lo menos a mi no me ha parecido inmediato instalar una componente a traves de 'paquetes' en D2006. Siento decirle a Neftali que el código que ha expuesto, a mi por le menos, no me funciona bajo Delphi 2005/2006 para .NET Ya en tiempo de diseño (como también en tiempo de ejecución) me da error 'Object reference not set to an instance of an object'
__________________
Piensa siempre en positivo ! |
#8
|
||||
|
||||
He continuado con el asunto, y he probado el mismo código en Delphi 2005 para Win32 y ya no me dá error, lo que pasa es que no me muestra nunca la barra de scroll vertical.
Aunque simple pero efectiva, sigo acogiéndome a la propuesta que yo hice ... Saludos
__________________
Piensa siempre en positivo ! |
#9
|
||||
|
||||
Cita:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#10
|
||||
|
||||
Hola Neftali,
Se trata precisamente como detallo en mi propuesta que cuando el número de líneas a mostrar sea menor o igual que el número de líneas que caben en 'pantalla', NO me muestre la barra, pero precisamente si aumenta el número de líneas y es necesario y útil un ScrollBar vertical, entonces SI me la muestre. Que sea dinámico y se adapte en tiempo de ejecución. Para ello precisamente tengo la dificultad añadida con los Query's que ni el propio DataSet, ni el DataSource me van a dar correcta e irrefutablemente el número de registros reales que se están mostrando en pantalla, por lo que le añadí un Query con un Count a mi código. Añadir una vez más que en mi caso particular estoy utilizando las versiones .NET de Delphi. Saludos !
__________________
Piensa siempre en positivo ! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Parece q los problemas no terminan con un Grid | Oxa78 | Varios | 5 | 26-10-2005 21:32:12 |
Formatear los datos para un grid | escullar | Varios | 3 | 05-10-2005 19:38:15 |
Refresh en Grid con un TiBQuery como datasource | ZRR | Firebird e Interbase | 3 | 03-10-2005 16:25:32 |
Titulos En String Grid | triniti | OOP | 2 | 20-06-2004 23:50:36 |
Los DBGrid y sus scrollbars | SnaKe | Varios | 3 | 31-10-2003 19:11:26 |
|