Get infield

[TecniSoftware]

Queria hacer una consulta:



Hay manera de ajustar la distancia entre el caption y el get? y/o el tamaño del recuadro?
Esta la cláusula INSIZE pero solo logro hacer mas o menos ancho el recuadro, no logro controlar la altura.
Lo que quiero es hacer compactar todo un poco sin poner un fuente muy pequeño, acercar el caption al get y el recuadro mas pequeño.

Muchas gracias

[Antonio Linares]

Estimado Alejandro,

Puedes poner un PRG de ejemplo para ver como lo estás haciendo ? gracias

[karinha]

Mira se ayuda:

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=36283&p=216502&hilit=GET+INFIELD&sid=cca912f8226c2340a02d86527d9963cf&sid=cca912f8226c2340a02d86527d9963cf#p216502

Regards, saludos.

[TecniSoftware]

Mira se ayuda:

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=36283&p=216502&hilit=GET+INFIELD&sid=2df9f203308299c9df7fe9fc14c839f9&sid=2df9f203308299c9df7fe9fc14c839f9#p216502

Regards, saludos.

karinha:

Si, lo he leido pero no logro darme cuenta como hacer mas pequeños los get con su recuadro, para no tener que hacer una pantalla de carga de datos muy grande.

Estimado Alejandro,

Puedes poner un PRG de ejemplo para ver como lo estás haciendo ? gracias

Hola Antonio:

Un ejemplo simple basado \samples\inflield1.prg
Solo deseo ver como hacer mas compactos los get con su recuadro, solo pude cambiar su ancho pero no la altura ni la separacion entre el caption y el get mismo.

Code: Select all  Expand view

#include "FiveWin.ch"

#define  INDOWN       0
#define  INRIGHT      1
#define  INUP         2
#define  INLEFT       3
#define  INDOWNRIGHT  4
#define  INDOWNLEFT   5
#define  INUPRIGHT    6
#define  INUPLEFT     7

Function Main()

   local oWnd

   local cGet     := Space( 20 )
   local oGet

   local nRow     := 150
   local nCol     := 20

   local oBtn

   local oFontI

   SetResDebug( .T. )
   FErase( "Checkres.txt" )

   DEFINE FONT oFontI NAME "CALIBRI" SIZE 0,-10

   DEFINE WINDOW oWnd COLOR "N/W*" PIXEL
   oWnd:nHeight  := 650
   oWnd:nWidth   := 900

   @ 10, 20 FLATBTN oBtn PROMPT "Exit" OF oWnd SIZE 90, 40 ;
      COLOR CLR_BLUE, CLR_HGRAY NOBORDER ;
      ACTION oWnd:End()




   @ nRow, nCol GET oGet;
            VAR cGet;
             OF oWnd;
          COLOR "N/W*";
          PIXEL;
   BOTTOMBORDER;
        INFIELD;
      INCAPTION "Test get";
       INCLRTXT CLR_HBLUE;
         INFONT oFontI;
    INCLRBORDER Rgb( 204, 204, 204 );
         INSIZE 105, 0;
   INCLRLINEDIS CLR_BLACK;
        DYNAMIC






   ACTIVATE WINDOW oWnd

   oFontI:End()

   Checkres()

return nil
 

Muchos saludos

[Antonio Linares]

Puedes probar con estas claúsulas:

[INRECT <aInRect>];
aRect for paint: coordinates relative to nTop and nBottom of get

[INSIZE <nInWidth>, <nInHeight> ];
Width and Height for box paint