FiveTech Software tech support forums

the user has to enter the numbers quickly without stopping but finds it difficult and always has to go back to check the get controls because I made them this way but they don't work

@ 70, 20 GET aGet[5] VAR nTop OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE "@Z 999.99" UPDATE
@ 70, 82 GET aGet[6] VAR nLeft OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE "@Z 999.99" UPDATE
@ 70, 245 GET aGet[7] VAR nWidth OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE "@Z 999.99" UPDATE
@ 70, 245 GET aGet[8] VAR nHeight OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE "@Z 999.99" UPDATE







the user must enter for example

in the first 12.3
in the second 1
in the third 1.8
in the quarter 0.5

sample test

Code: Select all  Expand view

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

      local oDlg, aGet:= array(4), oBtn,oFont
      local nWd  := GetSysMetrics(0) * .58
      local nHt  := (GetSysMetrics(1) / 3 )


    local nTop    := 0
    local nLeft   := 0
    local nWidth  := 0
    local nHeight := 0
    local cPic  := "@ 999,99"

   SET _3DLOOK ON

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg TITLE "numeric get fast" ;
     SIZE nWd,nHt

   @ 70, 20  GET aGet[1] VAR nTop    OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE cPic UPDATE  RIGHTTOLEFT  
   @ 70, 82  GET aGet[2] VAR nLeft   OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE cPic UPDATE  RIGHTTOLEFT
   @ 70, 205 GET aGet[3] VAR nWidth  OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE cPic UPDATE  RIGHTTOLEFT
   @ 70, 265 GET aGet[4] VAR nHeight OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE cPic UPDATE  RIGHTTOLEFT
   

   @ 120.5, 4 BUTTON oBtn PROMPT "&Ok" SIZE 45, 12 PIXEL OF oDlg ;
      ACTION ( oDlg:End(), MsgInfo( nTest ) ) DEFAULT

   @ 120.5, 65 BUTTON "&Cancel" SIZE 45, 12 PIXEL OF oDlg ;
      ACTION ( oDlg:End(), MsgInfo( nTest ) )

   ACTIVATE DIALOG oDlg CENTERED

   return nil


 

 

maybe the PICTURE are wrong?

I tried also with

Code: Select all  Expand view

  @ 70, 20  GET aGet[1] VAR nTop    OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE "999.99" UPDATE  RIGHTTOLEFT
   @ 70, 82  GET aGet[2] VAR nLeft   OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE "999.99" UPDATE  RIGHTTOLEFT
   @ 70, 205 GET aGet[3] VAR nWidth  OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE "999.99" UPDATE  RIGHTTOLEFT
   @ 70, 265 GET aGet[4] VAR nHeight OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE "999.99" UPDATE  RIGHTTOLEFT

make a test
insert

first 12.3
second 5.5
third 1.5
four 0.5

not run ok and allway the user must return back with the mouse to insert the right numbers