FiveTech Software tech support forums

Have you ever had a checkbox and used the ""WindowsXP.Manifest" option? IF I made for a sample @ nRow,oBox[1]:nLeft+60 CHECKBOX aDat[ 5] VAR l05 Prompt axArray[ 5, 2 ] SIZE 350, 20 PIXEL OF oDlg aDat[ 5]:lTransparent:=.t. this gate covers the lower part of the dialog, ...

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

... COLOR CLR_BLACK, rgb(245,245,235) TRANSPARENT; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX) ICON oIcon @ nRow, 0 TITLE oTitle OF oDlg SIZE 1025, 65 NOBORDER ; oTitle:aGrdBack := { { 1, Rgb(250,250,245),rgb(210,210,205) } } oTitle:nShadow := 0 ACTIVATE DIALOG ...

... COLOR CLR_BLACK, rgb(245,245,235) TRANSPARENT; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX) ICON oIcon @ nRow, 0 TITLE oTitle OF oDlg SIZE 1025, 65 NOBORDER ; oTitle:aGrdBack := { { 1, Rgb(250,250,245),rgb(210,210,205) } } oTitle:nShadow := 0 ACTIVATE DIALOG ...

... COLOR CLR_BLACK, RGB( 245,245,235) TRANSPARENT; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX) @ nRow, 0 TITLE oTitle OF oDlg SIZE 1025, 65 NOBORDER //PIXEL oTitle:aGrdBack := { { 0.5, Rgb(250,250,245), Rgb(250,250,245) } } oTitle:nShadow := 0 Have ...

... COLOR CLR_BLACK, rgb(245,245,235) TRANSPARENT; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX) ICON oIcon @ nRow, 0 TITLE oTitle OF oDlg SIZE 1025, 65 NOBORDER ; oTitle:aGrdBack := { { 1, Rgb(250,250,245),rgb(210,210,205) } } oTitle:nShadow := 0 ACTIVATE DIALOG ...

... JUSTIFY .f.,.f.,.t.,.t.,,.t.,.t.,,.t.,.t.,.f. ; ALIAS cAlias FOOTERS LINES CELL NOBORDER ; BACKGROUND aQueGrad VERTICAL oBrw:nStretchCol := 2 oBrw:nRowHeight := 30 oBrw:nMarqueeStyle := 4 oBrw:nRowDividerStyle := 2 // color gris y fino la division de columnas oBrw:nColDividerStyle := 0 // color ...

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

... 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 de colapso. * Nuevo: Nuevo ejemplo samles\booking.prg. ...

... 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 the collapse event. * New: Example samles\booking.prg shows how to implement ...

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 )   // new         Eval( ::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", ...