FiveTech Software tech support forums

... = 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 := .F. ::lUnicode ...

... = 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 := .F. ::lUnicode ...

... <nRow>, <nCol>, <{cText}>,; [<oWnd>], [<cPict>], <oFont>, <.lCenter.>, <.lRight.>, <.lBorder.>,; <.lPixel.>, <nClrText>, <nClrBack>, <nWidth>, <nHeight>,; <.design.>, <.update.>, <.lShaded.>, ...

... OF,WINDOW,DIALOG > <oWnd> ] ; [ FONT <oFont> ] ; [ <lCenter: CENTERED, CENTER > ] ; [ <lRight: RIGHT > ] ; [ <lBorder: BORDER > [CLR <nClrBorder>] ] ; [ [<relpix:RELATIVE>] <lPixel: PIXEL, PIXELS > ] ; [ <color: COLOR,COLORS > <nClrText> ...

... ; lAdjust, nSeparator, nOption, bPopUp, lStretch, ; cLayOut, bBmpAction, nBright, lAnimate, nSpeed, oFontDefault, ; lTransparent, aDialogs, lBorder, nClrPane, cVarName ) so ON PAINT TAB  -> bClrTabs ON PAINT TEXT -> bClrText

... <uAction>}], <nBright>,; <.lAnimate.>, [<nSpeed>], <oFont>, <.lTransparent.>, [\{<cDlgsName>\}], ; <.lBorder.>, <nClrPane>, [<(oFolder)>] )      oTab_Left  := TFolderEx() :New( 40 + nBB, 1, ( nWidth / 2 ) - 05, nHeight ...

From Whatnew * TWindow Method SayText( cText, aRect, cAlign, oFont, nClrText, nClrBack, lBorder ) Applies to all derived classes like dialogs and controls To be used in o:bPainted. function FW_SayText( hDC or oWnd, cText, aRect, cAlign, oFont, nClrText, nClrBack, lBorder ...

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

Silvio.Falconi wrote:why not run ????

@ 98, 115 Say oSay[4] Prompt "Colore Bordo" SIZE 80,14 PIXEL OF oDlg TRANSPARENT WHEN lBorder

There is no WHEN clause in SAY command.
Please see fivewin.ch.

why not run ????

@ 98, 115 Say oSay[4] Prompt "Colore Bordo" SIZE 80,14 PIXEL OF oDlg TRANSPARENT WHEN lBorder

... TRANSPARENT // SHADOWSIZE 15 // BOTTOMRIGHT @ 30, nY TITLE oBar_AA Size 480, 430 of oMainWnd TRANSPARENT // SHADOWSIZE 15 // BOTTOMRIGHT oBar_AA:lBorder := .T. oBar_AA:nShadowIntensity = 20 oBar_AA:lRound := .T. n:= 0 // Draw horizontal lines For t = 1 To Len(aVar_AA) @ tX+n+3,tY TITLETEXT OF ...

... especifica o si algún elemento es nulo, se utilizan colores predeterminados. - METHOD PrintTable( nRow, nCol, oTable, nWidth, nHeight, [oFont], [lBorder], ; [cTitle], [cUnits] ) Útil para incrustar una tabla simple y pequeña dentro de un área especificada en un documento impreso. oTable: Datos ...

... objects. If not specified or if any element is nil, default colors are used. - METHOD PrintTable( nRow, nCol, oTable, nWidth, nHeight, [oFont], [lBorder], ; [cTitle], [cUnits] ) Useful for embedding a simple and small table within a specified area in a ; print document. oTable: Data to the displayed ...

... !!! I would like to change the image-border at runtime. From class TBitmap I use :nStyle , because there is no method in class TImage like oImage:lBorder := .F. @ 55, 430 COMBOBOX oCbx1 VAR cImgBorder  ITEMS { "Border", "NO border" } ;SIZE 50, 50 OF oSDlg  PIXEL FONT ...

using NOBORDER or lborder := .f. has the same result
i.e.
when the mouse is over the bitmap the border appears but when created from code it doesn't

Regards
Peter