{ ==============================================================================
  方法名稱：StatusBar1DblClick
  引用相依：
  方法描述：處理狀態列連按兩下事件。用於切換測試功能按鈕及除錯訊息視窗（Memo1/Disp
            lay1）的顯示，支援搭配 Control 鍵切換授權匯出/匯入功能。
============================================================================== }
procedure TCB_IMGPSScanX.StatusBar1DblClick(Sender: TObject);
begin
  Button3.Visible := not Button3.Visible;
  Button4.Visible := not Button4.Visible;
  if (GetKeyState(VK_CONTROL) < 0) Then
  begin
    ExportBt.Visible := not ExportBt.Visible;
    ImportBt.Visible := not ImportBt.Visible;
  end
  Else
  begin
    Memo1.Visible := not Memo1.Visible;
    Display1.Visible := not Display1.Visible;
  end;
end;


{ ==============================================================================
  方法名稱：DataLoading
  引用相依：
  方法描述：控制資料載入時的 UI 狀態。啟用載入時會切換滑鼠游標為等待狀態、顯示提示
            面板（Panel22 或 Panel8），並禁用主要的操作面板（Panel1/Panel2）；關閉時則
            恢復正常狀態。支援使用計時器（Timer2）來顯示動態提示。
============================================================================== }
Procedure TCB_IMGPSScanX.DataLoading(Loading:Boolean;UseTimer:Boolean);  //資料載入中要停止點選的動作
begin
  If Loading Then
  begin
    Screen.Cursor := -11;
    if UseTimer then
    begin
      Panel22.Caption := ShowText;
      Panel22.Left := (Panel9.Width div 2) - (Panel22.Width div 2);
      Panel22.Top := (Panel9.Height div 2) - (Panel22.Height div 2);
      Panel22.Visible := True;
      Timer2.Enabled := True;
    end
    Else
    begin
      Panel8.Left := (Panel9.Width div 2) - (Panel8.Width div 2);
      Panel8.Top := (Panel9.Height div 2) - (Panel8.Height div 2);
      Panel8.Visible := True;
    end;
    Application.ProcessMessages;
    Panel1.Enabled := False;
    Panel2.Enabled := False;
  end
  Else
  begin
    Panel22.Visible := False;
    Panel8.Visible := False;
    Timer2.Enabled := False;
    Panel1.Enabled := True;
    Panel2.Enabled := True;
    Screen.Cursor := 0;
  end;

end;