Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* do not set fregistered directoy since that hampers registerevents().
Patch by Ludo, Mantis #22244


git-svn-id: trunk@21643 -

marco 13 years ago
parent
8b6c61bb86
commit
2941b1e456
1 changed files with 0 additions and 1 deletions
Unified View Show Diff Stats
  1. 0 1
      packages/fcl-db/src/sqldb/postgres/pqeventmonitor.pp

+ 0 - 1
packages/fcl-db/src/sqldb/postgres/pqeventmonitor.pp
View File 

@@ -122,7 +122,6 @@ end;
 
 
 
 procedure TPQEventMonitor.SetRegistered(AValue: Boolean);
 
 procedure TPQEventMonitor.SetRegistered(AValue: Boolean);
 
 begin
 
 begin
 
-  FRegistered := AValue;
 
   if not (csDesigning in ComponentState) then
 
   if not (csDesigning in ComponentState) then
 
     if AValue then
 
     if AValue then
 
       RegisterEvents
 
       RegisterEvents