Jump to content


Photo

TimePicker


  • Please log in to reply
13 replies to this topic

#1 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 17 October 2017 - 08:12 PM

Do you have a compatible TNxTimePicker for NextSuite6 or maybe a look-a-like? 

I want to stop with the old 'NextGrids'.

 

Regards,

Eduard.



#2 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,191 posts
  • Gender:Male

Posted 17 October 2017 - 10:22 PM

Hi Eduard,

I have one. You can find it in current version. It's maybe a little bit rough, but we can polish it.
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#3 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 18 October 2017 - 07:15 AM

Thanks. Must update now.



#4 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 30 October 2017 - 07:19 AM

Hi,

 

TNxTimePicker6 select is not working. Stay's the same time and sometimes after select hour, minutes are changing.

Button NOW is working.

Will you take a look?

 

Regards.



#5 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 31 October 2017 - 01:01 PM

Edit: You can simply test it, only put TNxTimePicker6 on Form and run. Then simple select hour or minute and you see it. 



#6 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,191 posts
  • Gender:Male

Posted 01 November 2017 - 09:48 PM

Hi,

Inside NxPopupCtrls6.pas you will find:

procedure TNxTimePopupControl6.SetHotCell(const Value: TPoint);
begin
  if not PointsEqual(Value, FHotCell) then // <-- add not
  begin
    InvalidateCell(FHotCell.X, FHotCell.Y);
    FHotCell := Value;
    InvalidateCell(FHotCell.X, FHotCell.Y);
  end;
end;
and

procedure TNxTimePopupControl6.SetPressedCell(const Value: TPoint);
begin
  if not PointsEqual(Value, FPressedCell) then // <--- add not
  begin
    InvalidateCell(FPressedCell.X, FPressedCell.Y);
    FPressedCell := Value;
    InvalidateCell(FPressedCell.X, FPressedCell.Y);
  end;
end;

boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#7 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 02 November 2017 - 09:59 AM

Thank you :)



#8 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 29 November 2017 - 07:34 AM

Hi Boki,

 

TNxTimePicker6 'Out of Memory'  error.

This is happening when select different time for the second time.

(FastMM4 Full debug mode)

 

MemoryManager_EventLog.txt available if needed but here is Bugreport text:

 

<cut>

exception number   : 1
exception class    : EOutOfMemory
exception message  : Out of memory.

main thread ($d00):
00408437 +00f Project2.exe System         15975   +1 TObject.NewInstance
00408c3f +007 Project2.exe System         17290   +5 @ClassCreate
00643ff6 +00e Project2.exe NxPopupCtrls6   2226   +0 TNxTimePopupControl6.Create
0064be2e +016 Project2.exe NxEdit6         4934   +1 TNxTimePicker6.CreatePopupControl
0064b7ce +032 Project2.exe NxEdit6         3944   +5 TNxDropDownEdit6.DropDown
0064bbc1 +031 Project2.exe NxEdit6         4052   +6 TNxDropDownEdit6.SetDroppedDown
0064b6c9 +011 Project2.exe NxEdit6         3907   +1 TNxDropDownEdit6.DoButtonDown
0064abd0 +028 Project2.exe NxEdit6         3377   +1 TNxEditButton.DoDown
0064af78 +050 Project2.exe NxEdit6         3517   +9 TNxEditButton.SetDown
0064adfb +037 Project2.exe NxEdit6         3458   +2 TNxEditButton.MouseDown
0058ed48 +08c Project2.exe Vcl.Controls    7384   +7 TControl.DoMouseDown
 

Will you fix this because it's very disturbing when run in debug when programming.

 

Regards,

Eduard.



#9 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 02 December 2017 - 07:58 AM

Already looked?

 

It's definitely a memory leak. Here info from 'MemoryManager_EventLog.txt'.

 

<cut>

--------------------------------2017/11/29 5:20:06--------------------------------
FastMM has detected an error during a GetMem operation. FastMM detected that a block has been modified after being freed.

Modified byte offsets (and lengths): 832(8)

The previous block size was: 852

This block was previously allocated by thread 0xD00, and the stack trace (return addresses) at the time was:
406C7A [System.pas][System][@GetMem$qqri][4565]
408437 [System.pas][System][TObject.NewInstance$qqrv][15975]
408C42 [System.pas][System][@ClassCreate$qqrpvzc][17290]
643FFB [NxPopupCtrls6.pas][NxPopupCtrls6][TNxTimePopupControl6.$bctr$qqrp25System.Classes.TComponent][2226]
64BE33 [NxEdit6.pas][NxEdit6][TNxTimePicker6.CreatePopupControl$qqrv][4934]
64B7D4 [NxEdit6.pas][NxEdit6][TNxDropDownEdit6.DropDown$qqrv][3944]
7753011A [KiUserCallbackDispatcher]
64BBC7 [NxEdit6.pas][NxEdit6][TNxDropDownEdit6.SetDroppedDown$qqrxo][4052]
64B6CE [NxEdit6.pas][NxEdit6][TNxDropDownEdit6.DoButtonDown$qqrp14System.TObject][3907]
64ABD6 [NxEdit6.pas][NxEdit6][TNxEditButton.DoDown$qqrv][3377]
64AF7D [NxEdit6.pas][NxEdit6][TNxEditButton.SetDown$qqrxo][3517]

The block was previously used for an object of class: TNxTimePopupControl6

The allocation number was: 2213

The block was previously freed by thread 0xD00, and the stack trace (return addresses) at the time was:
406C96 [System.pas][System][@FreeMem$qqrpv][4613]
408455 [System.pas][System][TObject.FreeInstance$qqrv][15984]
4A9144 [madExcept][InterceptClassDestroy$qqrp14System.TObject]
64443F [NxPopupCtrls6.pas][NxPopupCtrls6][TNxTimePopupControl6.$bdtr$qqrv][2303]
643C66 [NxPopupCtrls6.pas][NxPopupCtrls6][TNxPopupControl6.ReleaseAndNil$qqrr56System.%DelphiInterface$29Nxpopupctrls6.INxPopupControl%][1031]
64B58C [NxEdit6.pas][NxEdit6][TNxDropDownEdit6.Close$qqrv][3868]
64BBD4 [NxEdit6.pas][NxEdit6][TNxDropDownEdit6.SetDroppedDown$qqrxo][4054]
6436E9 [NxPopupCtrls6.pas][NxPopupCtrls6][TNxPopupControl6.Close$qqr17System.WideString][874]
643F6A [NxPopupCtrls6.pas][NxPopupCtrls6][TNxEditPopupControl6.Close$qqr17System.WideString][1139]
644A72 [NxPopupCtrls6.pas][NxPopupCtrls6][TNxTimePopupControl6.MouseUp$qqr27System.Uitypes.TMouseButton60System.%Set$32System.Classes.System_Classes__1uc$i0$uc$i10$%ii][2442]
753F283B [Unknown function at GetKeyState]

The current thread ID is 0xD00, and the stack trace (return addresses) leading to this error is:
4175AD [FastMM4.pas][FastMM4][DebugGetMem$qqri][8733]
406C7A [System.pas][System][@GetMem$qqri][4565]
408437 [System.pas][System][TObject.NewInstance$qqrv][15975]
408C42 [System.pas][System][@ClassCreate$qqrpvzc][17290]
643FFB [NxPopupCtrls6.pas][NxPopupCtrls6][TNxTimePopupControl6.$bctr$qqrp25System.Classes.TComponent][2226]
64BE33 [NxEdit6.pas][NxEdit6][TNxTimePicker6.CreatePopupControl$qqrv][4934]
64B7D4 [NxEdit6.pas][NxEdit6][TNxDropDownEdit6.DropDown$qqrv][3944]
7753011A [KiUserCallbackDispatcher]
64BBC7 [NxEdit6.pas][NxEdit6][TNxDropDownEdit6.SetDroppedDown$qqrxo][4052]
64B6CE [NxEdit6.pas][NxEdit6][TNxDropDownEdit6.DoButtonDown$qqrp14System.TObject][3907]
64ABD6 [NxEdit6.pas][NxEdit6][TNxEditButton.DoDown$qqrv][3377]
 



#10 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,191 posts
  • Gender:Male

Posted 02 December 2017 - 01:52 PM

Hi,

I will fix it.
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#11 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 02 December 2017 - 05:24 PM

Nice :)



#12 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 09 December 2017 - 03:15 PM

When is an update available?



#13 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 8,191 posts
  • Gender:Male

Posted 10 December 2017 - 12:51 PM

Hi,

I have fixed it. It will be uploaded in day or two.
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#14 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 11 December 2017 - 09:11 AM

Updated and working :)






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users