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,faux,vrai)//vollbild
ogl.window(apptitle,0,1024,768,$FFFFFF,1,faux,vrai)//la fenêtre
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(déplacer,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

    sélectionner umessage

        caseof wm_close : pause

    EndSelect

    sélectionner 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