FPC 2.6 und WinGraph

[Roland Chastain]

Hallo !

ich bin neu und das ist mein erst Beitrag hier. Ich bitte Entschuldigung für meine Sprache, denn ich bin franzose.

So ich möchte WinGraph benutzen mit FP 2.6. Aber es ist mir nicht gelungen, die Uniten zu compilieren. (Die aktuelle version funktioniert nur mit FP 2.4.)

Ich weiss nicht, ob es ist möglich, und wie ich kann tun. Hat jemand getestet ?

[knight]

Aber es ist mir nicht gelungen, die Uniten zu compilieren.

Hallo Roland,

in einem solchen Fall ist es immer hilfreich, wenn du die Fehlermeldungen angeben kannst, die du erhalten hast. Da manche Funktionen von der verwendeten Umgebung (Betriebssystem etc.) abhängen können, solltest du auch dazu etwas schreiben.

knight

[Roland Chastain]

Aber es ist mir nicht gelungen, die Uniten zu compilieren.

Hallo Roland,

in einem solchen Fall ist es immer hilfreich, wenn du die Fehlermeldungen angeben kannst, die du erhalten hast. Da manche Funktionen von der verwendeten Umgebung (Betriebssystem etc.) abhängen können, solltest du auch dazu etwas schreiben.

knight

Danke, knight.

Da ist die Fehlermeldung :

wingraph.pas(74,27) Fatal: Syntax error, ":" expected but "identifier DRIVER" found
wingraph.pas(0) Fatal: Compilation aborted

und die Linie 74 :

Code: Alles auswählen

procedure DetectGraph(out driver,mode:smallint);

Das Betriebssystem ist Windows 7 32 bits.

[gocher]

Ich habe bisher nichts mit WinGraph probiert, aber ich konnte das Demo kompilieren und auch ausführen!
Läuft das Demo bei Dir?

Voraussetzung ist der Syntax-Modus (-M, {$MODE}) Object Pascal - Mobjfpc der sorgt dafür das out Parameter überhaupt definiert sind!

Falls Du ein Projekt angelegt hast findest Du diese Einstellung unter:
Projekt -> Einstellungen ... -> Compilereinstellungen -> Parsen -> Syntax-Modus

[Roland Chastain]

Ich habe bisher nichts mit WinGraph probiert, aber ich konnte das Demo kompilieren und auch ausführen!
Läuft das Demo bei Dir?

Voraussetzung ist der Syntax-Modus (-M, {$MODE}) Object Pascal - Mobjfpc der sorgt dafür das out Parameter überhaupt definiert sind!

Falls Du ein Projekt angelegt hast findest Du diese Einstellung unter:
Projekt -> Einstellungen ... -> Compilereinstellungen -> Parsen -> Syntax-Modus

Vielen dank ! Es war das.

Free-Pascal IDE :

Options
Compiler
Compiler mode
( ) Free Pascal dialect
(*) Object Pascal extension on
( ) Turbo Pascal compatible
( ) Delphi compatible
( ) Macintosh pascal dialect

oder :

Options
Compiler
Compiler mode
( ) Free Pascal dialect
( ) Object Pascal extension on
( ) Turbo Pascal compatible
(*) Delphi compatible
( ) Macintosh pascal dialect

Die beiden funktionieren.

Es freut mich.

[Roland Chastain]

Da ist ein Code Beispiel.

[edit]
Datei gelöscht
[/edit]

[Roland Chastain]

Hallo !

Ich möchte noch etwas fragen.

Wissen sie warum dieses Code funktioniert nicht ? (Das Bildschirm bleibt schwarz.)

Code: Alles auswählen

 
program Farben;
 
{$APPTYPE GUI}
 
uses
  WinCrt, WinGraph;
 
var
  f1,f2,f3: longWord;
 
procedure OpenGraph;
var
  gd, gm: smallInt;
begin
  gd := noPalette;
  gm := mCustom;
  SetWindowSize(400, 400);
  InitGraph(gd, gm, 'WinGraph');
  SetBkColor({WhiteSmoke}f1);
  ClearViewPort;
  SetColor({PrussianBlue}f2);
  SetFillStyle(SolidFill, {RoyalBlue}f3);
  SetTextStyle(CourierNewFont or BoldFont, HorizDir, 32);
end;
 
var
  s: string;
 
begin
  f1 := WhiteSmoke;
  f2 := PrussianBlue;
  f3 := RoyalBlue;
 
  OpenGraph;
  s := 'Hallo Welt !';
  FillRect(50,50,350,350);
  OutTextXY((400-TextWidth(s)) div 2, (400-TextHeight(s)) div 2, s);
  ReadKey;
  CloseGraph;
end.

[Roland Chastain]

Fehler gefunden !

Code: Alles auswählen

  farbe := DarkOrange; // schlecht
  InitGraph(treiber, modus, '');

Code: Alles auswählen

  InitGraph(treiber, modus, '');
  farbe := DarkOrange; // gut

Da sind kleine Code Beispiele das ich geschrieben habe (PAS und EXE Dateien).

[Roland Chastain]

Hallo ! Da ist ein neues Schachbrett mit WinGraph gemacht.



Viele Grüße.

Roland

[Roland Chastain]

Hallo ! Ich weiß das es ist nicht ein FreePascal Frage, aber könnten sie mir bitte helfen, die deutsche Version meines Schachbretts zu enden ?

Code: Alles auswählen

unit chessmessages;
 
interface
 
uses
  chess;
 
type
  tChessMessages = record
    msg_check: shortstring;
    msg_wtm: shortstring;
    msg_btm: shortstring;
    msg_state: array[tGameState]of shortstring;
    msg_illegal: shortstring;
    msg_end: shortstring;
    msg_loading: shortstring;
  end;
 
const
  lang_en = 0;
  lang_de = 1;
  lang_fr = 2;
 
var
  messages: array[lang_en..lang_fr]of tChessMessages;
 
implementation
 
begin
  with messages[lang_en] do
  begin
    msg_check := 'Check !';
    msg_wtm := 'White to move.';
    msg_btm := 'Black to move.';
    msg_state[progress] := 'Game in progress';
    msg_state[checkmate] := 'Checkmate';
    msg_state[stalemate] := 'Stalemate';
    msg_state[draw] := 'Draw';
    msg_illegal := 'Illegal move !';
    msg_end := 'Game over. See you soon !';
    msg_loading := 'Loading...';
  end;
  with messages[lang_de] do
  begin
    msg_check := 'Schach !';
    msg_wtm := 'Weiß am Zug.';
    msg_btm := 'Schwarz am Zug.';
    msg_state[progress] := 'Game in progress'; // <-- ?
    msg_state[checkmate] := 'Matt';
    msg_state[stalemate] := 'Patt';
    msg_state[draw] := 'Remis';
    msg_illegal := 'Illegal Zug !';
    msg_end := 'Ende des Spiels. Auf wieder sehen !'; // <-- Ist es korrekt ?
    msg_loading := 'Loading...'; // <-- ?
  end;
  with messages[lang_fr] do
  begin
    msg_check := 'Echec !';
    msg_wtm := 'Les blancs ont le trait.';
    msg_btm := 'Les noirs ont le trait.';
    msg_state[progress] := 'Partie en cours';
    msg_state[checkmate] := 'Mat';
    msg_state[stalemate] := 'Pat';
    msg_state[draw] := 'Partie remise';
    msg_illegal := 'Coup ill'#233'gal !';
    msg_end := 'La partie est termin'#233'e. A bient'#244't !';
    msg_loading := 'Chargement...';
  end;
end.

[Socke]

Code: Alles auswählen

 
  with messages[lang_de] do
  begin
    msg_check := 'Schach!'; // <-- vor Satzzeichen wird kein Leerzeichen gesetzt
    msg_wtm := 'Weiß am Zug.';
    msg_btm := 'Schwarz am Zug.';
    msg_state[progress] := 'Spiel läuft';
    msg_state[checkmate] := 'Matt';
    msg_state[stalemate] := 'Patt';
    msg_state[draw] := 'Remis';
    msg_illegal := 'Ungültiger Zug!';
    msg_end := 'Ende des Spiels. Auf wiedersehen!';
    msg_loading := 'Lade ...';
  end;

[Michl]

Will nicht pingelig sein, doch da es speziell um die korrekte Rechtschreibung geht:

Code: Alles auswählen

   msg_end := 'Ende des Spiels. Auf Wiedersehen!'; //das Wiedersehen

[Roland Chastain]

Vielen Dank!