Private JakaKlavesa As Integer
Private JakyUkol As Integer
Private JakyShift As Integer
Private Menime As Boolean

Private Sub FIL_KeyDown(KeyCode As Integer, Shift As Integer)
    Menime = True
    JakyShift = Shift
    If KeyCode >= 16 And KeyCode <= 18 Then
        M2.NapisNaRadek M2.VybranyRadek, VratShift(JakyShift)
    Else
        NahradZdroj VratShift(JakyShift) & VratNazev(KeyCode), "K" & JakyShift & Chr(KeyCode + 20)
    End If
End Sub

Private Sub FIL_KeyUp(KeyCode As Integer, Shift As Integer)
    JakyShift = Shift
    'If JakyShift = 0 And Menime = True Then M2.NapisNaRadek M2.VybranyRadek, Stroj(JakaKlavesa).List(M2.VybranaPolozka - 1): Menime = False
End Sub

Private Sub NahradZdroj(GStroj As String, GZdroj As String)
    Menime = False
    Stroj(JakaKlavesa).RemoveItem JakyUkol
    Stroj(JakaKlavesa).AddItem GStroj, JakyUkol
    Zdrojak(JakaKlavesa).RemoveItem JakyUkol
    Zdrojak(JakaKlavesa).AddItem GZdroj, JakyUkol
    M2.NapisNaRadek M2.VybranyRadek, GStroj
End Sub

Private Sub Form_Load()
    With laa(0)
      .AddItem "Menu"
      .AddItem "Zobrazovací okno"
      .AddItem "Playlist"
      .AddItem "Nastavení"
      .AddItem "Fullscreen"
      .AddItem "Minimalizovat"
      .AddItem "Ukončit program"
    End With
    With laa(1)
        .AddItem "Otevřít soubor"
        .AddItem "Přidat soubor"
        .AddItem "Otevřít složku"
        .AddItem "Přidat složku"
        .AddItem "Otevřít podadresáře"
        .AddItem "Přidat podadresáře"
        .AddItem "Otevřít CD"
        .AddItem "Přidat CD"
        .AddItem "Nový"
        .AddItem "Uložit"
        .AddItem "Odebrat položku"
        .AddItem "Přidat do DPL"
        .AddItem "Zobrazit DPL"
        .AddItem "Překopírovat na disk"
        .AddItem "Náhodný výběr"
        .AddItem "Prezentace"
        .AddItem "Rozmíchat"
        .AddItem "Setřídit"
        .AddItem "Odebrat neexistující"
        .AddItem "Posun nahoru"
        .AddItem "Posun dolů"
        .AddItem "Na začátek"
        .AddItem "Na konec"
        .AddItem "Předchozí soubor"
        .AddItem "Následující soubor"
        .AddItem "Zavřít soubor"
        .AddItem "Vyčistit DPL"
    End With
    With laa(2)
        .AddItem "Zvětšit"
        .AddItem "Zmenšit"
        .AddItem "Původní velikost"
        .AddItem "Na velikost okna"
        .AddItem "Posunout nahoru"
        .AddItem "Posunout dolů"
        .AddItem "Posunout doleva"
        .AddItem "Posunout doprava"
    End With
    With laa(3)
        .AddItem "Přehrát"
        .AddItem "Pozastavit"
        .AddItem "Zastavit"
        .AddItem "Posunout zpět o 5s"
        .AddItem "Posunout vpřed o 5s"
        .AddItem "Přejít na čas"
        .AddItem "Zesílit"
        .AddItem "Zeslabit"
        .AddItem "Mute"
        .AddItem "Balance +L"
        .AddItem "Balance +P"
        .AddItem "Zpomalit"
        .AddItem "Zrychlit"
        .AddItem "Zvětšit šířku"
        .AddItem "Zmenšit šířku"
        .AddItem "Zvětšit výšku"
        .AddItem "Zmenšit výšku"
        .AddItem "Na velikost okna"
    End With
    With laa(4)
        .AddItem "Nouzová klávesa"
        .AddItem "Přepnout Mode"
        .AddItem "Uzamknout"
    End With
    Konfiguruj
    
    
    ZobrazNastaveni
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Myss.OutMysKlavesnice = False
End Sub

Private Sub M1_Click(Text As String, Poznamka As String, CisloPolozky As Double, CisloRadky As Double)
    Dim i As Integer
    M3.Nenacitej = True: M2.Nenacitej = True
    M3.Vycisti: M2.Vycisti
    For i = 0 To laa(CisloPolozky - 1).ListCount - 1
        M3.PridejPolozku laa(CisloPolozky - 1).List(i), "", -1
    Next
    JakaKlavesa = CisloPolozky - 1
    M3.Nenacitej = False
    For i = 0 To Stroj(JakaKlavesa).ListCount - 1
        M2.PridejPolozku Stroj(JakaKlavesa).List(i), "", -1
    Next
    M2.Nenacitej = False
    M2.PrejdiNaPolozku 1
    M2.VybranyRadek = 1
    'M3.ZobrazOd 0
    SetFil
End Sub

Private Sub M2_Click(Text As String, Poznamka As String, CisloPolozky As Double, CisloRadky As Double)
    If Nov.Tag = "L" Then Exit Sub
    M2.Tag = "L"
    M3.PrejdiNaPolozku Val(jak(JakaKlavesa).List(CisloPolozky - 1)) + 1
    M2.Tag = ""
    JakyUkol = CisloPolozky - 1
    SetFil
End Sub

Private Sub M3_Click(Text As String, Poznamka As String, CisloPolozky As Double, CisloRadky As Double)
    If M2.Tag = "L" Or Nov.Tag = "L" Then Exit Sub
    jak(JakaKlavesa).RemoveItem JakyUkol
    jak(JakaKlavesa).AddItem "" & CisloPolozky - 1, JakyUkol
    SetFil
End Sub

Private Sub Myss_MysMove(ByVal Button As GetOutput.Buttony, ByVal X As Long, ByVal Y As Long, ByVal PreshWnd As Long)

End Sub

Private Sub Myss_MysScroll(ByVal Smer As Long, ByVal Button As GetOutput.Buttony, ByVal X As Long, ByVal Y As Long, ByVal PreshWnd As Long)
    Dim QW As Byte: If Smer = -1 Then QW = 0 Else QW = 1
    NahradZdroj VratShift(JakyShift) & VratScroll(QW), "S" & JakyShift & QW
End Sub

Private Sub Nov_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Nov.Tag = "L"
    Stroj(JakaKlavesa).AddItem "<bez zkratky>"
    jak(JakaKlavesa).AddItem "0"
    Zdrojak(JakaKlavesa).AddItem "QQQ"
    M2.PridejPolozku "<bez zkratky>", "", -1
    M2.PrejdiNaPolozku M2.PocetPolozek
    M3.PrejdiNaPolozku 1
    JakyUkol = M2.PocetPolozek - 1
    If M2.PocetPolozek < M2.PocetRadku Then M2.VybranyRadek = M2.PocetPolozek Else M2.VybranyRadek = M2.PocetRadku
    Nov.Tag = ""
End Sub

Private Sub Ode_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If M2.PocetPolozek = 1 Then Exit Sub
    Dim i As Integer, o As Integer
    i = JakaKlavesa
    o = M2.VybranaPolozka - 1
    Stroj(i).RemoveItem o
    Zdrojak(i).RemoveItem o
    jak(i).RemoveItem o
    M1.PrejdiNaPolozku JakaKlavesa + 1
End Sub

Private Sub ZZButton1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Pripony.Visible = False
    Ostat.Visible = False
    Kla.Visible = True
    SetFil
End Sub

Private Sub SetFil()
    On Error Resume Next
    FIL.SetFocus
End Sub

Private Sub ZZButton2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Kla.Visible = False
    Pripony.Visible = False
    Ostat.Visible = True
End Sub

Private Sub ZZButton3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    UlozNastaveni
    Hide
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Kla.Visible = False
    Ostat.Visible = False
    Pripony.Visible = True
End Sub

Private Sub Konfiguruj()
    While Not M1.JizLoaded: DoEvents: Wend
    M1.PridejPolozku "Okna", "", -1
    M1.PridejPolozku "Playlist", "", -1
    M1.PridejPolozku "Mode Obrázek", "", -1
    M1.PridejPolozku "Mode Video", "", -1
    M1.PridejPolozku "Ostatní", "", -1
    'M1.VybranaPolozka = 1
    M1.PrejdiNaPolozku 1
    'M1.ZobrazOd 0
End Sub

Public Sub UlozNastaveni()

End Sub

Private Function VratNazev(KeyCode As Integer) As String
    If KeyCode >= 16 And KeyCode <= 18 Then Exit Function
    Dim Strng As String
    Select Case KeyCode
                Case 1: Strng = " "
                Case 65 To 90: Strng = Chr(KeyCode)
                Case 8: Strng = "Backspace"
                Case 9: Strng = "Tabelátor"
                Case 13: Strng = "Enter"
                Case 19: Strng = "Pause"
                Case 20: Strng = "Caps Lock"
                Case 27: Strng = "Escape"
                Case 32: Strng = "Mezerník"
                Case 33: Strng = "Page Up"
                Case 34: Strng = "Page Down"
                Case 35: Strng = "End"
                Case 36: Strng = "Home"
                Case 37: Strng = "Šipka doleva"
                Case 38: Strng = "Šipka nahoru"
                Case 39: Strng = "Šipka doprava"
                Case 40: Strng = "Šipka dolů"
                Case 45: Strng = "Insert"
                Case 46: Strng = "Delete"
                Case 48 To 57: Strng = KeyCode - 48
                Case 93: Strng = "Tl. myši"
                Case 96 To 105: Strng = "Číslice " & KeyCode - 96
                Case 106: Strng = "Operátor *"
                Case 107: Strng = "Operátor +"
                Case 109: Strng = "Operátor -"
                Case 110: Strng = "Delete"
                Case 111: Strng = "Operátor /"
                Case 112 To 123: Strng = "F" & KeyCode - 111
                Case 144: Strng = "Num Lock"
                Case 145: Strng = "Scroll Lock"
                Case 186: Strng = "!"
                Case 187: Strng = "Operátor ="
                Case 188: Strng = "<"
                Case 189: Strng = "-"
                Case 190: Strng = ">"
                Case 191: Strng = "Operátor ˇ"
                Case 192: Strng = ";"
                Case 219: Strng = "["
                Case 220: Strng = "Operátor \"
                Case 221: Strng = "]"
                Case 222: Strng = Chr(34)
    End Select
    VratNazev = Strng
End Function

Private Function VratShift(Shift As Integer) As String
    Dim Strng As String
    Select Case Shift
        Case 0: Strng = ""
        Case 1: Strng = "Shift + "
        Case 2: Strng = "Ctrl + "
        Case 3: Strng = "Ctrl + Shift + "
        Case 4: Strng = "Alt + "
        Case 5: Strng = "Alt + Shift + "
        Case 6: Strng = "Ctrl + Alt + "
        Case 7: Strng = "Ctrl + Alt + Shift + "
    End Select
    VratShift = Strng
End Function

Private Function VratMys(Button As Byte) As String
    Select Case Button
        Case 1: VratMys = "Levý button"
        Case 2: VratMys = "Pravý button"
        Case 4: VratMys = "Prostřední button"
    End Select
End Function

Private Function VratScroll(Smer As Byte) As String
    If Smer = 1 Then VratScroll = "Scroll Up"
    If Smer = 0 Then VratScroll = "Scroll Down"
End Function

Public Sub ZobrazNastaveni()
    Myss.OutMysKlavesnice = True
    Show 1
    Myss.OutMysKlavesnice = False
End Sub

Private PocetS As Single
Private Obrazky() As Boolean
Private Jaky As Integer
Private MinY As Single, MinX As Single
Private GetShift As Integer
Private Texty(-1 To 40) As String
Private MinZprava As String

Public BarvaPozadi As OLE_COLOR
Public BarvaPopredi As OLE_COLOR
Public BarvaPozadiObrazu As OLE_COLOR
Public BarvaTextu As OLE_COLOR
Public Mode As Byte
Public JednotkaCD As String
Public Filtr As Byte

Private Sub Command1_Click()
    Obraz.NastavBarvy Obraz.BarvaPopredi, Obraz.BarvaPozadi, OUT.BarvaNacti(Obraz.BarvaTextu)
    
    Obraz.NapisText7x5 "Přehrávač 11", 1, 1
    Dim i As Single
    For i = 1 To Obraz.VelikostX
        Obraz.z i, 9
        Obraz.z i, 27
    Next
    Obraz.NapisText7x5 "Bez názvu.bmp", 1, 11
    Obraz.NapisText7x5 "00:00:00", 1, 19
    Obraz.NapisText7x5 "Přehrávač 11", 1, 29
End Sub

Private Sub Command1_GotFocus()
    On Error Resume Next
    FIL.SetFocus
End Sub

Public Sub FIL_KeyDown(KeyCode As Integer, Shift As Integer)
    GetShift = Shift
    If KeyCode = 27 Then Unload Me
End Sub

Public Sub FIL_KeyUp(KeyCode As Integer, Shift As Integer)
    GetShift = Shift
End Sub

Private Sub Form_Load()
    Height = Pozadi.Height: MinY = -1
    SPX = Screen.TwipsPerPixelX: SPY = Screen.TwipsPerPixelY
    
    BarvaPozadi = &HC5C5C5
    BarvaPozadiObrazu = &HA27A02
    BarvaPopredi = RGB(0, 192, 192)
    BarvaTextu = RGB(241, 253, 155)
    JednotkaCD = "E:\": Filtr = 0
    Mode = 1
    PrepniMode

    Load Bocni: Load PL: Load Nastaveni: Load VybSlo: Load Okno
    Bocni.ZmenitUmisteni 0: Bocni.SkokY = 0
    Bocni.ZmenPozici
        Bocni.Show , Me
    PL.LB.NastavBarvuPozadi BarvaPopredi
        PL.Show
    Load Zpravy
        Okno.Show
    Zpravy.BarvaPozadi BarvaPopredi
    MinZprava = ""
    Texty(-1) = "Přehrávač 11": Tag = Texty(-1)
    Texty(2) = "Náhodný výběr"
    Texty(3) = "Prezentace"
    Texty(4) = "Přepnout Mode"
    Texty(5) = "Uzamknout/ odemknout"
    Texty(6) = "Fullscreen"
    Texty(7) = "Hlavní okno"
    Texty(8) = "Zobrazovací okno"
    Texty(9) = "Playlist"
    Texty(10) = "Informace"
    'Boční
    Texty(11) = "Pozastavit"
    Texty(12) = "Zastavit"
    Texty(13) = "Předchozí soubor"
    Texty(14) = "Následující soubor"
    Texty(15) = "Přehrát"
    Texty(16) = "Minimalizovat"
    Texty(17) = "Zavřít Přehrávač 11"
    Texty(18) = "Otevřít soubor"
    Texty(19) = "Nastavení"
    'Playlist
    Texty(20) = "Otevřít..."
    Texty(21) = "Přidat"
    Texty(22) = "Uložit playlist"
    Texty(23) = "Nový playlist"
    Texty(24) = "Dočasný playl."
    Texty(25) = "Ostatní funkce"
    Texty(26) = "Soubor..."
    Texty(27) = "Složku..."
    Texty(28) = "Podsložky..."
    Texty(29) = "Jednotku CD..."
    Texty(30) = "Zobrazit Dpl"
    Texty(31) = "Setřídit playlist"
    Texty(32) = "Vymazat Dpl"
    Texty(33) = "Přidat do Dpl"
    Texty(34) = "Převést playlist.."
    Texty(35) = "Kopírovat na disk"
    Texty(36) = "Rozmíchat playlist"
    Texty(37) = "Odebraz neex. položky"
    
    '
    Dim i As Integer: Jaky = 0
    ReDim Obrazky(0 To Img.Count - 1)
    For i = 0 To Img.Count - 1
        Obrazky(i) = True
    Next
    Obraz.NastavBarvy BarvaPopredi, BarvaPozadiObrazu, BarvaTextu
    Img_MouseMove -1, 0, 0, 0, 0
    
    Obraz.NactiObrazekZeSouboru App.Path & "\Obrázek.tob", 1, 1
    'Obraz.ZobrazitEditor
    
    'Skryj.Enabled = True
    'OUT.OutMysKlavesnice = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Img_MouseMove -1, 0, 0, 0, 0
    If Button = 1 Then
        If MinY = -1 Then MinY = Y: MinX = X: Exit Sub
        Move Left + X - MinX, Top + Y - MinY
        Bocni.ZmenPozici
    End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MinY = -1
End Sub

Private Sub Img_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case Index
    
        
        
    End Select
End Sub

Private Sub Img_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Jaky = Index Then Exit Sub
    Jaky = Index
    Dim i As Integer
    For i = 0 To Img.Count - 1
        If Obrazky(i) = True Then Imag(i).BackColor = BarvaPozadi
    Next
    If Index >= 0 Then Imag(Index).BackColor = BarvaPopredi
    If Index < 0 Then Index = -1
    ZobrazZpravu Index
End Sub

Private Sub LOGO_Timer()
    LOGO.Enabled = False
    Dim i As Single
    For i = 1 To Obraz.VelikostX
        Obraz.z i, 9
        Obraz.z i, 27
    Next
    ZobrazZpravu Jaky
End Sub

Private Sub Obraz_GotFocus()
    On Error Resume Next
    FIL.SetFocus
End Sub

Private Sub Obraz_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Form_MouseMove Button, Shift, Obraz.Left + X, Obraz.Top + Y
End Sub

Private Sub Obraz_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Form_MouseUp Button, Shift, Obraz.Left + X, Obraz.Top + Y
End Sub

Private Sub OUT_MysMove(ByVal Button As GetOutput.Buttony, ByVal X As Long, ByVal Y As Long, ByVal PreshWnd As Long)
    If Skryj.Enabled = False Then OUT.ZobrazitKurzorMysy True
    PocetS = 0: Skryj.Enabled = True
    If (X < Left Or X > Left + Width) And (Y < Top Or Y > Top + Height) Then Img_MouseMove -1, 0, 0, 0, 0
    If (X < Bocni.Left Or X > Bocni.Left + Bocni.Width) And (Y < Bocni.Top Or Y > Bocni.Top + Bocni.Height) Then Bocni.Img_MouseMove -1, 0, 0, 0, 0
    If (X < PL.Left Or X > PL.Left + PL.Width) And (Y < PL.Top Or Y > PL.Top + PL.Height) Then PL.Img_MouseMove -1, 0, 0, 0, 0
End Sub

Private Sub Pos_GotFocus()
    On Error Resume Next
    FIL.SetFocus
End Sub

Private Sub Pos_MouseMove(X As Single, Y As Single, Shift As Integer, Button As Integer)
    Form_MouseMove Button, Shift, Pos.Left + X, Pos.Top + Y
End Sub

Private Sub Pos_MouseUp(X As Single, Y As Single, Shift As Integer, Button As Integer)
    MinY = -1
End Sub

Private Sub Pozadi_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Form_MouseMove Button, Shift, X, Y
End Sub

Private Sub Pozadi_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Form_MouseUp Button, Shift, X, Y
End Sub

Public Sub PrepniMode()
    If Mode = 0 Then Mode = 1 Else Mode = 0
    Img(0).Picture = GetMode(Mode).Picture
    Img(1).Picture = GetMode(Mode + 2).Picture
    If Mode = 0 Then
        Texty(0) = "Zvětšit"
        Texty(1) = "Zmenšit"
    Else
        Texty(0) = "Posunout zpátky"
        Texty(1) = "Posunout dopředu"
    End If
    Texty(1) = ""
End Sub

Public Sub ZobrazZpravu(X As Integer)
    If MinZprava = Texty(X) Or LOGO.Enabled = True Then Exit Sub
    Obraz.SmazText7x5 MinZprava, 1, 1
    MinZprava = Texty(X)
    Obraz.NapisText7x5 MinZprava, 1, 1
End Sub

Public Sub Ukoncit()
    Unload Bocni
    Unload Nastaveni
    Unload Okno
    Unload PL
    Unload Zpravy
    OUT.OutMysKlavesnice = False
    End
End Sub

Public Sub NactiSoubor(CestaS As String, NazevS As String)
    If CestaS = "" Or NazevS = "" Then Exit Sub


    Dim Q As Byte: Q = 0
    If Ncti(CestaS) = False Then
        'Načítáme po chybě - přeměna mode
        PrepniMode
        If Ncti(CestaS) = False Then
            'Soubor nelze načíst
            
        End If
    End If
End Sub

Private Function Ncti(X As String) As Boolean
    On Error GoTo p
    If Mode = 0 Then
            Okno.Img.Visible = False
            Okno.Img.Stretch = False
            Okno.Img.Picture = LoadPicture(X)
            
            Okno.Img.Visible = True
    Else
    
    End If
    Ncti = True
    Exit Function
p:
    If Mode = 0 Then
        Okno.Picture = LoadPicture("")
    End If
    Ncti = False
End Function

Public Sub ZobrazNastaveni()
    Nastaveni.Myss.OutMysKlavesnice = True
    Nastaveni.Show 1, Me
    Nastaveni.Myss.OutMysKlavesnice = False
End Sub

Private Sub Skryj_Timer()
    PocetS = PocetS + 0.5
    If PocetS >= SkrytKurzorZa And SkrytKurzorZa > 0 Then
        Skryj.Enabled = False
        OUT.ZobrazitKurzorMysy False
    End If
End Sub

Private BV As Boolean, MeV As Boolean, OV As Boolean, PV As Boolean

Private Sub FIL_KeyDown(KeyCode As Integer, Shift As Integer)
    Menu.FIL_KeyDown KeyCode, Shift
End Sub

Private Sub FIL_KeyUp(KeyCode As Integer, Shift As Integer)
    Menu.FIL_KeyUp KeyCode, Shift
End Sub

Public Sub Minimalizovat()
    BV = Bocni.Visible: MeV = Menu.Visible: OV = Visible: PV = PL.Visible
    Menu.Hide: Bocni.Hide: PL.Hide
    Visible = True
    WindowState = 1
    Caption = Menu.Tag
    Tag = "RSZ"
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Menu.OUT.PresunOkno hwnd
End Sub

Private Sub Form_Resize()
    If WindowState = -1 Then Exit Sub
    If Tag = "RSZ" Then
        Tag = ""
        Caption = ""
        Bocni.Visible = BV: Menu.Visible = MeV: Visible = OV: PL.Visible = PV
    End If
End Sub