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

* Filter on events

Browse Source 
git-svn-id: trunk@17529 -
This commit is contained in:
michael 2011-05-23 11:51:44 +00:00
parent 38a7be5cca
commit a6e8ae39d2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-base/src/custapp.pp
View File

@ -22,9 +22,13 @@ uses SysUtils,Classes;
Type Type
TExceptionEvent = Procedure (Sender : TObject; E : Exception) Of Object; TExceptionEvent = Procedure (Sender : TObject; E : Exception) Of Object;
TEventLogTypes = Set of TEventType;
{ TCustomApplication }
TCustomApplication = Class(TComponent) TCustomApplication = Class(TComponent)
Private Private
FEventLogFilter: TEventLogTypes;
FOnException: TExceptionEvent; FOnException: TExceptionEvent;
FTerminated : Boolean; FTerminated : Boolean;
FHelpFile, FHelpFile,
@ -79,6 +83,7 @@ Type
Property OptionChar : Char Read FoptionChar Write FOptionChar; Property OptionChar : Char Read FoptionChar Write FOptionChar;
Property CaseSensitiveOptions : Boolean Read FCaseSensitiveOptions Write FCaseSensitiveOptions; Property CaseSensitiveOptions : Boolean Read FCaseSensitiveOptions Write FCaseSensitiveOptions;
Property StopOnException : Boolean Read FStopOnException Write FStopOnException; Property StopOnException : Boolean Read FStopOnException Write FStopOnException;
Property EventLogFilter : TEventLogTypes Read FEventLogFilter Write FEventLogFilter;
end; end;
var CustomApplication : TCustomApplication = nil; var CustomApplication : TCustomApplication = nil;