Unit Graph – Pascal – Fórum – Programujte.com

Zdravím,
Chcel by som sa spýtať ako sa dá spraviť aby keď vytvorím okno v pascale pomocou unit Graph sa nezobrazilo zároveň aj okno konzoly pretože potom keď chcem aby program reagoval na klávesy musím mať vždy aktívne okno konzoly čo je nevyhovujúce.

program Grafika;

uses crt,graph;

var

 grDriver: smallint;

 grMode: smallint;

 ErrCode: Integer;

 znak:char;

begin

 grDriver := Detect;

 InitGraph(grDriver, grMode,'c:\dev-pas\units');

 ErrCode := GraphResult;

 if ErrCode = grOk then

 begin

   Line(500, 500, 1000, 500);

   Circle(100,100,10);

   repeat

   if keypressed then

    begin

     znak:=readkey;

     if znak='c' then Circle(100,300,10);;

    end;

   until znak=#27;

   CloseGraph;

 end

 else

   Writeln('Graphics error:', GraphErrorMsg(ErrCode));

end.

To devilfish :
Pouzivej unitu Wingraph spolu s WinCRT, funguje to vyborne, taky jsem s tim bojoval a tohle jsem nasel.

tady je posledni verze, ze slozky src ji zkompiluj svoji verzi Free Pascalu (fpc) jinak ti to bude hlasit chyby
http://math.ubbcluj.ro/~sberinde/wingraph/
nakopirujes do slozky src fpc.exe a jeste jeden soubor z fpc instalace a spustis fpc.bat. Pust si to v prikazove radce, at vidis, co tam ma byt ten druhy soubor, vypise se ti to v okne prikazove radky pote co spustis spravne prikaz. Pohledej v ctimne i v tom fpc.bat, at vis jak na to

a tady jsou o tom informace a link na starsi verzi bez src souboru a take odkaz na dokumentaci.
http://swinbrain.ict.swin.edu.au/wiki/Pascal_Drawing,_Sound,_and_Input