{ ============================================================================== 方法名稱：PM401Click 引用相依：GetNoNameCase, Str2Dir, RenameFile, SaveToFile, FileExists, LoadFrom File 方法描述：影像列表右鍵選單功能：從指定頁面分出新案。確認使用者選取的分案起點（不 能為第一頁）後，取得新的流水案號並建立目錄。將原案件中該頁碼之後的所有 影像檔案更名並搬移至新案目錄，同步更新原案與新案的 Context.dat 與 Cas eIndex.dat。完成後重新載入影像列表並提示完成。 ============================================================================== } procedure TCB_IMGPSScanX.PM401Click(Sender: TObject); var i : Integer; FromIndex : Integer; CaseID : String; NewPath : String; OldName,NewName:String; S : TStringlist; begin S := TStringlist.Create; try FromIndex := PageLv.ItemIndex; if FromIndex = 0 then begin Showmessage(_Msg('不能從第1頁分案')); Exit; end; If MessageDlg(Format(_Msg('是否確定從%d頁分出新案'),[PageLV.ItemIndex+1]),Mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then Exit; ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 CaseID := GetNoNameCase(ImageSavePath); NewPath := ImageSavePath + CaseID+'\'; Str2Dir(NewPath); for i := FromIndex to ContextList.Count - 1 do begin OldName := ContextList.Strings[i]; //NewName := Add_Zoo(S.Count+1,3)+Copy(OldName,4,length(OldName)-3); NewName := Add_Zoo(S.Count+1,3)+FileName2NoQuene_Filename(OldName); ReNameFile(DisplayPath+OldName,NewPath+NewName); S.Add(NewName); S.SaveToFile(NewPath+'Context.dat'); end; for i := ContextList.Count - 1 downto FromIndex do begin ContextList.Delete(i); ContextList.SaveToFile(DisplayPath+'Context.dat'); end; SetCaseList('I',MyTreeNode1.IndexOf(MyTreeNode2)+1,CaseID); if FileExists(DisplayPath+'CaseIndex.dat') then //把原經辦代號取出來再寫入新件裡 begin S.LoadFromFile(DisplayPath+'CaseIndex.dat'); end; DisplayPath := ''; ClearCaseIndex; WriteCaseIndex(NewPath); finally S.Free; end; LoadImgFile; Showmessage(_Msg('分案完成')); end; { ============================================================================== 方法名稱：PM402Click 引用相依： 方法描述：將影像列表（PageLV）中的所有項目設為選取狀態。 ============================================================================== } procedure TCB_IMGPSScanX.PM402Click(Sender: TObject); var i : Integer; begin for i := 0 to PageLV.Items.Count - 1 do begin PageLV.Items.Item[i].Selected := True; end; end; { ============================================================================== 方法名稱：PM403Click 引用相依： 方法描述：將影像列表（PageLV）中的所有項目設為取消選取狀態。 ============================================================================== } procedure TCB_IMGPSScanX.PM403Click(Sender: TObject); var i : Integer; begin for i := 0 to PageLV.Items.Count - 1 do begin PageLV.Items.Item[i].Selected := False; end; end; { ============================================================================== 方法名稱：PM404Click 引用相依： 方法描述：影像列表右鍵選單功能：文件歸類。開啟 TDocListForm 顯示可用的表單清單供 使用者選擇。確認後根據當前 TreeView 的選取層級（案件級別、文件級別或特 定表單），呼叫 PageReplaceFormID 將影像重新歸類至選定的表單類型。歸類完 成後重新繪製樹狀結構並清空檢核記錄，最後回到原先選取的節點。 ============================================================================== } procedure TCB_IMGPSScanX.PM404Click(Sender: TObject); var i : Integer; DocListForm : TDocListForm; OldName,NewName,Ext : String; FormID,FormName : String; PreNode2Name : String; begin PreNode2Name := ''; if TreeView1.Selected.Parent = MyTreeNode1 then PreNode2Name:= GetNode2Name(MyTreeNode2); ShowText := _Msg('文件歸類中,請稍候'); DataLoading(True,True); DocListForm := TDocListForm.Create(self); try InitialLanguage(PatchDlg); //載入多國語言 for i := 1 to FORM_INF_List.Count - 1 do begin FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i); FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i); if (FormID <> NowFormCode) and FormIDExists(FormID,True,0) then begin DocListForm.FormIDList.Add(FormID+'#@#'+FormName); With DocListForm.DocLV.Items.Add do begin Caption := FormID; SubItems.Add(FormName); end; end; end; if DocListForm.ShowModal = mrOk then begin FormID := DocListForm.DocLV.Selected.Caption; if (TreeView1.Selected.Level=1) then begin PageReplaceFormID(DisplayPath,'ALL',FormID); end Else if (TreeView1.Selected.Level=2) and (NowFormCode = '') then PageReplaceFormID(DisplayPath,'',FormID) Else begin PageReplaceFormID(DisplayPath,NowFormCode,FormID); end; //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno); //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改 DrawDocItem2(MytreeNode1,NowCaseno); ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 //Showmessage(_Msg('歸類完成')); //20101103 User要求拿掉 if PreNode2Name <> '' then // 回到原本點選的文件節點上 begin for i := 0 to MyTreeNode1.Count - 1 do begin if GetNode2Name(MyTreeNode1.Item[i]) = PreNode2Name then begin TreeView1.Selected := MyTreeNode1.Item[i]; Break; end; end; end; TreeView1click(self); end; finally DocListForm.Free; DataLoading(False,False); end; end; { ============================================================================== 方法名稱：PM601Click 引用相依：FileExists, LoadFromFile, DirectoryExists, CopyFile, SaveToFile, Del eteImageFile, RenameFile, ReSortFileName 方法描述：縮圖瀏覽區右鍵選單功能：文件歸類。針對所有被選取（由 Shape 標記）的影像， 開啟 TDocListForm 選擇目標表單。核心邏輯包含：判斷目標文件是否需要區分 份數、自動產生新的文件目錄或沿用既有目錄、根據檔案序號產生新檔名、執行 檔案複製並更新 ContextList。最後刪除原檔案、重新排序原目錄並重新繪製樹 狀結構。 ============================================================================== } procedure TCB_IMGPSScanX.PM601Click(Sender: TObject); var i : Integer; DocListForm : TDocListForm; OldName,NewName,Ext : String; FormID,FormName,DocNo,DocDir : String; PreNode2Name : String; iFormID : String; iISBName : String; iISB : TImageScrollBox; GoAtt : Boolean; AttLv : Integer; ST1 :TStringList; begin PreNode2Name := ''; ST1:=TStringList.Create; if TreeView1.Selected.Parent = MyTreeNode1 then PreNode2Name:= GetNode2Name(MyTreeNode2); ShowText := _Msg('文件歸類中,請稍候'); LogFile1.LogToFile(logTimeString+'縮圖 歸類開始'); DataLoading(True,True); GoAtt := False; if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then begin AttLv := TreeView1.Selected.Level; GoAtt := True; end; DocListForm := TDocListForm.Create(self); try InitialLanguage(DocListForm); //載入多國語言 //InitialLanguage(PatchDlg); //載入多國語言 DocListForm.CheckBox1.Visible:=False; for i := 1 to FORM_INF_List.Count - 1 do begin FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i); FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i); DocNo := GetSQLData(FORM_INF_List,'T1.DOC_NO',i)+GetSQLData(FORM_INF_List,'T1.DOC_VERSION',i); if not FormIDAppear(FormID) then Continue; //20170816 先秀全部 //Showmessage(FORM_INF_List.Text); //showmessage(inttostr(FORM_INF_List.Count)+#13+inttostr(self.Doc_Inf_List.Count)); if (FormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(FormID,False,i) then begin DocListForm.FormIDList.Add(FormID+'#@#'+FormName); With DocListForm.DocLV.Items.Add do begin Caption := FormID; SubItems.Add(FormName); end; end; end; if DocListForm.ShowModal = mrOk then begin for i := 0 to ComponentCount -1 do begin if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then begin iISBName := ShapeName2PreViewISBName(TShape(Components[i])); iISB := TImageScrollBox(FindComponent(iISBName)); OldName := ExtractFileName(iISB.FileName); Ext := ExtractFileExt(OldName); if DocListForm.CheckBox1.Checked then begin FormID := DocListForm.Edit1.Text; DocNo := GetNewCustomDocNo(DisplayPath,FormID); end else begin FormID := DocListForm.DocLV.Selected.Caption; DocNo := FormCode2DocNo(FormID); end; if DocNoDir2DocNo(Path2DocDir(ExtractFilePath(iISB.FileName),NowCaseno)) = DocNo then DocDir := Path2DocDir(ExtractFilePath(iISB.FileName),NowCaseNo) Else DocDir := FindLastestDocDir(NowCaseno,DocNo); //ShowMessage('DocNoNeedDiv(DocNo)='+BoolToStr(DocNoNeedDiv(DocNo),true)); //ShowMessage('DocDir='+DocDir); if DocNoNeedDiv(DocNo) then //要分份數 begin if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(NowCaseno,DocDir)>0)) or (DocDir = '') then begin DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo); end else begin //20171016 真對補件影響 所加的判斷 ST1.Clear; if FileExists(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat') then begin ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat'); if (ST1.Count > 0) and ISExistImg(ImageSavePath + NowCaseno+'\'+DocDir+'\'+ST1.Strings[0]) then //20181210 多增加判斷ST1>0 否則會有機會出現List out of bound Hong begin DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo); end; end; end; end Else //不分份數 begin if DocNo <> '' then DocDir := DocNo else //Attach 附件 DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo); end; if (not DirectoryExists(ImageSavePath + NowCaseno+'\'+DocDir+'\')) and (DocDir <> AttName) then SetDocNoList('A',-1,NowCaseno,DocDir,'1'); {if DocDir = '' then begin DocDir := DocNo; if DocNoNeedDiv(DocNo) then DocDir:=DocNo2DocNoDir(ImageSavePath+NowCaseno+'\',DocNo); SetDocNoList('A',-1,NowCaseno,DocDir); end; } LogFile1.LogToFile(logTimeString+'縮圖 FormID='+FormID); if Not DirectoryExists(ImageSavePath+NowCaseno+'\'+DocDir) then Mkdir(ImageSavePath+NowCaseno+'\'+DocDir); ContextList.Clear; if FileExists(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat') then ContextList.LoadFromFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat'); NewName := Add_Zoo(ContextList.Count+1,3)+'_'+FormID+Ext; CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False); {ContextList.Add(NewName); ContextList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat'); } SetContextList('A',-1,NowCaseNo,DocDir,NewName); DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo); //RenameFile(iISB.FileName,ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName); //ReNameContext(iISB.FileName,OldName,NewName); end; end; //ShowMessage('KKKK'); ReSortFileName(ExtractFilePath(iISB.FileName)); DrawDocItem2(MytreeNode1,NowCaseno); ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 if GoAtt then begin GotoAttach(AttLv); end; TreeView1click(self); end; finally DataLoading(False,False); DocListForm.Free; ST1.Free; end; end; { ============================================================================== 方法名稱：PM602Click 引用相依：Str2Dir, FileExists, LoadFromFile, CopyFile, SaveToFile, DeleteImage File, ReSortFileName 方法描述：縮圖瀏覽區右鍵選單功能：歸類至自定義文件。彈出對話框要求使用者輸入新文 件名稱，檢核名稱是否重複後產生新的自定義文件編號。接著將所有選取的影像 複製到新建立的文件目錄下，更新 ContextList並刪除原檔案。最後重新排序並 刷新樹狀顯示。 ============================================================================== } procedure TCB_IMGPSScanX.PM602Click(Sender: TObject); var FileList:TStringlist; SavePath : String; DocDir : String; CustomDocName : String; CustomDocNo : String; i : Integer; OldName,NewName,Ext : String; FormID,FormName,DocNo : String; PreNode2Name : String; iFormID : String; iISBName : String; iISB : TImageScrollBox; GoAtt : Boolean; AttLv : Integer; begin GoAtt := False; if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then begin AttLv := TreeView1.Selected.Level; GoAtt := True; end; if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then begin if FindCustomDocName(DisplayPath,CustomDocName) then begin Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[CustomDocName])); Exit; end; CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName); end; if CustomDocNo = '' then Exit; DocDir := CustomDocNo; LogFile1.LogToFile(logTimeString+'縮圖 歸類自訂文件 DocDir='+DocDir); SavePath := ImageSavePath+NowCaseNo+'\'+DocDir+'\'; Str2Dir(SavePath); SetDocNoList('A',-1,NowCaseNo,DocDir,'1'); FileList := TStringlist.Create; try FileList.Clear; if FileExists(SavePath+'Context.dat') then FileList.LoadFromFile(SavePath+'Context.dat'); for i := 0 to ComponentCount -1 do begin if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then begin iISBName := ShapeName2PreViewISBName(TShape(Components[i])); iISB := TImageScrollBox(FindComponent(iISBName)); OldName := ExtractFileName(iISB.FileName); Ext := ExtractFileExt(OldName); NewName := Add_Zoo(FileList.Count+1,3)+'_'+GetCustomFormID(ImageSavePath+NowCaseNo+'\',CustomDocNo)+ext; //Showmessage(iISB.FileName+#13+ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName); CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False); SetContextList('A',-1,NowCaseno,DocDir,NewName); FileList.Add(NewName); {FileList.Add(NewName); FileList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');} DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo); end; end; finally FileList.Free; end; ReSortFileName(ExtractFilePath(iISB.FileName)); DrawDocItem2(MytreeNode1,NowCaseno); ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 if GoAtt then begin GotoAttach(AttLv); end; TreeView1click(self); MyTreeNode1.Expand(True); end; { ============================================================================== 方法名稱：PM604Click 引用相依：DeskewImg, SaveToFile, LoadFromFile 方法描述：縮圖瀏覽區右鍵選單功能：自動去偏斜（Deskew）。遍歷所有選取的影像元件，對 其 Graphic 執行 DeskewImg 操作，重新繪製並將結果存回原檔案。 ============================================================================== } procedure TCB_IMGPSScanX.PM604Click(Sender: TObject); var i : Integer; iISBName : String; iISB : TImageScrollBox; begin //Showmessage(inttostr(ComponentCount)); for i := 0 to ComponentCount -1 do begin if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then begin //Showmessage(Components[i].Name); iISBName := ShapeName2PreViewISBName(TShape(Components[i])); iISB := TImageScrollBox(FindComponent(iISBName)); DeskewImg(iISB.Graphic); iISB.Redraw(True); iISB.SaveToFile(iISB.FileName); DisplayISB.LoadFromFile(DisplayISB.FileName,1); end; end; //TreeView1Click(nil); end; { ============================================================================== 方法名稱：PM605Click 引用相依：DeleteImageFile, ReSortFileName 方法描述：縮圖瀏覽區右鍵選單功能：刪除影像。在使用者確認後，遍歷所有選取的影像元 件，呼叫 DeleteImageFile 刪除實際檔案。刪除完成後，執行檔案重新排序（ReS ortFileName），更新樹狀結構上的頁數統計文字，並刷新顯示。 ============================================================================== } procedure TCB_IMGPSScanX.PM605Click(Sender: TObject); var i : Integer; iISBName,OldName : String; iISB : TImageScrollBox; begin if MessageDlg(_Msg('是否確定刪除??'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit; for i := 0 to ComponentCount -1 do begin if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then begin //Showmessage(Components[i].Name); iISBName := ShapeName2PreViewISBName(TShape(Components[i])); iISB := TImageScrollBox(FindComponent(iISBName)); //ShowMessage('iISB.FileName='+iISB.FileName); //ShowMessage(ExtractFilePath(iISB.FileName)+','+ExtractFileName(iISB.FileName)+','+NowCaseNo); // if (FMode = 'ESCAN') and (FModeName<>'異動件') then // begin // if ISExistImg(iISB.FileName) then // begin // ShowMessage(_Msg('此圖為非當次掃瞄，不可刪除')); // Exit; // end; // end; LogFile1.LogToFile(logTimeString+'縮圖刪除 iISB.FileName='+iISB.FileName); DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo); end; end; //ShowMessage('iISB.FileName='+iISB.FileName); ReSortFileName(ExtractFilePath(iISB.FileName)); DrawDocItem2(MytreeNode1,NowCaseno); MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]); NewTreeNodeRefresh; ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 TreeView1click(self); end; { ============================================================================== 方法名稱：PM101Click 引用相依：_DelTree, DirectoryExists, DeleteDocNoFile 方法描述：處理樹狀結構（TreeView）的右鍵刪除選單。根據選取的節點類型（新掃瞄件、案 件、文件或表單）執行不同範圍的刪除：包含刪除實體目錄、清空影像清單、更新 案件索引及檢核記錄。針對異動模式（ESCAN），若刪除後無影像則會重建空案件 以維持結構。 ============================================================================== } procedure TCB_IMGPSScanX.PM101Click(Sender: TObject); var P,v,v1,v2,ln,i : Integer; iDocDir,iDocNo : String; begin LogFile1.LogToFile(logTimeString+'Tree 按下刪除'); if TreeView1.Selected = NewTreeNode then //全刪 //新掃描件 begin LogFile1.LogToFile(logTimeString+'Tree 全部刪除'); If Messagedlg(_Msg('是否刪除所有案件?'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit; clearView(1); Application.ProcessMessages; _DelTree(ImageSavePath); if (FMode = 'ESCAN') then begin MkDir(ImageSavePath+FCaseID); CreateEmptyCase(ImageSavePath,FCaseID); end; LoadImgFile; Showmessage(_Msg('刪除完成')); end Else if TreeView1.Selected = MyTreeNode1 then //案件編號 begin LogFile1.LogToFile(logTimeString+'Tree 案件編號刪除 NowCaseno='+NowCaseno); If Messagedlg(Format(_Msg('編號(%s)是否刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit; clearView(1); Application.ProcessMessages; if (FMode = 'ESCAN') then begin for i := 0 to MyTreeNode1.Count - 1 do begin MyTreenode2 := MyTreeNode1.Item[i]; v := Posend('{',MyTreenode2.Text); v1 := Posend('}',MyTreenode2.Text); v2 := posend('-',MyTreenode2.Text); ln := length(MyTreenode2.Text); iDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1); iDocNo := DocNoDir2DocNo(iDocDir); _DelTree(ImageSavePath+NowCaseno+'\'+iDocDir); SetUseCase('D',ImageSavePath+NowCaseno+'\',iDocDir,'',''); SetDocNoList('D',-1,NowCaseNo,iDocDir,''); if (Copy(iDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料 DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',iDocDir); end end Else begin _DelTree(DisplayPath); SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),''); end; ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 if (FMode = 'ESCAN') then begin if not DirectoryExists(ImageSavePath+FCaseID) then begin MkDir(ImageSavePath+FCaseID); CreateEmptyCase(ImageSavePath,FCaseID); end; end; LoadImgFile; end Else if TreeView1.Selected = MyTreeNode2 then //文件層 begin If Messagedlg(Format(_Msg('文件(%s)是否刪除?'),[DocNo2DocName(NowCaseno,NowDocNo)]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit; ClearView(1); Application.ProcessMessages; //ShowMessage(NowDocDir); LogFile1.LogToFile(logTimeString+'Tree 文件層號刪除 NowDocDir='+NowDocDir); if (Length(NowDocDir)=8) or (NowDocDir=AttName) then begin //ShowMessage('DeleteDocNoFileForESCAN'); DeleteDocNoFileForESCAN(ImageSavePath+NowCaseno+'\'+NowDocDir,NowDocDir); end else begin _DelTree(ImageSavePath+NowCaseno+'\'+NowDocDir); SetDocNoList('D',-1,NowCaseNo,NowDocDir,''); end; SetUseCase('D',ImageSavePath+NowCaseno+'\',NowDocDir,'',''); if (Copy(NowDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料 DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',NowDocDir); DrawDocItem2(MytreeNode1,NowCaseno); MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]); ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 NewTreeNodeRefresh; end Else if TreeView1.Selected = MyTreeNode3 then //FormID層 begin If Messagedlg(Format(_Msg('文件(%s)是否刪除?'),[NowFormName]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit; LogFile1.LogToFile(logTimeString+'Tree FormID層號刪除 NowFormCode='+NowFormCode); DeleteFormCodeFile(NowCaseNo,NowDocDir,NowFormCode); SetRecordEditedDocDir('A',NowCaseNo,NowDocDir); DrawDocItem2(MytreeNode1,NowCaseno); MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]); ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 NewTreeNodeRefresh; end; end; { ============================================================================== 方法名稱：PM102Click 引用相依：DirectoryExists, RenameFile 方法描述：處理「修改案件編號」右鍵選單。彈出輸入盒要求輸入新編號並驗證長度與是否 重複。確認修改後，先清空當前影像顯示，接著執行磁碟目錄更名並更新案件清 單文字。最後重新繪製該案件的文件樹狀結構並提示完成。 ============================================================================== } procedure TCB_IMGPSScanX.PM102Click(Sender: TObject); var NewCaseID,ShowNewCaseID,ShowNowCaseID : String; i,P,v : Integer; InputOk : Boolean; begin VMode := 0; GoViewMode; ISB1.ZoomMode := zmFitWidth; NewCaseID := InputBox(_Msg('修改案件編號'),_Msg('新案件編號'),''); ShowNewCaseID := NewCaseID; ShowNowCaseID := NowCaseno; if NewCaseID = '' then Exit; IF Length(NewCaseID)<>CaseIDLength Then begin Showmessage(_Msg('輸入格式錯誤')); Exit; end; if DirectoryExists(ImageSavePath+NewCaseID) then begin Showmessage(NewCaseID+_Msg('己存在,無法修改')); Exit; end; if Messagedlg(Format(_Msg('是否將%s改為%s'),[ShowNowCaseID,ShowNewCaseID]),Mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit; ClearView(1); RenameFile(ImageSavePath+NowCaseno,ImageSavePath+NewCaseID); SetCaseList('E',NewTreeNode.IndexOf(MyTreeNode1),NewCaseID); //P := ContextList.Count; MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NewCaseID,GetCasePage(ImageSavePath,NewCaseID)]); //DrawDocItem(MyTreeNode1,FORM_INF_List,NewCaseID); DrawDocItem2(MytreeNode1,NewCaseID); Showmessage(_Msg('修改完成')); end; { ============================================================================== 方法名稱：PM103Click 引用相依： 方法描述：處理樹狀結構的「掃瞄/追加掃瞄」右鍵選單。根據選取的節點層級，決定是啟動 全新的案件掃瞄程序（NewScanBtnClick）或是針對現有案件進行追加掃瞄（AddS canBtnclick），並在日誌中記錄操作行為。 ============================================================================== } procedure TCB_IMGPSScanX.PM103Click(Sender: TObject); begin if TreeView1.Selected = nil then Exit; {if Treeview1.Selected = NewTreeNode then begin ShowMessage('AAAAA'); end; if Treeview1.Selected = MyTreeNode1 then begin ShowMessage('BBBBB'); end; if Treeview1.Selected = MyTreeNode2 then begin ShowMessage('CCCCC'); end; if Treeview1.Selected = MyTreeNode3 then begin ShowMessage('DDDDD'); end; } if (Treeview1.Selected = NewTreeNode) {or (Treeview1.Selected = MyTreeNode1)} then begin //ShowMessage('NewScanBtnClick'); LogFile1.LogToFile(logTimeString+'Tree NewScanBtnClick'); NewScanBtnClick(self) end Else begin //ShowMessage('AddScanBtnclick'); LogFile1.LogToFile(logTimeString+'Tree AddScanBtnclick'); AddScanBtnclick(self); end; end; { ============================================================================== 方法名稱：PM104Click 引用相依：TTiffGraphic, TJpegGraphic, FJpgCompression, DeskewImg, ConvertToBW, MpsGetBarcode, Rotate, CheckNeedCrop, CropImg, ifBlackWhite, tcGrou p4, ifColor25, ConvertToGray, tcJpeg, ifTrueColor, ifGray256, SaveQu ality, FindFirst, LoadFromFile, SaveToFile, DirectoryExists, _DelTre e, GetNoNameCase, Str2Dir, FileExists 方法描述：處理「匯入影像檔案」右鍵選單。開啟檔案對話框選取 TIF/JPG/PNG 檔，並檢查 檔案大小是否超過限制。核心流程包含：計算總頁數、逐頁載入、執行自動去偏斜 （Deskew）、條碼辨識以判斷 FormID、處理 A3 切圖（左右分割）、將影像轉換為對 應格式（黑白轉 TIF G4，彩色/灰階轉 JPG）並寫入磁碟，最後更新索引、樹狀結 構與頁數統計。 ============================================================================== } Procedure TCB_IMGPSScanX.PM104Click(Sender: TObject); Var i, n, m, ii, P, v, v1, page, imageCount: Integer; FName: String; CaseID, DocNo, FormID: String; DocDir: String; SavePath, SaveFilename: String; ISB: TImageScrollBox; FileRec: TSearchrec; iGraphic, iGraphic_First, iGraphic_sec: TTiffGraphic; iRect : TRect; JpgGr : TJpegGraphic; SaveStream : TFileStream; SaveStreamA:TFileStream; SaveStreamB:TFileStream; cooom:integer; Begin OpenDialog1.Filter := 'Image files|*.TIF;*.JPG;*.PNG'; If OpenDialog1.Execute Then Begin ISB := TImageScrollBox.Create(self); try ShowText := _Msg('檔案加入中,請稍候'); LogFile1.LogToFile(logTimeString+'檔案加入中開始'); DataLoading(True, True); If TreeView1.Selected = Nil Then Exit; FName := OpenDialog1.FileName; FindFirst(FName, faAnyfile, FileRec); If FFileSizeLimit = 0 Then Begin FFileSizeLimit := 5 * 1024; End; //FFileSizeLimit:=20*5*1024; //ShowMessage(IntToStr(FileRec.Size)+','+IntToStr(FFileSizeLimit * 1024)); If FileRec.Size > FFileSizeLimit * 1024 Then // 檢查檔案大小 Begin ShowMessage(Format(_Msg('目前檔案大小為 %.3f MB,已超過單一檔案匯入限制%1.f MB'),[FileRec.Size / (1024*1024),FFileSizeLimit/1024])); {ShowMessage(Format('目前檔案大小為 %.3f MB', [FileRec.Size / (1024*1024)]) + '，已超過單一檔案匯入限制'+Format('%.1f',[FFileSizeLimit/1024])+'MB');} FindClose(FileRec); DataLoading(false, false); Exit; End; //MessageDlg() //cooom:=StrToInt(InputBox('輸入百分比','輸入百分比','')); cooom:=FJpgCompression;//20171211彩色tif採jpg壓縮的比例 FindClose(FileRec); CaseID := NowCaseno; imageCount := 0; P := ISB.ImageCountFromFile(OpenDialog1.FileName); For i := 1 To P Do Begin ShowText := Format(_Msg('檔案加入中,請稍候(%d/%d)'),[i,p]); //ShowText := _Msg('檔案加入中,請稍候')+'(' + inttostr(i) + '/' + inttostr(P) + ')'; DataLoading(True, True); ISB.LoadFromFile(FName, i); DeskewImg(ISB.Graphic); ISB_BW.Graphic.Assign(ISB.Graphic); //20180104 If ISB.Graphic.ImageFormat <> ifBlackWhite Then //20180104 begin ConvertToBW(ISB_BW.Graphic); end; ///ISB_BW.SaveToFile('KKKKKKKK.tif'); iGraphic_First := TTiffGraphic.Create; iGraphic_sec := TTiffGraphic.Create; //ShowMessage(IntToStr(iGraphic_First.Palette.palNumEntries)); //彩色 會為0 黑白 為2 MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf); //判斷A3 有用FormID 所以要先辨條碼 For n := 1 To MpsBarcodeinf.Count Do Begin If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像 Begin Rotate(ISB.Graphic, MpsBarcodeinf.r180[n]); //MpsGetBarcode(iGraphic_First, MpsBarcodeinf); Break; End; End; iGraphic_First.Assign(ISB.Graphic); //有必要的話先把影像轉正 再開始切圖 If CheckNeedCrop(iGraphic_First) Then Begin // 先取右邊的影像 iRect.Left := ISB.Graphic.Width Div 2; iRect.Right := ISB.Graphic.Width; iRect.Top := 0; iRect.Bottom := ISB.Graphic.Height; CropImg(iGraphic_First, iRect); iGraphic_sec.Assign(ISB.Graphic); // 再取左邊的影像 iRect.Left := 0; iRect.Right := ISB.Graphic.Width Div 2; iRect.Top := 0; iRect.Bottom := ISB.Graphic.Height; CropImg(iGraphic_sec, iRect); End; ISB.Graphic.Clear; //20220711 Hong 覺得ISB後面沒有到了,先清掉減少記憶體使用 iGraphic := iGraphic_First; While Not iGraphic.IsEmpty Do Begin If (TreeView1.Selected = NewTreeNode) Or (TreeView1.Selected = MyTreeNode1) Then Begin SaveFilename := ''; ISB_BW.Graphic.Assign(iGraphic); //20180104 If iGraphic.ImageFormat <> ifBlackWhite Then //20180104 begin ConvertToBW(ISB_BW.Graphic); end; MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf); //ShowMessage(IntToStr(MpsBarcodeinf.Count)); For n := 1 To MpsBarcodeinf.Count Do Begin If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像 Begin Rotate(iGraphic, MpsBarcodeinf.r180[n]); MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf); Break; End; End; //ShowMessage('XXX '+IntToStr(MpsBarcodeinf.Count)); FormID := BarCode2FormID; //ShowMessage('FormID='+FormID); // 取出FormID SaveFilename := FormID; If (TreeView1.Selected = NewTreeNode) Then Begin If FindDivFormCode(FormID) Then // 只找分案頁上的案件條碼 Begin imageCount := 0; ClearView(1); ContextList.Clear; CaseID := BarCode2CaseID; If DirectoryExists(ImageSavePath + CaseID + '\') Then Begin _DelTree(ImageSavePath + CaseID + '\'); SetCaseList('D', -1, CaseID); End; End; If CaseID = '' Then Begin CaseID := GetNoNameCase(ImageSavePath); ContextList.Clear; End; End; SavePath := ImageSavePath + CaseID + '\'; Str2Dir(SavePath); DocNo := FormCode2DocNo(FormID); DocDir := FindLastestDocDir(CaseID, DocNo); if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then begin DocDir := FindLastestDocDirForPage(CaseID, DocNo,FormID); //ShowMessage('DocDir='+DocDir); end; If DocNoNeedDiv(DocNo) Then // 要分份數 Begin If ((FormCode2Page(FormID) = '01') And (GetDocDir_Page(CaseID, DocDir) > 0)) Or (DocDir = '') Then begin DocDir := DocNo2DocNoDir(ImageSavePath + CaseID + '\', DocNo); end; End Else // 不分份數 Begin If DocNo <> '' Then DocDir := DocNo Else // Attach 附件 DocDir := DocNo2DocNoDir(ImageSavePath + CaseID + '\', DocNo); End; If (Not DirectoryExists(ImageSavePath + CaseID + '\' + DocDir + '\')) And (DocDir <> AttName) Then SetDocNoList('A', -1, CaseID, DocDir, '1'); SavePath := ImageSavePath + CaseID + '\' + DocDir + '\'; Str2Dir(SavePath); ContextList.Clear; If FileExists(SavePath + 'Context.dat') Then ContextList.LoadFromFile(SavePath + 'Context.dat'); WriteCaseIndex(ImageSavePath + CaseID + '\'); // 寫入案件索引 If SaveFilename = '' Then // 附件 SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + ext Else SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + '_' + SaveFilename + ext; For n := 1 To MpsBarcodeinf.Count Do Begin If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像 Begin Rotate(iGraphic, MpsBarcodeinf.r180[n]); MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf); Break; End; End; //ShowMessage(IntToStr(iGraphic.Palette.palNumEntries)); if iGraphic.ImageFormat = ifBlackWhite then //20200806 出現無法匯入,是因color256無法壓JPEG,待報會後再開啟 begin SaveFilename := changefileext(SaveFilename,'.tif'); //20240320 Hong 調整黑白存tif iGraphic.Compression:=tcGroup4; end else if iGraphic.ImageFormat= ifColor256 then begin SaveFilename := changefileext(SaveFilename,'.jpg'); //20240320 Hong 調整Color256存jpg ConverttoGray(iGraphic); iGraphic.Compression:=tcJPEG; iGraphic.JpegQuality:=cooom; end else if (iGraphic.ImageFormat = ifTrueColor) or (iGraphic.ImageFormat = ifGray256) then begin SaveFilename := changefileext(SaveFilename,'.jpg'); //20240320 Hong 調整彩色灰階存jpg iGraphic.Compression:=tcJPEG; iGraphic.JpegQuality:=cooom; end else begin iGraphic.Compression:=tcLZW; end; {if (iGraphic.Palette.palNumEntries = 0) or (iGraphic.Palette.palNumEntries = 256) then //20171130 彩色 會為0 黑白 為2 灰階256 //20200806拿掉 begin iGraphic.Compression:=tcJPEG; iGraphic.JpegQuality:=cooom; end;} If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then Begin If FileExists(SavePath + SaveFilename) Then SaveStream := TFileStream.Create(SavePath + SaveFilename, fmOpenReadWrite) Else SaveStream := TFileStream.Create(SavePath + SaveFilename, fmCreate); Try SaveStream.Seek(0, soFromBeginning); iGraphic.AppendToStream(SaveStream); Finally SaveStream.Free; End; End Else If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.jpg' Then Begin If FileExists(SavePath + SaveFilename) Then DeleteFile(SavePath + SaveFilename); // SaveStream := TFileStream.Create( PEFileName ,fmCreate ); JpgGr := TJpegGraphic.Create; Try JpgGr.Assign(iGraphic); JpgGr.SaveQuality := 30; // JpgGr.AppendToStream(SaveStream); JpgGr.SaveToFile(SavePath + SaveFilename); Finally JpgGr.Free; // SaveStream.Free; End; End; SetContextList('A', -1, CaseID, DocDir, SaveFilename); If (TreeView1.Selected = NewTreeNode) Then Begin If imageCount = 0 Then Begin SetCaseList('A', -1, CaseID); MyTreeNode1 := TreeView1.Items.AddChild(NewTreeNode, CaseID); MyTreeNode1.ImageIndex := 2; MyTreeNode1.SelectedIndex := 2; Application.ProcessMessages; End; End; inc(imageCount); // DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseID); // DrawDocItem(MyTreeNode1,FORM_INF_List,CaseID); End Else If TreeView1.Selected = MyTreeNode3 Then Begin SavePath := ImageSavePath + CaseID + '\' + NowDocDir + '\'; ContextList.Clear; If FileExists(ImageSavePath + CaseID + '\' + NowDocDir + '\Context.dat') Then ContextList.LoadFromFile(ImageSavePath + CaseID + '\' + NowDocDir + '\Context.dat'); If NowFormCode <> '' Then SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + '_' + NowFormCode + ext Else SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + ext; For n := 1 To MpsBarcodeinf.Count Do Begin If MpsBarcodeinf.r180[n] <> 0 Then // 依條碼角度轉影像 Begin Rotate(iGraphic, MpsBarcodeinf.r180[n]); MpsGetBarcode(iGraphic, MpsBarcodeinf); Break; End; End; if (iGraphic.Palette.palNumEntries = 0) or (iGraphic.Palette.palNumEntries = 256) then //20171130 彩色 會為0 黑白 為2 begin iGraphic.Compression:=tcJPEG; iGraphic.JpegQuality:=cooom; end; If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then Begin If FileExists(SavePath + SaveFilename) Then SaveStream := TFileStream.Create(SavePath + SaveFilename, fmOpenReadWrite) Else SaveStream := TFileStream.Create(SavePath + SaveFilename, fmCreate); Try SaveStream.Seek(0, soFromBeginning); iGraphic.AppendToStream(SaveStream); Finally SaveStream.Free; End; End Else Begin If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.jpg' Then Begin If FileExists(SavePath + SaveFilename) Then DeleteFile(SavePath + SaveFilename); // SaveStream := TFileStream.Create( PEFileName ,fmCreate ); JpgGr := TJpegGraphic.Create; Try JpgGr.Assign(iGraphic); JpgGr.SaveQuality := cooom; // JpgGr.AppendToStream(SaveStream); JpgGr.SaveToFile(SavePath + SaveFilename); Finally JpgGr.Free; // SaveStream.Free; End; End; End; // ISB.SaveToFile(SavePath+SaveFilename); ContextList.Add(SaveFilename); ContextList.SaveToFile(SavePath + 'Context.dat'); End; if iGraphic = iGraphic_First then iGraphic := iGraphic_Sec else iGraphic.Assign(nil); End //While 結束 End; ClearErrini(CaseID, MyTreeNode1); // 清掉檢核記錄 If (TreeView1.Selected = MyTreeNode1) Or (TreeView1.Selected = NewTreeNode) Then Begin LoadImgFile; End Else Begin DrawDocItem2(MyTreeNode1, CaseID); // 長出文件名稱的樹並傳回是否有申請書的影像 page := GetCasePage(ImageSavePath, CaseID); // ShowMessage('page='+IntToStr(page)); MyTreeNode1.Text := Format(_Msg('%s-%d頁'), [CaseID, page]); End; // ShowMessage('AAAA'); NewTreeNodeRefresh; Application.ProcessMessages; DataLoading(false, false); finally ISB.Free; iGraphic_First.Free; iGraphic_sec.Free; end; End; End; { ============================================================================== 方法名稱：PM106Click 引用相依：CopyFile, LoadFromFile, SaveToFile 方法描述：處理「複製文件」右鍵選單。開啟對話框供使用者選擇來源文件與目標案件。使用 者確認後，遍歷目標案件並將符合條件的來源影像複製到目標目錄下，同步產生 新的序號檔名、更新目標案件的 Context.dat 並清空其檢核記錄。 ============================================================================== } procedure TCB_IMGPSScanX.PM106Click(Sender: TObject); var i,n,x,v,v1 : Integer; CopyFormID,Copy2Caseno,CopyFileName : String; S : TStringlist; begin ShowText := _Msg('複製文件中,請稍候'); DataLoading(True,True); DocCopyForm := TDocCopyForm.Create(Self); S := TStringlist.Create; try InitialLanguage(DocCopyForm); //載入多國語言 DocCopyForm.CopyFromGB.Caption := NowCaseno+DocCopyForm.CopyFromGB.Caption; IF NewTreenode.Count = 1 Then begin Showmessage(_Msg('沒有其他可複製的文件')); Exit; end; For i := 0 to MyTreeNode1.Count -1 do begin v := Pos('-',MyTreeNode1.Item[i].Text); v1 := pos('{',MyTreeNode1.Item[i].Text); if V1 > 0 then begin CopyFormID := Copy(MyTreeNode1.Item[i].Text,1,v-1); DocCopyForm.CheckListBox1.Items.Add(CopyFormID); end; end; For i := 0 to NewTreenode.Count -1 do begin v := Posend('-',NewTreeNode.Item[i].Text); Copy2Caseno := Copy(NewTreeNode.Item[i].Text,1,v-1); IF Copy2Caseno <> NowCaseno Then begin DocCopyForm.CheckListBox2.Items.Add(Copy2Caseno); end; end; if DocCopyForm.ShowModal = mrok then begin If MessageDlg(_Msg('是否確定要將勾選的文件複製到勾選的編號裡?'),MtConfirmation,[Mbyes,mbcancel],0) = mrCancel Then Exit; ShowText := _Msg('複製中,請稍候'); DataLoading(True,True); For i := 0 to DocCopyForm.CheckListBox2.Count -1 do begin IF DocCopyForm.CheckListBox2.Checked[i] Then begin S.Clear; Copy2Caseno := DocCopyForm.CheckListBox2.Items.Strings[i]; ClearErrini(Copy2Caseno,MyTreeNode1); //清掉檢核記錄 S.LoadFromFile(ImageSavePath + Copy2Caseno +'\Context.dat'); For n := 0 to DocCopyForm.CheckListBox1.Count -1 do //文件 begin If DocCopyForm.CheckListBox1.Checked[n] Then begin //v:= Posend('{',DocCopyForm.CheckContextList.Strings[n]); //v1 := Posend('}',DocCopyForm.CheckContextList.Strings[n]); //CopyFormID := Copy(DocCopyForm.CheckContextList.Strings[n],1,v-1); CopyFormID := DocCopyForm.CheckListBox1.Items.Strings[n]; IF v = 0 Then CopyFormID := ''; For x := 0 to ContextList.Count -1 do begin //Showmessage(CopyFormCode); //IF CopyFormID <> '' then //有文件代號 // begin if FileName2FormCode(ContextList.Strings[x])=CopyFormID then begin //CopyFileName := Add_Zoo(S.Count+1,3)+ Copy(ContextList.Strings[x],4,length(ContextList.Strings[x])-3); CopyFileName := Add_Zoo(S.Count+1,3)+ FileName2NoQuene_Filename(ContextList.Strings[x]); CopyFile(PWideChar(DisplayPath+ContextList.Strings[x]),PWidechar(ImageSavePath + Copy2Caseno+'\'+CopyFileName),False); S.Add(CopyFileName); S.SaveToFile(ImageSavePath + Copy2Caseno +'\Context.dat'); end; // end end; end; end; end; end; DataLoading(False,False); Showmessage(_Msg('複製完成!!')); LoadImgFile; end; finally DocCopyForm.Free; DataLoading(False,False); S.Free; end; end; { ============================================================================== 方法名稱：PM107Click 引用相依： 方法描述：觸發右鍵選單中的備註點擊事件。 ============================================================================== } procedure TCB_IMGPSScanX.PM107Click(Sender: TObject); begin WNoteBtnClick(nil); end; { ============================================================================== 方法名稱：PM108Click 引用相依： 方法描述：處理樹狀結構的「文件歸類」右鍵選單。開啟對話框顯示表單清單，使用者可選擇 歸類至既有文件或新增自定義文件。若為自定義，則驗證名稱後取得新編號。隨 後執行 FormIDReplace 搬移影像檔案、更新索引、清空檢核記錄並刷新樹狀結 構顯示。 ============================================================================== } procedure TCB_IMGPSScanX.PM108Click(Sender: TObject); var i : Integer; DocListForm : TDocListForm; OldName,NewName,Ext : String; NewFormID,NewFormName,CustomDocNo : String; begin DocListForm := TDocListForm.Create(self); try LogFile1.LogToFile(logTimeString+'Tree 歸類開始'); InitialLanguage(DocListForm); //載入多國語言 DocListForm.CheckBox1.Visible:=True; for i := 1 to FORM_INF_List.Count - 1 do begin NewFormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i); NewFormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i); if not FormIDAppear(NewFormID) then Continue; //20170816 先秀全部的 if (NewFormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(NewFormID,False,i) then begin DocListForm.FormIDList.Add(NewFormID+'#@#'+NewFormName); With DocListForm.DocLV.Items.Add do begin Caption := NewFormID; SubItems.Add(GetSQLData(FORM_INF_List,'T1.FORM_DESC',i)); end; end; end; if DocListForm.ShowModal = mrOk then begin if not (DocListForm.DocLV.Selected=nil) then NewFormID := DocListForm.DocLV.Selected.Caption; if DocListForm.CheckBox1.Checked then begin //歸類到自訂文件 NewFormID:=DocListForm.Edit1.Text; if Trim(DocListForm.Edit1.Text)='' then begin Showmessage(_Msg('未輸入文件名稱')); Exit; end; if FindCustomDocName(DisplayPath,NewFormID) then begin Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[NewFormID])); Exit; end; if NowFormCode <> AttName then begin If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[FormCode2FormName(NowCaseNo,NowFormCode),NewFormID]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then Exit; end Else begin If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[_Msg('附件')+MyTreeNode3.Text,FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then Exit; end; CustomDocNo := GetNewCustomDocNo(DisplayPath,NewFormID); //ShowMessage('CustomDocNo='+CustomDocNo); LogFile1.LogToFile(logTimeString+'Tree 歸類到自訂文件 CustomDocNo='+CustomDocNo); ShowText := _Msg('歸類中,請稍侯'); DataLoading(True,True); FormIDReplace(NowCaseNo,NowDocDir,NowFormCode,CustomDocNo+'010101A'); end else begin //歸類到既有文件 if NowFormCode <> AttName then begin If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[FormCode2FormName(NowCaseNo,NowFormCode),FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then Exit; end Else begin If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[_Msg('附件')+MyTreeNode3.Text,FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then Exit; end; ShowText := _Msg('歸類中,請稍侯'); DataLoading(True,True); //ShowMessage('NowDocDir='+NowDocDir); LogFile1.LogToFile(logTimeString+'Tree 歸類到既有文件 NewFormID='+NewFormID); FormIDReplace(NowCaseNo,NowDocDir,NowFormCode,NewFormID); end; ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 DrawDocItem2(MytreeNode1,NowCaseno); DataLoading(False,False); TreeView1.Selected := MyTreeNode1; TreeView1Click(self); end; finally DocListForm.Free; end; end; { ============================================================================== 方法名稱：PM109Click 引用相依：SaveToFile 方法描述：處理「案件 OMR 檢核」右鍵選單。清空當前顯示並開啟檢核進度，呼叫 OMRCheck Case 對案件執行光學劃記辨識檢核。若檢核成功則建立 OMRCheckOk.dat 標記 檔，最後重新載入影像、刷新樹狀結構並提示檢核完成。 ============================================================================== } procedure TCB_IMGPSScanX.PM109Click(Sender: TObject); var S : TStringlist; CaseID : String; begin //if TreeView1.Selected = nil then Exit; //if TreeView1.Selected = NewTreeNode then Exit; CaseID := NowCaseno; S := TStringlist.Create; try ClearView(1); ShowText := CaseID+_Msg('檢核中,請稍候'); DataLoading(True,True); ShowText := CaseID+_Msg('檢核中,請稍候'); DataLoading(True,True); If OMRCheckCase(CaseID) then //有成功 begin S.Add('Y'); S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat'); end; //MyTreeNode2ReFresh(CaseID); LoadImgFile; TreeView1Click(nil); DataLoading(False,False); finally S.Free; end; Showmessage(_Msg('檢核完成')); end; { ============================================================================== 方法名稱：PM110Click 引用相依：Str2Dir 方法描述：處理「新增其他文件」右鍵選單。彈出對話框要求輸入自定義名稱，驗證無誤後產 生新的文件編號並在案件目錄下建立實體子目錄。隨後將新目錄加入清單並重 新繪製樹狀結構，最後自動展開新建立的節點。 ============================================================================== } procedure TCB_IMGPSScanX.PM110Click(Sender: TObject); var CustomDocName : String; CustomDocNo : String; DocDir : String; SavePath : String; ST1:TStringList; begin if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then begin if CustomDocName <> '' then begin if FindCustomDocName(DisplayPath,CustomDocName) then begin Showmessage(Format('文件名稱:"%s"己存在',[CustomDocName])); Exit; end; ST1:=TStringList.Create; CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName); DocDir := CustomDocNo; SavePath := ImageSavePath+NowCaseNo+'\'+DocDir+'\'; Str2Dir(SavePath); SetDocNoList('A',-1,NowCaseNo,DocDir,'1'); DrawDocItem2(MytreeNode1,NowCaseno); MyTreeNode1.Expand(True); end; end; end; { ============================================================================== 方法名稱：PM111Click 引用相依： 方法描述：處理「修改文件份數」右鍵選單。取得當前份數並供使用者修改（範圍 1-9999）。 若份數有變動則執行驗證（如分份文件限制），確認後更新 SetDocDirCopies 設 定並標記文件已編輯，最後刷新樹狀結構統計。 ============================================================================== } procedure TCB_IMGPSScanX.PM111Click(Sender: TObject); var oldCopies,NewCopies : Integer; copies : String; begin oldCopies := GetDocDirCopies(NowCaseno,NowDocDir); try NewCopies := Strtoint(inputBox(_Msg('修改份數'),_Msg('請輸入修改後的份數'),inttostr(oldCopies))); except Showmessage(_Msg('輸入錯誤')); Exit; end; if (NewCopies <= 0) and (NewCopies >= 10000) then begin Showmessage(_Msg('輸入範圍錯誤')); Exit; end; if (oldCopies <> NewCopies) and (NewCopies > 0) and (NewCopies < 10000) then begin if DocNoNeedDiv(NowDocNo) and (NewCopies = 1) and (MessageDlg(_Msg('修改至1份後此文件將無法再進行份數修改,是否確定??'),mtConfirmation,[mbyes,mbcancel],0)= mrcancel) then Exit; SetDocDirCopies(NowCaseno,NowDocDir,NewCopies); SetRecordEditedDocDir('A',NowCaseNo,NowDocDir); DrawDocItem2(MytreeNode1,NowCaseno); Showmessage(_Msg('修改完成')); end; end; { ============================================================================== 方法名稱：PM301Click 引用相依：ifBlackWhite 方法描述：將掃瞄模式設定為黑白（ifBlackWhite）並指定副檔名為 .tif。 ============================================================================== } procedure TCB_IMGPSScanX.PM301Click(Sender: TObject); begin ScanColor := ifBlackWhite; ScanDpi := Def_ScanDpi; Ext := '.tif'; PM301.Checked := True; end; { ============================================================================== 方法名稱：PM302Click 引用相依：ifGray256 方法描述：將掃瞄模式設定為灰階（ifGray256）並指定副檔名為 .jpg。 ============================================================================== } procedure TCB_IMGPSScanX.PM302Click(Sender: TObject); begin ScanColor := ifGray256; Ext := '.jpg'; ScanDpi := 200; //Ext := '.tif'; PM302.Checked := True; end; { ============================================================================== 方法名稱：PM303Click 引用相依：ifTrueColor 方法描述：將掃瞄模式設定為全彩（ifTrueColor）並指定副檔名為 .jpg。 ============================================================================== } procedure TCB_IMGPSScanX.PM303Click(Sender: TObject); begin ScanColor := ifTrueColor; Ext := '.jpg'; //20130326 yuu說理賠改存jpg ScanDpi := 200; //Ext := '.tif'; PM303.Checked := True; end; { ============================================================================== 方法名稱：PM501Click 引用相依： 方法描述：將影像縮放模式設為「符合寬度」並開啟反鋸齒。 ============================================================================== } procedure TCB_IMGPSScanX.PM501Click(Sender: TObject); begin DisplayISB.ZoomMode := zmFitWidth; DisplayISB.AntiAliased := True; SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent); end; { ============================================================================== 方法名稱：PM502Click 引用相依： 方法描述：將影像縮放模式設為「符合高度」並開啟反鋸齒。 ============================================================================== } procedure TCB_IMGPSScanX.PM502Click(Sender: TObject); begin DisplayISB.ZoomMode := zmFitHeight; DisplayISB.AntiAliased := True; SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent); end; { ============================================================================== 方法名稱：PM503Click 引用相依： 方法描述：將影像縮放模式設為「符合頁面」並開啟反鋸齒。 ============================================================================== } procedure TCB_IMGPSScanX.PM503Click(Sender: TObject); begin DisplayISB.ZoomMode := zmFittoPage; DisplayISB.AntiAliased := True; SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent); end; { ============================================================================== 方法名稱：PM504Click 引用相依： 方法描述：將影像縮放模式設為「原始大小」並開啟反鋸齒。 ============================================================================== } procedure TCB_IMGPSScanX.PM504Click(Sender: TObject); begin DisplayISB.ZoomMode := zmOriginalSize; DisplayISB.AntiAliased := True; SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent); end; { ============================================================================== 方法名稱：PM505Click 引用相依：StatrTwainScan 方法描述：處理「掃瞄替換此頁」右鍵選單。檢查當前影像後，設定掃瞄模式為 smReplace 並指定儲存路徑與檔名為當前顯示之影像。啟動 StatrTwainScan 掃瞄以覆蓋 原檔案，完成後清空該案件的檢核記錄。 ============================================================================== } procedure TCB_IMGPSScanX.PM505Click(Sender: TObject); begin if DisplayISB.FileName = '' then Exit; Panel1.Enabled := False; Panel2.Enabled := False; ScanMode := smReplace; ScanInfo.ImageCount := 0; ScanPath := DisplayPath; ScanCaseno := ''; ScanSaveFilename := ExtractFileName(DisplayISB.FileName); Try StatrTwainScan; Except Panel1.Enabled := True; Panel2.Enabled := True; end; Panel1.Enabled := True; Panel2.Enabled := True; ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 end; { ============================================================================== 方法名稱：PM507Click 引用相依：RenameFile 方法描述：處理影像區域的「文件歸類」右鍵選單。彈出對話框供使用者選取目標表單，隨後 根據選取的 FormID 產生新的序號檔名。執行 RenameFile 進行實際更名並同 步更新 Context.dat。最後重新整理樹狀結構、清空檢核記錄並使焦點回到原文 件節點。 ============================================================================== } procedure TCB_IMGPSScanX.PM507Click(Sender: TObject); var i : Integer; DocListForm : TDocListForm; OldName,NewName,Ext : String; FormID,FormName,DocNo : String; PreNode2Name : String; iFormID : String; begin PreNode2Name := ''; if TreeView1.Selected.Parent = MyTreeNode1 then PreNode2Name:= GetNode2Name(MyTreeNode2); ShowText := _Msg('文件歸類中,請稍候'); DataLoading(True,True); DocListForm := TDocListForm.Create(self); try InitialLanguage(PatchDlg); //載入多國語言 for i := 1 to FORM_INF_List.Count - 1 do begin FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i); FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i); DocNo := GetSQLData(FORM_INF_List,'T1.DOC_NO',i)+GetSQLData(FORM_INF_List,'T1.DOC_VERSION',i); //Showmessage(FORM_INF_List.Text); //showmessage(inttostr(FORM_INF_List.Count)+#13+inttostr(self.Doc_Inf_List.Count)); if (FormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(FormID,False,i) then begin DocListForm.FormIDList.Add(FormID+'#@#'+FormName); With DocListForm.DocLV.Items.Add do begin Caption := FormID; SubItems.Add(FormName); end; end; end; if DocListForm.ShowModal = mrOk then begin OldName := ExtractFileName(DisplayISB.FileName); Ext := ExtractFileExt(OldName); //NewName := Copy(OldName,1,3)+'_'+TransRealFormID(DocListForm.DocLV.Selected.Caption)+Ext; NewName := Add_Zoo(FileName2ScanPage(OldName),3)+'_'+DocListForm.DocLV.Selected.Caption+Ext; RenameFile(DisplayPath+OldName,DisplayPath+NewName); ReNameContext(DisplayPath,OldName,NewName); //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改 DrawDocItem2(MytreeNode1,NowCaseno); //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno); ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 if PreNode2Name <> '' then // 回到原本點選的文件節點上 begin for i := 0 to MyTreeNode1.Count - 1 do begin if GetNode2Name(MyTreeNode1.Item[i]) = PreNode2Name then begin TreeView1.Selected := MyTreeNode1.Item[i]; Break; end; end; end; TreeView1click(self); //Showmessage(_Msg('歸類完成')); //20101103 User要求拿掉 end; finally DataLoading(False,False); DocListForm.Free; end; end; { ============================================================================== 方法名稱：PM508Click 引用相依：_DelTree, SaveToFile, ReSortFileName, LoadFromFile, FileExists 方法描述：處理影像區域的「刪除影像」右鍵選單。若案件僅剩一張影像則詢問是否刪除整 個案件目錄。否則，在確認後從影像清單中移除該項目、刪除實體檔案並呼叫 Re SortFileName 重新排序。最後刷新樹狀統計文字、清空檢核記錄並更新顯示。 ============================================================================== } procedure TCB_IMGPSScanX.PM508Click(Sender: TObject); var P : Integer; inx:Integer; begin if DisplayISB.FileName = '' then Exit; if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'ISCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN')) then begin if Messagedlg(Format(_Msg('刪除後(%s)案件無影像,將刪除此案件,是否確定刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit; _DelTree(DisplayPath); SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),''); LoadImgFile; end Else begin if Messagedlg(_Msg('是否確定刪除?'),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit; inx := ContextList.IndexOf(ExtractFileName(DisplayISB.FileName)); ContextList.Delete(inx); ContextList.SaveToFile(ImageSavePath + NowCaseno+'\Context.dat'); Context_DocnoList.Delete(inx); Context_DocnoList.SaveToFile(ImageSavePath + NowCaseno+'\Context_DocNo.dat'); DeleteFile(DisplayISB.FileName); ReSortFileName(DisplayPath); ContextList.LoadFromFile(ImageSavePath + NowCaseno+'\Context.dat'); Context_DocnoList.LoadFromFile(ImageSavePath + NowCaseno+'\Context_DocNo.dat'); if FileExists(ImageSavePath + NowCaseno+'\CustomDocNo.dat') then Cust_DocNoList.LoadFromFile(ImageSavePath + NowCaseno+'\CustomDocNo.dat'); //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改 DrawDocItem2(MytreeNode1,NowCaseno); //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno); P := ContextList.Count; MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,p]); ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 NewTreeNodeRefresh; TreeView1Click(self); end; //Showmessage(_Msg('刪除完成')); //20101101 User要求拿掉 end; { ============================================================================== 方法名稱：PM509Click 引用相依： 方法描述：觸發「從此分案」功能，內部轉呼叫 PM401Click。 ============================================================================== } procedure TCB_IMGPSScanX.PM509Click(Sender: TObject); begin PM401Click(nil); end; { ============================================================================== 方法名稱：PM510Click 引用相依：DeskewImg, SaveToFile 方法描述：對當前 Graphic 執行去偏斜處理後存回原檔案。 ============================================================================== } procedure TCB_IMGPSScanX.PM510Click(Sender: TObject); begin DeskewImg(DisplayISB.Graphic); DisplayISB.SaveToFile(DisplayISB.FileName); ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄 end; { ============================================================================== 方法名稱：PopupMenu1Popup 引用相依： 方法描述：處理樹狀結構右鍵選單彈出時的動態項目控制。根據選取節點的層級（根、案件、 文件、表單）與系統模式（如 FMode、FImgDelete 權限等）動態設定各項選單（刪 除、修改、掃瞄加入、歸類、檢核等）的可見度與可用性。例如在文件層會受影像引 用狀態限制刪除功能。 ============================================================================== } procedure TCB_IMGPSScanX.PopupMenu1Popup(Sender: TObject); begin PM101.Visible := False; //刪除 PM102.Visible := False; //修改案件編號 PM103.Visible := False; //掃瞄器加入影像 PM104.Visible := False; //檔案加入影像 PM106.Visible := False; //複製文件至其他編號 PM107.Visible := False; //寫備註 PM108.Visible := False; //歸類 PM109.Visible := False; //檢核此筆 PM110.Visible := False; //新增自訂文件 PM111.Visible := False; //修改份數 if (FMode = 'SAMPLESCAN') then Exit; if TreeView1.Selected = nil then Exit; if TreeView1.Selected = NewTreeNode then //新掃瞄件 begin if (FMode = 'NSCAN') then begin //ShowMessage('AAAA'); PM101.Visible := True; //刪除 PM103.Visible := True; //掃瞄器加入影像 PM104.Visible := True; //檔案加入影像 end; if FModeName=_Msg('異動件') then begin PM101.Visible := True; end; // if FMode='ESCAN' then // begin // PM101.Visible := True; // end; end Else if TreeView1.Selected = MyTreeNode1 then //案件層 begin PM101.Visible := True; //刪除 if FImgDelete='Y' then begin PM101.Visible:=True; end; if FImgDelete='N' then begin PM101.Visible:=false; end; if FMode='ESCAN' then PM101.Visible:=false; if FModeName=_Msg('異動件') then begin PM101.Visible := True; end; if not CaseDelete_Enable(NowCaseno) then // PM101.Enabled := False else PM101.Enabled := True; PM103.Visible := True; //掃瞄器加入影像 //PM107.Visible := True; //寫備註 //PM109.Visible := True; //檢核此筆 // if FCustDocYN <> 'N' Then // PM110.Visible := True; //新增自訂文件 20170914 先不在tree 中做自訂文件 讓user在縮圖做 PM104.Visible := True; //檔案加入影像 if (FMode = 'NSCAN') then begin PM102.Visible := True; //修改案件編號 end; // if FMode='ESCAN' then // begin // PM101.Visible := True; // end; end Else if TreeView1.Selected = MyTreeNode2 then //文件層 begin PM101.Visible := True; //刪除 //PM107.Visible := True; //寫備註 //PM109.Visible := True; //檢核此筆 // if FCustDocYN <> 'N' Then // PM110.Visible := True; //新增自訂文件 if FImgDelete='Y' then begin PM101.Visible:=True; end; if FImgDelete='N' then begin PM101.Visible:=false; end; if FModeName=_Msg('異動件') then begin PM101.Visible := True; end; if GetUseCase('T',DisplayPath,NowDocDir) <> '' then //沒有被引用走的 PM101.Enabled := False //刪除 Else PM101.Enabled := True; //刪除 if ((GetDocDirCopies(NowCaseno,NowDocDir) > 1) or (not DocNoNeedDiv(NowDocNo)) or (Copy(NowDocNo,1,5)='ZZZZZ')) and (NowDocNo<> 'Attach') and (NowDocNo<> 'S_Attach') then PM111.Visible := True; //修改份數 if (FMode = 'NSCAN') then PM102.Visible := True; //修改案件編號 // if FMode='ESCAN' then // begin // PM101.Visible := True; // end; end Else if TreeView1.Selected = MyTreeNode3 then //表單層 begin PM101.Visible := True; //刪除 PM104.Visible := True; //檔案加入影像 PM108.Visible := True; //歸類 PM103.Visible := True; //掃瞄器加入影像 // if FCustDocYN <> 'N' Then // PM110.Visible := True; //新增自訂文件 if GetFormIDPage(ContextList,NowFormCode) < 1 Then begin PM108.Visible := False; //歸類 end; if FImgDelete='Y' then begin PM101.Visible:=True; end; if FImgDelete='N' then begin PM101.Visible:=false; end; if FModeName=_Msg('異動件') then begin PM101.Visible := True; end; if GetUseCase('T',DisplayPath,NowDocDir) <> '' then //被引用走的 begin PM101.Enabled := False; //刪除 PM104.Enabled := False; //檔案加入影像 PM108.Enabled := False; //歸類 end Else begin PM101.Enabled := True; //刪除 PM104.Enabled := True; //檔案加入影像 PM108.Enabled := True; //歸類 end; if (FMode = 'NSCAN') then begin PM102.Visible := True; //修改案件編號 end; end; end; { ============================================================================== 方法名稱：PopupMenu4Popup 引用相依： 方法描述：處理影像列表右鍵選單彈出邏輯。僅在樹狀結構選取文件或表單層級時顯示全 選、取消全選及歸類功能，並特別判斷「分出新案」在非重掃模式下才可見。 ============================================================================== } procedure TCB_IMGPSScanX.PopupMenu4Popup(Sender: TObject); begin PM401.Visible := False; PM402.Visible := False; PM403.Visible := False; PM404.Visible := False; if FMode = 'SAMPLESCAN' then Exit; if (TreeView1.Selected.Level =2) or (TreeView1.Selected.Level =3) then begin PM402.Visible := True; PM403.Visible := True; PM404.Visible := True; end; PM401.Visible := True; if (TreeView1.Selected <> MyTreeNode2) or (FMode = 'RSCAN') then PM401.Visible := False; end; { ============================================================================== 方法名稱：PopupMenu5Popup 引用相依： 方法描述：處理影像顯示區域右鍵選單彈出邏輯。當有載入影像時啟用各類縮放選單項目， 並根據樹狀選取層級與掃瞄模式決定是否顯示「分出新案」功能。 ============================================================================== } procedure TCB_IMGPSScanX.PopupMenu5Popup(Sender: TObject); begin PM501.Visible := False; PM502.Visible := False; PM503.Visible := False; PM504.Visible := False; PM505.Visible := False; PM506.Visible := False; PM507.Visible := False; PM508.Visible := False; PM509.Visible := False; PM510.Visible := False; if FMode = 'SAMPLESCAN' then Exit; if (DisplayISB.FileName <> '') then begin PM501.Visible := True; PM502.Visible := True; PM503.Visible := True; PM504.Visible := True; //PM505.Visible := True; //PM506.Visible := True; //PM507.Visible := True; //PM508.Visible := True; //PM509.Visible := True; //PM510.Visible := True; end; if (TreeView1.Selected <> MyTreeNode2) or (FMode = 'RSCAN') or (FMode = 'ESCAN') then PM509.Visible := False; end; { ============================================================================== 方法名稱：PopupMenu6Popup 引用相依： 方法描述：處理縮圖區右鍵選單彈出邏輯。動態設定歸類、自定義文件及刪除項目的可見度 。若選取附件目錄則開啟特殊功能。同時根據權限設定與影像引用狀態（UseCase ）限制歸類與刪除功能的可用性。 ============================================================================== } procedure TCB_IMGPSScanX.PopupMenu6Popup(Sender: TObject); begin PM601.Visible := True; //歸類 PM602.Visible := True; //自行定義文件名稱 PM603.Visible := False; //掃描替換此頁 PM604.Visible := False; //歪斜矯正 PM605.Visible := True; //刪除 // if FMode='ESCAN' then // begin // PM601.Visible := False; //歸類 // PM602.Visible := False; //自行定義文件名稱 // PM603.Visible := False; //掃描替換此頁 // PM604.Visible := False; //歪斜矯正 // PM605.Visible := False; //刪除 // end; if ((NowDocNo = 'Attach') or (NowDocNo = 'S_Attach')) and (FCustDocYN <> 'N') then begin PM602.Visible := True; //自行定義文件名稱 //PM603.Visible := True; //掃描替換此頁 PM604.Visible := True; //歪斜矯正 PM601.Visible := True; //歸類 PM605.Visible := True; //刪除 end; if FModeName<>_Msg('異動件') then begin if (FImgDelete='Y') then begin PM605.Enabled:=True; end; if FImgDelete='N' then begin PM605.Enabled:=false; end; end; if CheckSelectImg_UseCase(DisplayPath,NowCaseNo) then //選擇的影像不可有引用的 begin PM601.Enabled := False; //歸類 PM605.Enabled := False; //刪除 end; end;