mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-04 07:59:43 +01:00
75 lines
1.7 KiB
ObjectPascal
75 lines
1.7 KiB
ObjectPascal
{
|
|
LCLCalWrapper
|
|
- - - - - - - - - - - - - - - - -
|
|
Author: Zoran Vučenović
|
|
Зоран Вученовић
|
|
|
|
This unit is part of DateTimeCtrls package for Lazarus.
|
|
|
|
TLCLCalendarWrapper is the default implementation of TCalendarControlWrapper
|
|
abstract class, used by DateTimePicker. Wraps LCL's TCalendar.
|
|
|
|
-----------------------------------------------------------
|
|
LICENCE
|
|
- - - -
|
|
Modified LGPL -- see the file COPYING.modifiedLGPL.
|
|
|
|
-----------------------------------------------------------
|
|
NO WARRANTY
|
|
- - - - - -
|
|
There is no warranty whatsoever.
|
|
|
|
-----------------------------------------------------------
|
|
BEST REGARDS TO LAZARUS COMMUNITY!
|
|
- - - - - - - - - - - - - - - - - -
|
|
I do hope the DateTimeCtrls package will be useful.
|
|
}
|
|
unit lclcalwrapper;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, Controls, Calendar, CalControlWrapper;
|
|
|
|
type
|
|
|
|
{ TLCLCalendarWrapper }
|
|
|
|
TLCLCalendarWrapper = class(TCalendarControlWrapper)
|
|
public
|
|
class function GetCalendarControlClass: TControlClass; override;
|
|
procedure SetDate(Date: TDate); override;
|
|
function GetDate: TDate; override;
|
|
function AreCoordinatesOnDate(X, Y: Integer): Boolean; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TLCLCalendarWrapper }
|
|
|
|
class function TLCLCalendarWrapper.GetCalendarControlClass: TControlClass;
|
|
begin
|
|
Result := TCalendar;
|
|
end;
|
|
|
|
procedure TLCLCalendarWrapper.SetDate(Date: TDate);
|
|
begin
|
|
TCalendar(GetCalendarControl).DateTime := Date;
|
|
end;
|
|
|
|
function TLCLCalendarWrapper.GetDate: TDate;
|
|
begin
|
|
Result := TCalendar(GetCalendarControl).DateTime;
|
|
end;
|
|
|
|
function TLCLCalendarWrapper.AreCoordinatesOnDate(X, Y: Integer): Boolean;
|
|
begin
|
|
Result :=
|
|
TCalendar(GetCalendarControl).HitTest(Point(X, Y)) in [cpDate, cpNoWhere];
|
|
end;
|
|
|
|
end.
|
|
|