FiveTech Software tech support forums

... "TopTen_Lotto_Frequenti.jpg" 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 ...

... afecta a Tgroup bloquear asi /* if !lPixel if 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, ...

... afecta a Tgroup bloquear asi /* if !lPixel if 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, ...

... } Not Work https://i.postimg.cc/gcNG9HWx/nofunciona.png I made @ 80, 10 XBROWSE oBrw SIZE 455,oDlg:nBottom-200 PIXEL OF oDlg ; DATASOURCE aData AUTOCOLS CELL LINES NOBORDER FASTEDIT SetupBrowseMatrix(oBrw) oBrw:RecSelShowKeyNo() oBrw:CreateFromCode() ...

https://i.postimg.cc/W3cN53Fp/error-xbrowse.png on First column see the data why ? I made @ oBar:nbottom+6, 10 XBROWSE  oBrw ;        COLUMNS 1,2,3,4,5,6;        HEADERS  "Puntata","Costo giocata","Spesa","Vincita","Utile","Utile%";  ...

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

Puedes probar con estas claúsulas:

[INRECT <aInRect>];
aRect for paint: coordinates relative to nTop and nBottom of get

[INSIZE <nInWidth>, <nInHeight> ];
Width and Height for box paint

I'm trying to raise the xbrowse but I don't understand how to do it, I tried both with nHeight and with NBottom




I put the checkboxes in a panel under the browse
if I click on the first check I have to raise the xbrowse

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

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

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

... ] <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 container of ...

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

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