FiveTech Software tech support forums

... blanco. Me esta faltando algo? agregue esto antes de guardar la imagen cArchivo:=curdrive()+":\"+curdir()+"\imagenes\foto.jpg" oSelf:oImg:Save(.F.,cArchivo, 100) lo guarda pero me da un alert de here P y es molesto para el usuario final Cualquier sugerencia les agradezco

hi Natter, Here I need the owner of the oVScroll object. perhaps this Method can help METHOD GetScrollbarObj( oSelf, lVScroll ) CLASS TGridLOCAL oObj, cTitle := ""LOCAL hWnd := 0   DEFAULT oSelf := SELF   DEFAULT lVScroll := .T.   IF lVScroll      cTitle := "oVScroll"  ...

... DoMyComBo()   nCount := PCOUNT()   FOR ii := 1 TO nCount      xPara := PValue(ii)      DO CASE         CASE ii = 1 ; oSelf    := xPara         CASE ii = 2 ; nIdCtl   := xPara         CASE ii = 3 ; aStruc   := xPara         CASE ii = 4 ; nPointer := xPara      ENDCASE  ...

No I made DEFINE BUTTON oSelf:oPlus FILENAME ".\bitmaps\plus.bmp" OF ::oBar ; TOOLTIP "plus numbers" ; ACTION (ChangePressedBtn(oSelf:oPlus)) Function ChangePressedBtn(oBtn)   local  bClrGradSelect ...

I tried DEFINE BUTTON oSelf:oPlus FILENAME ".\bitmaps\plus.bmp" OF ::oBar ; TOOLTIP "plus numbers" ; ACTION (oSelf:oPlus:lPressed:=!oSelf:oPlus:lPressed,; oSelf:oPlus:setcolor( CLR_BLUE, If( oSelf:oPlus:lPressed == ...

... (2015) I have these btnbmps and I would like that when I press a button it stays pressed to simulate the select option , so I made DEFINE BUTTON oSelf:oPlus FILENAME ".\bitmaps\plus.bmp" OF ::oBar ; TOOLTIP "plus numbers" ; ACTION (oSelf:oPlus:lPressed:=!oSelf:oPlus:lPressed, ...

... CLASSMETHOD New() CLASS TPaziente   LOCAL oFont1   local cSeek:=Space(100)   local oGet   local oSay:=array(2)   local oSelf:=self   local cOrder := ""  local  aCols    := { ;        { "FIRST",  "First"        ,,   80, },;  ...

... := { || LEN(oBrwPlan:aArrayData)>0.AND.oBrwPlan:aRow[03]==0 } // :bEditValid := { | oGet, oCol | ValidaCodArt( oGet, oCol, oBrwArticulo, oSelf:cPathRs ) } :aEditListTxt := ArrTranspose( aPlanes )[02] :aEditListBound := ArrTranspose( aPlanes )[01] :bOnPostEdit:= { | oCol, xVal, nKey | ...

... get not respect the when clausole https://i.postimg.cc/9XxwyYtS/NN.jpg I tried with btnbmp @ 24, 400 BTNBMP oSay PROMPT { || If( oSelf:lFilter, "Filtro", "Tutti" ) } ; RESOURCE aImagesGiorno[ 1 ] ; SIZE 50,60 PIXEL OF ::oGrPlanning FLAT ; ACTION ( oSelf:lFilter ...

... @ 24, 400 ADD BUTTON oSay OF ::oGrPlanning BITMAP ".\bitmaps\bradio1.bmp" MOSTLEFT SIZE 65, 18 PROMPT "Filtro" ; ACTION ( oSelf:lFilter := ! oSelf:lFilter, ; oSay:SetFile( If( oSelf:lFilter, ".\bitmaps\bradio1.bmp", ".\bitmaps\bradio2.bmp" ) ) ) then ...

... Dow( dDate ) == 7, CLR_WHITE, ::oPlann:nClrText ) ); COLOR CELL ::ColorData( oData ) ; START DAY Date() - 5; END DAY Date() + 5; ON RIGHT SELECT oSelf:BuildPop( nRow, nCol, Self, dCheckIn, dCheckOut ); ON CAPTURE oSelf:MoveReservation(oData, nRowId, Self); ON RESIZE DATA oSelf:ResizeReservation(oData, ...

Antonio, AFill( oRb:aClrTabTxt, { | oSelf, nPrompt | If( nPrompt == oSelf:nOption, CLR_WHITE, CLR_HRED ) } ) Unfortunately no. That changes the text color of the selected and unselected tabs. I am looking for a way to change the text color ...

James,

This line sets the colors of the Tabs texts:

AFill( oRb:aClrTabTxt, { | oSelf, nPrompt | If( nPrompt == oSelf:nOption, CLR_WHITE, CLR_HRED ) } )

Is this what you are looking for ?

... el problema después de tanto comentar código hasta encontrar que era. Comente la altura que le doy a los get y de esa forma me muestra los combo //oSelf:oBrw:nGetBarHeight := 33 Mi pregunta es por que en cierto momento me lo mostraba y ahora no? Esteticamente queda el combo mas grande que los get. ...

... Type: " OF ::oPlann size 85,20 pixel TRANSPARENT @ 10, 690 COMBOBOX ::cTypeRoom ITEMS aItems OF ::oPlann size 45,90 pixel ; ON CHANGE (; oSelf:oPlann:Reset(),; oSelf:LoadRooms(),; oSelf:LoadData(),; oSelf:oPlann:Refresh() ) Application===========   Path and name: C:\Work\pezzi_per_spiaggia\Tplann\sample01.Exe ...