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

LCL: reduced debugging

Browse Source 
git-svn-id: trunk@15478 -
This commit is contained in:
mattias 2008-06-20 11:13:01 +00:00
parent 3d2b9bab7e
commit 944fedc64f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/icon.inc
View File

@ -510,7 +510,10 @@ begin
IconDir[n].dwImageOffset := LEtoN(IconDir[n].dwImageOffset); IconDir[n].dwImageOffset := LEtoN(IconDir[n].dwImageOffset);
{$endif} {$endif}
{$IFDEF VerboseLCLTodos}
{$note remove this debugging code}
DumpDirEntry(n, IconDir[n]); DumpDirEntry(n, IconDir[n]);
{$ENDIF}
AStream.Seek(StreamStart + IconDir[n].dwImageOffset, soBeginning); AStream.Seek(StreamStart + IconDir[n].dwImageOffset, soBeginning);