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
|
