You've already forked lazarus-ccr
RxFPC:RxDBCalcEdit - fix editing data - tnx. kit
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5293 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -372,7 +372,7 @@ end;
|
||||
|
||||
procedure TRxDBCalcEdit.UpdateData(Sender: TObject);
|
||||
begin
|
||||
if Assigned(FDataLink.Field) then
|
||||
if Assigned(FDataLink.Field) and FDataLink.Edit then
|
||||
begin
|
||||
if Self.Text<>'' then
|
||||
FDataLink.Field.AsFloat := Self.AsFloat
|
||||
|
Reference in New Issue
Block a user