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

MG: calendar now ignores double clicks

Browse Source 
git-svn-id: trunk@3244 -
This commit is contained in:
lazarus 2002-08-25 14:32:10 +00:00
parent 60de83b33e
commit cc8a613f02
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/calendar.pp
View File

@ -26,7 +26,7 @@
@author(Shane Miller)
@created(05 Dev 2001)
}
unit calendar;
unit Calendar;
{$mode objfpc}{$H+}
@ -38,7 +38,8 @@ uses
Type
TDisplaySetting = (dsShowHeadings, dsShowDayNames, dsNoMonthChange, dsShowWeekNumbers,dsStartMonday);
TDisplaySetting = (dsShowHeadings, dsShowDayNames, dsNoMonthChange,
dsShowWeekNumbers,dsStartMonday);
TDisplaySettings = set of TDisplaySetting;
TLMCalendar = record
@ -94,12 +95,12 @@ implementation
constructor TCalendar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{create the control}
inherited Create(AOwner);
fCompStyle := csCalendar;
setbounds(0,0,250,150);
SetBounds(0,0,250,150);
fDisplaySettings := [dsShowHeadings, dsShowDayNames];
Date := FormatDateTime('dd-mm-yyyy',Now);
ControlStyle:=ControlStyle-[csDoubleClicks]
end;
destructor TCalendar.Destroy;

5
lcl/include/customcontrol.inc
View File

@ -25,7 +25,7 @@
------------------------------------------------------------------------------}
constructor TCustomControl.Create(AOwner: TComponent);
begin
inherited create (AOwner);
inherited Create(AOwner);
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
@ -75,6 +75,9 @@ end;
{ =============================================================================
$Log$
Revision 1.5 2002/08/25 14:32:10 lazarus
MG: calendar now ignores double clicks
Revision 1.4 2002/05/17 10:45:23 lazarus
MG: finddeclaration for stupid things like var a:a;