paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 19:00:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

delete reference to field if closing (from jesus) (fixes bug #694)

Browse Source 
git-svn-id: trunk@7050 -
This commit is contained in:
micha 2005-04-01 21:13:09 +00:00
parent 2c4866f41a
commit c159d13d38
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dbctrls.pp
View File

@ -1041,6 +1041,8 @@ end;
So... just call event if exists? unles Active then we test validity of So... just call event if exists? unles Active then we test validity of
field. does this simply mean not nil? or is more involved? field. does this simply mean not nil? or is more involved?
call mock routine for now call mock routine for now
if it becomes inactive then the field is not valid anymore isn't?
} }
procedure TFieldDataLink.ActiveChanged; procedure TFieldDataLink.ActiveChanged;
begin begin
@ -1048,6 +1050,9 @@ begin
then then
exit; exit;
if not Active then
FField := nil;
if Assigned(FOnActiveChange) then if Assigned(FOnActiveChange) then
FOnActiveChange(Self); FOnActiveChange(Self);
end; end;
@ -1286,6 +1291,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.26 2005/04/01 21:13:09 micha
delete reference to field if closing (from jesus) (fixes bug 694)
Revision 1.25 2004/10/01 13:25:51 mattias Revision 1.25 2004/10/01 13:25:51 mattias
fixed 1.0.10 compilation fixed 1.0.10 compilation