topic-24967

Posts: 6984

Joined: Fri Oct 07, 2005 07:07 PM

TGet for Metro style like
Posted: Sun Oct 07, 2012 11:58 AM

Hello,

SPINNER like it is standard in FWH is not operate able through touch display. I made following changes.
Now I would like to ask if this behavior could be achieved easier maybe build into the class.

Now I link a TGet class where I deleded following line from ::
If( lSpinner, WS_VSCROLL, 0 ),;

Code (fw): Select all Collapse

::nStyle    = nOR( WS_CHILD, WS_VISIBLE,;
                      ES_AUTOHSCROLL,;
                      If( ! lReadOnly, WS_TABSTOP, 0 ),;
                      If( lDesign, WS_CLIPSIBLINGS, 0 ),;
                      If( lSpinner, WS_VSCROLL, 0 ),;
                      If( lReadOnly, ES_READONLY, 0 ),;
                      If( lCenter, ES_CENTER, If( lRight, ES_RIGHT, ES_LEFT ) ) )
                   // If( lCenter .OR. lRight, ES_MULTILINE, 0 ),; Only needed for Win31

In my program I add for every GET following two buttons.

Code (fw): Select all Collapse

@ nRowOffset + nRowSpace * nLine, 200+ nColOffset + 140 ;
     FLATBTN oBtnUpDown ;
      PROMPT "-" ;
        FONT Setup():oFntMetroFLATBTN ;
        SIZE ( 20 ), ( 20 ) ;
          OF oPanel ;
      ACTION ( oGetAbreise:ScrollNumber(-1), oSelf:SetWochenTag1() ) ;
       COLOR CLR_GRAY, CLR_WHITE


@ nRowOffset + nRowSpace * nLine, 200+ nColOffset + 140+30 ;
     FLATBTN oBtnUpDown ;
      PROMPT "+" ;
        FONT Setup():oFntMetroFLATBTN ;
        SIZE ( 20 ), ( 20 ) ;
          OF oPanel ;
      ACTION ( oGetAbreise:ScrollNumber(1), oSelf:SetWochenTag1() ) ;
       COLOR CLR_GRAY, CLR_WHITE

Best regards,
Otto

FiveTech Support Forums

Continue the discussion