Página 1 de 1

Combo en TDBBrowseMod

Publicado: Mié Ene 27, 2021 1:01 pm
por Ariel
Ignacio,
buen dia, siguiendo con las pruebas de este control me encuentro que si cambio la fuente al browse :

Código: Seleccionar todo

::oBrw:oFont               := TFont():Create( "Roboto Medium", 18 )
en un campo de una columna defino :

Código: Seleccionar todo

:nEditType         := beLISTBOX
:nFilterEditStyle:= esCOMBO
cuando se depliega el combo de items, me pone los items con letra muy pequeña ignorando la que defino en el browse.

Saludos.

Re: Combo en TDBBrowseMod

Publicado: Mié Ene 27, 2021 2:11 pm
por ignacio
Hola,

El font se hereda en el momento que se crea el control. Una vez creado, cualquier cambio en su contenedor, en principio, no le afecta. Es decir, no se propaga.

Comprueba si asignando el font en el IDE tienes el mismo problema. Si es así, sería error de Xailer. La solución: asignar el font en el browse antes que se creen sus objetos columna: Evento OnCreated() o bien cambiar el font de oColumn:oGridEdit en cada caso.

Un saludo

Re: Combo en TDBBrowseMod

Publicado: Jue Ene 28, 2021 9:39 pm
por Ariel
Ignacio,
gracias por responder, hice lo que me indicas y me da error, aun si en el IDE defino un font no lo toma para el combo, y la segunda opcion intente ponerlo en el OnCreate del browse de este modo :

Código: Seleccionar todo

::oBrw:oFont := TFont():Create(::cTypeFnt,::nSizeFnt)
::oBrw:aCols[5]:oGridEdit:oFont := TFont():Create( "Roboto Medium", 18 )
y me da error.

Otro tema sobre este punto, es que guardo el numero de id en la columna y muestro el nombre, cuando visualizo ok pero cuando edito para que abra el combo me muestra el id en el renglon en vez de el nombre.

Imagen

Saludos.

Re: Combo en TDBBrowseMod

Publicado: Vie Ene 29, 2021 11:04 am
por ignacio
Buenos días,
gracias por responder, hice lo que me indicas y me da error, aun si en el IDE defino un font no lo toma para el combo, y la segunda opcion intente ponerlo en el OnCreate del browse de este modo :

Código: Seleccionar todo

::oBrw:oFont := TFont():Create(::cTypeFnt,::nSizeFnt)
::oBrw:aCols[5]:oGridEdit:oFont := TFont():Create( "Roboto Medium", 18 )
Funcionando a la perfección.

Código: Seleccionar todo

METHOD FormInitialize( oSender ) CLASS TForm1

   WITH OBJECT ::oBrowseMod1
      :aCols[3]:oGridEdit:oFont := TFont():Create( "Roboto Medium", 18 )
   END WITH

RETURN Nil
[attachment=0]Imagen 090.png[/attachment]
Por otra parte y sin querer crear polémica, le ruego que por favor no diga simplemente: 'Error' sin más. Espero que lo entienda.

En cuanto a su problema del combo le recomiendo que muestre siempre literales. Es decir en el browse muestre directamente los textos y no los números.

Saludos

Re: Combo en TDBBrowseMod

Publicado: Vie Ene 29, 2021 11:44 am
por Ariel
Esto no entiendo, y disculpas x mi ignorancia, pero yo muestro un texto en el browse, como veras el primer item en la imagen q te mande adjunta, el problema se presenta cuando edito y me cambia el texto x el id en el renglon de edicion, o sea cuando despliega el combo.
Se ha modificado para que muestre el texto sólo para cuando nEditType es beLISTBOX. Si utiliza beGET_LISTBOX funcionará como hasta ahora.

Saludos
Imagen 092.png
Imagen 092.png (2.25 KiB) Visto 1218 veces