//**********************************************************************************[v4]***
// Copyright (c) 2006 Threshold Software
// All rights reserved.
//
// $FileName    : cdbBasicPanel.pkg
// $Authors     : Gregg Finney
// $Created     : 06.25.2006  14:24
//
// Contents:
//
// Distributed in dbImport with permission - RLW
//
//
//*****************************************************************************************

Use NESTING.pkg
Use NAVIGATE.pkg
Use SERVER.pkg
Use VERIFY.pkg
Use AutoLcMx.pkg
Use Dep_item.pkg
Use entitem.pkg
Use findedit.pkg
Use DEODlgMx.pkg
Use dfClient.pkg
Use Datadict.pkg

{ DataAware=True DDOHost=True}
{ DesignerClass=cDTModalPanel }
Class cDbBasicPanel is a BasicPanel

  Import_Class_Protocol Nesting_Mixin
  Import_Class_Protocol Navigate_Mixin
  Import_Class_Protocol Server_Mixin
  Import_Class_Protocol Verify_Mixin
  Import_Class_Protocol Auto_Locate_Mixin
  Import_Class_Protocol Non_Dependent_Item_Mixin
  Import_Class_Protocol Deo_Delegate_Mixin
  Import_Class_Protocol Entry_Item_Mixin
  Import_Class_Protocol Find_Edit_Mixin

  Procedure Construct_Object
    Forward Send Construct_Object
    Property Integer Auto_Clear_DEO_State Public True
    Send Define_Nesting
    Send Define_Navigation
    Send Define_Server
    Send Define_Verify
    Send Define_Find_Edit
    Send Define_Entry_Item
    Send Define_Auto_Locate
    Send Define_DEO_Delegate
    Send Define_Auto_Locate
    Property Boolean pbDisplayCaptionHelpButton public False
    Property Handle phoPanelLocation 0
    Property Handle Main_DD Public 0
    Property Handle phoBackGround 0
    Property Handle phoBasicPanel 0
    Set Locate_Mode to Center_On_Screen
    Set deo_delegate_mode to Delegate_Never
    On_Key kCancel Send Exit_Application
  End_Procedure

  Procedure End_Construct_Object
    Handle hoSelf hoPanelLocation
    Forward Send End_Construct_Object
    If (pbDisplayCaptionHelpButton(Self)) Set Extended_Window_Style to WS_EX_CONTEXTHELP True
    Move Self to hoSelf
    Set phoBasicPanel to hoSelf
    Set phoBasicPanel of ghoApplication to hoSelf
    Set phoPanelLocation to hoPanelLocation
    Send LocatePanel
  End_Procedure

  { Visibility=Private }
  Function Modal_State Returns Integer
    Function_Return 0
  End_Function

  { Visibility=Private }
  Function Is_Function Integer MsgId Integer ObjId Integer DelegateFg Returns Integer
    Integer DelMode rVal Id
    Move ( If(DelegateFg,Self,ObjId) ) to Id
    Get Delegation_mode of Id to DelMode
    Set Delegation_mode of Id to No_Delegate_or_Error
    Get MsgId of ObjId to rVal
    Set Delegation_mode of Id to DelMode
    Function_Return rVal
  End_Function

  { MethodType=Property Visibility=Private }
  Function Default_Static_Server_State Returns Integer
    Function_Return 0
  End_Function // Static_Server_State

  Function Panel_Changed_State Returns Integer
    Integer iChanged
    Handle hoServer
    Get Server To hoServer
    If hoServer Get Changed_State Of hoServer To iChanged
    Function_Return iChanged
  End_Function

  Function Changed_State Returns Integer
    Integer iChanged
    Get Panel_Changed_State To iChanged
    Function_Return iChanged
  End_Function

  Procedure Exit_Application
    Integer iRetVal
    Boolean bChanged
    Handle hoServerDDO
    Get Panel_Changed_State To bChanged
    Forward Send Exit_Application
  End_Procedure

  Procedure Set Main_DD Handle hoDD
    Handle hoServer
    Get Server To hoServer
    Forward Set Main_DD To hoServer
  End_Procedure

  Function View_Changed Returns Integer
    Integer Changed
    Broadcast Get Data_Set_Should_Save To Changed
    Function_Return Changed
  End_Function

  Procedure OnPage_Object Boolean bPage
  End_Procedure

  Procedure Page_Object Boolean bPage
    Send OnPage_Object bPage
    Forward Send Page_Object bPage
  End_Procedure

  Procedure OnActivating Boolean bPage
  End_Procedure

  Procedure Activating
    Send OnActivating
    Forward Send Activating
  End_Procedure

  Procedure LocatePanel
    Integer iGuiLocation
    Else Set Locate_Mode to CENTER_ON_SCREEN
  End_Procedure

  Procedure ReDrawAll
    Integer iVoid
    Boolean bOK
    Handle hWnd
    Get Window_Handle to hWnd
    Move (SendMessage(hWnd, WM_SETREDRAW, 1, 0)) to iVoid
    Move (RedrawWindow(hWnd, 0, 0, RDW_ERASE ior RDW_FRAME ior RDW_INVALIDATE ior RDW_ALLCHILDREN ior RDW_ERASENOW ior RDW_UPDATENOW)) to bOk
  End_Procedure

  Procedure ReDrawControl
    Integer iRet iVoid
    Handle hWnd
    Get Window_Handle to hWnd
    Move (SendMessage(hWnd, WM_SETREDRAW, 1, 0)) to iVoid
    Move (RedrawWindow(hWnd,0,0,RDW_INVALIDATE iOr RDW_NOERASE)) To iRet
  End_Procedure // RedrawControl

  Procedure DoRefreshPanel
    Send PumpMsgQueue
  End_Procedure

  Procedure OnDeactivating
  End_Procedure

  Procedure Deactivating
    Send OnDeactivating
    Forward Send Deactivating
  End_Procedure


End_Class