Dimension en los GET's

[Loren]

Compañeros:

Los Dialogs de mis aplicaciones que tienen GET's tienen un efecto visual no deseable. Me explico:

Supongamos un campo caracter de 50 digitos, por ejemplo "Dirección". En mi RC dibujo un campo GET más o menos del tamaño que preveo tenga ese campo con 50 digitos. Y aquí está el problema, porque mis clientes, cuando teclean en el GET pueden consumir los 50 digitos (supongamos direcciones grandes ) y pueden acabarse antes de que finalice el largo del campo GET dibujado en pantalla y esto lleva a confusion a mis clientes. Mis clientes, con razón me dicen que supuestamente el cursor debe finalizar cuando acaba el tamaño del GET dibujado en pantalla.

¿ Como lo haceis vosotros ? Mil gracias.

LORENZO

[Ricardo Ramirez E.]

Loren :
A que te refieres cuando dices...

"...que supuestamente el cursor debe finalizar cuando acaba el tamaño del GET dibujado en pantalla..."

que se mantenga en el get ? cuando llegas al caracter Nº 50?

[FranciscoA]

Lo que Loren trata de decir es como hacer para que el ancho del Get sea igual o muy aproximado al ancho de _ del campo, para que no se muestren espacios sobrantes sobre el Get cuando _ del campo correspondiente hayan
sido agotados.

Sé que puede existir un método mas profesional, pero, como salida fácil y rápida, creo que podría remediarse utilizando un tamaño de font adecuado.

Saludos.

[jrestojeda]

Este problema no es del archivo de recursos ni de FW, el tema es que los font de windows no son proporcionales, es decir, por ejemplo la letra "I" ocupará menos espacio que la letra "W" de ahi ese comportamiento de los GETS, el problema no se solucionará tomando un tamaño de FONT adecuado, ya que con esto solo se puede aproximar, la solución es mejor dicho tomar el font adecuado, es decir un font proporcional.
Un font proporcional es un font que tiene la propiedad de que sea cual sea el caracter sismpre este ocupará el mismo espacio.

El font proporcional que yo utilizo es el "Courier New" para cuando quiero que el contenido de los gets de los Browse o de los comboox siempre tengan la misma longitud tanto de largo real como visualmente y tambien en las impresiones.

Code: Select all

DEFINE FONT oFont5 NAME "Courier New" SIZE 0,-13 BOLD
 

Font en GET y COMBOBOX

Code: Select all

   REDEFINE GET   oGet   VAR   vGet   ID 100  OF oDlg PICTURE "@!";
      FONT oFont5
   
   REDEFINE COMBOBOX oCombo VAR vCombo ITEMS MiArray ID 101 OF oDlg
      oCombo:SetFont(oFont5)
 

Asi seria para el font en una columna en XBROWSE.

Code: Select all

   oLbx1:AddCol():bEditValue    :={ || STR((cAliasIng)->CODIGO) }
   oLbx1:aCols[ 1]:nWidth       :=80
   oLbx1:aCols[ 1]:cHeader      :="Código"
   oLbx1:aCols[ 1]:cSortOrder   :="INGCOMP1"
   oLbx1:aCols[ 1]:nDataStrAlign:=1
   oLbx1:aCols[ 1]:nHeadStrAlign:=2
   oLbx1:aCols[ 1]:oHeaderFont  :=oFont5
   oLbx1:aCols[ 1]:oDataFont    :=oFont5
 

Espero te sirva...
Saludos desde Argentina, Esteban.