| | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：DrawDocItem2 |
|---|
| | | 引用相依：FileExists, LoadFromFile, DirectoryExists |
|---|
| | | 方法描述：在樹狀結構中繪製指定案件的文件與表單節點。讀取 CaseDocNo.dat 取得文件 |
|---|
| | | 清單，逐一建立文件節點並根據引用狀態設定圖示。接著在文件節點下建立表單 |
|---|
| | | 節點，區分制式表單與自定義表單。包含入庫過濾與附件處理，是樹狀 UI 呈現 |
|---|
| | | 的核心。 |
|---|
| | | 引用相依：CaseDocNo.dat, CaseDocNo_Copies.dat, LASTEST_FORM_INF_List, GetUseCase |
|---|
| | | 方法描述：【深度建構案件文件樹】 |
|---|
| | | 此方法將本地磁碟結構轉化為多層級 UI 樹狀結構。 |
|---|
| | | 1. 根層：建立案件案號節點。 |
|---|
| | | 2. 目錄層：讀取 CaseDocNo.dat，為每個文件子目錄建立節點，顯示文件名稱、 |
|---|
| | | 目錄原名與預期份數。根據 GetUseCase 標記「引入/被引用」特殊圖示。 |
|---|
| | | 3. 頁面層：遍歷子目錄影像，提取 FormID，對應顯示為表單名稱節點。 |
|---|
| | | 4. 補件過濾：補件模式下，僅顯示當次掃瞄的新影像節點。 |
|---|
| | | 5. 特殊處理：處理附件 (Attach) 目錄與自定義 (ZZZZZ) 文件節點。 |
|---|
| | | ============================================================================== } |
|---|
| | | Function TCB_IMGPSScanX.DrawDocItem2(CaseNode : TTreenode;Caseno:String):Boolean; //畫出文件名稱的Tree |
|---|
| | | Var |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：TreeView1Click |
|---|
| | | 引用相依：FileExists, LoadFromFile |
|---|
| | | 方法描述：處理樹狀結構（TreeView）的點擊事件，是切換顯示內容的核心入口。根據點擊的 |
|---|
| | | 層級（案件、文件、表單），重置全域變數並設定對應的 DisplayPath、NowDocNo |
|---|
| | | 與 NowFormCode。接著載入並顯示該層級對應的影像與附件清單，同時動態調整 |
|---|
| | | 按鈕與選單的可用性。 |
|---|
| | | 引用相依：DisplayPath, NowDocDir, LoadImgFile, ReadCaseIndex, PageLV |
|---|
| | | 方法描述：【樹狀結構選取點擊處理】 |
|---|
| | | 本系統導航的核心中心點。 |
|---|
| | | 1. 狀態重置：清空當前所有 NowXxxx 全域變數。 |
|---|
| | | 2. 層級識別： |
|---|
| | | - 案件層：設定 DisplayPath，讀取案件索引，載入該案所有影像至預覽區。 |
|---|
| | | - 文件層：鎖定 NowDocDir，僅載入該目錄影像，同步更新附件清單。 |
|---|
| | | - 表單層：鎖定 NowFormCode，僅顯示特定表單頁面。 |
|---|
| | | 3. UI 權限：根據選取層級動態啟用「追加掃瞄」、「上傳」、「歸類」等按鈕。 |
|---|
| | | 4. 縮圖連動：同步產生 PageLV 頁碼清單供快速跳轉。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.TreeView1Click(Sender: TObject); |
|---|
| | | Var |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：TreeView1DragDrop |
|---|
| | | 引用相依：RenameFile, CopyFile, DeleteImageFile, LoadFromFile, SaveToFile, _De |
|---|
| | | lTree, ReSortFileName |
|---|
| | | 方法描述：處理樹狀結構的拖放操作，實現影像的快速歸類或跨案件移動。當使用者將影像 |
|---|
| | | 縮圖拖至樹狀節點時，程序會判斷目標層級，執行實際的檔案搬移（Copy/Delete |
|---|
| | | ）與更名，同步更新 Context.dat 索引檔案，並重新整理樹狀顯示與筆數統計。 |
|---|
| | | 引用相依：CopyFile, DeleteImageFile, ReSortFileName, DrawDocItem2, ClearErrini |
|---|
| | | 方法描述：【樹狀結構：執行影像拖放歸類】 |
|---|
| | | 將影像縮圖拖至樹狀節點，實現快速分類。 |
|---|
| | | 1. 目標識別：解析 X,Y 座標，判斷目標為文件 (Level 2) 或表單 (Level 3) 節點。 |
|---|
| | | 2. 實體遷移： |
|---|
| | | - 同案件：執行檔案更名、複製並刪除原檔案，更新 Context。 |
|---|
| | | - 跨案件：跨磁碟目錄遷移檔案，同步建立目標案的文件結構。 |
|---|
| | | 3. 索引與排序：呼叫 ReSortFileName 重新整理來源與目標目錄的序號。 |
|---|
| | | 4. 狀態連動：重新繪製案件樹，清空兩案的檢核記錄，並重載筆數統計。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); |
|---|
| | | var |
|---|
