Записать содержимое окна OpenGL в BMP файл

Previous  Top  Next

    
 

gr - объект, в канве которого я рисую с помощью OpenGL

 

Code:

bt := TBitmap.Create;

with bt do

begin

Width := gr.Width;

Height := gr.Height;

Canvas.CopyRect(ClientRect, gr.Canvas, gr.ClientRect);

SaveToFile('e:\bt.bmp');

Free;

end;

 

©Drkb::03951

http://delphiworld.narod.ru/

DelphiWorld 6.0