XProfan

 {$cleq}
const appTitle="oglUITest"
#include oglhelper.inc
#include oglui.inc
#include cpuusage.inc
#include intimes.inc
oglui.init()
ogl.window(apptitle,1,1024,768,$FF0000,1,false,true)//vollbild
ogl.window(apptitle,0,1024,768,$FFFFFF,1,false,true)//fenster
long 	myToolWin=oglui.create(window,oglui.desktop,"Menü",50,50,600,280),
myText1=oglui.create(text,myToolWin,"Vorname:",0,0,80,20),
myText2=oglui.create(text,myToolWin,"Nachname:",0,20,80,20),
myEdit1=oglui.create(edit,myToolWin,"",90,0,90,20),
myEdit2=oglui.create(edit,myToolWin,"",90,20,90,20),
myButt1=oglui.create(button,myToolWin,"OK",190,0,120,20),
myButt2=oglui.create(button,myToolWin,"Abbrechen",190,20,120,20),
oglui.setFocus(myEdit1)

do {

    ogl.clear
    ogl.light
    ogl(color,1.3,1.3,1.3,1)
    ogl(move,0,0,-3)
    ogl(rotate,getTickCount*0.0010,getTickCount*0.0030,getTickCount*0.0020)
    ogl(cuboid,1,1,1)
    ogl(color,3,3,3,3)
    ogl.2dnow
    ogl.nolight
    oglui.message=oglui.frame()
    ogl.show
    casenot iskey(1) : waitInput 33

    select umessage

        caseof wm_close : break

    endSelect

    select oglui.message

        caseof 0

        caseof myButt1,myButt2

        oglui.destroyWindow(myToolWin)

    endSelect

}

ogl.done
end

ogl.window(apptitle,3,maxx,maxy,$FF0000,1,false,true)//fenster