Pascal: Graphik-Modus beenden

[sentropie]

Hallo,

ich wollte meine Pascal-Kenntnisse aus der Schule auffrischen (damals noch mit Turbo Pascal) und verwende hierzu Free Pascal 2.4.0. Jedoch habe ich ein Problem mit dem Graphik-Modus. Hier erst einmal der Code:

program test;

uses crt, graph;


var gd, gm: integer;

    path: string;


begin

clrscr;


gd := detect;

gm := 1;

path := '';


initgraph(gd, gm, path);

if graphresult <> grok then

begin

    write('STOP');

    halt;

end;


circle(10, 10, 10);

readln;


closegraph;


writeln('Fertig');

readln;


end.

Beim Ausführen öffnet sich zunächst ein DOS-Fenster, dann sogleich ein weiteres, maximiertes Fenster namens "Graph window application" in dem auch der Kreis zu sehen ist. Dieses Fenster kann ich jetzt jedoch nicht wie erwartet mit Enter schließen, sondern muss es anderweitig erledigen (Task-Manager, Kreuz des Fensters anklicken). Es bleibt das DOS-Fenster offen. Hier erst kann ich mit Enter etwas bewirken: Zunächst erscheint der Text "Fertig" und nach einem weiteren Enter wird das Programm wie gewünscht beendet.

Wie bekomme ich es hin, dass ich das Graph-Fenster per Tastendruck schließen kann?

Schon einmal danke für die Mühe,

-sentropie-

[flashpixx]

Du braucht den/das Handle des Fenster. Die Graphikroutinen müssten einen Integer zurück liefern, der das Handle ist, wenn Du das dann schließt, sollte auch das Fenster zu gehen. Unter Turbo Pascal hat das Closegraph erledigt.

Meine Pascalzeiten liegen leider etwas zurück, deswegen ist die Antwort etwas unpräzise

[sentropie]

Ich habe auch das Gefühl, dass

Closegraph;

nicht richtig funktioniert. Ich habe es mal auskommentiert und ich hatte das gleiche Ergebnis. Füge ich den Befehl wieder ein, bleibt es aber dennoch dabei: "der Graph wird nicht geclost" .

[flashpixx]

Ich meine Du musst an Closegraph das Handle übergeben.

Ich habe das ganze über Glut & OpenGL unter FreePascal gemacht, da sieht das leider etwas anders aus