FiveTech Software tech support forums

... else ::nRight = nRight * If( lPixel, 1, GRP_CHARPIX_W ) // 7 endif y este a Tpanel dejar asi METHOD New( nTop, nLeft, nBottom, nRight, oWnd, lDesign, cVarName, lBorder ) CLASS TPanel DEFAULT nTop := 0, nLeft := 0, nBottom := 100, nRight := 100,; oWnd := GetWndDefault(), lDesign := .F., lBorder ...

... else ::nRight = nRight * If( lPixel, 1, GRP_CHARPIX_W ) // 7 endif y este a Tpanel dejar asi METHOD New( nTop, nLeft, nBottom, nRight, oWnd, lDesign, cVarName, lBorder ) CLASS TPanel DEFAULT nTop := 0, nLeft := 0, nBottom := 100, nRight := 100,; oWnd := GetWndDefault(), lDesign := .F., lBorder ...

... 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