<div dir="ltr"><div><div><div>Dear Corpsman,<br><br></div>I slightly modified your routine since I noticed that the copied image was copied as in a mirror (I don't know hot to exlpain it better).<br></div>I modified the line:<br>
TempIntfImg.Colors[i, j] := CurColor;<br></div>in<br>TempIntfImg.Colors[i, result.height - 1 - j] := CurColor;<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-06-17 16:12 GMT+02:00 Andrea Mauri <span dir="ltr"><<a href="mailto:andrea.mauri.75@gmail.com" target="_blank">andrea.mauri.75@gmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><p dir="ltr">Many thanks.It works as expected.</p>
<div class="gmail_quote">Il 15/giu/2014 10:08 "Corpsman" <<a href="mailto:corpsman@web.de" target="_blank">corpsman@web.de</a>> ha scritto:<div><div class="h5"><br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
My Version uses glReadPixels, result is TBitmap, this can easily be atteched to the cliboard.<br>
<br>
Function OpenGLScreenshot: TBitmap;<br>
Var<br>
dim: Array[0..3] Of Integer;<br>
c: Array Of Array[0..3] Of Byte;<br>
z, i, j: integer;<br>
TempIntfImg: TLazIntfImage;<br>
ImgHandle, ImgMaskHandle: HBitmap;<br>
CurColor: TFPColor;<br>
Begin<br>
// Auslesen der Framebuffer Auflösung<br>
glGetIntegerv(GL_VIEWPORT, @dim[0]);<br>
// Erstellen des Bitmaps<br>
result := TBitmap.create;<br>
result.pixelformat := pf24bit;<br>
result.width := dim[2];<br>
result.height := dim[3];<br>
TempIntfImg := TLazIntfImage.Create(0, 0);<br>
TempIntfImg.LoadFromBitmap(<u></u>result.Handle, result.MaskHandle);<br>
setlength(c, dim[2] * dim[3]);<br>
// Auslesen des Framebuffers in einen temporären Speicher<br>
glReadPixels(dim[0], dim[1], dim[2], dim[3], GL_RGBA, GL_UNSIGNED_BYTE, @c[0, 0]);<br>
// Umschreiben des Temporären Speichers in das TBitmap<br>
z := 0;<br>
For j := 0 To result.height - 1 Do<br>
For i := 0 To result.width - 1 Do Begin<br>
CurColor.red := c[z][0] * 256;<br>
CurColor.green := c[z][1] * 256;<br>
CurColor.blue := c[z][2] * 256;<br>
// c[z][3] wäre der Alphakanal, aber den Braucht man ja hier nicht ...<br>
TempIntfImg.Colors[i, j] := CurColor;<br>
inc(z);<br>
End;<br>
TempIntfImg.CreateBitmaps(<u></u>ImgHandle, ImgMaskHandle, false);<br>
result.Handle := ImgHandle;<br>
result.MaskHandle := ImgMaskHandle;<br>
TempIntfImg.free;<br>
End;<br>
<br>
<br>
On 06/14/2014 12:13 PM, Michalis Kamburelis wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Andrea Mauri wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Dear all,<br>
<br>
Is it possible to copy the content of OpenGLContext to the clipboard?<br>
How can be done?<br>
<br>
</blockquote>
You could also copy the contents of OpenGL context (created by<br>
TOpenGLContext or any other similar control) using glReadPixels, and<br>
then convert the resulting bytes into a TBitmap instance. Then you can<br>
copy TBitmap contents to clipboard like Anton shows, using<br>
Clipboard.Assign (see<br>
<a href="http://wiki.lazarus.freepascal.org/Clipboard#Load_from_clipboard" target="_blank">http://wiki.lazarus.<u></u>freepascal.org/Clipboard#Load_<u></u>from_clipboard</a> ).<br>
<br>
Using glReadPixels and then converting the result will be<br>
cross-platform, as opposed to Anton's solution using<br>
Windows.CreateCompatibleBitmap .<br>
<br>
Michalis<br>
<br>
<br>
--<br>
______________________________<u></u>_________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lists.lazarus.freepascal.org" target="_blank">Lazarus@lists.lazarus.<u></u>freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://lists.lazarus.<u></u>freepascal.org/mailman/<u></u>listinfo/lazarus</a><br>
<br>
</blockquote>
<br>
<br>
-- <br>
<br>
Auf meiner Homepage <a href="http://www.Corpsman.de" target="_blank">www.Corpsman.de</a> ist immer was los, ständig wird sie aktualisiert und erweitert. Da ist für jeden was dabei.<br>
<br>
<br>
--<br>
______________________________<u></u>_________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lists.lazarus.freepascal.org" target="_blank">Lazarus@lists.lazarus.<u></u>freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://lists.lazarus.<u></u>freepascal.org/mailman/<u></u>listinfo/lazarus</a><br>
</blockquote></div></div></div>
</blockquote></div><br></div>