<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=us-ascii"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:#0563C1;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri",sans-serif;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=EN-US link="#0563C1" vlink="#954F72"><div class=WordSection1><p class=MsoNormal>I ran into an unexpected issue with ptcgraph. If I use closegraph, I cannot re-open a new ptcgraph window with Initgraph. It looks like it opens the second graph window but then closes it immediately after.. my program is then appears to be locked up after this happens.. no errors, just locked up. test program is below. If I comment out ptcgraph and ptccrt and uncomment graph and wincrt, it works as expected.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>James<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>program ReOpenGraph.pas;<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>{$mode objfpc}{$H+}<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>uses<o:p></o:p></p><p class=MsoNormal> ptcgraph,ptccrt;<o:p></o:p></p><p class=MsoNormal>// graph,wincrt;<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>var<o:p></o:p></p><p class=MsoNormal> gd,gm : smallint;<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>begin<o:p></o:p></p><p class=MsoNormal> gd:=d8Bit;<o:p></o:p></p><p class=MsoNormal> gm:=m800x600;<o:p></o:p></p><p class=MsoNormal> Writeln('Opening Graphics Window');<o:p></o:p></p><p class=MsoNormal> Initgraph(gd,gm,'');<o:p></o:p></p><p class=MsoNormal> Writeln('Graphics Window Open');<o:p></o:p></p><p class=MsoNormal> setcolor($4A);<o:p></o:p></p><p class=MsoNormal> settextstyle(Defaultfont,HORIZDIR,2);<o:p></o:p></p><p class=MsoNormal> outtextxy(30,30,'Graphics Window Open');<o:p></o:p></p><p class=MsoNormal> readkey;<o:p></o:p></p><p class=MsoNormal> Closegraph;<o:p></o:p></p><p class=MsoNormal> Writeln('Closing Graphics Window');<o:p></o:p></p><p class=MsoNormal> readln;<o:p></o:p></p><p class=MsoNormal> Writeln('Re-Opening Graphics Window');<o:p></o:p></p><p class=MsoNormal> Initgraph(gd,gm,''); // window opens then closes immediately with ptcgraph<o:p></o:p></p><p class=MsoNormal> Writeln('Graphics Window Open Again'); // this never happens with ptcgraph<o:p></o:p></p><p class=MsoNormal> setcolor($4A);<o:p></o:p></p><p class=MsoNormal> settextstyle(Defaultfont,HORIZDIR,2);<o:p></o:p></p><p class=MsoNormal> outtextxy(30,30,'Graphics Window Open Again');<o:p></o:p></p><p class=MsoNormal> Readln;<o:p></o:p></p><p class=MsoNormal> Closegraph;<o:p></o:p></p><p class=MsoNormal>end.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p></div></body></html>