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

DateTimePicker - check selection update on changing DateDisplayOrder

Browse Source 
git-svn-id: trunk@52056 -
This commit is contained in:
zoran 2016-03-25 14:28:22 +00:00
parent db7cf0af86
commit 7ea0992229
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/datetimectrls/datetimepicker.pas
View File

@ -250,6 +250,7 @@ type
procedure SetHMSMs(const AValue: THMSMs);
procedure UpdateIfUserChangedText;
function GetSelectedText: String;
procedure AdjustSelection;
procedure AdjustEffectiveCenturyFrom;
procedure AdjustEffectiveDateDisplayOrder;
procedure AdjustEffectiveHideDateTimeParts;
@ -913,8 +914,10 @@ begin
PreviousEffectiveDDO := FEffectiveDateDisplayOrder;
FDateDisplayOrder := AValue;
AdjustEffectiveDateDisplayOrder;
if FEffectiveDateDisplayOrder <> PreviousEffectiveDDO then
if FEffectiveDateDisplayOrder <> PreviousEffectiveDDO then begin
AdjustSelection;
UpdateDate;
end;
end;
end;
@ -1652,6 +1655,13 @@ begin
Result := FTimeText[TDateTimePart(FSelectedTextPart - 1)];
end;
procedure TCustomDateTimePicker.AdjustSelection;
begin
if GetDateTimePartFromTextPart(FSelectedTextPart) in
FEffectiveHideDateTimeParts then
MoveSelectionLR(False);
end;
procedure TCustomDateTimePicker.AdjustEffectiveCenturyFrom;
var
Y1, Y2, M, D: Word;
@ -1830,10 +1840,7 @@ begin
if FEffectiveHideDateTimeParts
<> PreviousEffectiveHideDateTimeParts then begin
if GetDateTimePartFromTextPart(FSelectedTextPart) in
FEffectiveHideDateTimeParts then
MoveSelectionLR(False);
AdjustSelection;
FRecalculatingTextSizesNeeded := True;
UpdateShowArrowButton;
UpdateDate;