paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: less hints

Browse Source 
git-svn-id: trunk@43913 -
This commit is contained in:
mattias 2014-02-06 09:32:52 +00:00
parent 78aa25c2a6
commit d665320fba
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/lazloggerbase.pas
View File

@ -107,7 +107,7 @@ type
procedure IncreaseIndent({%H-}LogGroup: PLazLoggerLogGroup); overload; virtual;
procedure DecreaseIndent({%H-}LogGroup: PLazLoggerLogGroup); overload; virtual;
procedure IndentChanged; virtual;
function GetBlockHandler(AIndex: Integer): TLazLoggerBlockHandler; virtual;
function GetBlockHandler({%H-}AIndex: Integer): TLazLoggerBlockHandler; virtual;
procedure DoDbgOut(const {%H-}s: string); virtual;
procedure DoDebugLn(const {%H-}s: string); virtual;
@ -134,8 +134,8 @@ type
property LogGroupList: TLazLoggerLogGroupList read GetLogGroupList;
property UseGlobalLogGroupList: Boolean read FUseGlobalLogGroupList write SetUseGlobalLogGroupList;
procedure AddBlockHandler(AHandler: TLazLoggerBlockHandler); virtual;
procedure RemoveBlockHandler(AHandler: TLazLoggerBlockHandler); virtual;
procedure AddBlockHandler({%H-}AHandler: TLazLoggerBlockHandler); virtual;
procedure RemoveBlockHandler({%H-}AHandler: TLazLoggerBlockHandler); virtual;
function BlockHandlerCount: Integer; virtual;
property BlockHandler[AIndex: Integer]: TLazLoggerBlockHandler read GetBlockHandler;
public