FiveTech Software tech support forums

... for n := 1 to 20 aGet[ 1 ] := MakeGet( n * 20, 50, aVar, n, oWnd ) next n ACTIVATE WINDOW .... //-------------- static function MakeGet( nRow, nCol, aVar, n, oWnd ) local oget @ nRow, nCol GET oGet VAR aVar[ n ] of oWnd <clauses> // note this value of "n" remains the same till ...

... AS LOGICAL DATA aCols2Hide AS ARRAY INIT Array(0) DATA aDefaultCols INIT ARRAY( 0 ) DATA aPreviousCols INIT ARRAY( 0 ) METHOD New (nRow, nCol, nWidth, nHeight, oWnd) METHOD SetUserCols(lDefCols) ENDCLASS this is useful because there can be many columns to display, the end user can display ...

Nages, I have one popup on this codeblock oBrw:bRClicked := {|nRow,nCol| Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .....} Function Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .... ENDMENU ACTIVATE POPUP oMenu OF oParent ...

... oBrw:nStretchCol := 2 oBrw:nRowHeight := 30 oBrw:nMarqueeStyle := 4 oBrw:nRowDividerStyle := 2 // color gris y fino la division de columnas oBrw:nColDividerStyle := 0 // color gris y fino la division de renglones oBrw:lColDividerComplete := .f. // la division de renglones es hasta donde hay datos ...

... that is, I did it I saved the archive in an aImg array https://i.postimg.cc/tTyg2WNB/m.png local bClick:= {|| aImg[5 ] } @ nRow, nCol BTNBMP oItem PROMPT aImg[ 1 ] ; FILE aImg[2 ] ; SIZE 72,96 PIXEL OF oPanel ; NOBORDER FLAT oItem:oCursor:= oCursorBtn oItem:baction:= (bClick) ...

Estimado Marcelo,

La Clase TXImage proporciona el método Paste( lCheck ) que permite copiar una imagen desde el portapapeles

Además tienes el método PopupMenu( nRow, nCol, nFlags ) que te muestra un popup con la opción Paste

Espero que esto te pueda ser de ayuda

... con ella desde su cuadro de diálogo. * Mejora: En los objetos TTaskPanel utilizados de la clase TExplorerBar, se ha implementado una nueva DATA bOnCollapse que se evalúa desde su método LButtonUp( nRow, nCol, nFlags ), de forma que cada panel puede utilizar su propia DATA bOnCollapse para el evento ...

... dialog control, so you can interact with it from your dialog box. * Enhancement: In TTaskPanel objects used from Class TExplorerBar, a new DATA bOnCollapse has been implemented and it is evaluated from its method LButtonUp( nRow, nCol, nFlags ), so each panel can use its own DATA bOnCollapse for ...

Dear Jimmy, On CLASS TTaskPanel FROM TControl add this DATA: DATA bOnCollapse and then add this code at the bottom of METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TTaskPanel:      ::oWnd:CheckScroll()      if ! Empty( ::bOnCollapse )   ...

hi Antonio, TExplorerBar has no currently support for such event but it can be easily implemented from: METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TTaskPanel thx for Answer there is in CLASS TTaskPanel   DATA   lCollapsed      INIT .F. and it will be assign Value in METHOD LButtonUp(nRow, ...

... Dear Jimmy, TExplorerBar has no currently support for such event but it can be easily implemented from: METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TTaskPanel

... ****************** Function RftDemo() ********************** Local anchos,j,lFormato:=.F. //Local Mas_n:={} local aTable:={} local nRow,ncol Local oRtf,aMarca, cOutFile :="Plata.RTF", Sob1 Local aFldNames:= {" Ok ", " 2", " 3", "4","5","6", ...

... ****************** Function RftDemo() ********************** Local anchos,j,lFormato:=.F. //Local Mas_n:={} local aTable:={} local nRow,ncol Local oRtf,aMarca, cOutFile :="Plata.RTF", Sob1 Local aFldNames:= {" Ok ", " 2", " 3", "4","5","6", ...

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

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