XProfan

Def GetSysColor(1) !"USER32.DLL","GetSysColor"
Def GetAsyncKeyState(1) !"User32","GetAsyncKeyState"
Declare Ende&
WindowStyle 512 + 16 + 8 + 2
WindowTitle "HSP Tagger"
Window 0,0-800,600
UserMessages 33,273,16	~WM_MOUSEACTIVATE,~WM_COMMAND,~WM_CLOSE
Cls GetSysColor(15)	(~COLOR_BTNFACE)
@Set("TrueColor",1)
@Set("Decimals",0)
UseFont "Arinal Narrow",14,0,1,0,0
SetDialogFont 1

Proc Lyric_Window

    Declare LyDialog&
    Declare LyTab&
    Declare LyEditID3&
    Declare LyEditLyr&
    Declare LyLaden&
    Declare LyLoeschen&
    Declare LyCopy&
    WindowStyle 512 + 8
    LyDialog& = @Create("Window",%hWnd,"Lyric",%WinLeft+100,%WinTop+75, 530, 387)
    LyEditID3& = @Control("EDIT", "", $54311004, 14, 36, 493, 260, LyDialog&, 2001, %hInstance, $00020200)
    LyEditLyr& = @Control("EDIT", "", $54310804, 14, 36, 493, 260, LyDialog&, 2002, %hInstance, $00020200)
    @ShowWindow(LyEditLyr&,0)
    LyLaden& = @Control("BUTTON", "Laden", $54010000, 100, 308, 64, 29, LyDialog&, 2003, %hInstance, $00020000)
    LyLoeschen& = @Control("BUTTON", "Löschen", $54010000, 228, 308, 64, 29, LyDialog&, 2004, %hInstance, $00020000)
    LyCopy& = @Control("BUTTON", "Lyr -> ID3", $54010000, 356, 308, 64, 29, LyDialog&, 2005, %hInstance, $00020000)
    LyTab& = @Control("SYSTABCONTROL32", "", $54010000, 0, 0, 526, 357, LyDialog&, 2006, %hInstance,$10000) WS_EX_CONTROLPARENT
    @InsertTab(LyTab&, 1, "ID3v2.x")
    @InsertTab(LyTab&, 2, "Lyric 1.x/2.x")

    WhileNot (GetAsyncKeyState($1B) <> 0) Or (%UMessage = 16)	~WM_CLOSE

        WaitInput Tabchanged wird nicht erkannt
        GetMessage Tabchanged wird erkannt

        If @TabChanged(LyTab&) = 1

            If @GetActiveTab(LyTab&) = 0

                EnableWindow LyLaden&,1
                @ShowWindow(LyEditLyr&,0)
                EnableWindow LyEditID3&,1
                @ShowWindow(LyEditID3&,1)
                @SetFocus(LyTab&)

            Else

                EnableWindow LyLaden&,0
                EnableWindow LyEditID3&,0
                @ShowWindow(LyEditID3&,0)
                @ShowWindow(LyEditLyr&,1)
                @SetFocus(LyTab&)

            EndIf

        EndIf

    EndWhile

    @DestroyWindow(LyDialog&)
    @SetFocus(%hWnd)

EndProc

Lyric_Window

WhileNot Ende& = 1

    WaitInput

    If (%UMessage = 16) And (@GetActiveWindow() = %hWnd)	~WM_CLOSE

        Ende& = 1

    EndIf

EndWhile

End