Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ciao, se intendi di voler utilizzare le funzioni "normali" di pascal mentre stai in modalità grafica, in questo caso prima di iniziare la modalità grafica inserisci un readln, tipo così:
readln;
scheda:=detect;
initgraph(scheda,mode,'directory dei driver');
in questo modo la finestra utente quella che si usa di solito sta in primo piano ed è coperta da quella della modalità grafica, ma è come se la usi normalmente, in questo caso però non devi cliccare con il mouse su quella della mod. grafica altrimenti andra in primo piano.
Se invece vuoi scrivere in modalita grafica, come il readln, puoi realizzare una procedura con la quale assumi carattere per carattere con readkey e ogni volta lo inserisci in una stringa che stampi ogni volta, fallo così, ce qualcosina da migliorare, puoi far stampare tipo il cursore. Spero di esserti stato di aiuto.
Procedure ReadGraph(x,y:Integer; Var S:String);
Var
c:Char;
Begin
S:=’’;
Repeat
c:=Readkey;
If(c<>chr(13))Then
S:=S+c;
OutTextXY(x,y,S);
Until(c=chr(13));
End;
Guido_Fe ha allegato un file: Tetris.zip (353 bytes)
