FiveTech Support Forums

#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