[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.14,1.15

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20764/Source/Core

Modified Files:
	InstantPersistence.pas 
Log Message:
bug-fix TInstantGraphic with some Jpeg file format

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** InstantPersistence.pas	17 Nov 2004 20:59:48 -0000	1.14
--- InstantPersistence.pas	19 Nov 2004 13:14:12 -0000	1.15
***************
*** 2817,2821 ****
           ( ( p[0] = #77 ) and ( p[1] = #77 ) and ( p[2] = #42 ) and ( p[3] =#0 ) ) then Result := gffTiff
        { jpg format }
!       else if ( p[6] = #74 ) and ( p[7] = #70 ) and ( p[8] = #73 ) and ( p[9] = #70 ) then Result := gffJpeg
        { png format }
        else if ( p[0] = #137 ) and ( p[1] = #80 ) and ( p[2] = #78 ) and ( p[3] = #71 ) and
--- 2817,2822 ----
           ( ( p[0] = #77 ) and ( p[1] = #77 ) and ( p[2] = #42 ) and ( p[3] =#0 ) ) then Result := gffTiff
        { jpg format }
!       else if ( p[6] = #74 ) and ( p[7] = #70 ) and ( p[8] = #73 ) and ( p[9] = #70 ) or
!               ( p[6] = #69 ) and ( p[7] = #120 ) and ( p[8] = #105 ) and ( p[9] = #102 ) then Result := gffJpeg
        { png format }
        else if ( p[0] = #137 ) and ( p[1] = #80 ) and ( p[2] = #78 ) and ( p[3] = #71 ) and