paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 07:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more adaptions to FPC

Browse Source
This commit is contained in:
florian 1998-04-28 11:47:00 +00:00
parent f956607284
commit 0ae15e8b00
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fcl/classes.pp
View File

@ -1,7 +1,7 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 1993,97 by the Free Pascal development team Copyright (c) 1998 by the Free Pascal development team
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -14,12 +14,16 @@
unit Classes; unit Classes;
interface interface
uses uses
objpas; objpas;
type
{ extra types to compile with FPC }
Exception = class(TObject);
EOutOfMemory = class(Exception);
TRTLCriticalSection = class(TObject);
const const
@ -50,17 +54,19 @@ type
{ Text alignment types } { Text alignment types }
TAlignment = (taLeftJustify, taRightJustify, taCenter); TAlignment = (taLeftJustify, taRightJustify, taCenter);
TLeftRight = taLeftJustify..taRightJustify;
{ TLeftRight = taLeftJustify..taRightJustify; }
{ Types used by standard events } { Types used by standard events }
TShiftState = set of (ssShift, ssAlt, ssCtrl, TShiftState = set of (ssShift, ssAlt, ssCtrl,
ssLeft, ssRight, ssMiddle, ssDouble); ssLeft, ssRight, ssMiddle, ssDouble);
THelpContext = -MaxLongint..MaxLongint; { THelpContext = -MaxLongint..MaxLongint; }
{ Standard events } { Standard events }
TNotifyEvent = procedure(Sender: TObject) of object; TNotifyEvent = procedure(Sender: TObject) of object;
THelpEvent = function (Command: Word; Data: Longint; THelpEvent = function (Command: Word; Data: Longint;
var CallHelp: Boolean): Boolean of object; var CallHelp: Boolean): Boolean of object;
@ -259,11 +265,14 @@ type
{ IStringsAdapter interface } { IStringsAdapter interface }
{ Maintains link between TStrings and IStrings implementations } { Maintains link between TStrings and IStrings implementations }
{ !!!! Interfaces aren't supported by FPC
IStringsAdapter = interface IStringsAdapter = interface
['{739C2F34-52EC-11D0-9EA6-0020AF3D82DA}'] ['{739C2F34-52EC-11D0-9EA6-0020AF3D82DA}']
procedure ReferenceStrings(S: TStrings); procedure ReferenceStrings(S: TStrings);
procedure ReleaseStrings; procedure ReleaseStrings;
end; end;
}
IStringsAdapter = class(TObject);
{ TStrings class } { TStrings class }
@ -1003,7 +1012,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.3 1998-04-27 12:55:57 florian Revision 1.4 1998-04-28 11:47:00 florian
* more adaptions to FPC
Revision 1.3 1998/04/27 12:55:57 florian
+ uses objpas added + uses objpas added
Revision 1.2 1998/04/27 09:09:49 michael Revision 1.2 1998/04/27 09:09:49 michael