paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

datetimectrls - prevent calendar drop when day is not shown

Browse Source 
git-svn-id: trunk@44336 -
This commit is contained in:
zoran 2014-03-04 04:26:23 +00:00
parent 02b09d18e6
commit 58e0398461
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/datetimectrls/datetimepicker.pas
View File

@ -881,7 +881,6 @@ procedure TCustomDateTimePicker.SetKind(const AValue: TDateTimeKind);
begin
if FKind <> AValue then begin
FKind := AValue;
UpdateShowArrowButton(FDateMode, AValue);
AdjustEffectiveHideDateTimeParts;
end;
end;
@ -1767,6 +1766,7 @@ begin
MoveSelectionLR(False);
FRecalculatingTextSizesNeeded := True;
UpdateShowArrowButton(FDateMode, FKind);
UpdateDate;
end;
end;
@ -3549,7 +3549,8 @@ begin
DestroyUpDown;
end else begin
ReallyShowArrowButton := (NewDateMode = dmComboBox) and (NewKind <> dtkTime);
ReallyShowArrowButton := (NewDateMode = dmComboBox) and
not (dtpDay in FEffectiveHideDateTimeParts);
if (ReallyShowArrowButton <> Assigned(FArrowButton)) or
(Assigned(FArrowButton) = Assigned(FUpDown)) then begin