pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Be case insensitive while parsing Pascal Code, log warning on XDS generation, fix AV (TPasUnresolvedTypeRef handling)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3823 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-12-04 13:11:07 +00:00
parent 49b8618253
commit 00128bbf70
7 changed files with 104 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
wst/trunk/ws_helper/logger_intf.pas
View File

@@ -20,13 +20,17 @@ uses
type
TMessageType = ( mtInfo, mtError );
TMessageType = ( mtInfo, mtWarning, mtError );
const
MessageTypeNames : array[TMessageType] of string = ( 'Information', 'Error' );
MessageTypeNames : array[TMessageType] of string = (
'Information', 'Warning', 'Error'
);
type
TOnLogMessageEvent = procedure (const AMsgType : TMessageType; const AMsg : string) of object;
ILogger = interface
['{158C90B5-BAC3-40A1-B471-C9327692A3BF}']
procedure Log(const AMsgType : TMessageType; const AMsg : string);overload;