1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
{
*****************************************************************************
* QtWSCalendar.pp *
* --------------- *
* *
* *
*****************************************************************************
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
unit QtWSCalendar;
{$mode objfpc}{$H+}
interface
{$I qtdefines.inc}
uses
// Bindings
qt5,
qtwidgets,
// LCL
SysUtils, Types, DateUtils, Controls, Calendar, LCLType, LCLIntf, LCLProc,
// Widgetset
WSProc, WSCalendar, WSLCLClasses;
type
{ TQtWSCustomCalendar }
TQtWSCustomCalendar = class(TWSCustomCalendar)
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class function GetDateTime(const ACalendar: TCustomCalendar): TDateTime; override;
class function HitTest(const ACalendar: TCustomCalendar; const APoint: TPoint): TCalendarPart; override;
class procedure SetDateTime(const ACalendar: TCustomCalendar; const ADateTime: TDateTime); override;
class procedure SetDisplaySettings(const ACalendar: TCustomCalendar; const ADisplaySettings: TDisplaySettings); override;
end;
implementation
{ TQtWSCustomCalendar }
class function TQtWSCustomCalendar.CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle;
var
QtCalendar: TQtCalendar;
begin
QtCalendar := TQtCalendar.Create(AWinControl, AParams);
QtCalendar.AttachEvents;
Result := TLCLIntfHandle(QtCalendar);
end;
class function TQtWSCustomCalendar.GetDateTime(const ACalendar: TCustomCalendar): TDateTime;
var
QtCalendar: TQtCalendar;
begin
QtCalendar := TQtCalendar(ACalendar.Handle);
Result := QtCalendar.DateTime;
end;
class function TQtWSCustomCalendar.HitTest(const ACalendar: TCustomCalendar;
const APoint: TPoint): TCalendarPart;
var
QtCalendar: TQtCalendar;
begin
Result := cpNoWhere;
if not WSCheckHandleAllocated(ACalendar, 'HitTest') then
Exit;
QtCalendar := TQtCalendar(ACalendar.Handle);
Result := TCalendarPart(QtCalendar.HitTest(APoint))
end;
class procedure TQtWSCustomCalendar.SetDateTime(const ACalendar: TCustomCalendar;
const ADateTime: TDateTime);
var
QtCalendar: TQtCalendar;
begin
QtCalendar := TQtCalendar(ACalendar.Handle);
QtCalendar.BeginUpdate;
QtCalendar.DateTime := ADateTime;
QtCalendar.EndUpdate;
end;
class procedure TQtWSCustomCalendar.SetDisplaySettings(const ACalendar: TCustomCalendar;
const ADisplaySettings: TDisplaySettings);
var
QtCalendar: TQtCalendar;
HHdrFmt: QCalendarWidgetHorizontalHeaderFormat;
VHdrFmt: QCalendarWidgetVerticalHeaderFormat;
SelMode: QCalendarWidgetSelectionMode;
begin
QtCalendar := TQtCalendar(ACalendar.Handle);
SelMode := QCalendarWidgetSingleSelection;
if dsShowDayNames in ADisplaySettings then
HHdrFmt := QCalendarWidgetShortDayNames
else
HHdrFmt := QCalendarWidgetNoHorizontalHeader;
if dsShowWeekNumbers in ADisplaySettings then
VHdrFmt := QCalendarWidgetISOWeekNumbers
else
VHdrFmt := QCalendarWidgetNoVerticalHeader;
QtCalendar.BeginUpdate;
QtCalendar.SetDisplaySettings(HHdrFmt, VHdrFmt, SelMode,
dsShowHeadings in ADisplaySettings, dsShowWeekNumbers in ADisplaySettings,
dsStartMonday in ADisplaySettings);
QtCalendar.EndUpdate;
end;
end.
|
