Discussion :

[NetFantome]

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 :

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

1
2
 
DrawText(Canvas.Handle, ' décembre ' , -1, aRect , DT_CENTER or DT_NOPREFIX or DT_WORDBREAK );

Elle m'affiche .
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

[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.

[NetFantome]

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 :

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
 
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

[jurassic pork]

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

Code :

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

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

et ton code j'obtiens ceci :


Ami calmant, J.P

[NetFantome]

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

Code :

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

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

et ton code j'obtiens ceci :


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.

[jurassic pork]

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.