FiveTech Software tech support forums

... ; ACCELERATOR (cMnuAlias)->FLDNSTATE, (cMnuAlias)->FLDVIRTKEY ENDIF oMnuItem:lChecked := (cMnuAlias)->FLDCHECK oMnuItem:lActive := ( lRight:= Eval( {||&(ALLTRIM((cMnuAlias)->FLDCONDI))} ) ) IF ! EMPTY( fAction := ALLTRIM((cMnuAlias)->FLDACTION) ) oMnuItem:bAction ...

... LOCAL oDlg,I,oBtnOk,oBtnCancel LOCAL oSay:=ARRAY(3) PRIVATE oId,oName,oDate,oActive PRIVATE cId:=SPACE(03),cName:=SPACE(100),dDate:=DTOC(DATE()),lActive:=.T. PRIVATE aSay :={"ID" ,"Nombre","Fecha"} PRIVATE aVars:={"cId","cName" ,"dDate"} ...

... LOCAL oSay:=ARRAY(3) PRIVATE oId,oName,oDate,oActive PRIVATE cId:=SPACE(03),cName:=SPACE(100),dDate:="00/00/0000",lActive:=.T. PRIVATE aSay :={"ID" ,"Nombre","Fecha"} PRIVATE aVars:={"cId","cName" ,"dDate"} ...

... LOCAL oSay:=ARRAY(3) PRIVATE oId,oName,oDate,oActive PRIVATE cId:=SPACE(03),cName:=SPACE(100),dDate:="00/00/0000",lActive:=.T. PRIVATE aSay :={"ID" ,"Nombre","Fecha"} PRIVATE aVars:={"cId","cName" ,"dDate"} ...

... CLASS TMenuItem If( ::oMenu != nil .and. ( ::oMenu:l2007 .OR. ::oMenu:L2010 ), MF_OWNERDRAW, 0 ) ) if I exclude all works /* nFlags := nOR( If( ::lActive, MF_ENABLED,; nOR( MF_DISABLED, MF_GRAYED ) ),; If( ::lChecked, MF_CHECKED, 0 ),; If( ::lHelp, MF_HELP, 0 ),; If( ::lBreak, MF_BREAK, 0 ),; ...

... de MyRpt en modo completo: orpt := MyRpt():New() orpt:Activate() 5º) He añadido el siguiente código al final método Postop() de TRptForm: if ::lactive ::oRpt:oForm:lChange := .t. ::oRpt:oInspect:lactive := .f. ::oRpt:oForm:lBuilding = .T. oitemact := ::oControlItem ::additem(oitemact:ntop, ...

... ) <> 'O' RETU NIL ENDIF oObj:CoorsUpdate() SetWindowPos( oObj:hWnd, HWND_TOP ,; oObj:nTop, oObj:nLeft ,; oObj:nWidth, oObj:nHeight ) if ::lactive oitemact := ::oControlItem ::additem(oitemact:ntop, oitemact:nleft) ::oControlItem := oitemact ::oRpt:oInspect:DeleteItem(oitemact) ::oRpt:oInspect:AddItem(oitemact) ...

Para lo segundo (solo una idea), prueba con:
if obj:lActive = .f.
obj:bLClicked := {|| MsgInfo("Hola") }
endif

...  in ?)    WINDOW.PRG      667  3097  3114  3120  3143 L2007                  WINDOW.PRG     1507  1644 L2010                  WINDOW.PRG     1507 LACTIVE                WINDOW.PRG      437   554   568  3860  3866  3935  3941 LAND()                 (function  in ?)    WINDOW.PRG     3053  3867 ...

... Asc( Upper( ::cAccel ) ) ) .and. ::nWakeup == 0 ) ::SendMsg( FM_CLICK ) Return NIL ////////////// aqui ///////////////// EndIf Return If( ::lActive, DLGC_WANTALLKEYS, Nil ) version 4**************************************************************************************************** METHOD ...

... ; ACCELERATOR (cMnuAlias)->FLDNSTATE, (cMnuAlias)->FLDVIRTKEY ENDIF oMnuItem:lChecked := (cMnuAlias)->FLDCHECK oMnuItem:lActive := ( lRight:= Eval( {||&(ALLTRIM((cMnuAlias)->FLDCONDI))} ) ) IF ! EMPTY( fAction := ALLTRIM((cMnuAlias)->FLDACTION) ) oMnuItem:bAction ...

I have a GET define so: REDEFINE GET oValue VAR mValue ID 2105 of oQry_Dlg ; on change ( iif(! oSave:lactive, Set_Save() ) ) ; update Whenever the value of mValue becomes numeric the picture of oValue is changed as in the next line. oValue := tGet():Redefine( , bSetGet := ...

... static function SeekRfid( cSearch, cSearchK, oLbx ) local cSeek := ALLTRIM( cSearchK ) , ; lSearch := .F. , ; lFnd := .F. IF lActive RETURN (.T.) ENDIF lActive := .T. TRY oSql:=TOleAuto():New("ADODB.Recordset") CATCH MsgWait("It seems that your PC does not have ...

... with TBTNBMP class. If an accelerator key if defined for a button it works even the button is disabled. I patched adding .AND. aControls[ n ]:lActive to line (1631 in FWH 11.12) if Upper( SubStr( cPrompt, nAt + 1, 1 ) ) == Upper( Chr( nKey ) ) in CallClick function in class TControl but I ...

oControl:lActive