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

* remove virtual modifer from store methods

pierre 23 years ago
parent
5a5275cbe8
commit
5ff5748849
6 changed files with 32 additions and 18 deletions
Unified View Show Diff Stats
  1. 7 4
      fv/dialogs.pas
  2. 4 4
      fv/statuses.pas
  3. 5 1
      fv/validate.pas
  4. 7 4
      fvision/dialogs.pas
  5. 4 4
      fvision/statuses.pas
  6. 5 1
      fvision/validate.pas

+ 7 - 4
fv/dialogs.pas
View File 

@@ -615,7 +615,7 @@ TYPE
 
         associated with the cluster item that was pressed to the check boxes'
 
         associated with the cluster item that was pressed to the check boxes'
 
         owner. }
 
         owner. }
 
       {#X CommandList }
 
       {#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#
 
       { Store calls the inherited Store method then writes the #CommandList#
 
         to the stream. }
 
         to the stream. }
 
       {#X Load }
 
       {#X Load }
 
@@ -653,7 +653,7 @@ TYPE
 
         associated with the cluster item that was pressed to the check boxes
 
         associated with the cluster item that was pressed to the check boxes
 
         owner. }
 
         owner. }
 
       {#X CommandList MovedTo }
 
       {#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#
 
       { Store calls the inherited Store method then writes the #CommandList#
 
         to the stream. }
 
         to the stream. }
 
       {#X Load }
 
       {#X Load }
 
@@ -794,7 +794,7 @@ TYPE
 
       AListBox: PListBox; AEditCommand, ANewCommand: Word);
 
       AListBox: PListBox; AEditCommand, ANewCommand: Word);
 
     constructor Load(var S: TStream);
 
     constructor Load(var S: TStream);
 
     procedure HandleEvent(var Event: TEvent); virtual;
 
     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 }
 
   end;  { of TListDlg }
 
 
 
 
 
@@ -4204,7 +4204,10 @@ END;
 
 END.
 
 END.
 
 {
 
 {
 
  $Log$
 
  $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
 
    * old logs removed and tabs fixed
 
 
 
  Revision 1.17  2002/05/31 12:35:21  pierre
 
  Revision 1.17  2002/05/31 12:35:21  pierre

+ 4 - 4
fv/statuses.pas
View File 

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

+ 5 - 1
fv/validate.pas
View File 

@@ -682,6 +682,7 @@ VAR I, J: Byte; Rslt: TPicResult; Reprocess: Boolean;
 
 
 
    BEGIN
 
    BEGIN
 
      Incomp := False;                                 { Clear incomplete }
 
      Incomp := False;                                 { Clear incomplete }
 
+     InCompJ:=0;                                      { set to avoid a warning }
 
      OldI := I;                                       { Hold I count }
 
      OldI := I;                                       { Hold I count }
 
      OldJ := J;                                       { Hold J count }
 
      OldJ := J;                                       { Hold J count }
 
      Repeat
 
      Repeat
 
@@ -1058,7 +1059,10 @@ END.
 
 
 
 {
 
 {
 
  $Log$
 
  $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
 
    * old logs removed and tabs fixed
 
 
 
 }
 
 }

+ 7 - 4
fvision/dialogs.pas
View File 

@@ -615,7 +615,7 @@ TYPE
 
         associated with the cluster item that was pressed to the check boxes'
 
         associated with the cluster item that was pressed to the check boxes'
 
         owner. }
 
         owner. }
 
       {#X CommandList }
 
       {#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#
 
       { Store calls the inherited Store method then writes the #CommandList#
 
         to the stream. }
 
         to the stream. }
 
       {#X Load }
 
       {#X Load }
 
@@ -653,7 +653,7 @@ TYPE
 
         associated with the cluster item that was pressed to the check boxes
 
         associated with the cluster item that was pressed to the check boxes
 
         owner. }
 
         owner. }
 
       {#X CommandList MovedTo }
 
       {#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#
 
       { Store calls the inherited Store method then writes the #CommandList#
 
         to the stream. }
 
         to the stream. }
 
       {#X Load }
 
       {#X Load }
 
@@ -794,7 +794,7 @@ TYPE
 
       AListBox: PListBox; AEditCommand, ANewCommand: Word);
 
       AListBox: PListBox; AEditCommand, ANewCommand: Word);
 
     constructor Load(var S: TStream);
 
     constructor Load(var S: TStream);
 
     procedure HandleEvent(var Event: TEvent); virtual;
 
     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 }
 
   end;  { of TListDlg }
 
 
 
 
 
@@ -4204,7 +4204,10 @@ END;
 
 END.
 
 END.
 
 {
 
 {
 
  $Log$
 
  $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
 
    * old logs removed and tabs fixed
 
 
 
  Revision 1.17  2002/05/31 12:35:21  pierre
 
  Revision 1.17  2002/05/31 12:35:21  pierre

+ 4 - 4
fvision/statuses.pas
View File 

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

+ 5 - 1
fvision/validate.pas
View File 

@@ -682,6 +682,7 @@ VAR I, J: Byte; Rslt: TPicResult; Reprocess: Boolean;
 
 
 
    BEGIN
 
    BEGIN
 
      Incomp := False;                                 { Clear incomplete }
 
      Incomp := False;                                 { Clear incomplete }
 
+     InCompJ:=0;                                      { set to avoid a warning }
 
      OldI := I;                                       { Hold I count }
 
      OldI := I;                                       { Hold I count }
 
      OldJ := J;                                       { Hold J count }
 
      OldJ := J;                                       { Hold J count }
 
      Repeat
 
      Repeat
 
@@ -1058,7 +1059,10 @@ END.
 
 
 
 {
 
 {
 
  $Log$
 
  $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
 
    * old logs removed and tabs fixed
 
 
 
 }
 
 }