FiveTech Software tech support forums

... local oRect:= oDlg:GetCliRect() If nType=1 oDlg:SaveAsImage( cFileJpg1, { oRect:nTop, oRect:nLeft, oRect:nbottom, oRect:nright-100 } ) else oDlg:SaveAsImage( cFileJpg2, { oRect:nTop, oRect:nLeft, oRect:nbottom, oRect:nright-100 } ) endif return nil[/img]

... local cFileJpg2:= "TopTen_Lotto_Frequenti.jpg" If nType=1 oDlg:SaveAsImage( cFileJpg1, { 0, 0, oDlg:nbottom, oDlg:nright-100 } ) else oDlg:SaveAsImage( cFileJpg2, { 0, 0, oDlg:nbottom, oDlg:nright-100 } ) endif return nil Problems when the nType=1 save good https://i.postimg.cc/vHpzBfFV/Top-Ten-Lotto-Ritardatari.jpg ...

... >= 1.0; nTop *= GRP_CHARPIX_H; endif if nLeft >= 1.0; nLeft *= GRP_CHARPIX_W; endif if nBottom >= 1.0; nBottom *= GRP_CHARPIX_H; endif if nRight >= 1.0; nRight *= GRP_CHARPIX_W; endif endif ::CalcSize( @nTop, @nLeft, @nWidth, @nHeight, lRelPix, oWnd, @nBottom, @nRight ) */ ::nTop = ...

... >= 1.0; nTop *= GRP_CHARPIX_H; endif if nLeft >= 1.0; nLeft *= GRP_CHARPIX_W; endif if nBottom >= 1.0; nBottom *= GRP_CHARPIX_H; endif if nRight >= 1.0; nRight *= GRP_CHARPIX_W; endif endif ::CalcSize( @nTop, @nLeft, @nWidth, @nHeight, lRelPix, oWnd, @nBottom, @nRight ) */ ::nTop = ...

... one for exit and one for print how I can make ? If I use @ nTop + nMargineSuperiore,nLeft + nMargineSinistro PRINT TO oPrn IMAGE cFile ; SIZE nRight, nBottom CM ALIGN "T" and I have this result https://i.postimg.cc/v8NDg6Nd/4.jpg the image is not printed correctly ...

... Len( cCaption ), Len( cTitle ) ) + 4 ; TITLE cTitle ; STYLE DS_MODALFRAME TRANSPARENT //BRUSH oBrush ENDIF oWait:cMsg := cCaption nWidth := oWait:nRight - oWait:nLeft ACTIVATE DIALOG oWait CENTER ; ON PAINT oWait:Say( 1, 0, xPadC( oWait:cMsg, nWidth ) ) ; NOWAIT SysRefresh() return (lVal) al cerrar ...

... en tiempo de ejecución. * Función RoundBox() nuevo undecimo parámetro nPenStyle, por defecto PS_SOLID. Sintaxis: RoundBox( hDC, nLeft, nTop, nRight, nBottom, ; nRound1, nRound2, nPenColor, nPenSize, ; nFillColor, nPenStyle ) * BtnBmp: Soporte de color Alfa. Soporte para fondos de color alfa. ...

... can be toggled during runtime also. * function RoundBox() new 11th parameter nPenStyle, default PS_SOLID Syntax: RoundBox( hDC, nLeft, nTop, nRight, nBottom, ; nRound1, nRound2, nPenColor, nPenSize, ; nFillColor, nPenStyle ) * BtnBmp: Alpha Color support Support for alpha color backgrounds. ...

... 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 ) DeleteObject( hPen )

... ]; [ TRANSPARENT ] <nTop> , <nLeft> To specify the top and left coordinates. <oGroup> The variable to containt the object. <nRight>, <nBottom> To specify the right and bottom coordinates. <cLabel> The caption of the group. <oWnd> The window or dialogbox ...

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 ) ) it's not the problem of oPrn:Box, but I think you have ...

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

... Please look for DT_CALCRECT in FWH *.prg source code for code examples yes, I allredy found DrawTextEx( ::hDC, cMessage , {nTop,nLeft,nBottom,nRight} ) but when I have the new cMessage ( edited) I must modify 3 controls on line 1. the TaskPanel 2. the first panel ( shadow) 3. the second Panel ...

Hola, Probablemente se pueda conseguir esos efectos modificando los nTop, nLeft, nBottom y nRight del dialogo combinado con las iteracciones y los sleeps necesarios En lenguaje harbour con fwh consigueme un dialogo que se mueva desde la parte inferior de la pantalla ...

... "Desvio", 9, 9, 30, 140 ) sin definir en el programa, lo que hice fue definir: Function RichEdit5( cText, cTitle, nTop, nLeft, nBottom, nRight ) local oFont, oDlg local hDLL local uTemp := If( ! Empty( cText ), cText, '' ) local lRich := .F., lGTF := .F., lOk := .F. publ oMemo DEFAULT ...