oLbx:bDropOver = { | uDropInfo, nRow, nCol | oLbx:Select( Int( nRow / 20 ) ) }
#include "FiveWin.ch"
static oWnd, oChild
function Main()
DEFINE WINDOW oWnd
// oWnd:bMMoved = { | nRow, nCol | MoveChild( nRow, nCol ) }
ACTIVATE WINDOW oWnd ;
ON CLICK CreateChild( nRow, nCol, oWnd )
return nil
function CreateChild( nRow, nCol, oWnd )
if oChild == nil
DEFINE WINDOW oChild OF oWnd STYLE WS_CHILD COLOR "W/B"
oChild:SetSize( 100, 22 )
oChild:Show()
oChild:bPainted = { | hDC | oChild:Say( 0.3, 0.3, "Hello world!" ) }
oChild:bMMoved = { | nRow, nCol | MoveInParent( nRow, nCol ) }
endif
oChild:Move( nRow, nCol,,, .T. )
return nil
function MoveChild( nRow, nCol )
if oChild != nil
oChild:Move( nRow, nCol,,, .T. )
endif
return nil
function MoveInParent( nRow, nCol )
local aPos := { nRow, nCol }
ClientToScreen( oChild:hWnd, aPos )
ScreenToClient( oWnd:hWnd, aPos )
oChild:Move( aPos[ 1 ] - 10, aPos[ 2 ] - 20,,, .T. )
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 63 guests