Kann mir mal jemand auf die Sprünge helfen,
warum der code unten nichts anzeigt ?
Da man auf Bitmaps im Speicher auch zeichnen
kann, wollte ich mal anfangen, meine eigenen
Buttons in OGL zu kreieren. Außerdem kann man
mit
Code
SubProc...EndProcden Befehlssatz
von OpenGL ja gut erweitern. Später will ich mir dann
eine Include, auch mit Abfragen der Buttons, machen.
Code
Declare btn1&
WindowTitle "OPENGL - FENSTER"
Window 100, 100 - 600, 300
Set("TrueColor", 32768)
SubProc OGL.Button
Parameters x1%, y1%, x2%, y2%, text$, farbe%
Declare bh&, TBMP&
TBMP& = @CREATE("hNewPic",x1%, y1%, farbe%)
StartPaint TBMP&
UsePen 1, 5, @RGB(0,0,0) ' gestrichelte, schwarze Umrandung
UseBrush 1, farbe%
Rectangle x1%, y1% - x2%, y2%
DrawText x1% - 5, y1% -5, text$, 6
' besser noch RoundRect, weiß aber nicht, wie die letzten beiden Par. zu setzen sind
EndPaint
bh& = OGL("getTextureBMP",TBMP&, 2)
Return bh&
EndProc
Proc DrawGLScene
OGL("texture",btn1&, 1)
OGL("show")
EndProc
' Hauptprogramm
OGL("init", %HWnd, 1, 1, 1, 0)
OGL("posmode",1)
OGL("Clear")
btn1& = OGL("Button", 10, 10, 80, 30, "Button1", Rgb(130, 130, 30)) ' grauer Button
DrawGLScene()
WHILE 1
case %key = 2 : Break
ENDWHILE
OGL("done")
End