XProfan

Windowstyle 26
Window 100,200-180,105
User Messages 16
var tabctrl&=Create("TabCtrl",%hwnd,"Tab1",0,0,width(%hwnd),height(%hwnd))
InsertTab(tabctrl&, 1, "Tab2")
var edit&=Create("Edit",%hwnd,"",25,34,width(%hwnd)-50,30)

while 1

    waitinput
    case %umessage=16 : AppExit
    case TabChanged(tabctrl&)  : TabChange()

Endwhile

Proc TabChange

    EnableWindow tabctrl&,0
    Repaint
    locate 1,15
    print GetActiveTab(tabctrl&)

    if GetActiveTab(tabctrl&)=0

        Setwindowpos edit&=5,34 - (width(%hwnd)-50),30;-1
        locate 1,17
        print "=0"

    else

        Setwindowpos edit&=(width(%hwnd)-55),34 - (width(%hwnd)-50),30; -1
        locate 1,17
        print "<>0"

    Endif

    EnableWindow tabctrl&,1
    Return 1

ENDPROC

Proc AppExit

    end

ENDPROC