修正表單匯彩色JPG時體積變大的問題

doom4ster

2017-11-30 105a96094ed1f62c8a71008f3d1b26a5fbc276cd

 CB_IMGPSScanImp.pas

@@ -2924,6 +2924,11 @@
            End;
          End;
          // Rotate(ISB.Graphic,MpsBarcodeinf.r180[n]); //20170705 加入有條碼就轉正
          if iGraphic.Palette.palNumEntries = 0 then  //20171130 彩色 會為0  黑白 為2
          begin
            iGraphic.Compression:=tcJPEG;
            iGraphic.JpegQuality:=70;
          end;

          If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then
          Begin