Добрый день!
Не могли бы подсказать как графическое изображение выводить не на экран а в файл с соответствующим расширением.
Заранее благодарен.
Uses CRT, Graph, MyBMP;
Var
GraphDriver, GraphMode : integer;
Begin
GraphDriver := detect;
InitGraph(GraphDriver, GraphMode, 'c:\bp\bgi');
While not KeyPressed Do Begin
Line (10, 10, 100, 100);
End;
CloseGraph;
End.
save_bmp(0, 0, getmaxx, getmaxy, 'screen.bmp', 0); { <--- для 16-цветных режимов 1 вместо 0 последним параметром }
save_bmp(0, 0, getmaxx, getmaxy, 'screen.bmp', 0); { <--- для 16-цветных режимов 1 вместо 0 последним параметром }