FiveTech Software tech support forums

... // match case without case sensitive Function ListFilter1( aList, cData, oSelf ) Local aNewList := { } Local uItem For each uItem in oSelf:uOrgData If Lower( SubStr( uItem[ 1 ], 1, Len( cData ) ) ) == Lower( cData ) AAdd( ...

hmpaquito wrote:Bad programming style, but running...

TRY
   oSelf:oParent:oCargo:oMHY_Kod:SetItems(.....)
END

Thanks

Bad programming style, but running...

TRY
   oSelf:oParent:oCargo:oMHY_Kod:SetItems(.....)
END

... un array con 3 elementos. Como tienes 5 pestañas en la ribbon, tienes que modificarlo para que tenga cinco elementos: oRBar:aClrTabTxt = { { | oSelf , nPrompt | If( nPrompt == oRBar:nOption, CLR_GREEN , CLR_WHITE ) },; { | oSelf , nPrompt | If( nPrompt == oRBar:nOption, CLR_GREEN , CLR_WHITE ...

... a window inicia mais o mouse não funciona. A window fica como se estivesse congelada. METHOD New() CLASS SampleCalex local oMenu local oSelf := Self MENU oMenu ENDMENU ::dDateStart := Date() ::dDateEnd := Date() ::lOnPreNext := .F. ::nIDPonto := RetornaIDDoPonto() DEFINE WINDOW ::oWndAC ...

... //----------------------------------- FUNCTION BUILDMETRO(oWnd, nDStyle) LOCAL oMetro, oHScroll, oBtn[30], oBrush, oVSlider LOCAL oSelf, nOld := 0, oLizenz, cText, pBrush, aPalBmp DEFINE METROPANEL oMetro OF oWnd TITLE "" ; // must be a EMPTY string otherwise START is ...

... uDataSource, cData, Self ); COLUMN "ACACTIVIDA" ; HEIGHTLIST 100 ------------------------ function ListFilter1( aList, cData, oSelf ) local cAlias := oSelf:uDataSource function ListFilter1( aList, cData, oSelf ) local cAlias := oSelf:uDataSource SELECT AT AT->(DbSetOrder(2)) ...

Antonio buenos dias tengo el siguiente codigo    @ 15, 05 LISTBOX oSelf:oLbx1 VAR oSelf:cLbx1 OF oSelf:oDlg1 ;             SIZE 750, 500;             ITEMS oSelf:aItemsLbx  oSelf:aItemsLbx ...

At the beginning of the METHOD creating the BTNBMP, please declare a local local oSelf := Self .... Then modify the BTNBMP's action clause Instead of ACTION ( retval := ::invnum, oDpw3:end() ) modify as ACTION ( retval := oSelf:invnum, oDpw3:end() ...

MarioG wrote:Lorenzo;
Debes declarar una variable, que puede ser local: oSelf:= self
luego declaras asi:
action oSelf:oWnd:Minimize()

Sabia que debía escribir hasta ahí
Gracias Daniel!

Saludos Debes declarar una variable, que puede ser local: oSelf:= self luego declaras asi: action oSelf:oWnd:Minimize() si eso sucede dentro del metodo de una clases, la solucion es correcta, de lo contrario simplemente con llamar al objeto window que ...

Lorenzo;
Debes declarar una variable, que puede ser local: oSelf:= self
luego declaras asi:
action oSelf:oWnd:Minimize()

la explicación: seguramente un "sabio" lo podrá hacer
Lo que si puedo agregar es que al escribir ::oWnd, esta interpretando como que es una DATA de la clase METRO

... I wrote on bold the line to add ) METHOD BuildPop( nRow, nCol, oView, dDateFrom, dDateTo, nTimeFrom, nTimeTo ) CLASS SampleCalex local oMenu local oSelf := Self local lNew := oView:oCalex:oCalInfoSelected == NIL MENU oMenu POPUP MENUITEM If( lNew, "New appointment",; "Modify appointment" ...

... "cabina32", 100 ) @ 40, 15 COMBOBOX ::oCbx VAR ::cCabina ITEMS ::aCabina[2] OF oPanel PIXEL ; SIZE 220, 157 ; FONT oFont[2] ; ON CHANGE oSelf:BuildCabina() alguna pista?? saludos

Hello Uwe,

how can you change hover text colour on ribbon if

if nPrompt == oSelf:nStart
nClrTxt = CLR_WHITE
endif
id inside the painting method.

Best regards,
Otto