It looks great.
I'm very interested to see the evolution.
Regards,
Michel D.
Genk (Belgium)
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773
when I move the mouse it draw a box recdotted but then not draw a rect
Thanks.
Very good!!!.
How we can test it?
it is a beta test...
I have several problems , I am working to use mousemove method to create the graphics to create appointments
the hours you see are array , now I am working to insert xbrowse at left to show hours
How I can make to show a xbrowse with different timeline ?
have you an idea ?
WHAT MEANS WITH RAUM1,RAUM2...
THEN WE NOT HAVE TDATA
Dear Otto,
I saw your files but they are difficult to understand, for sample when I click with mouse a raum1 I cannot go also to raum2 ( from 080:00 raum1 to 12:00 of raum2)
I 'm thinking someting different from your source as the outlook office or google agenda, where the user with mouse can draw the box vertical
Now I sent my class source prototype to Antonio and daniel I hope they help me .
Otto,
Thank you for share your code.
Best Regards,
Toninho.
>'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
//----------------------------------------------------------------------------//
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. )
endifOtto 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
I don’t have this ready. But I think you could do it in a similar mode.
Instead of raum you could use Monday to Sunday.
Best regards,
Otto