Discussion :

[droggo]

Hal,

J'ai un problème avec Lazarus.

Dans une application console, je trouve un sérieux bug d'affichage.

Qui peut essayer ce petit programme (pensez à créer un projet pour une 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
33
34
35
program test_01;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,
  { add your units here }
  crt;
 
const
  cbl = 255;
var
  i: LongInt;
  s,s2,s3:ansiString;
//  s,s2,s3:shortString;
begin
  s := '';
  for i:=1 to cbl do s:=s+'k';
  writeln('s  = <',s,'>');
  //readln;
  s2 := '';
  for i:=1 to cbl do s2:=s2+'a';
  textcolor(lightred);
  writeln('s2 = <',s2,'>');
  //readln;
  s3 := '';
  for i:=1 to cbl do s3:=s3+'m';
  textcolor(lightcyan);
  writeln('s3 = <',s3,'>');
 
  readln;
end.

J'obient un affichage qui n'est pas du tout celui escompté.

Ce n'est pas dû à FreePascal lui-même, car le programme compilé avec miniPascal fonctionne parfaitement.

Est-ce général, ou un problème qui ne se produirait que chez moi ? (je n'ai modifié aucune option de Lazarus, mais on ne sait jamais).

[Clandestino]

Même bug chez moi avec lazarus, Pas de bug avec FPC...

[droggo]

Hal,

Même bug chez moi avec lazarus, Pas de bug avec FPC...

Ça me rassure.

C'est quand même bizarre, on ne fait appel qu'à la gestion basique d'une console.

Au passage, je n'avais même pas remarqué sur mon exemple, tant le résultat m'a pertubé : quand l'écriture d'une chaîne dépasse le bord de la fenêtre, et donc force un retour à la ligne, la couleur d'affichage revient à la valeur par défaut.

Je sais bien que les applications console ne sont pas la destination première d'un outil comme Lazarus, mais c'est une possibilité offerte