| Pregunta: | 57149 - SE CONGELA LA PANTALLA DESPUES DEL USAR INITGRAPH |
| Autor: | Jorvid RR |
| Tengo un problema con un programa ya viejito realizado en turbopascal 7, puse puntos de prueba en el código, pero cuando empieza a leer la linea donde se encuentra el initgraph se congela la pantalla, y tengo otros programas que usan de igual manera el initgraph y no muestran este problema, estuve checando y no encuentro una razón por la cual no funcione :S, si alguien sabe de porque es que no funciona o que es lo que sucede le agredeceré mucho.
Saludos | |
| Respuesta: | Giovanny R. |
| Yo creo q tu programa tiene q estar instalado en la unidad C:. Por otro lado en initgraph(graphdriver,graphmode,''); en esas comillas simples debes poner la direccion C:Tpgi. Prueba este ejmplo en tu Pascal:
program linea; uses Crt,Graph; var grDriver: Integer; grMode: Integer; ErrCode: Integer; begin grDriver := Detect; InitGraph(grDriver, grMode,'c: pgi'); ErrCode := GraphResult; if ErrCode = grOk then begin { Do graphics } Line(0, 0, GetMaxX, GetMaxY); Readln; CloseGraph; end else Writeln('Graphics error:', GraphErrorMsg(ErrCode)); readkey; end. Si no funciona es por lo q te dije anteriormente, tienes q tener instalado tu Turbo Pascal en la unidad C: | |