| | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：ISB1Click |
|---|
| | | 引用相依： |
|---|
| | | 方法描述：影像滾輪盒（ISB）的點擊處理。更新當前顯示的 ISB 對象，調整 Shape1 標記框 |
|---|
| | | 的位置以框選當前 ISB。根據 ISB 名稱與捲軸位置計算並更新 PageLV 清單中 |
|---|
| | | 的選取狀態（NowPage 與 ItemIndex）。 |
|---|
| | | 引用相依：DisplayISB, Shape1, PageLV |
|---|
| | | 方法描述：【影像顯示視窗點擊處理】 |
|---|
| | | 1. 焦點切換：將全域 DisplayISB 指向被點擊的視窗。 |
|---|
| | | 2. 標記同步：將選取框 Shape1 移至該視窗位置。 |
|---|
| | | 3. 清單同步：計算當前視窗對應的影像索引，同步更新 PageLV 的選取項。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.ISB1Click(Sender: TObject); |
|---|
| | | var |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：ISB1ImageMouseDown |
|---|
| | | 引用相依：LoadFromFile |
|---|
| | | 方法描述：影像滑鼠按下事件。設定當前 DisplayISB 並視情況取得焦點，更新 Shape1 的 |
|---|
| | | 選取框位置。同步更新 PageLV 的選取頁面。若處於特定模式（NowClick = -1） |
|---|
| | | 且按下左鍵，則啟動影像的拖曳操作（BeginDrag）。此外也會處理旋轉模式下的 |
|---|
| | | 影像載入。 |
|---|
| | | 引用相依：DisplayISB, BeginDrag, LoadFromFile |
|---|
| | | 方法描述：【影像滑鼠按下處理】 |
|---|
| | | 1. 狀態選取：更新選取視窗並同步 PageLV 索引。 |
|---|
| | | 2. 拖曳發起：若處於編輯模式 (NowClick = -1)，啟動 VCL 拖曳機制以便執行 |
|---|
| | | 跨視窗的影像調換。 |
|---|
| | | 3. 旋轉預載：若處於旋轉模式，強制重新載入原圖以確保旋轉基底正確。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.ISB1ImageMouseDown(Sender: TObject; Button: TMouseButton; |
|---|
| | | Shift: TShiftState; X, Y: Integer); |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：ISB1ImageMouseUp |
|---|
| | | 引用相依：TJpegGraphic, SaveQuality, SaveToFile |
|---|
| | | 方法描述：影像滑鼠放開事件。處理多種滑鼠模式：在 mmDelete 模式下觸發刪除功能；在 |
|---|
| | | 旋轉模式（mmR90等）下儲存旋轉後的影像檔案，並同步更新預覽圖（SelectISB） |
|---|
| | | 與清空檢核記錄。最後針對縮放或拖曳模式更新捲軸位置數據。 |
|---|
| | | 引用相依：TJpegGraphic, SaveToFile, FitPreViewISB, ClearErrini |
|---|
| | | 方法描述：【影像滑鼠放開處理（存檔觸發）】 |
|---|
| | | 1. 刪除模式：觸發 PM508Click 刪除影像。 |
|---|
| | | 2. 旋轉模式：將旋轉後的 Graphic 實體存回磁碟（JPG 採品質 30 壓縮）。 |
|---|
| | | 3. 連動：同步更新縮圖預覽 (FitPreViewISB) 並清空檢核紀錄。 |
|---|
| | | 4. 座標儲存：將縮放與捲動位置存入 ScrollRec 緩存。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.ISB1ImageMouseUp(Sender: TObject; Button: TMouseButton; |
|---|
| | | Shift: TShiftState; X, Y: Integer); |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：FindISB2View |
|---|
| | | 引用相依： |
|---|
| | | 方法描述：根據檢視模式，在畫面中尋找下一個可顯示影像的 TImageScrollBox。遍歷 ISB |
|---|
| | | 1-ISB8，檢查 FileName 是否為空；若已滿則會清空特定位置影像並重新開始， |
|---|
| | | 確保影像載入有對應視窗。 |
|---|
| | | 引用相依：Vmode, ISB1-8 |
|---|
| | | 方法描述：【尋找可用影像視窗】 |
|---|
| | | 依據檢視模式（1x1, 2x2, 2x3, 2x4）決定搜尋範圍。 |
|---|
| | | 1. 優先回傳目前 FileName 為空的 TImageScrollBox。 |
|---|
| | | 2. 若全滿，則循環清空並從第一個視窗重新開始。 |
|---|
| | | ============================================================================== } |
|---|
| | | Function TCB_IMGPSScanX.FindISB2View(Vmode:Integer):TImageScrollBox; //找空的ISB來顯示 |
|---|
| | | var |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：ImageScrollBox1NewGraphic |
|---|
| | | 引用相依：TDibGraphic, ConvertToBW |
|---|
| | | 引用相依：ConvertToBW, TDibGraphic |
|---|
| | | 方法描述：當載入新影像時觸發。將當前 Graphic 內容同步至黑白影像處理元件（ISB_BW） |
|---|
| | | ，若原始影像非黑白格式則執行 ConvertToBW 轉換。 |
|---|
| | | ============================================================================== } |
|---|
