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
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
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()