Pascal und initgraph

[Brocki]

Hallo,

Bei turbo-pascal unter Windows/Dos lauten die Befehle um den Grafikmodus einzuschalten ja folgendermaßen:

t:=detect;
initgraph(t,m,'PFADZUPASCAL\BGO']

nur wie kann ich dieses auch unter free-pascal realisieren?
ich habe zwar schon mal in die Dokumentation geschaut kann aber nicht wirglich was damit anfangen. Bzw. weiss ich immer noch nicht wo ich dieses mysteriöse Verzeichniss BGI finde, bzw was ich in dem Befehl initgraph für einen Strin angeben soll damit dies funktioniert.
Ich weiss die Frage kam schonmal konnte mir aber mit den gefunden Threads nicht helfen.

Vielen Dank
Brocki

[xstevex22]

Hi!
Wenn du freepascal installiert hast, solltest du dir mal die Beispiele anschauen. Hier mal ein Auszug:

Program inigraph1;

{ Program to demonstrate static graphics mode selection }

uses graph;


const
  TheLine = 'We are now in 640 x 480 x 256 colors!'+
            ' (press <Return> to continue)';

var
  gd, gm, lo, hi, error,tw,th: integer;
  found: boolean;

begin
  { We want an 8 bit mode }
  gd := D8bit;
  gm := m640x480;
  initgraph(gd,gm,'');
  { Make sure you always check graphresult! }
  error := graphResult;
  if (error <> grOk) Then
    begin
    writeln('640x480x256 is not supported!');
    halt(1)
    end;
  { We are now in 640x480x256 }
  setColor(cyan);
  rectangle(0,0,getmaxx,getmaxy);
  { Write a nice message in the center of the screen }
  setTextStyle(defaultFont,horizDir,1);
  tw:=TextWidth(TheLine);
  th:=TextHeight(TheLine);  
  outTextXY((getMaxX - TW) div 2,
            (getMaxY - TH) div 2,TheLine);
  { Wait for return }
  readln;
  { Back to text mode }
  closegraph;
end.

Edit by anda_skoa: code tags gesetzt