diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-11-07 15:58:18 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-11-07 15:58:18 +0200 |
commit | c900922247f7efcf0aba1845235eb7e012e3bcd8 (patch) | |
tree | f290339de4b69aa93077367264a71c3eae4c8197 /src | |
parent | 0511852534c17faad6e22d2fe5823cc23a490280 (diff) | |
download | fpGUI-c900922247f7efcf0aba1845235eb7e012e3bcd8.tar.xz |
some coding format changes.
Diffstat (limited to 'src')
-rw-r--r-- | src/HelpTopic.pas | 6 | ||||
-rw-r--r-- | src/docdump/docdump.lpi | 9 | ||||
-rw-r--r-- | src/docdump/docdump.lpr | 2 |
3 files changed, 11 insertions, 6 deletions
diff --git a/src/HelpTopic.pas b/src/HelpTopic.pas index e04d65b6..ea32080b 100644 --- a/src/HelpTopic.pas +++ b/src/HelpTopic.pas @@ -353,9 +353,9 @@ begin _NumSlots := pTOCEntry^.numslots; Flags := _pTOCEntry^.flags; - p := pUInt8( _pTOCEntry ) + sizeof( TTOCEntryStart ); + p := pByte( _pTOCEntry ) + sizeof( TTOCEntryStart ); - if ( Flags and TOCEntryExtended ) > 0 then + if ( Flags and TOCEntryExtended ) = TOCEntryExtended then begin pExtendedInfo := pExtendedTOCEntry( p ); inc( p, sizeof( TExtendedTOCEntry ) ); @@ -1279,7 +1279,7 @@ begin // Read slot data pSlotNumber := _pSlotNumbers; - for i := 0 to _NumSlots - 1 do + for i := 1 to _NumSlots do begin SlotNumber := pSlotNumber^; diff --git a/src/docdump/docdump.lpi b/src/docdump/docdump.lpi index 610cb6e7..440c482c 100644 --- a/src/docdump/docdump.lpi +++ b/src/docdump/docdump.lpi @@ -23,7 +23,7 @@ <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> </local> </RunParams> - <Units Count="14"> + <Units Count="15"> <Unit0> <Filename Value="docdump.lpr"/> <IsPartOfProject Value="True"/> @@ -93,6 +93,11 @@ <IsPartOfProject Value="True"/> <UnitName Value="readtoc"/> </Unit13> + <Unit14> + <Filename Value="u_Tools.pas"/> + <IsPartOfProject Value="True"/> + <UnitName Value="u_Tools"/> + </Unit14> </Units> </ProjectOptions> <CompilerOptions> @@ -100,7 +105,7 @@ <SearchPaths> <IncludeFiles Value="$(ProjOutDir)/"/> <OtherUnitFiles Value="../"/> - <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)/"/> + <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/> </SearchPaths> <Other> <CompilerPath Value="$(CompPath)"/> diff --git a/src/docdump/docdump.lpr b/src/docdump/docdump.lpr index 135a64ad..84077608 100644 --- a/src/docdump/docdump.lpr +++ b/src/docdump/docdump.lpr @@ -11,7 +11,7 @@ uses {$ENDIF}{$ENDIF} Classes, SysUtils, IPFFileFormatUnit, IPFEscapeCodes, CustApp, readheader, filestreamhelper, readextfiles, readstrings, iterator_intf, iterator_impl, - readnlsdata, readfonts, readcontrols, readtoc; + readnlsdata, readfonts, readcontrols, readtoc, u_Tools; type |