Page 1 of 1
Get infield
Posted: Sat May 11, 2024 4:30 pm
by 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
Re: Get infield
Posted: Sun May 12, 2024 4:21 am
by Antonio Linares
Estimado Alejandro,
Puedes poner un PRG de ejemplo para ver como lo estás haciendo ? gracias
Re: Get infield
Posted: Sun May 12, 2024 12:56 pm
by karinha
Re: Get infield
Posted: Sun May 12, 2024 6:34 pm
by TecniSoftware
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.
Antonio Linares wrote: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
#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
Re: Get infield
Posted: Mon May 13, 2024 4:22 am
by 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