FiveTech Software tech support forums • View topic - Urgent! Problems with skinbuttons (Antonio)

Page 2 of 2

Re: Urgent! Problems with skinbuttons (Antonio)

Posted: Thu Oct 14, 2010 12:23 pm

by Richard Chidiak

Antonio, Gunther

Can you send me the new skins.prg to check if ok ?

Please rename in another extension

Thanks

Richard

Re: Urgent! Problems with skinbuttons (Antonio)

Posted: Thu Oct 14, 2010 12:38 pm

by byte-one

Richard, replace this functions with the following code and test it!
It seems, the error was only when you clicks very near the border.

Code: Select all Expand view: static function IsOver( hWnd, nRow, nCol ) local aWndRect := GetWndRect( hWnd ) local aCursorPos := GetCursorPos() DEFAULT nRow := aCursorPos[ 1 ], nCol := aCursorPos[ 2 ] return nRow > aWndRect[ 1 ]-2 .and. nRow < aWndRect[ 3 ]+2 .and. ; nCol > aWndRect[ 2 ]-2 .and. nCol < aWndRect[ 4 ]+2 .and. hWnd == hWndDown

Code: Select all Expand view: function FWSkinBtnLButtonUp( hWnd, nRow, nCol ) local hDC := GetDC( hWnd ) local oBtn := oWndFromhWnd( hWnd ) if IsOver( hWnd ) .and. lBtnPressed //changed PostMessage( GetParent( hWnd ), WM_COMMAND, GetWindowLong( hWnd, GWL_ID ), hWnd ) else ReleaseCapture() endif ... ...

Re: Urgent! Problems with skinbuttons (Antonio)

Posted: Thu Oct 14, 2010 1:24 pm

by Richard Chidiak

Gunther

if IsOver( hWnd ) .and. lBtnPressed //changed

This was the problem

Thanks for the solution

Richard

Re: Urgent! Problems with skinbuttons (Antonio)

Posted: Thu Oct 14, 2010 4:24 pm

by Antonio Linares

Gunther, Richard,

Many thanks! :-)

:-)

Fix included for the next build

Re: Urgent! Problems with skinbuttons (Antonio)

Posted: Thu Oct 14, 2010 7:09 pm

by Gale FORd

Is this something I need to worry about? I cannot find skins.prg or the function FWSkinBtnLButtonUp()