FiveTech Software tech support forums

... build a dialog for the modifiers of each product the test show 8 btnbmp the problem are : 1. the little caption at right is not printed 2. the lmOver make error 3. the back color RGB( 120,136,85 ) is not colorized https://s10.postimg.org/knkm0q0vd/var.jpg On my sample test there ...

... RESOURCE 0x1005D ACTION oDlg:End() BTNRIGHT TOOLTIP "Exit" AEval( oBar:aControls, { |oBtn| oBtn:bColorMap := { |o| If( o:lMOver, { CLR_BLACK, CLR_HRED }, nil ) } } ) RETURN NIL ----------------- regards Uwe :?:

... 0x30050 DEFINE BUTTON OF oBar PROMPT "Setup" RESOURCE 0x1005D BTNRIGHT AEval( oBar:aControls, { |oBtn| oBtn:bColorMap := { |o| If( o:lMOver, { CLR_BLACK, CLR_HRED }, nil ) } } ) RETURN NIL -------------- http://www.pflegeplus.com/IMAGES/Samples2.jpg best regards Uwe :?:

... @ 20,40 BTNBMP oBtn PROMPT "Left" SIZE 64, 96 PIXEL OF oDlg ; RESOURCE { 48, 48, aArrowLeft } TOP GDIPLUS oBtn:bColorMap := { |o| If( o:lMOver, {{ CLR_HBLUE, CLR_HRED}}, nil ) } ACTIVATE DIALOG oDlg CENTERED return nil * adofuncs.prg: In function FW_ValToSQL() double quotes were not ...

... @ 20,40 BTNBMP oBtn PROMPT "Left" SIZE 64, 96 PIXEL OF oDlg ; RESOURCE { 48, 48, aArrowLeft } TOP GDIPLUS oBtn:bColorMap := { |o| If( o:lMOver, {{ CLR_HBLUE, CLR_HRED}}, nil ) } ACTIVATE DIALOG oDlg CENTERED return nil * adofuncs.prg: In function FW_ValToSQL() double quotes were not ...

Mario,

Añade esto:

oSplit:lMover = .F.

... (!.F.) .OR. .T., {oLst1}, !.F., {oLst2}, !.F.,,, oDlg,, .T.,, .F. )oSplit:lStyle= .T. El error es al evaluar ::lMOver Descripción de Error generado: ___________________________________________________ Error BASE/1066 Error de argumento: conditional Args: [ 1] ...

... fonts, though they are more meaningful in LEFT and RIGHT layouts. - If nClrText is a codeblock, it is now evaluated with two parameters, oBtn:lMOver and oBtn object. This enables changing colors on different states of the button. - New FLAT clause in the command: This creates the button similar ...

... ::SayText( ::cCaption, oRect:aRect, cAlign, ::oFont, nClr ) Changes from Rao ::SayText( ::cCaption, oRect:aRect, cAlign, ::oFont , XEval( nClr , ::lMover ) ) As well in the metro-sample, there is no return from the directory-list ( using menu ) back to oMetro. I'm still testing. :? After changing ...

Mr. Rao, is it possible, to add a ACCELERATOR like on a normal button ? oBtn:bPainted := { || ( nColor := If( oBtn:lMOver, 255, 0 ), ; oBtn:Say( 5, 5, "Test", nColor, NIL, oFont, .T., .T. ) ) } instead of a normal text, I added a second button-column getting a image- AND ...

... Thanks to Mr. Rao for the info. added : @ 90,30 BTNBMP oBtn2 SIZE 200,20 PIXEL OF oDlg TRANSPARENT oBtn2:bPainted := { || ( nColor := If( oBtn2:lMOver, 255, CLR_YELLOW ), ; oBtn2:Say( 4,10,"Mouse over", nColor, nil, oFont, .t., .t. ) ) } http://www.pflegeplus.com/IMAGES/Btnleft2.jpg ...

Maurizio,

Please make this change in source\classes\splitter.prg line 32:

DATA lStatic, l3D, lMoving, lStyle, lMOver INIT .F.

thanks for your feedback

...  Called from: .\source\classes\SPLITTER.PRG => TSPLITTER:HANDLEEVENT( 218 )  The problem are the the new DATA ::lStyle ::lMover := .t. ::aGradientOver ::aGradient = METHOD ReDefine( nId, lVertical, aPrevCtrols, lAdjPrev, aHindCtrols, lAdjHind, ;      ...

... WM_MOUSELEAVE return ::MouseLeave( nHiWord( nLParam ), nLoWord( nLParam ), nWParam ) endif ... METHOD MouseLeave( nRow, nCol, nFlags ) CLASS ... ::lMOver = .F. ::Refresh() return nil Lo único que como son ventanas MDICHILD vamos a tener que derivar ó añadir esos métodos dinamicamente (no se si ...

That Made it with the painting!!! But is there any way to detect any changes in the control??? For Example, when the mouse is over it (lMOver becomes .T.), is there a way to detect this and run an action for it??? What I will like to do is set a Text color for every state of the control : ...