netarrow (Admin)
Guru^2
Messaggi: 2502
Iscritto: 12/05/2004
|
devi postare i sorgenti, non allegare l'esebuigile.
ah, inoltre spiega meglio il problema e usa un titolo autoesplicativo su di esso
Ultima modifica effettuata da netarrow il 31/01/2010 alle 18:52 |
Ocentral (Normal User)
Pro
Messaggi: 86
Iscritto: 25/12/2009
|
Codice sorgente - presumibilmente Delphi |
program grafica; {$apptype GUI} uses windows,wincrt,wingraph,winmouse; var // variabili per la grafica driver,mode:smallint; c:char; //varibili per il programma s:shortstring; i:byte; //////////////////////////////////////////////////// procedure ckeckmouse; var me:mouseeventtype; begin if not(pollmouseevent(me)) then outtext('Non riuscito'); getmouseevent(me); with me do begin case action of mouseactiondown: begin case buttons of mouseleftbutton: begin i:=1; outtextxy(200,400,'Mouse'); end; end; end; end; end; end; //////////////////////////////////////////////////// begin c:=readkey; setwindowsize(500,500); driver:=nopalette; mode:=mcustom; showwindow(getactivewindow,0); initgraph(driver,mode,'Prima applicazione'); if graphresult<>grok then halt; writebuf('Scriva il nome del file grazie:'); readbuf(s,0); settextstyle(couriernewfont,0,4); outtextxy(50,50,s); rectangle(100,100,200,200); bar (100,100,200,200); bar3d(300,300,400,400,30,true); settextstyle(mssansseriffont,0,4); outtextxy(410,410,'Ciao'); repeat ckeckmouse; until i=1; repeat delay(10) until closegraphrequest; closegraph; end.
|
edit by netarrow: formattato il codice
Ultima modifica effettuata da netarrow il 01/02/2010 alle 19:40 |