#include "form.bi"
#inclib "form"

dim shared as tform form = tform("test_mdi")
dim shared as tmenuitem mfile,mnew,mopen,msave,mn1,mexit
dim shared as tmenuitem mwindows,mcascade,mtile,marrange

sub NewClick(sender as TMenuItem)
    dim as pform child=new tform
    child->formstyle=2
    child->visible=1
    child->enabled=1
    child->parent=form
    child->caption="Form" & form.mdichildcount 
end sub

sub OpenClick(sender as TMenuItem)
    messagebox(form.handle,"not implemented yet !","Form",0)
end sub

sub SaveClick(sender as TMenuItem)
    messagebox(form.handle,"not implemented yet !","Form",0)
end sub

sub ExitClick(sender as TMenuItem)
    form.close
    end
end sub

sub CascadeClick(sender as TMenuItem)
    form.cascade
end sub

sub TileClick(sender as TMenuItem)
    form.tile
end sub

sub ArrangeClick(sender as TMenuItem)
    form.arrange
end sub

sub FormCreate(sender as TForm)
    sender.formstyle=1
    mfile.caption = "File"
    mfile.add(mnew)
    mnew.caption = "New"
    mnew.onclick = @newclick
    mopen.caption="Open"
    mopen.onclick=@openclick
    mfile.add(mopen)
    mfile.add(msave)
    msave.Caption = "Save"
    msave.onclick = @saveclick
    mfile.add(mn1)
    mn1.caption = "-"
    mfile.add(mexit)
    mexit.caption = "Exit"
    mexit.onclick = @exitclick
    mwindows.caption = "Windows"
    mwindows.add(mcascade)
    mcascade.caption = "Cascade"
    mcascade.onclick = @cascadeclick
    mwindows.add(mtile)
    mtile.caption = "Tile"
    mtile.onclick = @tileclick
    mwindows.add(marrange)
    marrange.caption = "Arrange" 
    marrange.onclick = @arrangeclick
    sender.menu.add(mfile)
    sender.menu.add(mwindows)
    sender.menu.colorizeentire=0
    sender.menu.color=&hB3DEF5
    sender.windowmenu=mwindows
end sub

form.oncreate     = @formcreate
form.caption      = "eGUI"
form.main         = 1
form.visible      = 1
form.parent       = 0

dim as msg m
while GetMessage(@m,0,0,0)>0
    TranslateMessage(@m)
    DispatchMessage(@m)
wend