Discussion :

[Invité]

Bonjour,

j'utilise un TMSFNCBloxControl sous FMX. J'utilise plus particulièrement un TTMSFNCBloxFlowActionBlock. Je connais TMSFNCBloxFlowActionBlock.FontName (string) et TMSFNCBloxFlowActionBlock.FontSize(Double).

J'aimerais calculer la largeur et la hauteur du texte affiché dans TTMSFNCBloxFlowActionBlock.Strings pour ajuster au mieux mes objets.


Je sais faire cela en Lazarus. Mais je n'arrive pas à transposer le code en FMX.
Merci. Cordialement. Gilles
-------
PS

• Je ne suis pas soudainement devenu feignant mais voila ce que j'obtiens quand je suis les liens Embarcadero [Heureusement que j'utilise une version gratuite Vous demandez des dommages et intérêts pour une telle qualité de service... sachant que ce n'est pas la seule indisponibilité constatée depuis 2 jours que je teste les TMSFNCBloxControl :
  
  
• La version de TMSFNCBloxControl n'existe en test que sous Delphi. Là encore, le fait que ce soit une Community pénalise l'installation du composant :
  
  
  Mais là ce n'est pas imputable à Delphi mais à TMS Software. La fin de l'installation se fait manuellement
• Visiblement comme le précisait Patrick, il doit y avoir un vrai problème de piraterie parce que j'ai vu apparaître plusieurs fois la boîte de dialogue suivante
  
  

[ShaiLeTroll]

FMXTFont (Delphi) en Alexandria fonctionne !

FMX mais surtout TMS !
FMX.Graphics.TCanvas.TextHeight ne fonctionne pas en fournissant au Canvas la Font choisie ?
Voir même directement le Canvas du TMSFNCBloxControl ou le Canvas du Render.


EDIT : Sur un poste, il ne faut pas mélanger de version Pro, Ent, Arch avec une version Community, il faut plutôt utiliser un Arch Trial, et faire renouveler la période d'essai.

[Invité]

FMXTFont (Delphi) en Alexandria fonctionne !

FMX mais surtout TMS !
FMX.Graphics.TCanvas.TextHeight ne fonctionne pas en fournissant au Canvas la Font choisie ?

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
function TextWidth(aString : String; aFontName : String; aFontSize : Single) : Single;
var
  b: TBitmap;
  f : TFont;
begin
   result := -1;
   f := Tfont.Create;
   b := TBitmap.Create;
   try
    f.Family := aFontName;
    f.Size := aFontSize;
    b.Canvas.Font.Assign(f);
    result := b.Canvas.TextWidth(aString);
  finally
    b.Free;
    f.Free;
  end;
end;

Ceci a l'air de fonctionner effectivement. J'étudierai l'utilisation du TFont du composant TMS plus tard quand j'aurai les sources du composant. Pour l'instant, j'ai la version de test qui ne s'installe que sur Delphi et pas sur Lazarus. Mais je dois reconnaitre que le zoom auto me plait bien. Je ne sais pas si je dispose de cette fonction sous Lazarus. J'ai passé commande. Je saurai cela au plus tard demain. Et puis il est vrai, que cerise sur le gâteau, cela fonctionnerait sous tablettes... Cela mérite réflexion même si, je préférerais -et de loin- utiliser C++ Builder. Mais si ce dernier cible iOS, il ne cible pas mac OS ? Et pas Linux ? Pourquoi C++ ? Parce que le projet que je développe de Learning Analytics utilise des librairies C++ d'IA. ET je n'ai rien vu d'aussi "intégré" dans le webinar sur l'IA avec Delphi dont Serge m'a envoyé le lien (et que je remercie)

EDIT : Sur un poste, il ne faut pas mélanger de version Pro, Ent, Arch avec une version Community, il faut plutôt utiliser un Arch Trial, et faire renouveler la période d'essai.

C'est possible cela ? de renouveler ? Ce serait tellement plus simple si un enseignant retraité (depuis sept. 2021) dans le cadre de support à son ancienne fonction pouvait continuer à utiliser la version Academic pour achever le développement [j'en suis à la visualisation des résultats] d'un projet pédagogique open source... à la disposition de ses Collègues en activité, notamment mes Collègues prof. de maths


Je pourrais évidemment utiliser la version Academic de mon fils, prof également. Mais je ne veux pas m'y résoudre. Comme l'a précisé Patrick, cela manquerait d'éthique. Finalement, j'utiliserai certainement Qt qui lui me permet légalement de développer et diffuser mon projet. Totalement idiot parce que mon langage de coeur est le Pascal. Mais ras le bol de me battre contre les moulins à vent d'Embarcadero, les incertitudes des roadmaps. Ah que j'appréciais mes rapports avec Borland et mon ancien Collègue, prof. de maths lui-aussi, initiateur de Delphi ! Mais pourquoi l'a-t-il vendu ?

A bientôt et merci pour l'aide. Cordialement. Gilles

[ShaiLeTroll]

Si la réponse donnée est concluante, tant mieux !




Pour la version Communauty, installer TMS qui est un composant payant me semble paradoxal, cela ne permet pas d'apprendre le Delphi mais rend les développeurs dépendant d'une bibliothèque externe, tout ce qu'il ne faut pas apprendre à mon avis, donc logique cela soit incompatible.
Pour mes Devs personnels, je suis partisan du Zéro Lib ... d'ailleurs, j'ai codé un mini-diagramme UML à base TPanel + Canvas ... c'était encore en D7 perso et j'ai en fait refait en XE2, depuis faut pas déconner, je code plus durant mes temps libres.

OpenSource avec une dépendance à TMS
TMS propose une version "TMS Academic License", ils sont malins, si des étudiants prennent l'habitude de TMS à l'école, ça peut faire de futurs clients !
Cela n'a rien de généreux, c'est de la publicité !

La version Communauty n'est pas conçue pour être utilisé pour valider une version de Delphi dans l'objectif de migration d'une version Pro N version Pro N+m
La version Trial, tu peux la faire renouveler un mois par un mois, faut contactez Barnstern, ils comprennent que migrer de version à coût, pas vraiment la licence mais surtout le code existant, les bibliothèques externes (eh oui on doit tout de même en trainer, même Indy lorsqu'il est utilisé massivement c'est à étudier lorsque tu as modifié le code)?
J'ai déjà migré des projets de D7 ou DXE2 vers D10.0 où je travaille, il a fallu repatcher les bibliothèques (Excel, Zip, Crypto) malgré leur mise à jour, toujours buggées au moment, voire plus !
Par chance, très peu d'IHM Delphi car Dev à 99% de Servers applicatifs.

[Invité]

Pour TMS je l'utilise professionnellement dans mon E.S.N. familiale avec Lazarus et donc je paye, c'est normal. Cependant tu remarqueras que je n'utilise que les composants FNC de TMS, FNC parce qu'ils sont compatibles avec Lazarus et par chance (ou stratégie) ils fonctionnent avec Firemonkey. Je n'utilise pas FireMonkey dans mon entreprise -j'en ai décidé ainsi- mais Qt. J'ai longuement hésité entre les 2... et il a fallu que je revisite C++ mais surtout que j'apprenne Qt. Et curieusement cela m'a été moins pénible et plus facile que de passer de VCL à FMX surtout avec les premiers XE.

J'utilsais Firemonkey en tant qu'enseignant [mon autre métier]. J'ai été très enthousiaste avec les projets destinés aux mobiles et extrêmement déçu par le développement vers les cibles Desktop [Linux inexistant au départ, puis produit tiers et maintenant incorporé dans certaines versions... et mac OS visiblement négligé]. D'ailleurs Windows sous FireMonkey était tout aussi négligé. Enfin "utilisais" est un bien grand mot parce que je n'adhère pas vraiment. Mais j'ai énormément apprécié Delphi jusqu'à ce que je décide de cibler d'autres OS que Windows. Il en reste quelque chose même si je suis conscient que ce n'est pas vraiment raisonnable mais purement affectif.

Maintenant quand je portais ma casquette de prof., très fréquemment j'ouvrais mon code. Concernant un projet Delphi, je fournis le *.dprog, les *.fmx et les *.pas du projet et non le code des bibliothèques tierces [même s'il est ouvert] sauf si ce sont les miennes. Charge à la personne qui veut recompiler les sources d'acquérir [éventuellement par des licences Academic] les composants tiers et la version de Delphi nécessaire avec la licence adéquate.

Fournir le code source, cela ne signifie pas que tu n'as qu'à le compiler. C'est beaucoup plus riche que cela, comme un raisonnement mathématique : à toi de l'adapter à tes besoins, à ta plate-forme. Heureusement parce que concernant Delphi, mes codes XE2 n'étaient plus portables en XE 7, et les codes XE7 ne le sont plus en XE13 [Delphi 10.4]. Même la nomenclature des versions Delphi n'est pas logique (portable !). Le suffixe "XE13" pour identifier delphi 10.4 est inclus dans les packages TMS... Cela me semble bien.

Le tout fait à la main, j'en ai fait énormément avec Lazarus et encore maintenant. C'est extrêmement chronophage. J'ai quasiment un composant "maison" pour les plus usuels. Un travail de plus de 10 ans. C'était le seul moyen pendant longtemps de pouvoir développer correctement avec cet IDE d'autant que beaucoup de composants n'étaient pas fonctionnels sur tous les OS. Maintenant, je trouve le code plutôt stable et plutôt complet. Et mon IDE lazarus fonctionne nativement sur Windows, mac OS, Linux comme Qt

Le projet de Learning Analytics serait trop ambitieux si je devais le faire tout à la main d'autant que comme je l'ai précisé, la partie IA n'est pas accessible à Delphi. Mais la partie IA fonctionne indépendamment. Il serait quand même sympathique que toutes les parties utilisent le même langage. Ce ne serait pas la promesse de Firemonkey ?
Dans ce projet, j'utilise Delphi pour mettre en forme les données traitées et visualiser le résultat des traitements. Je cherche à les visualiser aussi bien sur tablettes ou PC (sans préférence d'OS) pour, en un clin d’œil, permettre aux élèves de se positionner dans leur progression pédagogique, quels sont les travaux de remédiation à engager, de tester les pré-requis nécessaires à une nouvelle notion qui va être prochainement étudiée en classe...

Et comme j'avais besoin pour l'entreprise d'essayer les TMSFNCBloxControl pour les intégrer dans Lazarus, j'en ai profité pour les essayer sur ma Community puisque la version d'essai de TMS FNC Blox n'est pas disponible sous Lazarus. Je suis assez convaincu d'une manière générale par les composants TMS sous Lazarus et éventuellement sous FMX (pour les FNC uniquement) quand on ne joue pas avec les styles. Il faut savoir aussi que le travail "délicat" n'est pas d'afficher des Blocs dans un arbre décisionnel mais de le dessiner aussi clairement que possible avec le moins de croisement de flèches possibles, chaque bloc pouvant être émetteur ou destinataire de plusieurs liens. Il faut savoir sous-traiter même si -je suis d'accord avec toi- l'idéal est de maitriser de A à Z. Il ne faut pas non plus être jusqu'au-boutiste : le langage ne t'appartient pas, tu ne l'as pas fait, tu l'utilises.

Et donc, pour finaliser l'arbre, j'avais besoin de connaître la taille nécessaire de chaque bloc. Ensuite avant d'être capable éventuellement de dessiner les TPanel, leurs connecteurs, j'ai besoin de modéliser la meilleure représentation géométrique sur le plan.

Je viens de recevoir la clé de TMS, je vais voir cela de plus près et parallèlement je vais regarder comment je peux faire cela avec Qt (ie la partie affichage à la TMS FNC Blox)

Désolé je suis toujours aussi bavard.
A bientôt. Gilles

[SergioMaster]

Bonjour,

j'interviens tard car le Lundi après midi je suis HS

j'utilise ceci pour calculer les hauteurs de mes éléments de liste

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
{$REGION 'Calcul taille variable d''un item de TListview'}
 // todo : à mettre dans une unité à part (réutilisation)
 function GetTextHeight(const D: TListItemText; const Width: single; const Text: string): Integer;
    var  Layout: TTextLayout;
         Hauteur : Single;
         vFont : TFont;
    begin
      // Creer un TTextLayout pour obtenir les dimensions du texte
      Layout := TTextLayoutManager.DefaultTextLayout.Create;
      try
        Layout.BeginUpdate;
        try
          // Initialiser le layout parameters avec ceux de l'élément (style)
          Layout.Font.Assign(D.Font);
{$IFDEF ANDROID}
// bogue android, la taille de fonte par défaut (18) n'est pas toujours trouvée !
// à tester
          if D.Font.IsSizeStored=false then  Layout.Font.Size:=18; // D.Font.DefaultSize;
 
//          if (D.Font=12) OR (D.Font=18) then   Layout.Font.Size:=18;
{$ENDIF}
          Layout.VerticalAlign := D.TextVertAlign;
          Layout.HorizontalAlign := D.TextAlign;
          Layout.WordWrap := D.WordWrap;
          Layout.Trimming := D.Trimming;
          Layout.MaxSize := TPointF.Create(Width, TTextLayout.MaxLayoutSize.Y);
          Layout.Text := Text;
        finally
          Layout.EndUpdate;
        end;
        // nécessite un single
        Hauteur:=Layout.Height;
        // petit gap supplémentaire, la hauteur d'un 'm'
        if D.Wordwrap then begin
          Layout.Text := 'm';
          Hauteur:=Hauteur+Layout.Height;
        end;
        Result := Round(Hauteur);
      finally
        Layout.Free;
      end;
    end;
{$ENDREGION}

Comme il s'agit d'un "vieux code" (plus d'un an) rédigé en version 10.3.2 je ne sais pas si le "bogue" Android a été corrigé depuis.

quand je suis les liens Embarcadero

Ha, ça ce n'est pas nouveau, il y a eu une période de presque 3 semaines bien pire ou le docwiki était carrément hors service. La cause officielle, la migration vers d'autres serveurs, une officieuse un changement de version de la base de données (mysql) non anticipée !

La seule documentation qui semble vraiment accesssible (encore !) à l'heure actuelle est celle d'Alexandria car un effort considérable avait été fait pour la sortie de la version 11.1 (histoire de ne pas trop se faire taper dessus )
un conseil pour les exemples : plutôt chercher dans le dépôt GitHub https://github.com/Embarcadero dans les référentiels (repositories) RadStudio_xxxxx Demos

[pprem]

Pour la version Communauty, installer TMS qui est un composant payant me semble paradoxal, cela ne permet pas d'apprendre le Delphi mais rend les développeurs dépendant d'une bibliothèque externe, tout ce qu'il ne faut pas apprendre à mon avis, donc logique cela soit incompatible.

Alors attention : ce n'est pas de l'incompatibilité, c'est un choix de TMS.

Ceci dit, la Community Edition n'embarque pas les compilateurs en ligne de commande, donc difficile d'automatiser la compilation comme le fait l'installeur TMS en temps normal. Donc plutôt que de diffuser les DCU déjà compilés comme le font les autres ils ont choisi de laisser l'utilisateur faire les choses à la main (seule possibilité puisqu'il faut passer par l'IDE).

[Invité]

Pour la version Communauty, installer TMS qui est un composant payant me semble paradoxal, cela ne permet pas d'apprendre le Delphi [...]

Je n'avais pas fait attention. Apprendre [enfin je préfère comprendre] les Styles et le LiveBindings du nouveau Delphi, t'occupe un peu. Et dans mon cas, c'est un euphémisme. Cela représente 75% de mon temps "perdu" sans compter la complétion que je trouve souvent inefficace [ie ne propose rien] parce que tu dois préciser la classe avant la valeur des propriété alors que dans les uses tu as déclaré les unités nécessaires. Je ne connais que Delphi XE qui soit aussi pénible à l'usage. Même (et surtout) le vieux Delphi 7 proposait mieux. Lazarus, et même Qt,... sont beaucoup plus simple d'utilisation, plus "guidés". Et finalement Delphi est devenu presque aussi "verbeux" que C++

Bon je m'accorde encore à mon "pénible et lent développement" sur Delphi avant de basculer vers mes habituels IDE.
Bonne journée. Gilles