Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#9

Re: Grafikausgabe mit FreePascal (DOS)

  Alt 31. Mär 2007, 15:26
Also, wenn du direkt in DOS programmierst, geht das nicht. DOS ist im Textmodus. Da kannst du nur Text ausgeben und keine einzelnen Pixel färben. Du musst erst in den Grafimodus schalten:
Delphi-Quellcode:
var graphicdriver, graphicmode : integer;
    bgipfad:string;
begin
  //ich glaube, du kannst hier auch jeweils 0 einsetzen
  graphicdriver:=vga;
  graphicmode:=vgahi;
  
  //hier musst du das entspr. Verzeichnis bei dir suchen, oder im Netz nach dieser Datei
  bgipfad:='C:\ ... \egavga.bgi';
  //es gibt auch andere BGIs für cga und svga
  
  
  //Treiber initialisieren
  initgraph(graphicdriver,graphicmode,bgipfad);

  
  //so, und hier kannst du zeichnen
  pupixel(10,10,white);
  
  //...

  
  //Grafimkoeus beenden
  closegraph;
end;
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat