VERSION 5.00
Object = "{D932DE9C-9BD8-4B1F-9BAE-43326F307149}#1.0#0"; "VWSAlarm.ocx"
Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
Begin VB.UserControl XHeader 
   ClientHeight    =   1020
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15360
   ScaleHeight     =   1020
   ScaleWidth      =   15360
   Begin VWSAlarmLib.VWSAlarmLine VWSAlarmLine1 
      Height          =   495
      Left            =   0
      Top             =   510
      Width           =   15360
      _cx             =   27093
      _cy             =   873
      BackStyle       =   1
      Enabled         =   -1  'True
      Alignment       =   7
      ShadowColor1    =   -2147483632
      ShadowColor2    =   -2147483634
      ShadowDepth     =   2
      ShadowStyle     =   4
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   13684944
      DisplayFormat   =   "TX"
      FormatDate      =   "@LongDate"
      FormatTime      =   "@LongTime"
      PriorityMin     =   -1
      PriorityMax     =   -1
      TextInEvent     =   -1  'True
      ToggleDisplay   =   0   'False
      TimeMode        =   2
      MultiLine       =   0   'False
      AuthorizationMode=   1
      Authorization   =   ""
      Blink           =   0
      AlarmClasses    =   ""
      AlarmGroups     =   ""
      FontClass       =   "Tahoma12Bold"
      AlarmDisplayMode=   0
   End
   Begin VWSLanguageLib.VWSIndex idxCaption 
      Height          =   495
      Index           =   0
      Left            =   0
      Top             =   0
      Width           =   7680
      _cx             =   13547
      _cy             =   873
      BackStyle       =   1
      Enabled         =   -1  'True
      Alignment       =   7
      ShadowColor1    =   14737632
      ShadowColor2    =   8421504
      ShadowDepth     =   3
      ShadowStyle     =   4
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColorOff    =   14845952
      BackColorOn     =   -2147483643
      ForeColorOff    =   14935011
      ForeColorOn     =   -2147483640
      TextRotation    =   0
      AuthorizationMode=   1
      Authorization   =   ""
      VWItem          =   ""
      Blink           =   0
      IndexGroup      =   "Global"
      IndexPrefix     =   ""
      BitNumber       =   0
      Mode            =   -1
      Offset          =   0
      Range           =   32767
      FontClass       =   "Tahoma12Bold"
      OffsetText      =   0
      TextOn          =   ""
      TextOff         =   "ProgramName"
   End
   Begin VWSLanguageLib.VWSIndex idxCaption 
      Height          =   495
      Index           =   1
      Left            =   7680
      Top             =   0
      Width           =   7680
      _cx             =   13547
      _cy             =   873
      BackStyle       =   1
      Enabled         =   -1  'True
      Alignment       =   7
      ShadowColor1    =   -2147483632
      ShadowColor2    =   14737632
      ShadowDepth     =   3
      ShadowStyle     =   4
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColorOff    =   13684944
      BackColorOn     =   -2147483643
      ForeColorOff    =   0
      ForeColorOn     =   -2147483640
      TextRotation    =   0
      AuthorizationMode=   1
      Authorization   =   ""
      VWItem          =   ""
      Blink           =   0
      IndexGroup      =   ""
      IndexPrefix     =   ""
      BitNumber       =   0
      Mode            =   -1
      Offset          =   0
      Range           =   32767
      FontClass       =   "Tahoma12Bold"
      OffsetText      =   0
      TextOn          =   ""
      TextOff         =   ""
   End
End
Attribute VB_Name = "XHeader"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit



Public Property Get Caption() As String
    Caption = idxCaption(1).TextOff
End Property

Public Property Let Caption(ByVal NewValue As String)
    idxCaption(1).TextOff = NewValue
    PropertyChanged "Caption"
End Property


Public Property Get IndexGroup() As String
    IndexGroup = idxCaption(1).IndexGroup
End Property

Public Property Let IndexGroup(ByVal NewValue As String)
    idxCaption(1).IndexGroup = NewValue
    PropertyChanged "IndexGroup"
End Property



Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    idxCaption(1).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
    idxCaption(1).TextOff = PropBag.ReadProperty("Caption", "")
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Caption", idxCaption(1).TextOff, "")
    Call PropBag.WriteProperty("IndexGroup", idxCaption(1).IndexGroup, "")
End Sub