FiveTech Support Forums

#include "fivewin.ch"
FUNCTION test()
   LOCAL oDlg, oFnt, oBtn
   LOCAL oGet   := hb_hash()
   LOCAL PD_NNN := SPACE(18),;
         PD_NAM := Space(30),;
         FO_DMN := 0,;
         FO_JER := 0,;
         FO_AMO := 0,;
         FO_TMN := 0,;
         FO_MEM := Space(30)
   Local   nGtFgClr:= CLR_HBLUE,;
           nGtBkClr:= CLR_YELLOW,;
           nFgClr  := CLR_HBLUE,;
           nBkClr  := nRGB( 221, 216, 254 )

   LOCAL aX1    := {158,158,158,158,158,158,158}
   LOCAL aX2    := {179,179,179,179,179,179,179}
   LOCAL aY1    := {366,518,766,846,910,958,1038}
   LOCAL aY2    := {518,766,846,910,958,1038,1142}
   LOCAL aWidth := {152.00,248.00,80.00,64.00,48.00,80.00,104.00,8.00}
   LOCAL nHeight := aX2[1] - aX1[1],;
         nTolCol := 7
   PUBLIC nGet := 0

       //
       DEFINE FONT oFnt NAME 'MingLiU' SIZE 0, -15
       // DIALOG
       DEFINE DIALOG oDlg OF oDlg;
              ; // FROM 0, 0 To 400, 1350 PIXEL;  // <-- have show: oGet['FO_MEM']
              FROM 0, 0 To 400, 1050 PIXEL; // <-- not show: oGet['FO_MEM']
              FONT oFnt;
              STYLE nOR( WS_VISIBLE , WS_POPUP )
              oDlg:bKeyDown := {|nKey|If( nKey==VK_ESCAPE, oDlg:End(), NIL )}
       //
       ++nGet
       @ 0, (aY1[1]-aY1[1]) GET oGet['PD_NNN'] VAR PD_NNN OF oDlg;
            SIZE aWidth[1], nHeight PIXEL;
            COLOR nFgClr, nBkClr UPDATE
       ++nGet
       @ 0, (aY1[2]-aY1[1]) GET oGet['PD_NAM'] VAR PD_NAM OF oDlg;
            SIZE aWidth[2], nHeight PIXEL;
            COLOR nFgClr, nBkClr UPDATE
       ++nGet
       @ 0, (aY1[3]-aY1[1]) GET oGet['FO_DMN'] VAR FO_DMN OF oDlg;
            SIZE aWidth[3], nHeight PIXEL;
            COLOR nFgClr, nBkClr UPDATE;
            PICTURE '99999.99'
       ++nGet
       @ 0, (aY1[4]-aY1[1]) GET oGet['FO_JER'] VAR FO_JER OF oDlg;
            SIZE aWidth[4], nHeight PIXEL;
            COLOR nFgClr, nBkClr UPDATE;
            PICTURE '999.99'
       ++nGet
       @ 0, (aY1[5]-aY1[1]) GET oGet['FO_AMO'] VAR FO_AMO OF oDlg;
            SIZE aWidth[5], nHeight PIXEL;
            COLOR nFgClr, nBkClr UPDATE;
            PICTURE '9999'
        ++nGet
       @ 0, (aY1[6]-aY1[1]) GET oGet['FO_TMN'] VAR FO_TMN OF oDlg;
            SIZE aWidth[6], nHeight PIXEL;
            COLOR nFgClr, nBkClr UPDATE;
            PICTURE '999999.99'
       ++nGet
       @ 0, (aY1[7]-aY1[1]) GET oGet['FO_MEM'] VAR FO_MEM OF oDlg;
            SIZE aWidth[7], nHeight PIXEL;
            COLOR nFgClr, nBkClr UPDATE
       //
       @ 10, 0 BUTTON oBtn PROMPT 'button' UPDATE
       //
       ACTIVATE DIALOG oDlg CENTER;
                ON INIT ( CursorWait(),;
                          oDlg:UpDate() )
                // VALID lExit .Or. GetKeyState(VK_ESCAPE)

RETURN NIL

           DEFINE DIALOG oDlg OF oDlg;
                  FROM 0, 0 To 400, 1050 PIXEL;
                  FONT oFnt;
                  STYLE nOR( WS_VISIBLE , WS_POPUP );
                  TRUEPIXEL  // <-- This!!