FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour GET over a GROUPBOX
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
GET over a GROUPBOX
Posted: Mon Jul 08, 2013 06:52 AM
Dear friends, I need a way to correctly show a GET over a GROUPBOX in the sample below (please activate the theme manifest). As you can see, the GET rectagle is not showed at first.

Code (fw): Select all Collapse
#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVar := PADR( "This is a test", 35 )

    DEFINE DIALOG oDlg;
           SIZE 800, 600

    oDlg:nStyle = NOR( oDlg:nStyle, WS_CLIPCHILDREN, WS_THICKFRAME )

    TGroup():New( 1, 1, 10, 20, "Test" )

    @ 50, 10 BUTTON "&Close" OF oDlg;
             PIXEL

    @ 100, 10 GET cVar OF oDlg SIZE 100, 11;
              PIXEL

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


EMG

Continue the discussion