You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
181 lines
5.5 KiB
Plaintext
181 lines
5.5 KiB
Plaintext
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
|
|
|