Bonjour !

Pour pouvoir facilement changer les couleurs de mon application sans avoir à chercher les lignes dispersées dans le code, j'ai pensé utiliser des variables intermédiaires.

Les couleurs prédéfinies dans l'unité WinGraph étant du type LongWord, j'ai déclaré des variables de ce type dans mon programme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
program Exemple;
 
uses
  WinCrt,
  WinGraph;
 
var
  couleur1, couleur2, couleur3: longWord;
 
procedure OpenGraph;
var
  gd, gm: smallInt;
begin
  gd := noPalette;
  gm := mCustom;
  SetWindowSize(100, 100);
  InitGraph(gd, gm, 'Exemple Wingraph');
  SetBkColor({Yellow}couleur1);
  ClearViewPort;
end;
 
begin
  couleur1 := Yellow;
  couleur2 := Burgundy;
  couleur3 := Tangerine;
 
  OpenGraph;
  SetColor({Burgundy}couleur2);
  SetFillStyle(SolidFill, {Tangerine}couleur3);
  FillRect(10, 10, 40, 40);
  ReadKey;
  CloseGraph;
end.
Mais ça ne marche pas. Le code se compile, mais le dessin n'apparaît pas : l'écran est noir comme si les couleurs n'avaient pas été initialisées.

Quelqu'un aurait-il une idée de ce qui ne va pas ?