mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
37 lines
674 B
ObjectPascal
37 lines
674 B
ObjectPascal
{ %GRAPH }
|
|
{ %TARGET=go32v2,win32,linux }
|
|
|
|
{ Old file: tbs0048.pp }
|
|
{ shows a problem with putimage on some computers OK 0.99.13 (JM) }
|
|
|
|
uses
|
|
graph,crt;
|
|
|
|
var
|
|
gd,gm : integer;
|
|
i,size : longint;
|
|
p : pointer;
|
|
|
|
begin
|
|
gd:=detect;
|
|
initgraph(gd,gm,'');
|
|
setcolor(brown);
|
|
line(0,0,getmaxx,0);
|
|
{readkey;}delay(1000);
|
|
size:=imagesize(0,0,getmaxx,0);
|
|
getmem(p,size);
|
|
getimage(0,0,getmaxx,0,p^);
|
|
cleardevice;
|
|
for i:=0 to getmaxy do
|
|
begin
|
|
putimage(0,i,p^,xorput);
|
|
end;
|
|
{readkey;}delay(1000);
|
|
for i:=0 to getmaxy do
|
|
begin
|
|
putimage(0,i,p^,xorput);
|
|
end;
|
|
{readkey;}delay(1000);
|
|
closegraph;
|
|
end.
|