I'm creating A new Calendar class like office outlook
But I have several problems If Antonio and Daniel Help me I think it can be ready soon ( I sent the test to Antonio)
this is a preview beta
//----------------------------------------------------------------------------//
METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TCalendarOffice
if ::bLClicked != nil
Eval( ::bLClicked, nRow, nCol, nFlags )
else
::lBoxDraw = .t.
::nBoxTop = nRow
::nBoxLeft = nCol
::nBoxBottom = nRow
::nBoxRight = nCol
::Capture()
::DrawBox()
endif
return nil
//----------------------------------------------------------------------------//
METHOD MouseMove( nRow, nCol, nFlags ) CLASS TCalendarOffice
if ::lBoxDraw
::DrawBox()
::nBoxBottom = nRow
::nBoxRight = nCol
::DrawBox()
endif
return Super:MouseMove( nRow, nCol, nFlags )
//----------------------------------------------------------------------------//
METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TCalendarOffice
if ::lBoxDraw
::DrawBox()
::lBoxDraw = .f.
ReleaseCapture()
// ::nWidth := ::nBoxRight - ::nBoxLeft
// ::nHeight := ::nBoxBottom - ::nBoxTop
// Super:ScrollAdjust()
// Super:refresh( .t. )
endif
Otto wrote:>'m thinking someting different from your source as the outlook office or google agenda, where the user with mouse can draw the box vertical
You have to press the mouse button and kept it pressed while moving down like in outlook.
This way you select the time of the appointment.
Best regards,
Otto
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 84 guests