Curious, is there a reason TtoolButton does not have a double click?

[jamie]

I just implemented a double click effect using a single click and tick timer, I was just curious why double click event never got put in?

Jamie

[Zvoni]

I just implemented a double click effect using a single click and tick timer, I was just curious why double click event never got put in?

Jamie

How do you figure that?
https://lazarus-ccr.sourceforge.io/docs/lcl/comctrls/ttoolbutton.html

under Events there is an OnDblClick (inherited from TControl)

Or do you mean it's missing because it wasn't "Published" (not available in OI)?

Write your own "Procedure OnDblClick(Sender:TObject);" inside your TForm-Section,
put your DoubleClick-Code into the Procedure
in the OnCreate of the Form assign it to "OnDblClick"-Event,
Done

[Thaddy]

For toolbutton it is protected.....

Code: Pascal  [Select][+][-]

1. TToolbuttonExt = class (TToolbutton);
2. published
3.   property OnDblClick;// that's all
4. end;

You can now use it from code. It you register it, you can also use it from the object inspector.
Untested but this should be all there is to it.

You can also write a type helper for it.

The reason it is not in is maybe that it is the expected behavior for a toolbutton?

[Zvoni]

For toolbutton it is protected.....

Code: Pascal  [Select][+][-]

1. TToolbuttonExt = class (TToolbutton);
2. published
3.   property OnDblClick;// that's all
4. end;

You can now use it from code. It you register it, you can also use it from the object inspector.
Untested but this should be all there is to it.

You can also write a type helper for it.

Yep.
Missed that it's protected in TControl

[Thaddy]

Jamie probably also missed that ....  Did you? @Jamie?
[edit]
It seems that this does not work on all widgetsets, e.g. it fails on windows. Maybe that is due to the underlying Windows control.

[jamie]

I don't miss much, and I didn't miss this one either.

I am aware of it being there, it's not published is what I meant to say.

I believe the Control Flag is set to not allow a double click.

It's no big deal but I use double clicks on a toolbar button, so I'll stick with what I got atm, it works.

Jamie

[Zvoni]

I don't miss much, and I didn't miss this one either.

I am aware of it being there, it's not published is what I meant to say.

I believe the Control Flag is set to not allow a double click.

It's no big deal but I use double clicks on a toolbar button, so I'll stick with what I got atm, it works.

Jamie

Looks like it
in toolbutton.inc

Code: Pascal  [Select][+][-]

1. constructor TToolButton.Create(TheOwner: TComponent);
2. begin
3.   inherited Create(TheOwner);
4.   FImageIndex := -1;
5.   FStyle := tbsButton;
6.   FShowCaption := true;
7.   ControlStyle := [csCaptureMouse, csSetCaption, csDesignNoSmoothResize];  //<-- !!!!
8.   with GetControlClassDefaultSize do
9.     SetInitialBounds(0, 0, CX, CY);
10.   AccessibleRole := larToolBarButton;
11. end;                                  

In control.inc

Code: Pascal  [Select][+][-]

1. constructor TControl.Create(TheOwner: TComponent);
2. var
3.   Side: TAnchorKind;
4. begin
5.   DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.Create'){$ENDIF};
6.   try
7.     //if AnsiCompareText(ClassName,'TSpeedButton')=0 then
8.     //  DebugLn('TControl.Create START ',Name,':',ClassName);
9.     inherited Create(TheOwner);
10.  
11.     // no csOpaque: delphi compatible, win32 themes notebook depend on it
12.     // csOpaque means entire client area will be drawn
13.     // (most controls are semi-transparent)
14.     FAccessibleObject := CreateAccessibleObject();
15.     FControlStyle := FControlStyle
16.                    +[csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks];        //<--!!!
17. .....

Control-Style is a Public Property, so it's accessible.
add the csDoubleClicks on creation?

[jamie]

I'll stick with what I am doing now, it's just a couple of lines of code inside the OnClick.

Jamie