VERSION 5.00
Object = "{F4B4BFE0-25E1-11D0-B26A-006008104BEC}#1.0#0"; "VW4Key.ocx"
Object = "{F0EB2110-3CC3-11D0-8E54-006008104BEC}#1.0#0"; "VW4Index.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"
Object = "{73B49944-40AB-11D5-8A0C-0050BAB20053}#2.0#0"; "VWSDateTime.ocx"
Begin VB.Form FTrendZoom 
   BorderStyle     =   0  'Kein
   Caption         =   "VW4Trend"
   ClientHeight    =   9000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12000
   Icon            =   "FTrendZoom.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   StartUpPosition =   2  'Bildschirmmitte
   Begin VWSDateTime.VWSDateTimeInput VWSDateTimeInput1 
      Height          =   495
      Left            =   4320
      TabIndex        =   14
      Top             =   6480
      Width           =   3075
      _ExtentX        =   5424
      _ExtentY        =   873
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ShowReturn      =   -1  'True
   End
   Begin VW4KeyLib.VWKey keyF4 
      Height          =   840
      Left            =   3600
      TabIndex        =   13
      Top             =   8160
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   0
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   115
      FocusRect       =   0   'False
      IndexGroup      =   "FTrendMarker"
      FocusOnClick    =   0   'False
   End
   Begin VW4Trend.XFooter XFooter1 
      Height          =   855
      Left            =   0
      TabIndex        =   12
      Top             =   8160
      Width           =   12000
      _ExtentX        =   21167
      _ExtentY        =   1508
   End
   Begin VW4TrendHelper.VWTrendLegend VWTrendLegend1 
      Height          =   3135
      Left            =   9180
      TabIndex        =   11
      Top             =   960
      Width           =   2775
      _ExtentX        =   4895
      _ExtentY        =   5530
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      FontClass       =   "Arial8"
      Orientation     =   1
      Pitch           =   80
      TrendControl    =   "VWTrend1"
   End
   Begin VW4TrendHelper.VWTrendTime VWTrendTime1 
      Height          =   495
      Left            =   4320
      TabIndex        =   10
      Top             =   5940
      Width           =   3075
      _ExtentX        =   5424
      _ExtentY        =   873
      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
      TrendControl    =   "VWTrend1"
   End
   Begin VB.Frame Frame2 
      Caption         =   "Einstellungen"
      Height          =   1575
      Left            =   7620
      TabIndex        =   5
      Top             =   5460
      Width           =   4095
      Begin VB.TextBox txtScroll 
         Height          =   315
         Index           =   1
         Left            =   1740
         TabIndex        =   9
         Text            =   "5"
         Top             =   1140
         Width           =   375
      End
      Begin VB.ComboBox cmbScroll 
         Height          =   315
         Index           =   1
         Left            =   2220
         Style           =   2  'Dropdown-Liste
         TabIndex        =   8
         Top             =   1140
         Width           =   1815
      End
      Begin VB.TextBox txtScroll 
         Height          =   315
         Index           =   0
         Left            =   1740
         TabIndex        =   7
         Text            =   "5"
         Top             =   480
         Width           =   375
      End
      Begin VB.ComboBox cmbScroll 
         Height          =   315
         Index           =   0
         Left            =   2220
         Style           =   2  'Dropdown-Liste
         TabIndex        =   6
         Top             =   480
         Width           =   1815
      End
      Begin VW4IndexLib.VWIndex vwiText 
         Height          =   315
         Index           =   2
         Left            =   60
         Top             =   480
         Width           =   1635
         _Version        =   65536
         _ExtentX        =   2884
         _ExtentY        =   556
         _StockProps     =   96
         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
         TextOff         =   "Trendeinstellungen4"
         IndexGroup      =   "FTrendZoom"
         BackColorOff    =   -2147483633
         ShadowStyle     =   0
         Alignment       =   1
      End
      Begin VW4IndexLib.VWIndex vwiText 
         Height          =   315
         Index           =   3
         Left            =   60
         Top             =   1080
         Width           =   1635
         _Version        =   65536
         _ExtentX        =   2884
         _ExtentY        =   556
         _StockProps     =   96
         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
         TextOff         =   "Trendeinstellungen5"
         IndexGroup      =   "FTrendZoom"
         BackColorOff    =   -2147483633
         ShadowStyle     =   0
         Alignment       =   1
      End
   End
   Begin VW4LanguageLib.VWLanguage VWLanguage1 
      Left            =   60
      Top             =   7680
      _Version        =   65536
      _ExtentX        =   794
      _ExtentY        =   794
      _StockProps     =   0
   End
   Begin VW4TrendLib.VWTrend VWTrend1 
      Height          =   4575
      Left            =   120
      Top             =   660
      Width           =   9015
      _Version        =   65536
      _ExtentX        =   15901
      _ExtentY        =   8070
      _StockProps     =   37
      Trend1          =   "Trd23"
      Archive1        =   "Glättung"
      MinValue1       =   -300
      MaxValue1       =   300
      Trend2          =   "Trd22"
      Archive2        =   "Glättung"
      MinValue2       =   -300
      MaxValue2       =   300
      Trend3          =   "Trd25"
      Archive3        =   "Glättung"
      MinValue3       =   -300
      MaxValue3       =   300
      Archive4        =   "Glättung"
      MinValue4       =   -300
      MaxValue4       =   300
      Archive5        =   "Glättung"
      MinValue5       =   -300
      MaxValue5       =   300
      MinValue6       =   -300
      MaxValue6       =   300
      MinValue7       =   -300
      MaxValue7       =   300
      MinValue8       =   -300
      MaxValue8       =   300
      ColorTrend1     =   0
      ColorTrend2     =   255
   End
   Begin VB.Frame Frame1 
      Caption         =   "Einstellungen"
      Height          =   1575
      Left            =   60
      TabIndex        =   0
      Top             =   5400
      Width           =   4095
      Begin VB.ComboBox cmbZeitraum 
         Height          =   315
         Left            =   2280
         Style           =   2  'Dropdown-Liste
         TabIndex        =   4
         Top             =   1020
         Width           =   1755
      End
      Begin VB.TextBox txtEingabe 
         Height          =   315
         Left            =   1860
         TabIndex        =   3
         Text            =   "5"
         Top             =   1020
         Width           =   375
      End
      Begin VB.TextBox txtMaxMinEingabe 
         Height          =   285
         Index           =   0
         Left            =   2280
         TabIndex        =   2
         Text            =   "Text1"
         Top             =   240
         Width           =   1755
      End
      Begin VB.TextBox txtMaxMinEingabe 
         Height          =   285
         Index           =   1
         Left            =   2280
         TabIndex        =   1
         Text            =   "Text1"
         Top             =   600
         Width           =   1755
      End
      Begin VW4IndexLib.VWIndex vwiText 
         Height          =   315
         Index           =   8
         Left            =   240
         Top             =   240
         Width           =   1635
         _Version        =   65536
         _ExtentX        =   2884
         _ExtentY        =   556
         _StockProps     =   96
         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
         TextOff         =   "Trendeinstellungen1"
         IndexGroup      =   "FTrendZoom"
         BackColorOff    =   -2147483633
         ShadowStyle     =   0
         Alignment       =   1
      End
      Begin VW4IndexLib.VWIndex vwiText 
         Height          =   315
         Index           =   0
         Left            =   240
         Top             =   540
         Width           =   1635
         _Version        =   65536
         _ExtentX        =   2884
         _ExtentY        =   556
         _StockProps     =   96
         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
         TextOff         =   "Trendeinstellungen2"
         IndexGroup      =   "FTrendZoom"
         BackColorOff    =   -2147483633
         ShadowStyle     =   0
         Alignment       =   1
      End
      Begin VW4IndexLib.VWIndex vwiText 
         Height          =   315
         Index           =   1
         Left            =   240
         Top             =   1020
         Width           =   1635
         _Version        =   65536
         _ExtentX        =   2884
         _ExtentY        =   556
         _StockProps     =   96
         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
         TextOff         =   "Trendeinstellungen3"
         IndexGroup      =   "FTrendZoom"
         BackColorOff    =   -2147483633
         ShadowStyle     =   0
         Alignment       =   1
      End
   End
   Begin VW4IndexLib.VWIndex idxCaption 
      Height          =   495
      Index           =   1
      Left            =   6000
      Top             =   0
      Width           =   6000
      _Version        =   65536
      _ExtentX        =   10583
      _ExtentY        =   873
      _StockProps     =   96
      BorderStyle     =   1
      FontClass       =   "Arial12Bold"
      TextOff         =   "idxCaption"
      IndexGroup      =   "FTrendZoom"
      UseTextProps    =   -1  'True
      BackColorOff    =   12632256
      ShadowStyle     =   1
      ShadowDepth     =   3
      ShadowColor2    =   14737632
      Range           =   32767
   End
   Begin VW4IndexLib.VWIndex idxCaption 
      Height          =   495
      Index           =   0
      Left            =   0
      Top             =   0
      Width           =   6000
      _Version        =   65536
      _ExtentX        =   10583
      _ExtentY        =   873
      _StockProps     =   96
      BorderStyle     =   1
      FontClass       =   "Arial12Bold"
      TextOff         =   "ProgramName"
      IndexGroup      =   "Global"
      UseTextProps    =   -1  'True
      BackColorOff    =   16711680
      ForeColorOff    =   16777215
      ShadowStyle     =   1
      ShadowDepth     =   3
      ShadowColor2    =   14737632
      Range           =   32767
   End
End
Attribute VB_Name = "FTrendZoom"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private msSettingsFileName As String 'Pfad+Dateiname zum Speichern der Trendeinstellungen

Private Sub cmbScroll_Click(Index As Integer)
    If Index = 0 Then
        VWTrendTime1.MaxInterval = cmbScroll(0).ListIndex
    Else
        VWTrendTime1.MinInterval = cmbScroll(1).ListIndex
    End If
End Sub

Private Sub Form_Activate()
    ' Vorbesetzen der Steuerelemente
    cmbScroll(1).ListIndex = VWTrendTime1.MinInterval
    cmbScroll(0).ListIndex = VWTrendTime1.MaxInterval
    txtScroll(0).Text = VWTrendTime1.MaxChange
    txtScroll(1).Text = VWTrendTime1.MinChange
    txtMaxMinEingabe(0).Text = VWTrend1.MaxValue1
    txtMaxMinEingabe(1).Text = VWTrend1.MinValue1
    cmbZeitraum.ListIndex = 1 ' Minute
    txtEingabe.Text = VWTrend1.SectionsMajorX
    VWTrendTime1.ApplyChanges
End Sub

Private Sub Form_Load()
    msSettingsFileName = App.Path & "\" & App.Title & ".ini"
    'vorige Trendeinstellungen laden
    VW4Trendhelper.ReadTrendSettings VWTrend1, msSettingsFileName
End Sub

Private Sub keyF4_Click()
    VW4Trendhelper.TrendSelect VWTrend1, , msSettingsFileName
    VWTrendLegend1.ApplyChanges 'Legende auffrischen
End Sub

Private Sub txtEingabe_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case vbKey0 To vbKey9, vbKeyBack
        ' Tasten zulassen
    Case vbKeyReturn
        If IsNumeric(txtEingabe.Text) Then
            XAchsenEinteilung
            VWTrend1.ApplyChanges
        End If
    Case Else
        ' Alle anderen Tasten sperren
        KeyAscii = 0
    End Select
End Sub

Private Sub cmbZeitraum_Click()
    XAchsenEinteilung
End Sub

Private Sub XAchsenEinteilung()
    Select Case cmbZeitraum.ListIndex
    Case 0 ' Sekunde
        VWTrend1.SecondsPerMajor = (txtEingabe.Text * 1) / VWTrend1.SectionsMajorX
    Case 1 ' Minute
        VWTrend1.SecondsPerMajor = (txtEingabe.Text * 60) / VWTrend1.SectionsMajorX
    Case 2 ' Stunde
        VWTrend1.SecondsPerMajor = (txtEingabe.Text * 60 * 60) / VWTrend1.SectionsMajorX
    Case 3 ' Tag
        VWTrend1.SecondsPerMajor = (txtEingabe.Text * 60 * 60 * 24) / VWTrend1.SectionsMajorX
    Case 4 ' Monat
        VWTrend1.SecondsPerMajor = (txtEingabe.Text * 60 * 60 * 24 * 30) / VWTrend1.SectionsMajorX
    Case 5 ' Jahr
        VWTrend1.SecondsPerMajor = (txtEingabe.Text * 60 * 60 * 24 * 365) / VWTrend1.SectionsMajorX
    End Select
    VWTrend1.ApplyChanges
End Sub

Private Sub txtMaxMinEingabe_GotFocus(Index As Integer)
    'Inhalt des Textsteuerelementes markieren
    txtMaxMinEingabe(Index).SelStart = 0
    txtMaxMinEingabe(Index).SelLength = Len(txtMaxMinEingabe(Index))
End Sub

Private Sub txtMaxMinEingabe_KeyPress(Index As Integer, KeyAscii As Integer)
    Select Case KeyAscii
    Case vbKey0 To vbKey9, vbKeySubtract, 45, vbKeyBack
        ' Tasten zulassen
    Case vbKeyReturn
        If IsNumeric(txtMaxMinEingabe(Index).Text) Then
            Select Case Index
            Case 0
                VWTrend1.MaxValue1 = txtMaxMinEingabe(Index).Text
                VWTrend1.MaxValue2 = txtMaxMinEingabe(Index).Text
                VWTrend1.MaxValue3 = txtMaxMinEingabe(Index).Text
                VWTrend1.MaxValue4 = txtMaxMinEingabe(Index).Text
                VWTrend1.MaxValue5 = txtMaxMinEingabe(Index).Text
                VWTrend1.MaxValue6 = txtMaxMinEingabe(Index).Text
                VWTrend1.MaxValue7 = txtMaxMinEingabe(Index).Text
                VWTrend1.MaxValue8 = txtMaxMinEingabe(Index).Text
            Case 1
                VWTrend1.MinValue1 = txtMaxMinEingabe(Index).Text
                VWTrend1.MinValue2 = txtMaxMinEingabe(Index).Text
                VWTrend1.MinValue3 = txtMaxMinEingabe(Index).Text
                VWTrend1.MinValue4 = txtMaxMinEingabe(Index).Text
                VWTrend1.MinValue5 = txtMaxMinEingabe(Index).Text
                VWTrend1.MinValue6 = txtMaxMinEingabe(Index).Text
                VWTrend1.MinValue7 = txtMaxMinEingabe(Index).Text
                VWTrend1.MinValue8 = txtMaxMinEingabe(Index).Text
            End Select
        End If
        VWTrend1.ApplyChanges
    Case Else
        KeyAscii = 0
    End Select
End Sub

Private Sub txtScroll_KeyPress(Index As Integer, KeyAscii As Integer)
    Select Case KeyAscii
    Case vbKey0 To vbKey9, vbKeyBack
        ' Tasten zulassen
    Case vbKeyReturn
        If IsNumeric(txtScroll(Index).Text) Then
            If Index = 0 Then
                VWTrendTime1.MaxChange = txtScroll(Index).Text
            Else
                VWTrendTime1.MinChange = txtScroll(Index).Text
            End If
        End If
    Case Else
        KeyAscii = 0
    End Select
End Sub

Private Sub VWLanguage1_LanguageChange(ByVal Language As Long)
    Dim intIndex As Integer
    
    'Texte in nicht VisWin Steuerelemente laden
    Frame1.Caption = VWLanguage1.GetText("FTrendZoom.Trendeinstellungen0")
    Frame2.Caption = VWLanguage1.GetText("FTrendZoom.Trendeinstellungen6")
    
    For intIndex = 0 To 5
        cmbZeitraum.AddItem VWLanguage1.GetText("FTrendZoom.Zeiteinteilung" & intIndex)
        cmbScroll(0).AddItem VWLanguage1.GetText("FTrendZoom.Zeiteinteilung" & intIndex)
        cmbScroll(1).AddItem VWLanguage1.GetText("FTrendZoom.Zeiteinteilung" & intIndex)
    Next
End Sub

Private Sub VWSDateTimeInput1_AfterWriteValue(ByVal PreviousValue As Date, ByVal NewValue As Date)
    VWTrend1.Online = False
    VWTrend1.ScrollTime = NewValue
    VWTrendTime1.ApplyChanges
End Sub