Discussion :

[Gregory666]

Bonjour,

Es t’il possible de customiser une couleur type RGB sous une Application Console

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
var
  TextAttr : Word;
  WHandle : THandle;
 
{Writeln Couleur}
procedure WritelnC(Ln: String; Color: Byte);
begin
  TextAttr := (Color and $f) or (TextAttr and $f0);
  SetConsoleTextAttribute(WHandle, TextAttr);
end;

Merci pour votre réponse.

[franckcl]

Je n'ai pas l'impression que cela soit possible avec cette fonction d'après MS : https://msdn.microsoft.com/fr-fr/lib...ter_attributes

Tu peux faire des combinaisons comme ceci, j'ai testé et ça marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils, windows;
begin
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), BACKGROUND_BLUE or FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_INTENSITY);
  writeln('Ecriture text jaune sur fond bleu');
  readln;
end.

Franck