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

[ChPr]

BeanzMaster, dans mon unité principale, j'ai déplacé les unités "BGRA" en tête de liste, mais apparemment, cela ne change rien :

Code :

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

1
2
3
4
5
6
7
8
uses
  BGRABitmapTypes, BGRABitmap, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
  Dialogs, LResources,  ComCtrls, StdCtrls, ExtCtrls, Buttons, Menus, Grids,
  Types, Math,
{$IFDEF Linux}
  unix,
{$ENDIF}
  GPSUtils, GestionTuiles, InfosSat, LectureGPS, Convert;

Mais peut-être que ce n'est pas ce qu'il faut faire ?

Cordialement.

Pierre

[BeanzMaster]

BeanzMaster, dans mon unité principale, j'ai déplacé les unités "BGRA" en tête de liste, mais apparemment, cela ne change rien :

Code :

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

1
2
3
4
5
6
7
8
uses
  BGRABitmapTypes, BGRABitmap, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
  Dialogs, LResources,  ComCtrls, StdCtrls, ExtCtrls, Buttons, Menus, Grids,
  Types, Math,
{$IFDEF Linux}
  unix,
{$ENDIF}
  GPSUtils, GestionTuiles, InfosSat, LectureGPS, Convert;

Mais peut-être que ce n'est pas ce qu'il faut faire ?

Cordialement.

Pierre

Il faut mieux lplacer ces unités à la fin (après ton unité Convert) Car si TSize se trouve dans BGRABitmapTypes, il sera surchargé par celui qui est ici dans "Types" qui est déclaré après dans le uses, et si il y a un TSize dans GPSUtils, ce sera lui qui sera pris en charge par défaut .
Sous Windows TSize est également définie dans l'unité Windows, si je me souviens bien.

Donc si TextSize utilise le TSize de BRGABitmapTypes, il faut placer ces unités ( BGRABitmapTypes, BGRABitmap) en dernière position.
Ou sinon deuxième solution, dans le code il faut spécifier d'ou TSize provient

Code :

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

1
2
Var
  aSize : BGRABitmapTypes.TSize;

[ChPr]

Merci BeanZMaster pour ces propositions.

Le fait de déplacer l'endroit de déclaration des unités n'a pas résolu le problème.

J'ai alors modifié le TSize en BGRABitmapTypes.TSize, là, un message d'erreur me dit que TSize n'existe pas. Je clique alors sur l'instruction "TextSize()" qui me renvoie à l'unité "BGRADefaultBitmap" qui me renvoie au fichier "typshrdh.inc". J'essaie alors "typshrdh.TSize" ; une erreur me dit que cela n'existe pas.

Me vient alors l'idée de créer ce type dans une de mes unités (GPSUtils). je crée :

Code :

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

1
2
3
TSize = record
  cx, cy: longInt;
end;

et je fais : "GPSUtils.TSize, ce qui me donne l'erreur :

Code :

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

fntrbase.pas(274,9) Error: Incompatible types: got "TYPES.TSize" expected "GPSUTILS.TSize"

Bon, allons-y pour un "Types.TSize" et là, Oh merveille, ça fonctionne ! En effet, l'unité "Types" renvoie au fichier "typshrdh.inc" via un "include" (ce j'aurais peut-être dû faire au lieu de "typshrdh.TSize").

Et, cerise sur le gâteau, le cadrage est bon !

Quels chemins de traverse quand même.

Merci beaucoup BeanzMaster

Cordialement.

Pierre