FiveTech Software tech support forums

karinha wrote: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.

Antonio Linares wrote:Estimado Alejandro,

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

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
 

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

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