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

MG: lazarus now requires the stable 1.0.6 fpc with ssTriple

Browse Source 
git-svn-id: trunk@1095 -
This commit is contained in:
lazarus 2002-02-09 01:47:50 +00:00
parent f302af081f
commit 09df0ec469
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/control.inc
View File

@ -850,9 +850,7 @@ begin
//TODO: SendCancelMode(self);
if csCaptureMouse in ControlStyle then MouseCapture := True;
if csClickEvents in ControlStyle then TripleClick;
{$IFDEF VER1_0_7}
DoMouseDown(Message, mbLeft ,[ssTriple]);
{$ENDIF}
end;
{------------------------------------------------------------------------------
@ -864,9 +862,7 @@ end;
------------------------------------------------------------------------------}
procedure TControl.WMRButtonTripleClk(var Message: TLMRButtonTripleClk);
begin
{$IFDEF VER1_0_7}
DoMouseDown(Message, mbRight ,[ssTriple]);
{$ENDIF}
end;
{------------------------------------------------------------------------------
@ -878,9 +874,7 @@ end;
------------------------------------------------------------------------------}
procedure TControl.WMMButtonTripleClk(var Message: TLMMButtonTripleClk);
begin
{$IFDEF VER1_0_7}
DoMouseDown(Message, mbMiddle ,[ssTriple]);
{$ENDIF}
end;
{------------------------------------------------------------------------------
@ -895,9 +889,7 @@ begin
//TODO: SendCancelMode(self);
if csCaptureMouse in ControlStyle then MouseCapture := True;
if csClickEvents in ControlStyle then QuadClick;
{$IFDEF VER1_0_7}
DoMouseDown(Message, mbLeft ,[ssQuad]);
{$ENDIF}
end;
{------------------------------------------------------------------------------
@ -909,9 +901,7 @@ end;
------------------------------------------------------------------------------}
procedure TControl.WMRButtonQuadClk(var Message: TLMRButtonQuadClk);
begin
{$IFDEF VER1_0_7}
DoMouseDown(Message, mbRight ,[ssQuad]);
{$ENDIF}
end;
{------------------------------------------------------------------------------
@ -923,9 +913,7 @@ end;
------------------------------------------------------------------------------}
procedure TControl.WMMButtonQuadClk(var Message: TLMMButtonQuadClk);
begin
{$IFDEF VER1_0_7}
DoMouseDown(Message, mbMiddle ,[ssQuad]);
{$ENDIF}
end;
{------------------------------------------------------------------------------
@ -1811,6 +1799,9 @@ end;
{ =============================================================================
$Log$
Revision 1.75 2002/09/03 08:40:53 lazarus
MG: lazarus now requires the stable 1.0.6 fpc with ssTriple
Revision 1.74 2002/09/03 08:07:19 lazarus
MG: image support, TScrollBox, and many other things from Andrew