Urgent! Problems with skinbuttons (Antonio)

[Richard Chidiak]

Antonio, Gunther

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

Please rename in another extension

Thanks

Richard

[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  RUN

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  RUN

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

[Richard Chidiak]

Gunther

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

This was the problem

Thanks for the solution

Richard

[Antonio Linares]

Gunther, Richard,

Many thanks!

Fix included for the next build

[Gale FORd]

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