Discussion :

[manumanuh]

bonjour,

d'une manière générale, je ne sais pas comment connaître la taille de la zone client d'une composant avec des barres de défilements (ex TScrollBox)

dans ce cas précise, j'utilise un TMS FMX Treeview,

apres avoir ajouté plusieurs noeuds,
je voudrais connaitre la taille du contenu pour redimensionner la fenêtre (pour eviter si possible d'avoir la scrollbar verticale)

(rq : les noeuds peuvent avoir une taille variable selon le texte)



any advices ?

merci d'avance

[SergioMaster]

Bonjour,
peut être en utilisant un des évènements Afterxxx. par exemple AfterDrawNode ou AfterDrawNodeText et en cumulant les ARect.Height à moins qu'il soit possible d'obtenir la taille totale du Canvas du TreeView après chargement de tout les noeuds (AfterDraw) ?
Quoique mes essais en ce sens ne donnent rien de concluant

[Edit] par conséquent je l'ai fait "à l'ancienne"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFormProduction.Button1Click(Sender: TObject);
var h : Single;
    ANode : TTMSFMXTreeViewNode;
begin
H:=Treeview.ColumnsAppearance.TopSize+4; // 4 pour ajouter quelques pixels
ANode:=TreeView.Nodes[0];
while Assigned(Anode) do
 begin
   H:=H+ANode.VirtualNode.Height;
   Anode:=ANode.GetNext;
 end;
Showmessage(H.ToString);
end;

toutefois, je n'ai pas testé avec une hauteur de texte variable à vérifier

[manumanuh]

merci pour cette réponse,

effectivement ça fonctionne, mais si je diminue la taille de la fenêtre, la taille des icones n'est plus prise en compte (ceux qui sont masqués et qui dépassent la hauteur du texte) dans le calcul de la hauteur de chaque Node..

bon j'ai finalement opté pour une solution encore un peu plus "a l'ancienne" en testant la valeur de Treeview.VerticalScrollBar.IsVisible et en augmentant progressivement la taille du TreeView jusqu'à ce qu'elle soit False..

bref, une bonne bidouille qui fonctionne, mais je me demande tout de meme comment connaître la taille de la zone client d'une composant FMX avec des barres de défilements (ex TScrollBox)