Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Phi immgrd.dll versione2 - esempio graph.pas

esempio graph.pas

Caricato da: Phi
Scarica il programma completo

  1. program EsempioDll;
  2.  
  3. uses graph, graphimmgrd;
  4.  
  5. const
  6. G1 : smallint=VGA;
  7. G2 : smallint=2;
  8.  
  9. var
  10. i, j :word;
  11.  
  12. BEGIN
  13. graph.icon:=icona;
  14. initgraph(G1, G2, '');
  15. disegnabitmap(0,0,bitmap);
  16.  
  17. //Scrive alfabeto
  18. settext($ffffff,0,'Comic Sans MS',12,5,false,false);
  19. for I := 0 to 3 do for j := 0 to 63 do writeln(j*10,50+i*12,chr(i*64+j));
  20. settext($ffffff,0,'Algerian',12,6,false,false);
  21. for I := 0 to 3 do for j := 0 to 63 do writeln(j*10,100+i*12,chr(i*64+j));
  22.  
  23. //Camibia colore
  24. settext($ff,0,'Algerian',12,6,false,false); writeln(80,10,'Esempio');
  25.  
  26. settext($ff,$00ff00,'Algerian',12,6,false,false);writeln(180,10,'Esempio');
  27.  
  28. settext($ff0000,$80,'Algerian',18,9,false,false);writeln(280,10,'Esempio');
  29.  
  30. settext($ff0000,$80,'Arial',18,9,false,false); writeln(380,10,'Esempio');
  31.  
  32. for I := 1 to 8 do begin
  33.  settext($0,$ffffff,'Arial',6*i,3*i,false,false);
  34.  writeln(10,150+(i)*(i+1)*3,'Esempio');
  35. end;
  36. for I := 9 to 12 do begin
  37.  settext($0,$ffffff,'Arial',6*i,3*i,false,false);
  38.  writeln(300,(i)*(i+1)*3-100,'Esempio');
  39. end;
  40. readln;
  41. END.