Newsgroup: it.comp.lang.pascal
Titolo: Un paio di domandine....

Salve, sono nuovo del NG  e vorrei porvi un paio di domande che mi
arrovellano il cervello da un po' di tempo.
Vorrei sapere se esiste un metodo per cambiare la forma del puntatore del
mouse in modalità grafica o in modalità testo (non ho problemi a inserire
procedure assembly).
Inoltre mi interesserebbe sapere se e come è possibile visualizzare dal
pascal un file in formato grafico (ad esempio BitMaP).
Io uso il Pascal versione 6.0 per DOS.
Grazie e ciao!
----------------------------------------------------------------------------
                  Non si odia finchè la stima è ancora poca,
                  ma solo quando si stima qualcuno
                  come uguale o superiore
                   Dalla scuola di guerra della vita:
                   quello che non mi ammazza
                   mi rende più forte.
Nietsche
----------------------------------------------------------------------------

 Io uso il Pascal versione 6.0 per DOS.
Puoi o cercare su internet una delle tante unit gia' fatte ( per un errore
ho cancellato la maggior parte dei miei indirizzi... ) o se vuoi scriverlo
tu puoi usare le ottime spiegazioni di PcCge (credo ci siano quelle per i
formati PCX, BMP e GIF)
http://www.ece.uiuc.edu/~ece291/
 
Gianluca Severino

each word defines the sixteen pixels of a row, low bit rightmost
Ti ringrazio per le altre informazioni che proverň immediatamente, ma:
?????  questo cosa vuol dire ?????
Scusa, ma non ho capito bene, potresti spiegarmelo in parole povere?
Ciao, Gianfranco.
e-mail: 
defe...@hendrix.NOSPAMextero.it
Rimuovi NOSPAM per rispondere.
----------------------------------------------------------------------------
                  Non si odia finchč la stima č ancora poca,
                  ma solo quando si stima qualcuno
                  come uguale o superiore
                   Dalla scuola di guerra della vita:
                   quello che non mi ammazza
                   mi rende piů forte.
Nietsche
----------------------------------------------------------------------------

Ciao,
Ti do il codice che ho provato...
Const punt = array[0..31] of word : (...);{inserisci i valori per il
disegno del puntatore}
Procedure GraphicMouseCursor(x,y:byte;d:Pointer);
{define 16*16 cursor mask and screen mask, pointed by data,
        dataofs is Pointer to data of the masks.}
Var a,b:word;
Begin
	a:=ofs(d^);
	b:=seg(d^);
	Asm
		MOV BL,x
		MOV CL,y
		MOV DX,a
		MOV AX,b
		MOV ES,AX
		MOV AX,$9
		INT $33
	End;
End; {GraphicMouseCursor}
{non so cosa servano quei valori esattamente (ho fatto un paio di tentativi
e mi funziona con qualunque valore inserisca ???) }
GraphicMouseCursor(?,?,@punt);
Le prime 16 word indicano lo screen mask (la sfondo) le seconde il cursor
mask (il disegno in bianco). Ogni word rappresenta 16 bit. La parte di
schermo interessata va in AND con lo screen mask e in XOR con il cursor
mask.
Gianluca Severino
P.S. scusa per il ritardo della risposta

 GraphicMouseCursor(?,?,@punt);
Sono semplicemente le coordinate del pixel che viene scelto col puntatore.
Cioe' nell'immagine 16x16 devi dire quale pixel vuoi che effettivamente
venga seclto...
Ad esempio nella freccia classica sara' il punto all'esterma sinistra in
alto
Gianluca Severino