fix error create RXDBDateEdit
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1852 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
parent
2977965467
commit
bdfc17f284
@ -208,7 +208,8 @@ end;
|
||||
|
||||
procedure TDBDateEdit.Change;
|
||||
begin
|
||||
FDataLink.Modified;
|
||||
if Assigned(FDataLink) then
|
||||
FDataLink.Modified;
|
||||
inherited Change;
|
||||
end;
|
||||
|
||||
@ -294,7 +295,7 @@ begin
|
||||
FDataLink.OnDataChange:=@DataChange;
|
||||
FDataLink.OnUpdateData:=@UpdateData;
|
||||
Text:='';
|
||||
UpdateMask;
|
||||
//UpdateMask;
|
||||
end;
|
||||
|
||||
destructor TDBDateEdit.Destroy;
|
||||
|
Loading…
Reference in New Issue
Block a user