Discussion :

[Jipété]

Bonjour,

tout est dans le titre et j'ai farfouillé dans lazarus/Version/ide/*.lpi (ça va vite il n'y en a que trois) sans rien trouver.

À partir de là, je ne sais plus trop quoi faire, regardez dans l'inspecteur d'objets comment je vois ce défaut :


Et dans un programme, là, c'est avec un TLabeledEdit où je ne peux pas définir la hauteur de la zone du label ni son layout, même si l'Inspecteur d'objets me les montre :


La récapitulation :


Une idée pour corriger ça ? (dans l'inspecteur d'objets ça n'est pas trop grave, dans l'ihm c'est dramatique).
Une astuce pour autoriser la prise en compte des modifs dans l'inspecteur d'objets m'irait bien, genre passer de private à public ou similaire ou qqchse dans ce genre.

Merci et bon week-end,

Debian / Gtk 2.8 / FPC 3.2 Laz 2.0.12

[circular17]

Ah oui c'est embêtant.

Est-ce que cela arrive avec d'autres fontes ?

[Jipété]

Ah oui c'est embêtant.

Est-ce que cela arrive avec d'autres fontes ?

Hélas oui, et il semblerait que ça concerne le TLabel également :



Et surprise, on peut changer la taille de la police du EditLabel.

EDIT : PS : suis-je le seul à subir cette engeance ?

[jurassic pork]

Hello,
le problème est soulevé ici dans le forum anglophone principal de Lazarus. Le gtk2 est de moins en moins compatible avec les versions récentes d'Ubuntu qui s'orientent plutôt vers GTK3 (version GTK3 de Lazarus inexploitable car remplie de bugs) et GTK4. L'alternative qui me semble la meilleure est d'utiliser QT5 qui permet d'avoir des IHM similaires sous les différents O.S.
Et pas de problème de jambage sous Ubuntu 20.04 Lazarus 2.0.6 QT5 :



Ami calmant, J.P

[Jipété]

Bonjour,

merci pour le lien, il s'y trouve des choses très intéressantes, genre

I wrote a bugreport but nobody cares.

source

ainsi que l'idée de la Height à 18 pour-les-labels (à 16 ça fonctionne aussi mais ne prenons pas de risques) qui permet d'avoir les empattements visibles, exemple avec les 2 TLabel en haut :


mais aussi le fait que plein d'environnements sont impactés et plein ne le sont pas, allez comprendre.

Malheureusement pour moi, il y a longtemps de ça j'avais découvert une combine pour dériver d'un compo standard un autre compo hérité du standard et dont on pouvait modifier une (ou des) propriété(s) en la(les) redéfinissant dans une nouvelle unité, mais impossible de remettre la main dessus...

Et je ne suis pas très chaud pour basculer en Qt, ma dernière tentative ayant été assez désagréable.

D'un autre côté, le post du lien date de fin 2021, peut-être qu'"ils" vont finir par corriger le défaut ?

[Jipété]

Bonsoir,

comme j'avais un peu de temps à perdre, j'ai farfouillé ici et là et j'ai découvert la fonction AdjustFontForOptimalFill, qui s'applique au TLabel et qui, comme son nom l'indique, va adapter la font à la taille du container.

Démonstration avec le haut de la form de test, où j'ai réduit la hauteur des labels à 10 :


Le bouton AFFOF contient le code suivant :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.OptimalFill:=True;
  label2.OptimalFill:=True;
  if label1.AdjustFontForOptimalFill then ShowMessage('AFFOF');
  if label2.AdjustFontForOptimalFill then ShowMessage('AFFOF');
end;

Je le clique et voilà :


Mais attention ! Le problème des jambages tronqués est toujours là, et je n'ai pas vu les ShowMessage, contrairement à ce que raconte l'aide, aide qui présente le même défaut de jambages tronqués, j'en ai encadré certains :


On n'est pas sorti de l'auberge…

[Jipété]

Tiens, pour une fois ce n'est pas moi qui ai écrit ce code qui produit un rendu pour le moins catastrophique :



Le nombre de fois où je me suis pris les pieds dans le tapis, pensant que l'objet s'appelait Frame1 alors que c'est Frame1_1, c'est quelque chose...

Bon, je dis ça je dis rien, je me doute bien que ça ne sera jamais corrigé, alors faites attention.

EDIT :
Au fait, quelqu'un sait comment faire réapparaitre ces informations, en bas de l'inspecteur d'objets, qui ont disparu sans que je sache comment ni pourquoi...


Merci,

[Jipété]

Yep !

Si je me sens le courage, je vais probablement poster ça chez Lazarus (si je retrouve mes identifiants, tellement peu utilisés...) :

+++++++++++++++++++++++++++++++++++++++++++
Descending letters are truncated in the EditLabel of a TLabeledEdit

Starting with a TLabeledEdit on a TForm and a TButton below for increasing the height of the font of theEditLabel text, here are the lines of code I've used :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := 'EditLabel.Font.Height = ' + intToStr(LabeledEdit1.EditLabel.Font.Height);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  LabeledEdit1.EditLabel.Font.Height := LabeledEdit1.EditLabel.Font.Height+1;
  Caption := 'EditLabel.Font.Height = ' + intToStr(LabeledEdit1.EditLabel.Font.Height);
end;

Then F9, and click the button, here it goes :


Comments :
Little Height sizes (6 7 8 9) are really bad !

From size 0 (the default) to size 33 (not tried higher), only 3 Heights are fine : 22, 30 and 31.

And looking carefully, you'll notice that with Height 1 the text is located at the top of the EditLabel, which is a wrong place, even if text is not readable.

And I'm not sure the Layout is working fine (not noticed any change when playing with values)

Context is Debian 11.3, Gtk 2.24, FPC 3.2 Lazarus 2.0.12
+++++++++++++++++++++++++++++++++++++++++++
Qu'est-ce que vous en pensez ?

Et ça serait bien que des gens avec la toute dernière 2.2.2 fassent ce petit test, des fois que ça soit corrigé...

Merci,

[tourlourou]

You're right !

[Jipété]

Bonne nouvelle !

Je viens de tester dans une machine virtuelle (même os que le host) avec un Laz 2.2.0 et ça fonctionne parfaitement,

Une sacré épine ôtée de mes pieds meurtris,

Par contre, le canard est toujours vivant en ce qui concerne l'aide : comparez les "g" à gauche avec ceux à droite...