paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 06:16:05 +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) @author(Shane Miller)
@created(05 Dev 2001) @created(05 Dev 2001)
} }
unit calendar; unit Calendar;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -38,7 +38,8 @@ uses
Type Type
TDisplaySetting = (dsShowHeadings, dsShowDayNames, dsNoMonthChange, dsShowWeekNumbers,dsStartMonday); TDisplaySetting = (dsShowHeadings, dsShowDayNames, dsNoMonthChange,
dsShowWeekNumbers,dsStartMonday);
TDisplaySettings = set of TDisplaySetting; TDisplaySettings = set of TDisplaySetting;
TLMCalendar = record TLMCalendar = record
@ -94,12 +95,12 @@ implementation
constructor TCalendar.Create(AOwner: TComponent); constructor TCalendar.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
{create the control}
fCompStyle := csCalendar; fCompStyle := csCalendar;
setbounds(0,0,250,150); SetBounds(0,0,250,150);
fDisplaySettings := [dsShowHeadings, dsShowDayNames]; fDisplaySettings := [dsShowHeadings, dsShowDayNames];
Date := FormatDateTime('dd-mm-yyyy',Now); Date := FormatDateTime('dd-mm-yyyy',Now);
ControlStyle:=ControlStyle-[csDoubleClicks]
end; end;
destructor TCalendar.Destroy; destructor TCalendar.Destroy;

5
lcl/include/customcontrol.inc
View File

@ -25,7 +25,7 @@
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
constructor TCustomControl.Create(AOwner: TComponent); constructor TCustomControl.Create(AOwner: TComponent);
begin begin
inherited create (AOwner); inherited Create(AOwner);
FCanvas := TControlCanvas.Create; FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self; TControlCanvas(FCanvas).Control := Self;
@ -75,6 +75,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.4 2002/05/17 10:45:23 lazarus
MG: finddeclaration for stupid things like var a:a; MG: finddeclaration for stupid things like var a:a;