FiveTech Software tech support forums

... drawing yourself. You can do this by drawing a rectangle using functions like WndBoxClr, where you can specify the brush or pen color. Otto local hPen, oCli := ::GetCliRect() hPen = CreatePen( PS_SOLID, 1, nRGB( 255, 0, 0 ) ) WndBoxClr( ::GetDC(), 1, 1, oCli:nBottom - 2, oCli:nRight - 2, hPen ...

... printer.prg. METHOD Box( nRow, nCol, nBottom, nRight, oPen ) INLINE ; Rectangle( ::hDCOut, nRow, nCol, nBottom, nRight,; If( oPen != nil, oPen:hPen, 0 ) ) it's not the problem of oPrn:Box, but I think you have an old version of Tprinter ( printer.prg) , so now the Box method of Tprinter is ...

I do not see that method box supports: nXoffset or nYottset.
Look into printer.prg.
METHOD Box( nRow, nCol, nBottom, nRight, oPen ) INLINE ;
Rectangle( ::hDCOut, nRow, nCol, nBottom, nRight,;
If( oPen != nil, oPen:hPen, 0 ) )

... = { | nRow, nCol, hDC | If( nX1 != nil,; ( oImg:Refresh(), SysRefresh(), WndBoxClr( hDC := oImg:GetDC(), nX1, nY1, nX2 := nRow, nY2 := nCol, oPen:hPen ), oImg:ReleaseDC() ),) } Ese código te debe permitir seleccionar el rectángulo de la imagen a salvar. Por favor comprueba si te funciona. Lo próximo ...

... ::hDC, aPoints [1][1], aPoints [5][1], nil, nColor ) } or local hBru := CreateSolidBrush( nColor ) local hOld := SelectObject( ::hDC, hBru ) local hpen:=CreatePen(0,8,nColor) FillRect( ::hDC, { aPoints [1][1],aPoints [1][2],aPoints [2][1],aPoints [2][2] }, hBru ) SelectObject( ::hDC, hOld ) DeleteObject( ...

... * Clase TWindow, método Line( top, left, bottom, right, color, size ) Ahora el quinto parámetro "nColor" puede ser también "oPen/hPen". En este caso, el _ parámetro "size" debería ser NIL u omitido. * Corrección: El comando EDITVARS daba errores en tiempo de ejecución ...

... function FW_MemoEdit(). Font leakage fixed. * Window method Line( top, left, bottom, right, color, size ) Now 5th parameter color can also be oPen/hPen, In this case, 6th parm size should be nil or omitted. * Fix: EDITVARS command runtime error (FWH2101 & 2102) with character variables fixed. ...

... tengo controles que 'cuelgan' de la MDICHILD no del TGroup. Le estoy dando vueltas. Jugaré con WndBoxClr( ::hDC, nTop, nLeft, nBottom, nRight, hPen ) y un SAY. Son 4 pantallas. Un poco bruto pero con menos riesgo que empezar a modificar controles. Gracias de nuevo.

... the right function/method! oWnd/oDlg/oCtrl:Box( nTop, nLeft, nBottom, nRight, uBorder, uBrush, aText ) uBorder can be Color constant, or oPen or hPen. Test with Box() Method of TGet Class but don't function.... https://i.ibb.co/XtT0RwL/2021-01-24-16h16-01.png Code: #include 'fivewin.ch'Function ...

Why are you looking in tcalex.prg and tgraph.prg for drawing boxes?
TWindow class has a method Box and is available for every dialog and control too.

oWnd/oDlg/oCtrl:Box( nTop, nLeft, nBottom, nRight, uBorder, uBrush, aText )
uBorder can be Color constant, or oPen or hPen.

... just search inside samples for these functions DrawHorz ( hDC, ::nHeaderHeight - 3, 0, ::BrwWidth(), hPen ) DrawHorz( hDC, ::nHeaderHeight - 1, 0, ::BrwWidth(), hPen ) DrawVert ( hDC, 170, 2, ::nHeaderHeight - 1, hPen ) regards Uwe :D

... just search inside samples for these functions DrawHorz ( hDC, ::nHeaderHeight - 3, 0, ::BrwWidth(), hPen ) DrawHorz( hDC, ::nHeaderHeight - 1, 0, ::BrwWidth(), hPen ) DrawVert ( hDC, 170, 2, ::nHeaderHeight - 1, hPen ) regards Uwe :D

METHOD Box( nTop, nLeft, nBottom, nRight, ; [Pen], ; // oPen/hPen/nColor/{nColor,nThickness} [Brush], ; // nColor / oBrush [aText], ; // { cText, oFont, nColor } Painted in center cUnits ; // "CM", "MM", "INCHES" ) I tried ...

METHOD Box( nTop, nLeft, nBottom, nRight, ; [Pen], ; // oPen/hPen/nColor/{nColor,nThickness} [Brush], ; // nColor / oBrush [aText], ; // { cText, oFont, nColor } Painted in center cUnits ; // "CM", "MM", "INCHES" ) I tried ...

If i use the same oPen in tprinter and fwpdf the linewidth of box(...) are different! In tprinter the line are much stronger.
It seems, that box(..) in tprinter not compatible with older versions in case of using a pen-object. If i use oPen:hPen then is ok!