mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-31 00:22:51 +02:00
MG: calendar now ignores double clicks
git-svn-id: trunk@1129 -
This commit is contained in:
parent
395bf33e7f
commit
3a76bea201
@ -1515,12 +1515,9 @@ end;
|
||||
------------------------------------------------------------------------------}
|
||||
constructor TWinControl.Create(AOwner : TComponent);
|
||||
begin
|
||||
Assert(False,'Trace:in TWinControl Constructor');
|
||||
inherited Create(AOwner);
|
||||
FCompStyle := csFixed;
|
||||
FBrush := nil;
|
||||
|
||||
Assert(False,'Trace:TWinControl Constructor inherited create complete');
|
||||
end;
|
||||
|
||||
{------------------------------------------------------------------------------}
|
||||
@ -1528,8 +1525,8 @@ end;
|
||||
{------------------------------------------------------------------------------}
|
||||
constructor TWinControl.CreateParented(ParentWindow: hwnd);
|
||||
begin
|
||||
FParentWindow := ParentWindow;
|
||||
inherited Create(nil);
|
||||
FParentWindow := ParentWindow;
|
||||
inherited Create(nil);
|
||||
end;
|
||||
|
||||
{------------------------------------------------------------------------------}
|
||||
@ -2284,6 +2281,9 @@ end;
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.79 2002/08/25 14:32:11 lazarus
|
||||
MG: calendar now ignores double clicks
|
||||
|
||||
Revision 1.78 2002/08/24 12:54:59 lazarus
|
||||
MG: fixed mouse capturing, OI edit focus
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user