paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 05:38:13 +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 }
{
@abstract(Short description of the class.)
Introduced by Marc Weustink <weus@quicknet.nl>
Currently maintained by Marc Weustink <weus@quicknet.nl>
Introduced by Marc Weustink <marc@dommelstein.net>
Currently maintained by Marc Weustink <marc@dommelstein.net>
}
TInterfaceBase = Class(TObject)
protected
@ -74,6 +74,13 @@ type
{$I winapih.inc}
{$UNDEF IF_BASE_MEMBER}
end;
type
EInterfaceException = class(Exception);
EInterfaceError = class(EInterfaceException);
EInterfaceCritical = class(EInterfaceException);
EInterfaceWarning = class(EInterfaceException);
{$I defaultbitbtnimages.inc}
{$I messagedialogpixmaps.inc}
@ -111,6 +118,9 @@ end.
{
$Log$
Revision 1.31 2003/08/12 23:51:51 marc
+ Introduced interface exceptions
Revision 1.30 2002/08/17 23:41:34 mattias
many clipping fixes