XProfan

-Begin----------------------------------------------------------- ------
 $H Windows.ph
 $H CommCtrl.ph
Def &False 0
Def &True 1
Declare hWin&, hTab&, Quit&, ActiveTab&
hWin& = @Create("Window", %hWnd, "TabStrip", 0, 0, 320, 225)

If hWin&

    hTab& = @Create("TabCtrl", hWin&, "1", 10, 10, 300, 175)
    @InsertTab(hTab&, 99, "2")
    @InsertTab(hTab&, 99, "3")
    -Anordnung unten---------------------------------------------------
    ~SetWindowLong(hTab&, ~GWL_STYLE,
    ~GetWindowLong(hTab&, ~GWL_STYLE) | ~TCS_BOTTOM)
    -Anordnung links---------------------------------------------------
    ~SetWindowLong(hTab&, ~GWL_STYLE,
    ~GetWindowLong(hTab&, ~GWL_STYLE) | ~TCS_VERTICAL)
    -Main--------------------------------------------------------------
    Quit& = &False

    Repeat

        ActiveTab& = @GetActiveTab(hTab&)
        WaitInput

        If %Key = 2

            Quit& = &True

        ElseIf ActiveTab& <> @GetActiveTab(hTab&)

            If @GetActiveTab(hTab&) = 0

                @MessageBox("1", "TabChanged", 0)

            ElseIf @GetActiveTab(hTab&) = 1

                @MessageBox("2", "TabChanged", 0)

            ElseIf @GetActiveTab(hTab&) = 2

                @MessageBox("3", "TabChanged", 0)

            EndIf

        EndIf

    Until Quit& = &True

EndIf

-End-------------------------------------------------------------------
/../../function-references/XProfan/end/'>End