paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 14:10:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove virtual modifer from store methods

Browse Source
This commit is contained in:
pierre 2002-09-09 08:14:47 +00:00
parent 5a5275cbe8
commit 5ff5748849
6 changed files with 32 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fv/dialogs.pas
View File

@ -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

8
fv/statuses.pas
View File

@ -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 }

6
fv/validate.pas
View File

@ -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
}

11
fvision/dialogs.pas
View File

@ -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

8
fvision/statuses.pas
View File

@ -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 }

6
fvision/validate.pas
View File

@ -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
}