- procedure OutPutToBitmap;
- var Bitmap : TBitmap;
- Dummi : Boolean;
- begin
- Bitmap := TBitmap.Create;
- Bitmap.Width := RenderForm.ClientWidth;
- Bitmap.Height := RenderForm.ClientHeight;
- HptFenster.IdleHandler(HptFenster, Dummi);
- glReadPixels(...
- ...
- end;
Screenshot mittels glReadPixelsModerator: DGL-Team
|