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

OnChange responds immediately to user's typing

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2722 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
zoran-vucenovic
2013-04-08 13:45:11 +00:00
parent 91d939066d
commit 69b74cea58
1 changed files with 22 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1764,7 +1764,7 @@ var
YMD: TYMD; YMD: TYMD;
HMSMs: THMSMs; HMSMs: THMSMs;
D, T: TDateTime; D, T: TDateTime;
Finished: Boolean; Finished, ForceChange: Boolean;
begin begin
if FTextEnabled then begin if FTextEnabled then begin
@ -1774,6 +1774,7 @@ begin
if (not FReadOnly) then begin if (not FReadOnly) then begin
Finished := False; Finished := False;
ForceChange := False;
if FSelectedTextPart = 8 then begin if FSelectedTextPart = 8 then begin
case upCase(Key) of case upCase(Key) of
@ -1782,8 +1783,10 @@ begin
else else
Finished := True; Finished := True;
end; end;
ForceChange := True;
end else if Key in ['0'..'9'] then begin end else if Key in ['0'..'9'] then begin
TTP := ttpAMPM; TTP := ttpAMPM;
DTP := GetCurrentDateTextPart; DTP := GetCurrentDateTextPart;
@ -1806,9 +1809,8 @@ begin
while (UTF8Length(S) > 1) and (UTF8Copy(S, 1, 1) = '0') do while (UTF8Length(S) > 1) and (UTF8Copy(S, 1, 1) = '0') do
UTF8Delete(S, 1, 1); UTF8Delete(S, 1, 1);
end else begin end else
S := Key; S := Key;
end;
if (UTF8Length(S) >= N) then begin if (UTF8Length(S) >= N) then begin
@ -1820,20 +1822,25 @@ begin
dtpMonth: YMD.Month := L; dtpMonth: YMD.Month := L;
dtpYear: YMD.Year := L; dtpYear: YMD.Year := L;
end; end;
if not TryEncodeDate(YMD.Year, YMD.Month, YMD.Day, D) then begin if not TryEncodeDate(YMD.Year, YMD.Month, YMD.Day, D) then
D := MinDate - 1; D := MinDate - 1;
end;
if (D < MinDate) or (D > MaxDate) then begin if (D < MinDate) or (D > MaxDate) then begin
if N = 4 then begin if N = 4 then begin
UpdateDate; UpdateDate;
Finished := True; Finished := True;
end else end else
S := Key; S := Key;
end;
end else
ForceChange := True;
end else begin end else begin
if (TTP = ttpHour) and (FTimeFormat = tf12) then begin if (TTP = ttpHour) and (FTimeFormat = tf12) then begin
if not (L in [1..12]) then if not (L in [1..12]) then
S := Key; S := Key
else
ForceChange := True;
end else begin end else begin
@ -1846,7 +1853,9 @@ begin
end; end;
if not TryEncodeTime(HMSMs.Hour, HMSMs.Minute, HMSMs.Second, if not TryEncodeTime(HMSMs.Hour, HMSMs.Minute, HMSMs.Second,
HMSMs.MiliSec, T) then HMSMs.MiliSec, T) then
S := Key; S := Key
else
ForceChange := True;
end; end;
end; end;
@ -1869,7 +1878,11 @@ begin
FUserChangedText := True; FUserChangedText := True;
if ForceChange then
UpdateIfUserChangedText
else
Invalidate; Invalidate;
end; end;
end; end;