paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 11:01:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: buttoncontrol: prevent double click invoke in case csClickEvents are set. affected was win32.

Browse Source 
git-svn-id: trunk@51635 -
This commit is contained in:
ondrej 2016-02-16 10:16:32 +00:00
parent ee7305772d
commit 8b31887c6f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/buttoncontrol.inc
View File

@ -17,7 +17,8 @@ end;
procedure TButtonControl.WMDefaultClicked(var Message: TLMessage);
begin
Click;
if not ((csClickEvents in ControlStyle) and (csClicked in ControlState)) then // prevent double click in case of csClickEvents, because clicks are send in MouseUp
Click;
end;
class procedure TButtonControl.WSRegisterClass;