~curtischang/CB_IMGPSScan.git

doom4ster

2017-11-30 105a96094ed1f62c8a71008f3d1b26a5fbc276cd

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

修改3個檔案

	CB_IMGPSScan.ocx	修補檔 \| 檢視 \| 原始 \| 究查 \| 歷程
	CB_IMGPSScanImp.dcu	修補檔 \| 檢視 \| 原始 \| 究查 \| 歷程
	CB_IMGPSScanImp.pas	5 ●●●●● 修補檔 \| 檢視 \| 原始 \| 究查 \| 歷程

 CB_IMGPSScan.ocx

Binary files differ

 CB_IMGPSScanImp.dcu

Binary files differ

 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

			@@ -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