VERSION 5.00
Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
Object = "{2A559721-5321-11D0-95E6-006008104BEC}#1.0#0"; "VW4Language.ocx"
Object = "{C6652563-BD5B-11D0-B26C-006008104BEC}#1.0#0"; "VW4Trend.ocx"
Object = "{498C4702-2E69-11D5-89F4-0050BAB20053}#1.1#0"; "VW4TrendHelper.ocx"
Begin VB.Form frmTrendSelection 
   BorderStyle     =   0  'Kein
   Caption         =   "Form1"
   ClientHeight    =   11520
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15360
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   11520
   ScaleWidth      =   15360
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'Bildschirmmitte
   Begin VW4TrendHelper.VWTrendLegend legTrends 
      Height          =   660
      Left            =   30
      TabIndex        =   0
      Top             =   9345
      Width           =   15285
      _ExtentX        =   26961
      _ExtentY        =   1164
      Appearance      =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TrendControl    =   "trdDummy"
   End
   Begin VW4LanguageLib.VWLanguage vwSprache 
      Left            =   4320
      Top             =   10800
      _Version        =   65536
      _ExtentX        =   794
      _ExtentY        =   794
      _StockProps     =   0
   End
   Begin VB.Timer Timer1 
      Interval        =   25
      Left            =   3000
      Top             =   10800
   End
   Begin VW4TrendLib.VWTrend trdDummy 
      Height          =   8715
      Left            =   30
      Top             =   540
      Width           =   15285
      _Version        =   65536
      _ExtentX        =   26961
      _ExtentY        =   15372
      _StockProps     =   37
      BorderStyle     =   1
      Trend1          =   "wTemperature1"
      Archive1        =   "WasserTemperaturen"
      Trend2          =   "wTemperature2"
      Archive2        =   "WasserTemperaturen"
      Trend3          =   "wTemperature3"
      Archive3        =   "WasserTemperaturen"
      ScaleY          =   2
      ColorTrend1     =   16761024
      ColorTrend2     =   16744576
      ColorTrend3     =   16711680
      ColorTrend4     =   8388608
      ColorTrend5     =   16761087
      ColorTrend6     =   16744703
      ColorTrend7     =   16711935
      ColorTrend8     =   8388736
   End
   Begin DistillationDevice.VWButton VWButton1 
      Height          =   1365
      Left            =   30
      TabIndex        =   1
      Top             =   10110
      Width           =   15285
      _extentx        =   26961
      _extenty        =   2302
      picture1        =   "frmTrendSelection.frx":0000
      picture2        =   "frmTrendSelection.frx":07E8
      picture5        =   "frmTrendSelection.frx":0E30
      picture6        =   "frmTrendSelection.frx":1A74
      picture7        =   "frmTrendSelection.frx":1F68
      picture8        =   "frmTrendSelection.frx":267C
      picture12       =   "frmTrendSelection.frx":2F58
      font            =   "frmTrendSelection.frx":3C26
      font            =   "frmTrendSelection.frx":3C4E
      font            =   "frmTrendSelection.frx":3C76
      font            =   "frmTrendSelection.frx":3C9E
      font            =   "frmTrendSelection.frx":3CC6
      font            =   "frmTrendSelection.frx":3CEE
      font            =   "frmTrendSelection.frx":3D16
      font            =   "frmTrendSelection.frx":3D3E
      font            =   "frmTrendSelection.frx":3D66
      font            =   "frmTrendSelection.frx":3D8E
      font            =   "frmTrendSelection.frx":3DB6
      font            =   "frmTrendSelection.frx":3DDE
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      indexgroup      =   "Formular-Namen"
      text1           =   "1"
      text2           =   "2"
      text3           =   "3"
      text4           =   "4"
      text5           =   "5"
      text6           =   "6"
      text7           =   "7"
      text8           =   "8"
      text9           =   "9"
      text10          =   "10"
      text11          =   "11"
      text12          =   "12"
      borderstyle     =   1
   End
   Begin VWSLanguageLib.VWSIndex idxSimulation 
      Height          =   450
      Left            =   5145
      Top             =   30
      Width           =   10185
      _cx             =   5080
      _cy             =   5080
      BackStyle       =   1
      Enabled         =   -1  'True
      Alignment       =   4
      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
      BackColorOff    =   14845952
      BackColorOn     =   -2147483643
      ForeColorOff    =   14935011
      ForeColorOn     =   -2147483640
      TextRotation    =   0
      AuthorizationMode=   1
      Authorization   =   ""
      VWItem          =   ""
      Blink           =   0
      IndexGroup      =   "Formular-Namen"
      IndexPrefix     =   ""
      BitNumber       =   0
      Mode            =   -1
      Offset          =   0
      Range           =   1
      FontClass       =   ""
      OffsetText      =   0
      TextOn          =   ""
      TextOff         =   "frmTrendSelection"
   End
   Begin VWSLanguageLib.VWSIndex idxSWDD 
      Height          =   450
      Left            =   30
      Top             =   30
      Width           =   5115
      _cx             =   5080
      _cy             =   5080
      BackStyle       =   1
      Enabled         =   -1  'True
      Alignment       =   1
      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
      BackColorOff    =   14935011
      BackColorOn     =   -2147483643
      ForeColorOff    =   0
      ForeColorOn     =   -2147483640
      TextRotation    =   0
      AuthorizationMode=   1
      Authorization   =   ""
      VWItem          =   ""
      Blink           =   0
      IndexGroup      =   "Formular-Namen"
      IndexPrefix     =   ""
      BitNumber       =   0
      Mode            =   -1
      Offset          =   0
      Range           =   1
      FontClass       =   ""
      OffsetText      =   0
      TextOn          =   ""
      TextOff         =   "Anlage"
   End
End
Attribute VB_Name = "frmTrendSelection"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
   Set curFrm = Me
    legTrends.ApplyChanges
End Sub

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    Select Case Index
    Case 12
        EndProgram
    Case 1
        If vwSprache.Language = 1031 Then Exit Sub
        FCentral.vwSprache.Language = 1031
        FAlarms.vwSprache.Language = 1031
        FTrends.vwSprache.Language = 1031
        frmTrendSelection.vwSprache.Language = 1031
        frmSelection.Caption = "Trendauswahl"
        frmSelection.fraAll.Caption = "Vorhandene Trends":
        frmSelection.fraSelected.Caption = "Ausgewählte Trends:"
        frmSelection.cmdAbort.Caption = "Abbrechen"
    Case 2
        If vwSprache.Language = 1033 Then Exit Sub
        FCentral.vwSprache.Language = 1033
        FAlarms.vwSprache.Language = 1033
        FTrends.vwSprache.Language = 1033
        frmTrendSelection.vwSprache.Language = 1033
        frmSelection.Caption = "Trend Selection"
        frmSelection.fraAll.Caption = "Existing Trends":
        frmSelection.fraSelected.Caption = "Selected Trends:"
        frmSelection.cmdAbort.Caption = "Cancel"
    Case 5
        FCentral.Show
        Unload Me
    Case 6
        FAlarms.Show
        Unload Me
    Case 7
        FTrends.Show
        Unload Me
    
    End Select
End Sub

Private Sub trdDummy_DblClick()
    frmSelection.Show (vbModal)
End Sub

Private Sub VWButton1_Button12Click()
    Index = 12
    Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button1Click()
    Index = 1
    Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button2Click()
    Index = 2
    Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button5Click()
    Index = 5
    Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button6Click()
    Index = 6
    Timer1.Enabled = True
End Sub
Private Sub VWButton1_Button7Click()
    Index = 7
    Timer1.Enabled = True
End Sub