From 0756bf12d10cf1b7f78c571de0a9ad69cbaeb7ca Mon Sep 17 00:00:00 2001
From: curtis <curtis@i-mps.com>
Date: 星期一, 30 三月 2026 14:24:17 +0800
Subject: [PATCH] fix: 更新內部引用方法參照
---
doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.remainings.txt | 65 ++++++++++++++------------------
1 files changed, 29 insertions(+), 36 deletions(-)
diff --git a/separate/scanImp/CB_IMGPSScanImp_Main.pas b/doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.remainings.txt
similarity index 95%
copy from separate/scanImp/CB_IMGPSScanImp_Main.pas
copy to doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.remainings.txt
index febdbe3..3c82b23 100644
--- a/separate/scanImp/CB_IMGPSScanImp_Main.pas
+++ b/doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.remainings.txt
@@ -1,4 +1,5 @@
-unit CB_IMGPSScanImp;
+[Lines 1 - 1051]
+unit CB_IMGPSScanImp;
//TEST
{$WARN SYMBOL_PLATFORM OFF}
@@ -1049,41 +1050,33 @@
{ TCB_IMGPSScanX }
-{$I CB_IMGPSScanImp_UI.pas}{$I CB_IMGPSScanImp_Scan.pas}{$I CB_IMGPSScanImp_Data.pas}{$I CB_IMGPSScanImp_Utils.pas}initialization
- TActiveFormFactory.Create(
- ComServer,
- TActiveFormControl,
- TCB_IMGPSScanX,
- Class_CB_IMGPSScanX,
- 1,
- '',
- OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
- tmApartment);
+----------------------------------------
- {SetLicenseKey('5B4451E676A1D2976FBB0F3BB18341336AF114C80B5ABAE7F6926B1CAF671F44' +
- 'BD2F098CCEDA922F6389BFAE398DA6AEE67F97EEA0C17234C20D75C12173DBDA' +
- '594924D56DD8E342F454389C836AD880BB4352CA3BE62C4933B1BA3828E7462C' +
- '60514F2ECDAD322E6128D841F12D24DA00B623106D3F08EBCAA917D8A97CAA34' +
- '3D65F2DA567316457395BF9123EE53DF235D181F191A5712DBB27735284AA92D' +
- '5DFA0C8308308505F384707E900C6063F53F1BFF4C6972607955D1AE517B19D0' +
- '82CDD16301885403AD229D57BAEF98C056F31430861E5F68F339D658D72E1F92' +
- '63899412EC2D07891FE3AFD35F3E4A4390B2F0A8A1BF1B7D6160E5F1CC009B17'); }
- SetLicenseKey('4B2CF65E8C2A86CE8A0DD0F6A7DB03BC0B0126168B48AE4C27EBD78CAE75CF0F' +
- 'A612190861E0D99F6FAE3ED97AC1941B5E97843CFFCF705A3787989072D4EB2C' +
- 'AE6CAB3F5B69B86616ACC8A37AD6A2AB21C7BDD5C9AE1EDF9E4193D353805C9A' +
- '403631CE8A3D0803FEBB1BE4C209CE7A63B1298EF080EB34B8628CED567D2B68' +
- 'E777FAC58E2E32B7411FC217A04336231D1E861A93474759DAA6EDF53F6EB632' +
- 'A3055229A52F3053FB844754741409022DDE3DFB19473510F2BE63328E74BE20' +
- 'A6A29AA24878F91ADA9DF8CE1F320AF4DAF58EBF95D9BE761D70EEA274E19475' +
- '1C15948B184264C5C49E60493F3BCD2FFAE2CA8B021D00B96F45550C5F050D8A');
+[Lines 9996 - 10021]
+Function TCB_IMGPSScanX.CheckNeedCrop(Graphic:TDibGraphic):Boolean; //是否是A3要切影像
+Var
+ i,FormIDCount : Integer;
+begin
+ Result := False;
+ FormIDCount := 0;
+ if (Graphic.Width > (4 * Graphic.XDotsPerInch)) {or (Graphic.Height > (15 * Graphic.YDotsPerInch))} then
+ //if (Graphic.Width > (6 * Graphic.XDotsPerInch)) then
+ begin
+ for I := 1 to MpsBarcodeinf.Count do
+ begin
+ if (Length(MpsBarcodeinf.Text[i])=FormIDLength) and FormIDExists(MpsBarcodeinf.Text[i],False,0) then
+ begin
+ inc(FormIDCount);
+ end;
+ end;
+ end;
- SetLicenseKey('A6A94A8D91B08A9D58F300C0573EA9EF1B9DB0BF69B90E13B958DB4CB6B44F5A' +
- '4EE9CB22C9A68C2D07ED52ED4D13C755D890E4074996755361E6CDE2A6F1B563' +
- '5DDC8999AC4D71FB092EA9F1F87BFA25694FBF0D6D250087D2B39629713FCCB0' +
- 'D0A83135BC14FC63A4E8331CFF9E24C45C2D9CFD837EB70BAFDB79A75B7B97D5' +
- 'E9EB271685118C29D90A7C85E7793908989E295DA50021C795A448366026E975' +
- 'F49EA75B721B80427B99E5CF24A225FB498C07946ED7B806B483654C00D85C66' +
- 'E34215CA3EDEF1D4C3F5896090E97E1E2C9752BA2D5B49EE58CF19A0D374077F' +
- '6D13B90B6FED22D9EBC3AD6CDC76E595E08725BF2E12B8EF30A524A2E00504DF');
-end.
+//ShowMessage('FormIDCount='+IntToStr(FormIDCount)+#10#13+'MpsBarcodeinf.count='+IntToStr(MpsBarcodeinf.count));
+ if FormIDCount = 2 then
+ begin
+ Result := True;
+ end;
+end;
+
+----------------------------------------
--
Gitblit v1.8.0