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

RxFPC:RxDateRangeEdit fix set property Period for reoQuarter, reoHalfYear

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5893 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-05-22 11:49:57 +00:00
parent fa22d600c9
commit 52d104e593
1 changed files with 27 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
components/rx/trunk/rxcontrols/rxdaterangeeditunit.pas
View File

@ -360,11 +360,36 @@ end;
procedure TRxCustomDateRangeEdit.SetPeriod(AValue: TDateTime); procedure TRxCustomDateRangeEdit.SetPeriod(AValue: TDateTime);
var var
Y, M, D: word; Y, M, D, Q: word;
I: Integer;
begin begin
DecodeDate(AValue, Y, M, D); DecodeDate(AValue, Y, M, D);
FEditMonth.ItemIndex:=M-1;
FEditYear.Value:=Y; FEditYear.Value:=Y;
if reoMonth in FOptions then
FEditMonth.ItemIndex:=M-1
else
if reoQuarter in FOptions then
begin
Q:=M div 4;
for I:=0 to FEditMonth.Items.Count - 1 do
if FEditMonth.Items.Objects[i] = TObject(Pointer(Q + 13)) then
begin
FEditMonth.ItemIndex:=i;
break;
end;
end
else
if reoHalfYear in FOptions then
begin
Q:=M div 6;
for I:=0 to FEditMonth.Items.Count - 1 do
if FEditMonth.Items.Objects[i] = TObject(Pointer(Q + 17)) then
begin
FEditMonth.ItemIndex:=i;
break;
end;
end;
end; end;
procedure TRxCustomDateRangeEdit.SetQuarter(AValue: word); procedure TRxCustomDateRangeEdit.SetQuarter(AValue: word);