// COPYRIGHT (c) 2003-2006 RDC Tools International
//
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; version 2
// of the License.

// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.

// You should have received a copy of the GNU General Public License
// along with this program; (See the GPL.txt file in the Help directory) if not, write to the Free Software
// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

Object oWorkingMessagePanel is a ToolPanel
  Set Label    To "CrossMerge"
  Set Location To -5 -5
  Set Locate_Mode to CENTER_ON_SCREEN

  Object oWorkingMessage is a Textbox
    Set GuiLocation to 15 5
  End_Object

  Procedure Page_Object Integer bState
    Integer hWindow iRetval hoWorkingMessage
    String sText
    Move (oWorkingMessage(Self))              To hoWorkingMessage
    If (bState = True) Begin
      Get Label         Of hoWorkingMessage   To sText
      Move (Trim(sText))                      To sText
      If (Length(sText) = 0) Move (False)     To bState // Must have this on program start.
      Forward Send Page_Object bState
      Send Page_Object  Of hoWorkingMessage bState
      Get Window_Handle                       To hWindow
      If hWindow Move (UpdateWindow(hWindow)) To iRetval
    End // If (bState = True) Begin
    Else Begin
      Send Page_Object  Of hoWorkingMessage bState
      Forward Send Page_Object bState
    End // Else Begin
  End_Procedure // Page_Object
End_Object // oWorkingMessagePanel

Procedure StartWorkingMessage Global String sText
  Integer iText iLow hoWorkingMessagePanel hoWorkingMessage
  Move (oWorkingMessagePanel(Self))                  To hoWorkingMessagePanel
  Move (oWorkingMessage(oWorkingMessagePanel(Self))) To hoWorkingMessage
  Get Text_Extent Of hoWorkingMessage sText          To iText
  Move (Low(iText))                                  To iLow
  Set Label       Of hoWorkingMessage                To sText
  Set GuiSize     Of hoWorkingMessagePanel           To 75 (iLow + 20)
  Send Page_Object                                   Of hoWorkingMessagePanel True
End_Procedure // StartWorkingMessage

Procedure StopWorkingMessage Global
  Integer hoWorkingMessagePanel hoWorkingMessage
  Move (oWorkingMessagePanel(Self))                  To hoWorkingMessagePanel
  Move (oWorkingMessage(oWorkingMessagePanel(Self))) To hoWorkingMessage
  Send Page_Object                                   To hoWorkingMessagePanel False
End_Procedure // StopWorkingMessage