Discussion :

[Papy214]

Bonjour

J'ai un petit problème de code que je n'arrive pas à corriger.

Rch est un TRichEdit.
Niveau est une valeur d'un ensemble pour indiquer le type d'action.
Cls est un tableau de paramétrage avec des couleurs et styles en fonction du type d'action.

Version 1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    with Rch, Lines do
    begin
      BeginUpdate;
 
      SelAttributes.Color := Cls[Niveau].Couleur;
      SelAttributes.Style := Cls[Niveau].Style;
 
      Append(Format('%s : %s', [FormatDateTime('', Now), Texte]));  <<<<<<<<<<<<<<<<<<<<
 
      EndUpdate;
      Application.ProcessMessages;
    end;

Les couleurs et les styles fonctionnent bien.

Version 2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    with Rch, Lines do
    begin
      BeginUpdate;
 
      SelAttributes.Color := Cls[Niveau].Couleur;
      SelAttributes.Style := Cls[Niveau].Style;
 
      Insert(0, Format('%s : %s', [FormatDateTime('', Now), Texte]));  <<<<<<<<<<<<<<<<<<<<
 
      EndUpdate;
      Application.ProcessMessages;
    end;

Là tout est gris !

Je me doute bien qu'il faut faire autrement mais je n'arrive pas à trouver la solution.

[ShaiLeTroll]

Ben faut mettre un format genre 'YYYY-MM-DD HH:NN:SS'
C'est dans la doc : System.SysUtils.FormatDateTime

Quel est le rapport avec le TRichEdit ?

Et par définition SelAttributes c'est pour la sélection en cours, faut plutôt appliquer cela sur un texte selectionné, en général, on le calcule via SetLength et surtout CaretPos qui doit être à l'endroit d'insertion du texte

[Papy214]

Le problème n'est pas le format de la date mais la colorisation du texte.
Les lignes sont toujours insérées à la ligne 0.
Mais tu as raison. Je pensais que l'insertion déclenchait le même mécanisme mais non.
J'ai résolu le problème comme ça en suivant ton conseil.

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
    S := Format('%s : %s', [FormatDateTime('', Now), Texte]);
    with Rch, Lines do
    begin
      BeginUpdate;
 
      if FInsere then
      begin
        Insert(0, S);
        SelStart            := 0;
        SelLength           := Length(S);
        SelAttributes.Color := Cls[Niveau].Couleur;
        SelAttributes.Style := Cls[Niveau].Style;
      end
      else
      begin
        SelAttributes.Color := Cls[Niveau].Couleur;
        SelAttributes.Style := Cls[Niveau].Style;
        Append(S);
      end;
 
      EndUpdate;
      Application.ProcessMessages;
    end;

Merci et bon dimanche

[Hs32-Idir]

Bonjour

J'ai un petit problème de code que je n'arrive pas à corriger.

Rch est un TRichEdit.
Niveau est une valeur d'un ensemble pour indiquer le type d'action.
Cls est un tableau de paramétrage avec des couleurs et styles en fonction du type d'action.

Version 1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    with Rch, Lines do
    begin
      BeginUpdate;
 
      SelAttributes.Color := Cls[Niveau].Couleur;
      SelAttributes.Style := Cls[Niveau].Style;
 
      Append(Format('%s : %s', [FormatDateTime('', Now), Texte]));  <<<<<<<<<<<<<<<<<<<<
 
      EndUpdate;
      Application.ProcessMessages;
    end;

Les couleurs et les styles fonctionnent bien.

Version 2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    with Rch, Lines do
    begin
      BeginUpdate;
 
      SelAttributes.Color := Cls[Niveau].Couleur;
      SelAttributes.Style := Cls[Niveau].Style;
 
      Insert(0, Format('%s : %s', [FormatDateTime('', Now), Texte]));  <<<<<<<<<<<<<<<<<<<<
 
      EndUpdate;
      Application.ProcessMessages;
    end;

Là tout est gris !

Je me doute bien qu'il faut faire autrement mais je n'arrive pas à trouver la solution.

Ton problème, je crois, vient de l'utilisation de SelStart, SelAttributes et SelLength pour définir ou colorier du texte. Voici une petite fonction extraite de mon programme, cela pourrait t'aider à mieux comprendre :

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
 
function WideAddColoredLines(dwFirstA: WideString; Color: TColor; dwTextA: WideString; var RiChEdit: TTntRichEdit): Boolean;
var
  Startup: Integer;
begin
  RiChEdit.PlainText := False;
  Startup := RiChEdit.GetTextLen;
  RiChEdit.SelStart := Startup;
  RiChEdit.SelLength := Length(dwFirstA);
  RiChEdit.SelAttributes.Color := Color;
  RiChEdit.SelText := dwFirstA;
  RiChEdit.SelStart := RiChEdit.SelStart + Length(dwFirstA);
  RiChEdit.SelAttributes.Color := clRed;
  RiChEdit.SelText := ' : ';
  RiChEdit.SelAttributes.Color := clGray;
  RiChEdit.SelText := dwTextA;
  RiChEdit.SelAttributes.Color := clLime;
  RiChEdit.SelText := ' ' + FormatDateTime('hh:mm:ss', Now);
  RiChEdit.SelAttributes.Color := clGray;
  RiChEdit.SelText := ' ]' + #13#10;
  RiChEdit.Repaint;
  Result := True;
end;