DrawText n'affiche pas correctement les accents dans un StringGrid

Version imprimable

29/08/2023, 16h55
NetFantome

1 pièce(s) jointe(s)

DrawText n'affiche pas correctement les accents dans un StringGrid
Bonjour à tous,
J'ai un problème avec la fonction DrawText que j'utilise dans la fonction DrawCell de mon StringGrid, elle ne m'affiche pas les accents correctement.
Code:

1 2 DrawText(Canvas.Handle, ' décembre ' , -1, aRect , DT_CENTER or DT_NOPREFIX or DT_WORDBREAK );
Elle m'affiche Pièce jointe 643213.
Sous Delphi , aucun problème.
Je pense que cela vient de l'Unicode, mais je ne trouve pas.

Merci d'avance, je suis nouveau sous Lazarus.

Lazarus 2.2.6 - FPC : 3.2.2
29/08/2023, 17h07
tourlourou

Bonjour et bienvenue ! :)
Les constantes et chaînes sont probablement codées en UTF-8 et le DrawText attendrait une chaîne ANSI : essaye d'utiliser Utf8ToAnsi pour convertir la chaîne à afficher.

Citation:

Envoyé par tourlourou

Bonjour et bienvenue ! :)
Les constantes et chaînes sont probablement codées en UTF-8 et le DrawText attendrait une chaîne ANSI : essaye d'utiliser Utf8ToAnsi pour convertir la chaîne à afficher.

Non, toujours le même problème
ci dessous mon code complet si cela peut aider à comprendre.

Code:

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
 
procedure TFormAccueil.SGPlanningDrawCell(Sender: TObject; aCol,  aRow: Integer; aRect: TRect; aState: TGridDrawState);
var tmp : RawByteString;
begin
   With Sender As TStringGrid Do With Canvas Do
  Begin
    { Sélection de la couleur de fond }
      If gdFixed in aState Then     Brush.Color := clBtnFace
       Else If gdSelected In aState Then Brush.Color := clNavy
           Else Brush.Color := clWhite;
 
    { Dessin du fond }
    FillRect(aRect);
 
    { Sélection de la couleur de texte }
    If gdSelected In aState Then
          SetTextColor (Canvas.Handle,clWhite)
       Else
         SetTextColor(Canvas.Handle,clBlack);
 
    { Dessin du texte en utilisant la fonction API }
 
    //rawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, aRect , DT_CENTER or DT_NOPREFIX or DT_WORDBREAK );
     //tmp :=  Utf8ToAnsi('Décembre') ;
     DrawText(Canvas.Handle, 'Décembre' , -1, aRect , DT_CENTER or DT_NOPREFIX or DT_WORDBREAK );
  End;
end;

Merci d'avance

30/08/2023, 07h52
jurassic pork

1 pièce(s) jointe(s)
Hello,
Quelles unités utilises-tu ?
parce que moi avec ces unités là :
Code:

1 2 uses lclintf, lcltype, SysUtils, Forms, Controls, Grids, StdCtrls, Types, graphics;
et ton code j'obtiens ceci :
Pièce jointe 643233

Ami calmant, J.P
30/08/2023, 09h17
NetFantome
Citation:
Envoyé par jurassic pork

Hello,
Quelles unités utilises-tu ?
parce que moi avec ces unités là :

Code:

1 2 uses lclintf, lcltype, SysUtils, Forms, Controls, Grids, StdCtrls, Types, graphics;

et ton code j'obtiens ceci :
Pièce jointe 643233

Ami calmant, J.P
Super, cela fonctionne.
Avez vous vous une explication, quel est la différence entre les unité avec lcl et sans lcl devant le non de l'unité.
Merci à tous.
30/08/2023, 09h22
jurassic pork

Citation:

The Lazarus component library or LCL is very similar to Delphi's VCL (Visual Component Library). Most Lazarus units, classes and properties have the same name and functionality as their equivalents in Delphi. This makes porting Delphi applications to Lazarus relatively easy.