Преглед изворни кода

* add DoneResource to fix memory leak

pierre пре 23 година
родитељ
комит
1cb4bd2d03
2 измењених фајлова са 10 додато и 2 уклоњено
  1. 5 1
      fv/app.pas
  2. 5 1
      fvision/app.pas

+ 5 - 1
fv/app.pas

@@ -1014,6 +1014,7 @@ DESTRUCTOR TApplication.Done;
 BEGIN
 BEGIN
    Inherited Done;                                    { Call ancestor }
    Inherited Done;                                    { Call ancestor }
    DoneHistory;                                       { Close history }
    DoneHistory;                                       { Close history }
+   DoneResource;
    Drivers.DoneSysError;                                      { Close system error }
    Drivers.DoneSysError;                                      { Close system error }
    Drivers.DoneEvents;                                        { Close event drive }
    Drivers.DoneEvents;                                        { Close event drive }
    Drivers.DoneVideo;                                         { Close video }
    Drivers.DoneVideo;                                         { Close video }
@@ -1183,7 +1184,10 @@ END;
 END.
 END.
 {
 {
  $Log$
  $Log$
- Revision 1.15  2002-05-23 07:30:33  pierre
+ Revision 1.16  2002-05-25 23:24:29  pierre
+  * add DoneResource to fix memory leak
+
+ Revision 1.15  2002/05/23 07:30:33  pierre
   * fix problem in InitScreen
   * fix problem in InitScreen
 
 
  Revision 1.14  2001/10/02 16:35:50  pierre
  Revision 1.14  2001/10/02 16:35:50  pierre

+ 5 - 1
fvision/app.pas

@@ -1014,6 +1014,7 @@ DESTRUCTOR TApplication.Done;
 BEGIN
 BEGIN
    Inherited Done;                                    { Call ancestor }
    Inherited Done;                                    { Call ancestor }
    DoneHistory;                                       { Close history }
    DoneHistory;                                       { Close history }
+   DoneResource;
    Drivers.DoneSysError;                                      { Close system error }
    Drivers.DoneSysError;                                      { Close system error }
    Drivers.DoneEvents;                                        { Close event drive }
    Drivers.DoneEvents;                                        { Close event drive }
    Drivers.DoneVideo;                                         { Close video }
    Drivers.DoneVideo;                                         { Close video }
@@ -1183,7 +1184,10 @@ END;
 END.
 END.
 {
 {
  $Log$
  $Log$
- Revision 1.15  2002-05-23 07:30:33  pierre
+ Revision 1.16  2002-05-25 23:24:29  pierre
+  * add DoneResource to fix memory leak
+
+ Revision 1.15  2002/05/23 07:30:33  pierre
   * fix problem in InitScreen
   * fix problem in InitScreen
 
 
  Revision 1.14  2001/10/02 16:35:50  pierre
  Revision 1.14  2001/10/02 16:35:50  pierre