paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 18:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: added TCustomDateTimePicker.ShowCalendarForm

Browse Source
This commit is contained in:
mattias 2025-01-20 11:43:19 +01:00
parent e897d845ea
commit 448d4b0a28
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/datetimectrls/datetimepicker.pas
View File

@ -314,6 +314,7 @@ type
procedure UndoChanges; virtual;
procedure DropDownCalendarForm; virtual;
procedure ShowCalendarForm(aWrapper: TCalendarControlWrapper); virtual;
function GetCheckBoxRect(IgnoreRightToLeft: Boolean = False): TRect;
function GetDateTimePartFromTextPart(TextPart: TTextPart): TDateTimePart;
@ -681,7 +682,6 @@ type
constructor CreateNewDTCalendarForm(AOwner: TComponent;
ADTPicker: TCustomDateTimePicker);
destructor Destroy; override;
published
end;
{ TDateTimePicker }
@ -3762,10 +3762,16 @@ begin
or (csDesigning in ComponentState))
then begin
FCalendarForm := TDTCalendarForm.CreateNewDTCalendarForm(nil, Self);
FCalendarForm.Show;
ShowCalendarForm(TDTCalendarForm(FCalendarForm).Cal);
end;
end;
procedure TCustomDateTimePicker.ShowCalendarForm(aWrapper: TCalendarControlWrapper);
begin
if aWrapper=nil then ;
FCalendarForm.Show;
end;
{ TDTUpDown }
{ When our UpDown control gets enabled/disabled, the two its buttons' Enabled