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.

205 lines
6.4 KiB
Plaintext

VERSION 5.00
Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx"
Object = "{D932DE9C-9BD8-4B1F-9BAE-43326F307149}#1.0#0"; "VWSAlarm.ocx"
Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
Begin VB.Form FAlarm
BorderStyle = 0 'Kein
ClientHeight = 11520
ClientLeft = 0
ClientTop = 0
ClientWidth = 15360
ClipControls = 0 'False
Icon = "FAlarm.frx":0000
ScaleHeight = 11520
ScaleWidth = 15360
StartUpPosition = 2 'Bildschirmmitte
Begin VWSAlarmLib.VWSAlarmList VWSAlarmList1
Height = 4755
Left = 2040
TabIndex = 2
Top = 1680
Width = 11475
_cx = 20241
_cy = 8387
BackColor = -2147483633
Enabled = -1 'True
ScrollBar = 1
ColumnWidth = "130;100;54;50;400"
Grid = 1
TextStyle = 1
m_nWidth = 130
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DisplayFormat = "TG2PX"
FormatTime = "@LongTime"
FormatDate = "@LongDate"
TimeMode = 2
Sort = 3
Blink = 0
KeyAck = 0
KeyDown = 0
KeyUp = 0
StateIcons = -1 'True
StateColoring = -1 'True
AllowAck = -1 'True
PriorityMax = -1
PriorityMin = -1
TextInEvent = -1 'True
AlarmGroups = ""
AlarmClasses = ""
HeaderStyle = 0
AllowHeaderSort = 0 'False
States = "0000"
BackColorSelected= 12582912
ForeColorSelected= 16777215
FontClass = ""
AlarmDisplayMode= 0
AuthorizationMode= 1
Authorization = ""
End
Begin VWSAlarmDemo.XHeader XHeader1
Height = 1020
Left = 0
TabIndex = 0
Top = 0
Width = 15360
_ExtentX = 27093
_ExtentY = 873
Caption = "idxCaption"
IndexGroup = "FAlarm"
End
Begin VWSAlarmDemo.XFooter XFooter1
Height = 840
Left = 0
TabIndex = 1
Top = 10680
Width = 15360
_ExtentX = 27093
_ExtentY = 4048
End
Begin VWSAlarmDemo.XAlarm XAlarm1
Height = 1395
Left = 0
TabIndex = 3
Top = 9240
Width = 15360
_ExtentX = 27093
_ExtentY = 2461
End
Begin VWSLanguageLib.VWSIndex idxWhatToDo
Height = 495
Left = 0
Top = 1080
Width = 15360
_cx = 27093
_cy = 873
BackStyle = 1
Enabled = -1 'True
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = -2147483633
BackColorOn = -2147483643
ForeColorOff = -2147483630
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "FAlarm"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = ""
OffsetText = 0
TextOn = ""
TextOff = "idxWhatToDo"
End
Begin VisiWinStudioLib.VWSKey keyAckAll
Height = 855
Left = 240
TabIndex = 4
Top = 1680
Width = 1515
_cx = 2672
_cy = 1508
VWItem = ""
VWItemMonitor = ""
Blink = 0
BitMonitor = 0
CaptionMonitorOn= ""
PictureMonitorOn= "FAlarm.frx":000C
ForeColorMonitorOn= -2147483630
BackColorMonitorOn= -2147483633
IndexGroup = "FAlarm"
AuthorizationMode= 0
Authorization = ""
FontClass = "Tahoma8Bold"
RecipeMember = 0 'False
SetMode = 0
BitNumber = 0
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483633
ForeColor = -2147483630
BorderColor2D = -2147483630
BackStyle = 1
ButtonStyle = 1
Alignment = 7
FocusRect = -1 'True
Picture = "FAlarm.frx":0028
PictureDown = "FAlarm.frx":0044
PictureDisabled = "FAlarm.frx":0060
PictureAlign = 7
AutoSize = -1 'True
EatsCursorKeys = 0 'False
GlobalHotKey = 0 'False
FocusOnClick = -1 'True
EventOnKeyRepeat= 0 'False
Caption = "keyAckAll"
UseMnemonic = 0 'False
Key = 0
DownWhenDisabled= 0 'False
End
End
Attribute VB_Name = "FAlarm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub keyAckAll_Click()
VWSAlarmList1.AckAll
End Sub