diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-09-30 00:03:47 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-09-30 00:03:47 +0200 |
commit | e4af5f377c081a937395cc59af9e1b131a46cf27 (patch) | |
tree | a7fdc61dfe71c70e9634bc8c5ccc0434799f2e3d /src | |
parent | bf4589d2bd16a9885aba550a4f912be29c1d3792 (diff) | |
download | fpGUI-e4af5f377c081a937395cc59af9e1b131a46cf27.tar.xz |
Moved the ProfileEvent calls and enabled DEBUG define where I need it.
Signed-off-by: Graeme Geldenhuys <graemeg@gmail.com>
Diffstat (limited to 'src')
-rw-r--r-- | src/HelpFile.pas | 14 | ||||
-rw-r--r-- | src/nvNullObjects.pas | 3 | ||||
-rw-r--r-- | src/nvUtilities.pas | 3 |
3 files changed, 8 insertions, 12 deletions
diff --git a/src/HelpFile.pas b/src/HelpFile.pas index 590825dc..1ef1fe9e 100644 --- a/src/HelpFile.pas +++ b/src/HelpFile.pas @@ -150,22 +150,16 @@ begin end; procedure THelpFile.ReadHeader; -var - p: PByte; - pend: PByte; begin -writeln('DEBUG: THelpFile.ReadHeader >>>>'); - p := _Data; - pend := _Data + SizeOf(_Header); - writeln('SizeOf(_Header) = ', SizeOf(_Header)); +ProfileEvent('THelpFile.ReadHeader >>>>'); Move(_Data^, _Header, SizeOf(_Header)); -// MemCopy(_Data, _Header, sizeof(_Header)); +ProfileEvent('title=' + _Header.title); if _Header.ID <> $5348 then raise EHelpFileException.Create( 'File doesn''t appear to be an OS/2 Help document (header ID not correct)' ); _Title := _Header.Title; -writeln('DEBUG: THelpFile.ReadHeader <<<<<'); +ProfileEvent('THelpFile.ReadHeader <<<<<'); end; constructor THelpFile.Create( const FileName: string; @@ -329,6 +323,7 @@ type procedure THelpFile.ReadFontTable; begin + { TODO : ReadFontTable } end; procedure THelpFile.GetImages( ImageOffsets: TList; @@ -341,6 +336,7 @@ begin Images.Clear; for ListIndex:= 0 to ImageOffsets.Count - 1 do begin + { TODO -oGraeme : Double check pointer conversion } ImageOffset := longint( ImageOffsets[ ListIndex ] ); try Bitmap:= THelpBitmap.CreateFromHelpFile( _Data diff --git a/src/nvNullObjects.pas b/src/nvNullObjects.pas index b9fcd446..0dccf855 100644 --- a/src/nvNullObjects.pas +++ b/src/nvNullObjects.pas @@ -2,9 +2,6 @@ unit nvNullObjects; {$mode objfpc}{$H+} -// disable to remove debugging output -{$Define DEBUG} - interface uses diff --git a/src/nvUtilities.pas b/src/nvUtilities.pas index af10cd89..212ac8e8 100644 --- a/src/nvUtilities.pas +++ b/src/nvUtilities.pas @@ -2,6 +2,9 @@ unit nvUtilities; {$mode objfpc}{$H+} +// disable to remove debugging output +{$Define DEBUG} + interface uses |