but each time I have problem because the user wrong the digit and must i use the mouse to return on get and erase the data
probably picture variable is not set to the best
on the dbf I have
{ "Top", "N", 6, 2 },;
{ "Left", "N", 6, 2 },;
{ "Width", "N", 6, 2 },;
{ "Height", "N", 6, 2 },;
and on source I have
- Code: Select all Expand view
- @ 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
I must digit measure as 0,01 or 0,1 or 0,2 or 1,2 or 20,03
the small 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 := "@Z 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
@ 70, 82 GET aGet[2] VAR nLeft OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE cPic UPDATE
@ 70, 205 GET aGet[3] VAR nWidth OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE cPic UPDATE
@ 70, 265 GET aGet[4] VAR nHeight OF oDlg SIZE 28, 12 PIXEL FONT oFont PICTURE cPic UPDATE
@ 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