Changeset 521 for GraphicTest/Packages/bgrabitmap/bgrawritelzp.pas
- Timestamp:
- Apr 17, 2019, 12:58:41 AM (5 years ago)
- Location:
- GraphicTest
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
GraphicTest
- Property svn:ignore
-
old new 8 8 GraphicTest.lps 9 9 GraphicTest.dbg 10 heaptrclog.trc
-
- Property svn:ignore
-
GraphicTest/Packages/bgrabitmap/bgrawritelzp.pas
r494 r521 148 148 begin 149 149 IncludeThumbnail := false; 150 header.compressionMode:= CompressionMode; 150 header.compressionMode:= CompressionMode; //update field for thumbnail 151 151 end; 152 152 153 153 header.previewOffset:= Str.Position - startPos; 154 154 if Compression = lzpRLE then 155 WriteRLEImage(Str, Img )155 WriteRLEImage(Str, Img, Caption) 156 156 else 157 157 begin 158 158 compBmp := TBGRACompressableBitmap.Create(Img as TBGRABitmap); 159 compBmp.Caption := Caption; 159 160 compBmp.WriteToStream(Str); 160 161 compBmp.Free;
Note:
See TracChangeset
for help on using the changeset viewer.