paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 20:38:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

TDateTimePicker - switch to OnClick instead of OnMouseUp

Browse Source 
git-svn-id: trunk@51734 -
This commit is contained in:
zoran 2016-02-27 14:33:16 +00:00
parent 238a361f68
commit ee08798b5e
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/datetimectrls/datetimepicker.pas
View File

@ -541,9 +541,7 @@ type
procedure CalendarKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure CalendarResize(Sender: TObject);
procedure CalendarMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CalendarClick(Sender: TObject);
procedure VisibleOfParentChanged(Sender: TObject);
protected
@ -685,11 +683,13 @@ begin
AdjustCalendarFormSize;
end;
procedure TDTCalendarForm.CalendarMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TDTCalendarForm.CalendarClick(Sender: TObject);
var
P: TPoint;
begin
if Cal.AreCoordinatesOnDate(X, Y) then
CloseCalendarForm(True);
P := Cal.GetCalendarControl.ScreenToClient(Mouse.CursorPos);
if Cal.AreCoordinatesOnDate(P.x, P.y) then
CloseCalendarForm(True);
end;
@ -737,11 +737,6 @@ begin
inherited DoClose(CloseAction);
end;
type
{ To be able to access TControl's protected members,
we derive our class TDTControl from TControl: }
TDTControl = class(TControl);
constructor TDTCalendarForm.CreateNewDTCalendarForm(AOwner: TComponent;
ADTPicker: TCustomDateTimePicker);
var
@ -801,7 +796,7 @@ begin
Cal.SetDate(DTPicker.Date);
Cal.GetCalendarControl.OnResize := @CalendarResize;
TDTControl(Cal.GetCalendarControl).OnMouseUp := @CalendarMouseUp;
Cal.GetCalendarControl.OnClick := @CalendarClick;
if Cal.GetCalendarControl is TWinControl then begin
TWinControl(Cal.GetCalendarControl).OnKeyDown := @CalendarKeyDown;
TWinControl(Cal.GetCalendarControl).TabStop := True;
@ -821,7 +816,7 @@ begin
if Assigned(Cal) then begin
Cal.GetCalendarControl.OnResize := nil;
TDTControl(Cal.GetCalendarControl).OnMouseUp := nil;
Cal.GetCalendarControl.OnClick := nil;
if Cal.GetCalendarControl is TWinControl then
TWinControl(Cal.GetCalendarControl).OnKeyDown := nil;
Cal.Free;