FiveTech Software tech support forums

Hi Antonio,

How do I use those modifications with CLASS TCalendar()?

Do I make a copy of tcalenda.prg and include it in my App, or do I create a new CLASS FROM, or how do I build a new LIB with modified Source?

Thank you for providing the second part of the TScrollPanel class definition.
The methods in this part of the class definition are primarily involved with the vertical scrolling behavior of the panel, such as moving up and down,
going to a specific position, handling vertical scroll events, and painting the panel's contents.


As with the previous part of the class, there are no methods that explicitly handle horizontal scrolling.
The steps to add horizontal scrolling would still be similar to what I described before:

Define a horizontal scrollbar in addition to the vertical one.
This would be similar to the line
DEFINE SCROLLBAR ::oVScroll VERTICAL OF Self RANGE 1,2, but with HORIZONTAL instead of VERTICAL.

Adjust the SetRange() method to set the range of the horizontal scrollbar based on the width of the contents of the panel.

Handle the scroll event of the horizontal scrollbar to adjust the visible part of the panel's contents.

To apply these steps to your code, you would likely need to create new methods similar to the existing methods for vertical scrolling,
but adjusted for horizontal movement instead. This could include methods like hSetPos() for setting the horizontal scrollbar position,
ScrollHorizontallyBy() for scrolling a certain number of pixels horizontally, GoLeft() and GoRight() for moving left and right, HScroll() for handling horizontal scroll events, and so on.

Please note that these are general recommendations and the specific implementation would depend on the details of your application and the FiveTech library.
It would likely require a good understanding of the library and possibly some trial and error to get it working correctly.
It might be best to reach out to the FiveTech community or their support for specific guidance on how to implement this.

Marc Venken wrote:Nice Calendar....

karinha wrote:

Marc Venken wrote:Nice Calendar....

Download Complete:

https://mega.nz/file/cIcwEBaZ#E3PhxjP_G ... WLymsU4fJ8

Regards, saludos.

Silvio.Falconi wrote:I Wish calendar as datepick where the finale user can select year, mourh etc .
Why i mudt change my oldest applications onlyvehen i must recompilre It for modifications?
It Is not right

Jimmy wrote:hi Silvio,

Silvio.Falconi wrote:I Wish calendar as datepick where the finale user can select year, mourh etc .
Why i mudt change my oldest applications onlyvehen i must recompilre It for modifications?
It Is not right

Calendar is "SysMonthCal32"
https://learn.microsoft.com/en-us/windo ... ar-control
https://learn.microsoft.com/en-us/windo ... -reference

Datepicker is "SysDateTimePick32"
https://learn.microsoft.com/en-us/windo ... er-control
https://learn.microsoft.com/en-us/windo ... -reference

Difference : Datepicker can show only 1 Month
but you can change Month / Year in "Header"

you can use Calendar as "Date Picker" when set dDate1 = dDate2
but while it have "Start-Date" and "End-Date" you need LbDown / LbUp and not DblClick which will "destroy marker"

when include last Modification, which you have found out, both work now

DblClick -> Array(dDate1,dDate2) where dDate1 = dDate2
Ctrl+ (End) click -> mark "Start" to "End" where dDate1 <>,dDate2

HB_FUNC( ISOVERDAY )
{
   #ifndef _WIN64
      HWND hwndMC = ( HWND ) hb_parnl( 1 );
   #else
      HWND hwndMC = ( HWND ) hb_parnll( 1 );
   #endif
   PMCHITTESTINFO pMCHitTest = ( PMCHITTESTINFO ) hb_xgrab( sizeof ( MCHITTESTINFO ) ) ;
   BOOL lOver;
   
   memset( pMCHitTest, 0, sizeof( MCHITTESTINFO ) );
   
   pMCHitTest->cbSize = sizeof( MCHITTESTINFO );
   pMCHitTest->pt.y = hb_parnl( 2 );
   pMCHitTest->pt.x = hb_parnl( 3 );
   
   lOver = ( MonthCal_HitTest( hwndMC, pMCHitTest ) == MCHT_CALENDARDATE );
   
   hb_xfree( pMCHitTest );
   
   hb_retl( lOver );
}

Otto wrote:Silvio, As you are one of the young people here in our group, technology and especially your users will soon force you into the web.

Best regards,
Otto