FiveTech Software tech support forums

... I tried also with For n= 1 to len(oBtn) obtn[n]:bClrGrad := < |u,oBtn| local clr := RGB( 245,245,235) if oBtn:lActive if oBtn:lMOver clr := {{ 1, RGB( 250,250,245),RGB( 250,250,245) }} elseif oBtn:lPressed clr := RGB( 180,136,85 ) else clr := RGB( 245,245,235) ...

Perhaps i resolved with aBtnEle[n]:cargo:= lActive aBtnEle[n]:bAction :={ |o| lActive := !lActive, ; o:cargo:= lActive,; o:refresh(),; Set_items_Active(oElements,o:cargo,o),; nElemento:= val(nProduct) } Function Set_items_Active(oItem,lActive,oBTn) ...

... I created the buttons with the Btnbmp class I want that when I press one it stays selected I made lActive:= .f. For n=1 to Len(aElements) cDesc := aElements[n][2] cImage := aElements[n][5] nProduct:= aElements[n][1] @ nRow,ncol BTNBMP aBtnEle[n] ...

//TGet():bColorBlock := { |oGet| IF( oGet:lFocused, { CLR_WHITE, CLR_HBLUE }, IF( .NOT. oGet:lActive, {CLR_BLACK, CLR_HGRAY}, {CLR_BLACK, CLR_WHITE} )) }
//fix for readonly gets
// TGet():lDisColors := .f.
// TGet():nClrGrayText := 25

... @ 22, 10 SENSITIVE SAY oSay[1] PROMPT "Denominazione" SIZE 100,20 PIXEL OF oFolder:adialogs[1] TRANSPARENT FONT oFontDialog oSay[1]:lActive := .f. oSay[1]:lLine :=.t. any solution ?

... Paint() CLASS TSSay   local n   local nColorShadow, nColorLight   ::GetDC()   if ::lActive      for n := 1 to len( ::aCaption )          WSay( ::hWnd, ::hDC, ::nSTop + ( n - 1 ) * ::nTxtHeight, ::nSLeft, ::aCaption[ ...

TGet():bColorBlock := { |oGet| IF( oGet:lFocused, { CLR_WHITE, CLR_HBLUE }, IF( .NOT. oGet:lActive, {CLR_BLACK, CLR_HGRAY}, {CLR_BLACK, CLR_WHITE} )) }

... nCamera:= Iif(!empty(aNumeri[nY,nX]),aNumeri[nY,nX],0) cSettore:=Iif(!empty( aSettori[nY,nX]),aSettori[nY,nX],"") cDesc:=aElementi[n][4] lactive:= TRUE else cDesc:=aElementi[n][4] ENDIF elseif aData[nY,nX] =="X" cDesc:="spazio vuoto" Endif next n AaDD( aTempDbf,{nCamera,nRow,nCol,cElemento,cDesc,,strzero(recno(),5),cSettore,lActive}) ...

... ; HEIGHT oDp:nMenuHeight; // SELECT 3D ; LOGO oDp:cBmpTransacciones ; LOGOCOLOR oDp:nMenuMainClrText aMenu:=ACLONE(aMenuTra) oDp:oItemTransaccion:lActive:=!EMPTY(aMENUTRA[1]) .AND. lHorario hacermenu(aMenu) C5ENDMENU      C5MENUITEM oDp:oItemTransaccion PROMPT oDp:cMenu04  ...

... ; FONT oDp:oFontMenu; HEIGHT oDp:nMenuHeight; // SELECT 3D ; LOGO oDp:cBmpMacros ; LOGOCOLOR oDp:nMenuMainClrText oDp:oItemMacro:lActive:=!EMPTY(aMenuMac[1]) .AND. lHorario hacermenu(aMENUMAC) C5ENDMENU STATIC FUNCTION HACERMENU(aMenu,oMenu) LOCAL I:=1,lacceso:=.T.,lutilizo:=.F.,oItem,nIni:=0 ...

... HB_BackGroundActive(<nTaskHandle>,[<lNewActive>])->lOldActive HB_BackGroundAdd(<bAction>,[<nMillisecs>],[<lActive>])->nTaskHandle HB_BackGroundDel(<nTaskHandle>)->bAction HB_BackGroundReset()->Nil HB_BackGroundRun([<nTaskHandle>])->Nil ...

... @ r,c GET <clauses> COLOR bColor <otherClauses> Example: bColor := { |oGet| If( oGet:lFocused, { CLR_HRED, CLR_YELLOW }, ; If( !oGet:lActive, { CLR_BLACK, CLR_HGRAY }, ; If( Empty( oGet:Value ), { CLR_BLACK, CLR_HGREEN }, ; { CLR_BLACK, CLR_WHITE } ) ) ) } CLASSDATA bColorBlock If ...

... oFonts:bChange := { || WndChild(): SetFont ( oFonts:varget() ), ; WndChild():SetFocus() } the WndChild() function return the oControl SAY active ( lactive) on dialog it make error because not found hfont how I can change the font ( cfontname and sizes ) of the say ?

Puedes intentar con ::lActive

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