paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 17:46:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Introduced interface exceptions

Browse Source 
git-svn-id: trunk@4472 -
This commit is contained in:
marc 2003-08-12 23:51:51 +00:00
parent e691fb61ec
commit 8a07b8bba2
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfacebase.pp
View File

@ -49,8 +49,8 @@ type
{ TInterfaceBase } { TInterfaceBase }
{ {
@abstract(Short description of the class.) @abstract(Short description of the class.)
Introduced by Marc Weustink <weus@quicknet.nl> Introduced by Marc Weustink <marc@dommelstein.net>
Currently maintained by Marc Weustink <weus@quicknet.nl> Currently maintained by Marc Weustink <marc@dommelstein.net>
} }
TInterfaceBase = Class(TObject) TInterfaceBase = Class(TObject)
protected protected
@ -74,6 +74,13 @@ type
{$I winapih.inc} {$I winapih.inc}
{$UNDEF IF_BASE_MEMBER} {$UNDEF IF_BASE_MEMBER}
end; end;
type
EInterfaceException = class(Exception);
EInterfaceError = class(EInterfaceException);
EInterfaceCritical = class(EInterfaceException);
EInterfaceWarning = class(EInterfaceException);
{$I defaultbitbtnimages.inc} {$I defaultbitbtnimages.inc}
{$I messagedialogpixmaps.inc} {$I messagedialogpixmaps.inc}
@ -111,6 +118,9 @@ end.
{ {
$Log$ $Log$
Revision 1.31 2003/08/12 23:51:51 marc
+ Introduced interface exceptions
Revision 1.30 2002/08/17 23:41:34 mattias Revision 1.30 2002/08/17 23:41:34 mattias
many clipping fixes many clipping fixes