Вот что попробовал - вроде получилось:
bt := TBitmap.Create;
bt.Width := gr.Width;
bt.Height := gr.Height;
bt.Canvas.CopyRect(ClientRect, gr.Canvas, gr.ClientRect);
bt.SaveToFile('e:\bt.bmp');
bt.Free;
(gr - объект, в канве которого я рисую с помощью OpenGL)
Michael L. Stepuchev
mike@prognoz.ruКак всегда, полезно посмотреть исходные тексты VCL, а именно функции ShowModal. ;-)