Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - pascal e api win32
Forum - Pascal - pascal e api win32

Avatar
Ocentral (Normal User)
Pro


Messaggi: 86
Iscritto: 25/12/2009

Segnala al moderatore
Postato alle 18:39
Domenica, 31/01/2010
Per piacere chiedo aiuto..

Guardate questo programma che stranezze fa:

prima mi funziona e poi mi da errori.

Sembra che gli errori siano nel sorgente della unit.

edit by netarrow: sistemato il titolo



Ocentral ha allegato un file: primapplicazione.zip (66008 bytes)
Clicca qui per scaricare il file

Ultima modifica effettuata da netarrow il 01/02/2010 alle 19:47
PM Quote
Avatar
netarrow (Admin)
Guru^2


Messaggi: 2502
Iscritto: 12/05/2004

Segnala al moderatore
Postato alle 18:51
Domenica, 31/01/2010
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
PM Quote
Avatar
Ocentral (Normal User)
Pro


Messaggi: 86
Iscritto: 25/12/2009

Segnala al moderatore
Postato alle 16:55
Lunedý, 01/02/2010
Codice sorgente - presumibilmente Delphi

  1. program grafica;
  2.  
  3. {$apptype GUI}
  4. uses windows,wincrt,wingraph,winmouse;
  5. var
  6.   // variabili per la grafica
  7.    driver,mode:smallint; c:char;
  8.   //varibili per il programma
  9.   s:shortstring;    i:byte;
  10.  
  11. ////////////////////////////////////////////////////
  12. procedure ckeckmouse;
  13.  
  14. var me:mouseeventtype;
  15. begin
  16.  if not(pollmouseevent(me)) then outtext('Non riuscito');
  17.  getmouseevent(me);
  18.  with me do
  19.   begin
  20.   case action of
  21.    mouseactiondown:
  22.       begin
  23.         case buttons of
  24.            mouseleftbutton:
  25.              begin
  26.                i:=1;
  27.                outtextxy(200,400,'Mouse');
  28.  
  29.        end;  end;
  30.             end;
  31.  end;
  32.  
  33.   end;
  34. end;
  35.  
  36. ////////////////////////////////////////////////////
  37.  
  38.  
  39. begin
  40. c:=readkey;
  41. setwindowsize(500,500);
  42. driver:=nopalette;
  43. mode:=mcustom;
  44. showwindow(getactivewindow,0);
  45. initgraph(driver,mode,'Prima applicazione');
  46. if graphresult<>grok then
  47. halt;
  48. writebuf('Scriva il  nome del file grazie:');
  49. readbuf(s,0);
  50. settextstyle(couriernewfont,0,4);
  51. outtextxy(50,50,s);
  52. rectangle(100,100,200,200);
  53. bar (100,100,200,200);
  54. bar3d(300,300,400,400,30,true);
  55.  
  56. settextstyle(mssansseriffont,0,4);
  57. outtextxy(410,410,'Ciao');
  58. repeat
  59. ckeckmouse;
  60. until i=1;
  61.  
  62.  
  63. repeat delay(10) until closegraphrequest;
  64. closegraph;
  65. end.



edit by netarrow: formattato il codice

Ultima modifica effettuata da netarrow il 01/02/2010 alle 19:40
PM Quote
Avatar
Phi (Member)
Expert


Messaggi: 241
Iscritto: 30/12/2009

Segnala al moderatore
Postato alle 15:25
Domenica, 07/02/2010
Cosa dovrebba fare il programma??

PM Quote