VERSION 5.00
Begin VB.Form fDebug 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Debug"
   ClientHeight    =   2295
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   6750
   BeginProperty Font 
      Name            =   "Courier New"
      Size            =   9.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2295
   ScaleWidth      =   6750
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1 
      Height          =   2055
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6495
      Begin VB.Timer tmrUpdate 
         Interval        =   50
         Left            =   2400
         Top             =   240
      End
      Begin VB.Label lblLyrikCharset 
         Caption         =   "LyrikCharsetCode"
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   1680
         Width           =   6255
      End
      Begin VB.Label lblCharset 
         Caption         =   "CharsetCode"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   1320
         Width           =   6255
      End
      Begin VB.Label lblCurrentPlayerPos 
         Caption         =   "CurrentPlayerPos"
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   600
         Width           =   6255
      End
      Begin VB.Label lblCurrentTrack 
         Caption         =   "CurrentTrack"
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Width           =   6255
      End
      Begin VB.Label lblLastPluginMsg 
         Caption         =   "LastPluginMsg"
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   960
         Width           =   6255
      End
   End
End
Attribute VB_Name = "fDebug"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
#If debugmode Then
Option Explicit

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Form Debug
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Guarda o nome do form
Private Const ST_MY_NAME As String = "fDebug"

' Variáveis privadas sendo atualizadas via debug
Public cPlugin_LastPluginTime As String
Public cPlugin_LastMsg As Long
Public cLyric_LastLoadCharset As Byte

' Atualização do debug
Private Sub tmrUpdate_Timer()
    Me.lblCurrentPlayerPos.Caption = "Current player position: " & cPlugin_LastPluginTime
    Me.lblCurrentTrack.Caption = "Current track index: " & ln_PlayingTrack
    Me.lblLastPluginMsg = "Last plugin message: " & cPlugin_LastMsg
    Me.lblCharset = "System charset code: " & fn_Charset
    Me.lblLyrikCharset = "Last loaded Lyrik charset code: " & cLyric_LastLoadCharset
End Sub

#End If