Discussion :

[Gunter_D]

Bonjour à tous !

Je n'arrive pas à trouver un tuto claire et simple qui explique comment mettre des caractères en couleur dans Delphi 6 en application console.

Si quelqu’un en connait un ou à la gentillesse de m'expliquer sa serais génial !

Merci d'avance

[Paul TOTH]

voici un extrait de mon mini serveur HTTP en mode console.

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
 
var
  console: THandle;
 
Procedure Log(color:byte; s:string);
 const
  r:TSmallRect=(Left:0; Top:1; Right:79; Bottom:23);
  xy:TCoord=(x:0;y:0);
  wxy:TCoord=(x:0;y:23);
 var
  attr:TCharInfo;
  size:cardinal;
 begin
  attr.AsciiChar:=' ';
  attr.Attributes:=FOREGROUND_RED;
//  EnterCriticalSection(LockLog);
 // try
   ScrollConsoleScreenBuffer(Console,r,nil,xy,attr);
   FillConsoleOutputAttribute(Console,color,80,wxy,size);
   WriteConsoleOutputCharacter(Console,pchar(s),length(s),wxy,size);
//  finally
//   LeaveCriticalSection(LockLog);
//  end;
 end;
 
var
  i : Integer;
begin
  Console:=GetStdHandle(STD_OUTPUT_HANDLE);
  for i := 1 to 15 do
   Log(i,'Couleur ' + IntToStr(i));
end.

le Scroll est utilisé ici pour faire défiler la console vers le haut et écrire toujours sur l'avant dernière ligne...la dernière étant utilisée pour saisir des données.

[Gunter_D]

Désolé j'ai oublié de préciser, je code en Pascal. Merci Paul, mais je ne comprend pas ta réponse, je ne code que depuis 6 mois...

[ShaiLeTroll]

Lorsque dit "je code en Pascal" , tu parles d'un Turbo Pascal ou de Free Pascal avec Lazarus ?

le code fourni par Paul TOTH c'est du Pascal à la sauce Delphi\Win32, THandle et TSmallRect sont spécifiques à Windows, tout comme
WriteConsoleOutputCharacter ou FillConsoleOutputAttribute


Utilises-tu bien Delphi 6 comme tu l'as mentionné et non un autre environnement Pascal !?

[Gunter_D]

Je ne comprends pas la réponse de Paul TOTH... Oui, je suis sur delphi 6.

[ALWEBER]

Voici l'exemple de Paul en plus complet :

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
35
36
 
program ex01;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
 
var
  console: THandle;
 
Procedure Log(color:byte; s:string);
 const
  r:TSmallRect=(Left:0; Top:1; Right:79; Bottom:23);
  xy:TCoord=(x:0;y:0);
  wxy:TCoord=(x:0;y:23);
 var
  attr:TCharInfo;
  size:cardinal;
 begin
  attr.AsciiChar:=' ';
  attr.Attributes:=FOREGROUND_RED;
   ScrollConsoleScreenBuffer(Console,r,nil,xy,attr);
   FillConsoleOutputAttribute(Console,color,80,wxy,size);
   WriteConsoleOutputCharacter(Console,pchar(s),length(s),wxy,size);
 end;
 
var
  i : Integer;
begin
  Console:=GetStdHandle(STD_OUTPUT_HANDLE);
  for i := 1 to 15 do
   Log(i,'Couleur ' + IntToStr(i));
  readln ;
end.