Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 OGL + Bitmap
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   23.06.15 17:40

Ich möchte gerne OGL-Scenen, die auf einem
Static-Control sind, als einzelne Bitmap anzeigen
bzw. speichern.
Die Objekte sind natürlich starr.

 Declare Handle bmp1, bmp2, st
 Declare Int ende
 
 WindowTitle "Fenster"
 Window 800, 640
 st = @Create("Static", %Hwnd, 10, 20, 200, 100)
 oGL("Init", st, 0, 0, 0, 0)
 DrawGlScene()
 ShowBmp()
 
 ende = 0
 WhileNot ende
   WaitInput
 
   Case %Key = 2 : ende = 1
 EndWhile
 
 OGL("Done")
 DeleteObject bmp1
 End
 
 Proc ShowBmp
 bmp1 = @Create("hSizedPic", 0, "&OGLBMP", 200, 100, 0)
 'SavePic "G:\OGL.BMP", bmp1
 DrawPic bmp1, 10, 150;0
 EndProc
 
 Proc DrawGLScene
   oGL("Clear")
   oGL("Origin", -1.5, -1.5, -6.0)
   oGL("Sphere", 1.5, 32, 32)
   oGL("Show")
 EndProc
 


Hier bekomme ich aber nur die graue Fläche des Static-Controls.
Weiß jemand Rat ?
Die entstandenen Bitmaps will ich später in einer ImageListe
verwalten.

H.Brill
XProfan X3 + FreeProfan

Nachricht bearbeitet (23.06.15 17:41)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 OGL + Bitmap  Neu
Heinz Brill 23.06.15 17:40 
 Re: OGL + Bitmap  Neu
David Strutz 26.06.15 20:39 
 Re: OGL + Bitmap  Neu
Heinz Brill 27.06.15 09:27 
 Re: OGL + Bitmap  Neu
RGH 27.06.15 02:41 
 Re: OGL + Bitmap  Neu
Heinz Brill 27.06.15 09:46 
 Re: OGL + Bitmap  Neu
David Strutz 28.06.15 19:59 
 Re: OGL + Bitmap  Neu
RGH 28.06.15 22:12 
 Re: OGL + Bitmap  Neu
peter 18.04.16 09:10 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org