From 524eea3312ebc07fd6e1dc94594d33c6a69d5ef5 Mon Sep 17 00:00:00 2001
From: curtis <curtis@i-mps.com>
Date: 星期二, 31 三月 2026 09:32:51 +0800
Subject: [PATCH] fix: 型別更新 1) 新增 TShape, TMemo, TMenuItem, TImageScrollBox 2) 理清 Delphi 相依使用: IISUnit, MPSBarcode, IISImageProcess 3) 方法說明/Mermaid 生成
---
reassemble/CB_IMGPSScanImp.misc.pas | 33 +++++++++++++++++++--------------
1 files changed, 19 insertions(+), 14 deletions(-)
diff --git a/reassemble/CB_IMGPSScanImp.misc.pas b/reassemble/CB_IMGPSScanImp.misc.pas
index 6c79aa4..4156b0b 100644
--- a/reassemble/CB_IMGPSScanImp.misc.pas
+++ b/reassemble/CB_IMGPSScanImp.misc.pas
@@ -1,10 +1,11 @@
{ ==============================================================================
方法名稱：GetCurrentVersionNo
- 引用相依：
- 方法描述：獲取當前模組的版本號。透過 GetModuleFileName 獲取檔案路徑，再利用 GetF
- ileVersionInfoSize 和 GetFileVersionInfo 讀取版本資訊。接著從 VarFile
- Info\Translation 取得語系資訊，最後從 StringFileInfo 中提取 FileVersi
- on 並回傳為字串。
+ 引用相依：Windows Version API (GetFileVersionInfo)
+ 方法描述：【獲取元件實體版本號】
+ 1. 獲取路徑：透過 GetModuleFileName 取得目前執行檔 (OCX) 的實體路徑。
+ 2. 讀取資源：利用 GetFileVersionInfo 載入資源區段中的版本資訊塊。
+ 3. 解析語系：從 Translation 取得多國語言編碼映射。
+ 4. 提取字串：從 StringFileInfo 提取 FileVersion 欄位，回傳標準版本字串。
============================================================================== }
function TCB_IMGPSScanX.GetCurrentVersionNo: String; //獲取自身版本號所需要
var
@@ -43,11 +44,12 @@
{ ==============================================================================
方法名稱：WMMOUSEWHEEL
- 引用相依：
- 方法描述：處理滑鼠滾輪事件。根據滾輪捲動方向（WHEEL_DELTA）對 ScrollBox1 或當前顯
- 示的影像捲軸盒（DisplayISB）進行垂直捲動（SB_Lineup 或 SB_LINEDOWN）。若
- 同時按下特定鍵（message.Keys=50），則會調整影像的縮放百分比（ZoomPercent
- ）。此外也會遍歷所有影像捲軸盒元件並對取得焦點的元件執行捲動操作。
+ 引用相依：ScrollBox1, DisplayISB, zmPercent
+ 方法描述：【全域滑鼠滾輪事件處理】
+ 處理整個 ActiveForm 的滾輪邏輯：
+ 1. 捲動邏輯：若 ScrollBox1 或影像盒取得焦點，執行垂直捲動。
+ 2. 縮放邏輯：偵測到 message.Keys=50 (組合鍵) 時，將影像盒切換至百分比
+ 縮放模式 (zmPercent)，並以 10% 為級距進行即時縮放。
============================================================================== }
procedure TCB_IMGPSScanX.WMMOUSEWHEEL(var message: TWMMouseWheel);
var
@@ -138,10 +140,13 @@
{ ==============================================================================
方法名稱：InitExistImgList
- 引用相依：LoadFromFile, LoadFileGetMD5
- 方法描述：初始化已存在的影像清單。讀取案件路徑下 Download\Context.dat 的檔案內
- 容，計算每個檔案的 MD5 雜湊值並存入 ExistImgList，同時將處理過程記錄至
- 日誌檔。
+ 引用相依：LoadFileGetMD5, ExistImgList, LogFile1
+ 方法描述：【初始化歷史影像 MD5 清單】
+ 在補件或異動模式下，掃描 Download 目錄。
+ 1. 遍歷：讀取 Context.dat 檔案。
+ 2. 計算：對每個檔案呼叫 LoadFileGetMD5 計算指紋。
+ 3. 記錄：將 MD5 存入 ExistImgList 並同步寫入日誌，用於後續判定哪些
+ 影像是「舊有的」以實施保護邏輯。
============================================================================== }
procedure TCB_IMGPSScanX.InitExistImgList(casepath: String);
var
--
Gitblit v1.8.0