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

fix error in lockup box

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2397 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-04-21 06:11:08 +00:00
parent 221bc57670
commit 2983ae02f7
3 changed files with 35 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/rxdbtimeedit.pas
View File

@ -146,7 +146,7 @@ type
procedure TCustomRxDBTimeEdit.DataChange(Sender: TObject);
begin
if Assigned(FDataLink.Field) and (FDataLink.Field.DataType in TimeDataTypes) then
if Assigned(FDataLink.Field) and (FDataLink.Field.DataType in DataTimeTypes) then
Self.Time:=FDatalink.Field.AsDateTime
else
Text := '';
@ -190,7 +190,7 @@ end;
procedure TCustomRxDBTimeEdit.UpdateData(Sender: TObject);
begin
if Assigned(FDataLink.Field) and (FDataLink.Field.DataType in TimeDataTypes) then
if Assigned(FDataLink.Field) and (FDataLink.Field.DataType in DataTimeTypes) then
begin
FDataLink.Field.AsDateTime := Self.Time;
end;