Español
Wünsche y Sugerencias

Bug: &OGLBMP

 
Yo glaube, &OGLBMP funktioniert no:
KompilierenMarcaSeparación
CLS 0
showwindow(%hWnd,2)
oGL("Init", %hWnd, 0, 0, 0, 0)
oGL("PosMode", 1)
oGL("Clear")
oGL("Origin", -1.5, 0, -6.0)
oGL("Triangle", 2, 2)
oGL("Origin", 1.5, 0, -6.0)
oGL("Quad", 2, 2)
oGL("Show")
var hPic&=create("hPic",0,"&OGLBMP")
ogl("done")
cls $FFFFFF
showwindow(%hWnd,1)
drawSizedPic hPic&,0,0 - 320,200;0
waitinput
end
 
06.02.2010  
 



&SCRBMP funktioniert en el Principio auch no, pero kommt una Meldung:
KompilierenMarcaSeparación
CLS 0
showwindow(%hWnd,2)
oGL("Init", %hWnd, 0, 0, 0, 0)
oGL("PosMode", 1)
oGL("Clear")
oGL("Origin", -1.5, 0, -6.0)
oGL("Triangle", 2, 2)
oGL("Origin", 1.5, 0, -6.0)
oGL("Quad", 2, 2)
oGL("Show")
var hPic&=create("hPic",0,"&SCRBMP")
ogl("done")
cls $FFFFFF
showwindow(%hWnd,1)
drawSizedPic hPic&,0,0 - 320,200;0
waitinput
end

Und &SCRBMP son desafortunadamente auch encima el Ventana liegende Teile de:
KompilierenMarcaSeparación
CLS
var dlg&=create("Dialog",0,"Test",300,300,300,300)
var hPic&=create("HPIC",0,"&SCRBMP")
drawSizedPic hPic&,0,0 - 320,200;0
waitinput
end
- wäre vlt. una hDC2-Kopie hilfreicher.
 
06.02.2010  
 



Das hier funktioniert ya algo mejor, es auch kein ogl.show notwendig:
KompilierenMarcaSeparación
 {$cle}
CLS 0
var width&=width(%hWnd)
var height&=height(%hWnd)
oGL("Init", %hWnd, 1, 0, 0, 0)
oGL("PosMode", 1)
oGL("Clear")
oGL("Origin", -1.5, 0, -6.0)
oGL("Triangle", 2, 2)
oGL("Origin", 1.5, 0, -6.0)
ogl("color",0,0,1,1)
oGL("Quad", 2, 2)
var hPic&=create.hPicFromOGL(width&,height&)
ogl("done")
drawSizedPic hPic&,0,(height&-1) - width&,(-height&);0
waitInput
end

proc create.hPicFromOGL

    parameters width&,height&
    var hPic&=create("hNewPic",width&,height&,0)
    var data&=globalAlloc(gPTR,width&*height&*4)
    ogl("glReadPixels",0,0,width&,height&,GL_BGRA,GL_UNSIGNED_BYTE,data&)
    SetBitmapBits(hPic&,width&*height&*4,data&)
    globalFree(data&)
    var hPic2&=create("hNewPic",width&,height&,0)
    startPaint2 hPic2&
    drawSizedPic hPic&,0,(height&-1) - width&,(-height&);0
    endPaint2
    deleteObject hPic&
    return hPic2&

ENDPROC

 
07.02.2010  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

1.842 Views

Untitledvor 0 min.
H.Brill13.04.2014
funkheld23.02.2013
RICOSCH17.07.2011

Themeninformationen

Dieses Thema ha 1 subscriber:

iF (3x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie