pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix double click

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8008 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2021-05-09 08:20:11 +00:00
parent 48f86f1a74
commit 3925ebaa0d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/jujiboutils/src/jbutton.pas
View File

@ -164,14 +164,14 @@ begin
FJLabel.Parent := Self;
FJLabel.ParentFont := False;
FJLabel.SetSubComponent(True);
FJLabel.ControlStyle := FJLabel.ControlStyle + [csNoDesignSelectable] -
[csDoubleClicks];
FJLabel.ControlStyle := FJLabel.ControlStyle + [csNoDesignSelectable];
FJLabel.Alignment := taCenter;
FJLabel.Layout := tlCenter;
FJLabel.Align := alClient;
FJLabel.OnMouseDown := @JLabel1MouseDown;
FJLabel.OnMouseUp := @JLabel1MouseUp;
FJLabel.OnClick := @JLabel1MouseClick;
FJLabel.OnDblClick := @JLabel1MouseClick;
end;
end.