pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Prevent combo date mode when day is not shown

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2898 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
zoran-vucenovic
2014-02-10 14:24:21 +00:00
parent 2631521c02
commit 4d82896a64
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/ZVDateTimeCtrls/trunk/zvdatetimepicker.pas
View File

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