paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

RxFPC:TRxDBTimeEdit fix clear date part of field values on change

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6036 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2017-10-11 11:14:29 +00:00
parent 467329f610
commit a90fe39ab9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/trunk/rxdb/rxdbtimeedit.pas
View File

@ -67,7 +67,6 @@ type
procedure SetReadOnly(AValue: Boolean);override;
property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource;
//property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure Change; override;
@ -192,10 +191,13 @@ begin
end;
procedure TCustomRxDBTimeEdit.UpdateData(Sender: TObject);
var
D: Int64;
begin
if Assigned(FDataLink.Field) and (FDataLink.Field.DataType in DataTimeTypes) then
begin
FDataLink.Field.AsDateTime := Self.Time;
D:=trunc(FDataLink.Field.AsDateTime);
FDataLink.Field.AsDateTime := D + Self.Time;
end;
end;