Discussion :

[ChPr]

Bonjour à toutes et à tous,

Je cherche à connaître la taille en pixels d'une chaîne afin de la cadrer dans une image, je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TAffCarte.Infos_GPS(X, Y: Integer; Txt: String; bmp: TBGRABitmap; clText, clFond: TBGRAPixel);
var
  h1, h2: Integer;
begin
  bmp.FontHeight := 36;
  bmp.FontAntialias := true;
  bmp.FontStyle := [fsBold];
  h1:= bmp.Canvas.Font.GetTextWidth(Txt);
  h2:= bmp.Canvas.GetTextWidth(Txt);
 
  bmp.FillRoundRectAntialias(X-l/2, Y-15, X+l/2, Y+15, 10, 10, clFond, [rrDefault], True);
  bmp.TextOut(X-l/2, Y-10, Txt, clText);
end;

Si la taille du texte affiché est bien en rapport avec "FontHeight", chacune des deux lignes (h1 et h2) me renvoie systématiquement 188, qui est en rapport avec le texte choisi, mais qui n'est absolument pas en rapport avec la taille de police choisie.

Que faut-il faire pour avoir un nombre de pixels en rapport avec la taille de la police ?

Cordialement.

Pierre

[ChPr]

Bon, j'ai trouvé "une" solution, mais bon sang que c'est bizarre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TAffCarte.Infos_GPS(X, Y: Integer; Txt: String; bmp: TBGRABitmap; clText, clFond: TBGRAPixel);
var
  h, l: Integer;
begin
  bmp.FontHeight := 20;
  bmp.Canvas.Font.Size:= 15;
  bmp.FontStyle := [fsBold];
  l:= bmp.Canvas.Font.GetTextWidth(Txt);
  h:= bmp.Canvas.Font.GetTextHeight(Text);
  bmp.FillRoundRectAntialias(X-10-l/2, Y-h/2, X+10+l/2, Y+h/2, 8, 8, clFond, [rrDefault], True);
  bmp.TextOut(X-l/2, Y-h/2, Txt, clText);
end;

- C'est le "bmp.FontHeight" qui donne la taille du texte mais ne ne joue absolument pas sur les valeurs l et h
- C'est le " bmp.Canvas.Font.Size" qui donne les valeurs correctes de l et h, mais ne joue pas sur la taille de la police.

NOTA : FontHeight = 4/3 de Size

J'ai refais au moins 56 fois les manips pour être sûr de mon coup !

Allez comprendre

Si vous avez une meilleure solution, je suis preneur.

Cordialement.

Pierre

[ChPr]

Pas une petite idée de solution ?

Parce que si sous Windows, ça se passe correctement, sous Linux, les longueurs obtenues ne sont pas bonnes, généralement trop petites.

Cordialement.

Pierre

[BeanzMaster]

Pas une petite idée de solution ?

Parce que si sous Windows, ça se passe correctement, sous Linux, les longueurs obtenues ne sont pas bonnes, généralement trop petites.

Cordialement.

Pierre

Salut Pierre essaye de poster dans le forum Anglais, Circular est plus actif de ce côté et Lainz intervient très souvent. Ils seront mieux amenés à te répondre sur le sujet

https://forum.lazarus.freepascal.org...oard,46.0.html

Voici quelques sujets qui pourront peut-être t'aider
https://forum.lazarus.freepascal.org...html#msg286182
https://forum.lazarus.freepascal.org...html#msg313075
https://forum.lazarus.freepascal.org...html#msg315743

A+

[ChPr]

Merci BeanzMaster, grâce aux liens que tu m'as donnés, j'ai trouvé cette instruction "TextSize" qui fonctionne bien sous Windows, mais qui n'en fait qu'à sa tête sous Linux :

Si j'écris :

Code :

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

1
2
3
4
5
6
7
var
  s: TSize;
begin
  with bmp do
  begin
 ...
    s:= TextSize(Txt);

j'obtiens l'erreur suivante :

Code :

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

fntrbase.pas(266,9) Error: Incompatible types: got "TSize" expected "LongWord"

Bon, je change en LongWord :

Code :

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

1
2
3
4
5
6
7
var
  s:LongWord;
begin
  with bmp do
  begin
 ...
    s:= TextSize(Txt);

j'obtiens alors la même erreur :

Code :

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

fntrbase.pas(266,9) Error: Incompatible types: got "TSize" expected "LongWord"

Comment se sort-on de ce piège infernal ?

Cordialement.

Pierre

[BeanzMaster]

Hello ton erreur du type viens de l'ordre dans lequel sont declarées les unités. Je ne suis pas chez moi pour vérifier, regarde la fonction textsize dans bgrabitmap pour voir où est déclaré TSize. Il se trouve peut-être dans bgratypes et ce n'est donc pas celui qui est declaré dans Lazarus par défaut dans je ne sais plus quelle unité ("system", "graphics" ou LclTypes).

A+
Jerome