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

MG: double, triple and quad clicks now works

Browse Source 
git-svn-id: trunk@3271 -
This commit is contained in:
lazarus 2002-09-01 16:11:21 +00:00
parent a168428731
commit a670440d50
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/calendar.pp
View File

@ -73,7 +73,6 @@ Type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
Property Date : String read GetDate write SetDate;
property DisplaySettings : TDisplaySettings read GetDisplaySettings write SetDisplaySettings;
@ -100,7 +99,7 @@ begin
SetBounds(0,0,250,150);
fDisplaySettings := [dsShowHeadings, dsShowDayNames];
Date := FormatDateTime('dd-mm-yyyy',Now);
ControlStyle:=ControlStyle-[csDoubleClicks]
ControlStyle:=ControlStyle-csMultiClicks-[csAcceptsControls];
end;
destructor TCalendar.Destroy;

2
lcl/include/buttoncontrol.inc
View File

@ -34,7 +34,7 @@ end;
constructor TButtonControl.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle:=ControlStyle-[csDoubleClicks,csTripleClicks,csAcceptsControls];
ControlStyle:=ControlStyle-csMultiClicks-[csAcceptsControls];
end;
// included by stdctrls.pp

5
lcl/lmessages.pp
View File

@ -324,12 +324,14 @@ const
LM_YEARCHANGED = LM_USER+66;
LM_DAYCHANGED = LM_USER+67;
LM_MOUSEFIRST2 = LM_USER+68;
LM_LBUTTONTRIPLECLK = LM_USER+68;
LM_LBUTTONQUADCLK = LM_USER+69;
LM_MBUTTONTRIPLECLK = LM_USER+70;
LM_MBUTTONQUADCLK = LM_USER+71;
LM_RBUTTONTRIPLECLK = LM_USER+72;
LM_RBUTTONQUADCLK = LM_USER+73;
LM_MOUSELAST2 = LM_RBUTTONQUADCLK;
LM_INTERFACEFIRST = LM_User+99;
LM_INTERFACELAST = LM_User+199;
@ -843,6 +845,9 @@ end.
{
$Log$
Revision 1.29 2002/09/01 16:11:21 lazarus
MG: double, triple and quad clicks now works
Revision 1.28 2002/08/28 09:40:48 lazarus
MG: reduced paint messages and DC getting/releasing