* overload fix

fcl/inc/classesh.inc

@@ -100,10 +100,10 @@ type
     // Extra additions
     ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum, ssScroll);
 
-//  THelpContext = -MaxLongint..MaxLongint;
+  THelpContext = -MaxLongint..MaxLongint;
   THelpType = (htKeyword, htContext);
 
-//  TShortCut = Low(Word)..High(Word);
+  TShortCut = Low(Word)..High(Word);
 
 { Standard events }
 
@@ -511,8 +511,8 @@ type
   public
     function Read(var Buffer; Count: Longint): Longint; virtual; abstract;
     function Write(const Buffer; Count: Longint): Longint; virtual; abstract;
-    function Seek(Offset: Longint; Origin: Word): Longint; virtual;
-    function Seek(Offset: Int64; Origin: TSeekOrigin): Int64; virtual;
+    function Seek(Offset: Longint; Origin: Word): Longint; virtual; overload;
+    function Seek(Offset: Int64; Origin: TSeekOrigin): Int64; virtual; overload;
     procedure ReadBuffer(var Buffer; Count: Longint);
     procedure WriteBuffer(const Buffer; Count: Longint);
     function CopyFrom(Source: TStream; Count: Int64): Int64;
@@ -1294,7 +1294,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
 
 {
   $Log$
-  Revision 1.14  2001-10-29 19:38:13  michael
+  Revision 1.15  2001-11-20 18:53:29  peter
+    * overload fix
+
+  Revision 1.14  2001/10/29 19:38:13  michael
   + Added TRect definition
 
   Revision 1.13  2001/10/28 17:16:44  peter

fcl/inc/ssockets.pp

@@ -125,8 +125,8 @@ type
   Protected
     Procedure DoConnect(ASocket : longint); Virtual;
   Public
-    Constructor Create(ASocket : longint); Override;
-    Constructor Create(const AHost: String; APort: Word);
+    Constructor Create(ASocket : longint); Override; Overload;
+    Constructor Create(const AHost: String; APort: Word); Overload;
     Property Host : String Read FHost;
     Property Port : Word Read FPort;
   end;
@@ -137,8 +137,8 @@ type
   Protected
     Procedure DoConnect(ASocket : longint); Virtual;
   Public
-    Constructor Create(ASocket : Longint);
-    Constructor Create(AFileName : String);
+    Constructor Create(ASocket : Longint); Overload;
+    Constructor Create(AFileName : String); Overload;
     Property FileName : String Read FFileName;
   end;
 
@@ -515,7 +515,10 @@ end.
 
 {
   $Log$
-  Revision 1.6  2001-04-20 18:50:00  marco
+  Revision 1.7  2001-11-20 18:53:29  peter
+    * overload fix
+
+  Revision 1.6  2001/04/20 18:50:00  marco
    * FreeVSD fixy
 
   Revision 1.5  2001/04/08 11:26:03  peter