FiveTech Software tech support forums

... en lugar de "www". ..." ,solo así podríamos tener el efecto de color over con el mouse oURL:= New( nTop, nLeft, oWnd, lPixel, lDesign, oFont, cMsg, cURL, cToolTip, nClrInit, nClrOver, nClrVisit, lTransp )

... ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ WHEN <uWhen> ] ; [ VALID <uValid> ] ; [ ON CHANGE <uChange> ] ; [ <lDesign: DESIGN> ] ; [ <lHighlight: HIGHLIGHT> ] ; [ <file: FILE, FILENAME> <cFileName> ] ; [ RTFSIZE <nRTFSize> ] ; [ <lNoURL: ...

... compare with Parameter in my CODE oTab_Left := TFolderEx() :New( 40 + nBB, 1, ( nWidth / 2 ) - 05, nHeight - 180 - nBB, oMain, ; aBitmaps, lPixel, lDesign, aPrompts, nFolderHeight, ; aHelps, nRound, bAction, bClrTabs, bClrText, aAlign, ; lAdjust, nSeparator, nOption, bPopUp, lStretch, ; cLayOut, ...

... := ] TFoldereX():New( <nRow>, <nCol>, <nWidth>, <nHeight>,; <oWnd>, [\{<cbmps>\}], <.lPixel.>, <.lDesign.>, [\{<cPrompt>\}], ; <ntabheight>, [\{<cnHelpids>\}], <nRound>, [{|nOption, nOldOption, Self | <uChange>}],; ...

My mistake, you have to call it this way:

// Class TPanel Method Redefine( nId, oWnd, lDesign, cVarName, lBorder )

oPanel := TScrollPanel():Redefine( 101, oDlg )

Also, you have to call oPanel:SetFont( oDlg:oFont ) from the ON INIT clause of the ACTIVATE DIALOG

... ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ WHEN <uWhen> ] ; [ VALID <uValid> ] ; [ ON CHANGE <uChange> ] ; [ <lDesign: DESIGN> ] ; [ <lHighlight: HIGHLIGHT> ] ; [ <file: FILE, FILENAME> <cFileName> ] ; [ RTFSIZE <nRTFSize> ] ; [ <lNoURL: ...

... ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ WHEN <uWhen> ] ; [ VALID <uValid> ] ; [ ON CHANGE <uChange> ] ; [ <lDesign: DESIGN> ] ; [ <lHighlight: HIGHLIGHT> ] ; [ <file: FILE, FILENAME> <cFileName> ] ; [ RTFSIZE <nRTFSize> ] ; [ <lNoURL: ...

... COLSIZES 500, 70 NOBORDER FASTEDIT FOOTERS // oBrw:lHScroll:= .F. // oBrwm:lVScroll:= .T. oBrw:l2007 := .T. oBrw:lTransparent := .f. oBrw:lDesign := .f. oBrw:lRecordSelector := .T. oBrw:lVScroll := .t. oBrw:lHScroll := .f. oBrw:lColChangeNotify := .t. oBrw:lAllowColReGroup := .t. oBrw:lColDividerComplete ...

... > ] ; [ <color: COLOR, COLORS> <nClrPane>, <nClrText> ] ; [ BARCOLOR <nClrBar>, <nClrBText> ] ; [ <lDesign: DESIGN> ] ; El medidor se muestra como una barra horizontal. BARCOLOR <nClrBar> (valor por defecto CLR_BLUE predeterminado) se utiliza ...

... > ] ; [ <color: COLOR, COLORS> <nClrPane>, <nClrText> ] ; [ BARCOLOR <nClrBar>, <nClrBText> ] ; [ <lDesign: DESIGN> ] ; The meter is displayed as a horizontal bar. BARCOLOR <nClrBar> (default CLR_BLUE) is used to display the progress. COLORS ...

... los controles, asignar tamaño, colores y fuentes. 1. En el sysmenu cree la opcion Activar modo diseño. Todos los controles les activo oControl:lDesign:=.T. 2. Si es MDI el usuario puede arrastrarlos con el mouse. 3. Al salir del formulario, guardo en un archivo plano la geometria de cada control. ...

... nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked , lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign, cVarName ) CLASS TImage regards Uwe :D Uwe, Sorry on BTnBMP is possible to place sub-images inside on any position of the button you must make ...

... nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked , lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign, cVarName ) CLASS TImage regards Uwe :D

... Add in scrolmsg.prg DATA lBox INIT .t. METHOD New( nRow, nCol, nWidth, nHeight, cText, oWnd, oFont, ; nSpeed, nClrText, nClrBack, lHoriz, lPixels, lDesign, cVarName, lBox ) CLASS TScrollMsg DEFAULT ... ... lBox := .t. METHOD Paint() CLASS TScrollMsg if ::lBox ::oWnd:Box( ::nTop - 1, ::nLeft - 1, ...

... nRow, nCol, bText, cType, oWnd, nWidth, ; nHeight, lPixel, nClrText, nClrBack, ; lVertical, lTransparent, nPinSize, nFlags, lUpdate, lDesign ) - Comando para el control: #xcommand @ <nRow>, <nCol> SAYBARCODE [<oBcd>] TEXT <cText> ; [ TYPE <cType> ] ; ...