FiveTech Software tech support forums

... que lo hago de esta manera: FOR nCont := 1 TO 60 REDEFINE BTNBMP oMesa[nCont] ; RESOURCE "VACIA" NOBORDER ; ID (200 + nCont) OF oFld:aDialogs[1] ; ACTION ( OpcionMesa(1, ::nId - 200) ) NEXT nCont oMesa [::nId]: bRClicked := {|nRow,nCol| OpcionMesa(2, ::nId - 200)} aqui al compilar sale un error, ...

Kronos,

Please generate the PPO file and check what you get for:

@10,15 BUTTON OemToAnsi("ÅíôÜîåé") OF oStats ACTION (oStats:End()) SIZE 80,30

Olá Wilson,
Crie uma var lógica e coloque no when do get, depois com o botão faça ela ficar verdadeira e mande refrescar os gets, vou dar um pequeno exemplo

lVar := .F.

@ 01,01 Get oGet Var cGet When(lVar) ......

@ 02,01 Button oBut Prompt "Ativa" ... Action (lVar := .T., oGet:Refresh())

... Of oDlgEdit1 Picture "999999" No Modify REDEFINE BtnGet oFem_Fac Var cFem_Fac Id 102 Of oDlgEdit1 ; RESOURCE "CALENDARIO"; PICTURE "99/99/9999"; ACTION LbxDate(oFem_Fac, cFem_Fac) REDEFINE BtnGet oFve_Fac Var cFve_Fac Id 103 Of oDlgEdit1 ; RESOURCE "CALENDARIO"; PICTURE "99/99/9999"; ACTION LbxDate(oFve_Fac, ...

... oIcon, "Programa Actualizador MYSQL" ) Return NIL Function RMenu(r,c) Local oMenu MENU oMenu POPUP MENUITEM "Abrir Programa Actualizador MYSQL" ACTION ( oWnd:Show() ) MENUITEM "Cerrar Programa Actualizador MYSQL" ACTION ( oWnd:end() ) ENDMENU ACTIVATE POPUP oMenu OF oWnd AT r,c Return NIL Function ...

... install it and tried the application with the same results as in the pocket pc Here is the code snippet : @ 14.4,20.5 BUTTON "Sup." SIZE 40, 35 ACTION (SuiDel(aParams,oSui,oSui:Recno()),oSui:GoTop(),oBrw:refresh(),oBrw:SetFocus()) oSui = Tdatabase of the dbf Thanks for any hint Raymond

... tiene el sig. codigo: Redefine GET aVars[15,1] VAR aVars[15,2] ID 102 OF aVars[1,1]:aDialogs[3] ReDefine Button ID 809 OF aVars[1,1]:aDialogs[3] Action(VerFoto(aVars[15,2],aVars[1,1]:aDialogs[3])) UPDATE REDEFINE BITMAP oBmp ID 103 FILENAME "$Foto.bmp" OF aVars[1,1]:aDialogs[3] update pero nunca ...

... RETURN nil //----------------------------------------------------------------------------// function BuildMenu() MENU oMenu MENUITEM "" ACTION oWnd[01]:End() ENDMENU RETURN oMenu //----------------------------------------------------------------------------// function Startup( cAuto ...

... ID 103 OF ODLG READONLY UPDATE COLOR CLR_BLUE REDEFINE METER oMEtEr VAR nPerc1 ID 150 OF oDlg TOTAL 100 REDEFINE BUTTON OBTNOK ID 01 OF oDlg ; ACTION (OBTNOK:DISABLE(),OBTNCAN:DISABLE(),ZIPME(OMETER,cPATH,CDEST,@LSAVE,SOUSREP,ODLG,@DFILE,OFILE)) REDEFINE BUTTON OBTNCAN ID 02 OF oDlg ; ACTION ...

don lowenstein wrote:Can FWH "scroll" the folder tabs if the "arrows" are clicked?

Yes,

don lowenstein wrote:If yes, how to activate. If no, how to assign a code block action to this folder scroll?

Just check that your class TFolder in source\classes\folder.prg has this method:

Code: Select all  Expand view

METHOD HScroll( nWParam, nLParam ) VIRTUAL

If a folder is re-sized smaller than the width of all tabs, a scrollbar automatically appears, presumably from the Windows API( ? )

Can FWH "scroll" the folder tabs if the "arrows" are clicked? If yes, how to activate. If no, how to assign a code block action to this folder scroll?

... - Color for the get text when receiving focus nClrFocusPane - Color for the get back when receiving focus y estos metodos: GotFocus - Action to be performed when receiving the focus LostFocus - Action to be performed when losing the focus asociados a la clase TGet. Podrias empezar ...

... i use, If you still have a problem, can you show the offending code ? HTH Richard @ 125, 20 BTNBMP FILE CurDir() + "\client.bmp" ; SIZE 30, 30 ; ACTION oSay:SetText( "Clients" )

... to the second folder REDEFINE SBUTTON OT:oBtn[1] FONT oFont4 ID 121; RESOURCE "B_RNW","B_RNW","B_RNW" OF oFld:aDialogs[2] ; PROMPT "&Agrega" ; ACTION ( TAgrega(),Habilita(),OBACEPTAR:DISABLE(),OBCANCELAR:DISABLE(),oImprimir:Disable(),; oAceptar:Enable(),oCancelar:enable(),oImprimir:Disable() ...

... BTNGET oDesde VAR cDesde ID 113 OF oDlg ; RESOURCE "B_Cld" PICTURE "@D" VALID ValDesde(oBrw,vCodigo,@cDesde,oDesde,@vSaldo,oSaldo) ; FONT oFont3; ACTION (aRec :=GetCoors(oDesde:hWnd),; cDesde:=Calend(cDesde,aRec[1],aRec[4],oDlg),; oDesde:Refresh(),oDesde:SetFocus()) Regards Hello, When i jump ...