* remove virtual modifer from store methods

fv/dialogs.pas

@@ -615,7 +615,7 @@ TYPE
         associated with the cluster item that was pressed to the check boxes'
         owner. }
       {#X CommandList }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes the #CommandList#
         to the stream. }
       {#X Load }
@@ -653,7 +653,7 @@ TYPE
         associated with the cluster item that was pressed to the check boxes
         owner. }
       {#X CommandList MovedTo }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes the #CommandList#
         to the stream. }
       {#X Load }
@@ -794,7 +794,7 @@ TYPE
       AListBox: PListBox; AEditCommand, ANewCommand: Word);
     constructor Load(var S: TStream);
     procedure HandleEvent(var Event: TEvent); virtual;
-    procedure Store(var S: TStream); virtual;
+    procedure Store(var S: TStream); { store should never be virtual;}
   end;  { of TListDlg }
 
 
@@ -4204,7 +4204,10 @@ END;
 END.
 {
  $Log$
- Revision 1.18  2002-09-07 15:06:36  peter
+ Revision 1.19  2002-09-09 08:14:47  pierre
+  * remove virtual modifer from store methods
+
+ Revision 1.18  2002/09/07 15:06:36  peter
    * old logs removed and tabs fixed
 
  Revision 1.17  2002/05/31 12:35:21  pierre

fv/statuses.pas

@@ -238,7 +238,7 @@ type
         to cmStatusPause and Event.InfoPtr set to #Status#^.Command.  The
         Status view's sfPause bit is turned off by calling SetState. }
       {#X Pause sdXXXX Cancel }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes #Command# to the
         stream. }
       {#X Load }
@@ -308,7 +308,7 @@ type
     procedure InsertButtons (AFlags : Word); virtual;
       { InsertButtons enlarges the dialog to the necessary size and inserts
         the buttons specified in AFlags into the last row of the dialog. }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes #Status# to the
         stream. }
       {#X Load }
@@ -388,7 +388,7 @@ Min = XXX  Max = XXX  Current = XXX }
       { SetData assumes Rec is a #TGaugeRec# and sets the gauge's variables
         accordingly. }
       {#X GetData }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes #Min#, #Max# and
         #Current# to the stream. }
       {#X Load }
@@ -444,7 +444,7 @@ Min = XXX  Max = XXX  Current = XXX }
       { SetData assumes Rec is a #TArrowGaugeRec# and sets the view's
         variables accordingly. }
       {#X GetData }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes #Right# to the
         stream. }
       {#X Load }

fv/validate.pas

@@ -682,6 +682,7 @@ VAR I, J: Byte; Rslt: TPicResult; Reprocess: Boolean;
 
    BEGIN
      Incomp := False;                                 { Clear incomplete }
+     InCompJ:=0;                                      { set to avoid a warning }
      OldI := I;                                       { Hold I count }
      OldJ := J;                                       { Hold J count }
      Repeat
@@ -1058,7 +1059,10 @@ END.
 
 {
  $Log$
- Revision 1.6  2002-09-07 15:06:38  peter
+ Revision 1.7  2002-09-09 08:14:48  pierre
+  * remove virtual modifer from store methods
+
+ Revision 1.6  2002/09/07 15:06:38  peter
    * old logs removed and tabs fixed
 
 }

fvision/dialogs.pas

@@ -615,7 +615,7 @@ TYPE
         associated with the cluster item that was pressed to the check boxes'
         owner. }
       {#X CommandList }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes the #CommandList#
         to the stream. }
       {#X Load }
@@ -653,7 +653,7 @@ TYPE
         associated with the cluster item that was pressed to the check boxes
         owner. }
       {#X CommandList MovedTo }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes the #CommandList#
         to the stream. }
       {#X Load }
@@ -794,7 +794,7 @@ TYPE
       AListBox: PListBox; AEditCommand, ANewCommand: Word);
     constructor Load(var S: TStream);
     procedure HandleEvent(var Event: TEvent); virtual;
-    procedure Store(var S: TStream); virtual;
+    procedure Store(var S: TStream); { store should never be virtual;}
   end;  { of TListDlg }
 
 
@@ -4204,7 +4204,10 @@ END;
 END.
 {
  $Log$
- Revision 1.18  2002-09-07 15:06:36  peter
+ Revision 1.19  2002-09-09 08:14:47  pierre
+  * remove virtual modifer from store methods
+
+ Revision 1.18  2002/09/07 15:06:36  peter
    * old logs removed and tabs fixed
 
  Revision 1.17  2002/05/31 12:35:21  pierre

fvision/statuses.pas

@@ -238,7 +238,7 @@ type
         to cmStatusPause and Event.InfoPtr set to #Status#^.Command.  The
         Status view's sfPause bit is turned off by calling SetState. }
       {#X Pause sdXXXX Cancel }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes #Command# to the
         stream. }
       {#X Load }
@@ -308,7 +308,7 @@ type
     procedure InsertButtons (AFlags : Word); virtual;
       { InsertButtons enlarges the dialog to the necessary size and inserts
         the buttons specified in AFlags into the last row of the dialog. }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes #Status# to the
         stream. }
       {#X Load }
@@ -388,7 +388,7 @@ Min = XXX  Max = XXX  Current = XXX }
       { SetData assumes Rec is a #TGaugeRec# and sets the gauge's variables
         accordingly. }
       {#X GetData }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes #Min#, #Max# and
         #Current# to the stream. }
       {#X Load }
@@ -444,7 +444,7 @@ Min = XXX  Max = XXX  Current = XXX }
       { SetData assumes Rec is a #TArrowGaugeRec# and sets the view's
         variables accordingly. }
       {#X GetData }
-    procedure Store (var S : TStream); virtual;
+    procedure Store (var S : TStream); { store should never be virtual;}
       { Store calls the inherited Store method then writes #Right# to the
         stream. }
       {#X Load }

fvision/validate.pas

@@ -682,6 +682,7 @@ VAR I, J: Byte; Rslt: TPicResult; Reprocess: Boolean;
 
    BEGIN
      Incomp := False;                                 { Clear incomplete }
+     InCompJ:=0;                                      { set to avoid a warning }
      OldI := I;                                       { Hold I count }
      OldJ := J;                                       { Hold J count }
      Repeat
@@ -1058,7 +1059,10 @@ END.
 
 {
  $Log$
- Revision 1.6  2002-09-07 15:06:38  peter
+ Revision 1.7  2002-09-09 08:14:48  pierre
+  * remove virtual modifer from store methods
+
+ Revision 1.6  2002/09/07 15:06:38  peter
    * old logs removed and tabs fixed
 
 }