FiveTech Software tech support forums

... alltrim(acos[j6+4])="__BOX__" aGets[j]:=" " // oGrp :=TGroup():New( nRow , nCol , nRow+100 , nCol+100 , cCaption, oForm, nClrText, nClrPane, .T. ,lDesign , oFont, .t. ) //oGets[j]:= TGroup():New( val(acos[j6]),val(acos[j6+1]),val(acos[j6])+val(acos[j6+3]),val(acos[j6+1])+val(acos[j6+2]) , "" , ...

... CLASS TGroup FROM TControl METHOD New( nTop, nLeft, nBottom, nRight, cLabel, oWnd, nClrText,; nClrPane, lPixel, lDesign, oFont, lTransparent ) CONSTRUCTOR METHOD ReDefine( nId, cLabel, oWnd, nClrText, nClrPane, oFont, lTransparent ) CONSTRUCTOR METHOD cToChar() ...

... If( cPosText == "TEXTLEFT", BS_LEFT, 0 ),; If( cPosText == "TEXTRIGHT", BS_RIGHT, 0 ),; if( at( CRLF, ::cCaption ) > 0, BS_MULTILINE, 0 ),; If( lDesign, WS_CLIPSIBLINGS, 0 ) ) y aqui tambien: ::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, BS_MULTILINE,; If( cPosText == "TEXTTOP", BS_TOP, ...

... 0 // Own heap for @ ..., ... GET DATA cPicture METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,; nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel,; cMsg, lUpdate, bWhen, lCenter, lRight, bChanged,; lReadOnly, lPassword, lNoBorder, nHelpId,; lSpinner, bUp, bDown, bMin, ...

... <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ SIZE <nWidth>, <nHeight> ] ; [ VALID <uValid> ] ; [ <lDesign: DESIGN> ] ; [ <lLook3d: 3D, _3D> ] ; [ <lPixel: PIXEL> ] ; * Nuevo: Función ShFile() para usar los diálogos de Windows para ...

... <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ SIZE <nWidth>, <nHeight> ] ; [ VALID <uValid> ] ; [ <lDesign: DESIGN> ] ; [ <lLook3d: 3D, _3D> ] ; [ <lPixel: PIXEL> ] ; * New: Function ShFile() to use the Windows system dialogs to manage ...

... cPosText == "TEXTLEFT", BS_LEFT, 0 ),; If( cPosText == "TEXTRIGHT", BS_RIGHT, 0 ),; if( at( CRLF, ::cCaption ) > 0, BS_MULTILINE, 0 ) , ; If( lDesign, WS_CLIPSIBLINGS, 0 ) ) línea 161 ::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, BS_MULTILINE,; If( cPosText == "TEXTTOP", BS_TOP, 0 ),; ...

... (don't forget the following in the new() method:) // r.c. add: DTS_SHOWNONE ::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP,; DTS_SHOWNONE,; If( lDesign, WS_CLIPSIBLINGS, 0 ) ) ------------------------------------------------------------- best regards Stefan