FiveTech Software tech support forums

... local cFileJpg2:= "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 ...

Buen dia... Asi pude usar fwh 24-09 Este código 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 ...

Este código 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; ...

... I not see the buttonbar because I have only a page ok but I wish insert two buttons 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 ...

... := < || local oRect := oWndDeposits:GetCliRect() oBrw:nHeight := ( oRect:nHeight - oBar:nHeight - oMsgBar:nHeight ) * 0.6 oChild:nTop := oBrw:nTop + oBrw:nHeight return nil > oWndDeposits:bPostEnd := { || oWndDeposits := nil } if cRequest = "online" oBrw:seek("DEP003") ...

... := < || local oRect := oWndDeposits:GetCliRect() oBrw:nHeight := ( oRect:nHeight - oBar:nHeight - oMsgBar:nHeight ) * 0.6 oChild:nTop := oBrw:nTop + oBrw:nHeight return nil > oWndDeposits:bPostEnd := { || oWndDeposits := nil } if cRequest = "online" oBrw:seek("DEP003") ...

It is now possible to specify coordinates (i.e., nTop, nLeft, nWidth, nHeight ) of a control relative to the size of the parent window/dialog. If the parent window/dialog is resized, the controls also will be moved/resized depending on the way the ...

... checkboxes I have to raise the xbrowse in the line above the open box for example if Box[2] has been opened the xbrowse must be raised to obox[2]:ntop-2 and so on for the other chechboxes I made this but not run IF  oBox[2]:show()           oBox[3]:show()        ...

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

... click on a checkbox the procedure must change the height to the xbrowse example - 60 in another procedure I have already done it but I reduce the ntop of the xbrowse, now I want to make space below

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

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

... .....} Function Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .... ENDMENU ACTIVATE POPUP oMenu OF oParent AT oBrw:nTop+nRow, oBrw:nLeft+nCol RETURN (NIL) and another on action Function MenuContextual(oControl,oBrw,oDbf,cIniUser,cSection,lExport,lColConfig,oParent,oCont ...

... Hide_Ctrls(oBrw,oGet,oSay,lSearchBar,aBtn,oBar) local oBtn,n If lSearchBar oSay[1]:show() oSay[2]:show() oGet:show() oBrw:oSortCbx:show() oBrw:nTop:=32 oBrw:nHeight:= oBar:ntop-40 else oSay[1]:hide() oSay[2]:hide() oGet:hide() oBrw:oSortCbx:hide() oBrw:nTop:=2 oBrw:nHeight:= oBar:ntop-40 Endif ...

function DeleteControl( oPanel, nItem )   local nTop, nLeft      for n := Len( oPanel:aControls ) to nItem + 1 STEP -1      oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop      oPanel:aControls[ n ]:nLeft:= ...