Discussion :

[Himawarii]

Bonjour !
Je réalise donc un lecteur RSS avec Delphi pour mon projet d'ISN et je rencontre un petit problème. Pour la petite histoire, ce lecteur est lié au flux du Lycée, et permettra donc aux élèves d’accéder à leur devoirs depuis leur smartphone. J'utilise donc une boucle qui, pour chaque article, crée un item dans un liste. Le "texte" de la liste correspond à la matière et le professeur concerné, et j'utilise l'attribut "détail" pour le corps du message.



Ce screen illustre l'application :







Mon problème consiste donc en l'affichage du ListBoxItem.ItemData.Detail qui est coupé. Même en augmentant la taille de la "fenêtre", la totalité du texte n'est pas restituée :






Au début je pensais que :

1. Le texte reviendrait à la ligne en fonction de la taille de l'écran
2. Tout le texte d'origine serait restitué

Or ce n'est pas le cas. Serait-il donc possible, par je ne sais quelle manipulation, de remédier à mon problème ?
Sinon, pouvez-vous me suggérer un autre mode d'affichage que les Lisbox ?

J'attend vos réponses avec impatience ! Merci d'avance !

[ALWEBER]

Peut être passer pour chaque objet TListBoxItem la propriété WordWrap à true

[Himawarii]

Malheureusement, ça ne change rien :/

[sgmsg]

Afficher un "hint" contenant le texte au complet si la ligne est plus longue que x caractères.

[ALWEBER]

Malheureusement, ça ne change rien :/

Peut tu nous préciser quelle version de Delphi tu utilises et quelle cible tu vises. J'ai testé sur XE5 Windows 32 et cela avait l'air de marcher

[Himawarii]

Une erreur s'affiche lorsque je passe la propriété à true : [dcc32 Erreur] Unit1.pas(119): E2233 La propriété 'WordWrap' est inaccessible ici

J'utilise Delphi XE7 (W.64), et il s'agit d'une app Android.

Concernant le Hint, sgmsg, je ne pense pas qu'il soit approprié pour la plateforme ciblé :/

[Himawarii]

Serait-il possible d'utiliser la fonction WrapText(chaine,X) ? Elle permet de faire revenir à la ligne à partir du Xième caractère. Mais je ne sais pas si cela fonctionnerait car comme il s'agit d'une App, elle est destinée à plusieurs tailles d'écran différents...

[frederic.hebrard]

J'ai également répondu à cette même question sur Stack Overflow (lien), mais :
- je ne suis pas sûr que Kamel38 reçoive la notification
- comme je suis avant tout francophone, autant la poster ici en français, ce qui pourrait servir à d'autres

Durant l'exécution de l'appli, les ListBoxItems ont un style déjà calculé et appliqué : aListBoxItem.StyledSettings.
Pour le changer à ce moment-là, on doit d'abord retirer la propriété visée de la liste des StyledSettings.

La propriété WordWrap est définie dans TStyledSetting.Other.

Code :

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

1
2
3
4
//Pour la changer, on retire la définition de TStyledSetting.Other: 
aListboxItem.StyledSettings := aListboxItem.StyledSettings - [TStyledSetting.Other];
//Puis on applique notre valeur à cette propriété:
aListboxItem.WordWrap := True;

Pour une correspondance entre les constantes TStyledSetting et les propriétés TTextSettings voir la doc Delphi.

A noter, la propriété ListBox.Items[i] donne accès au contenu de l'objet, pas l'objet lui-même.
Pour manipuler un ListboxItem et ses propriétés on doit utiliser :

Code :

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

1
2
3
aListboxItem := theListBox.ListItems[i];
//ou
aListboxItem := theListBox.ItemByIndex(i);

Les deux donnent le même résultat, je ne sais pas où se situe la différence.

Une fois que le texte revient à la ligne comme on le souhaite, on doit redimensionner le ListBoxItem pour voir le texte en entier.
On peut le faire dans l'évènement OnApplyStyleLookup, en utilisant un TTextLayout :

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
uses 
... ,FMX.TextLayout;
 
procedure TfrmForm1.ListBoxItem1ApplyStyleLookup(Sender: TObject);
var
  myLayout: TTextLayout;
  i: integer;
  aPoint: TPointF;
begin
 
  myLayout := TTextLayoutManager.DefaultTextLayout.Create;
  myLayout.BeginUpdate;
 
  // paramétrer layout MaxSize
  aPoint.X := ListBoxItem1.Width;
  aPoint.Y := TfrmForm1.Height;
  myLayout.MaxSize := aPoint;
 
  myLayout.Text := ListBoxItem1.Text;
  myLayout.WordWrap := True ;
  myLayout.Font := ListBoxItem1.Font;
  myLayout.HorizontalAlign := ListBoxItem1.TextSettings.HorzAlign;
  myLayout.VerticalAlign := ListBoxItem1.TextSettings.VertAlign;
  myLayout.Padding := ListBoxItem1.Padding;
  // paramétrer les propriétés nécessaires
 
  myLayout.EndUpdate;
 
  ListBoxItem1.Height := Trunc(myLayout.TextHeight) + 3 ; // ajuster la taille pour bien voir le texte en entier
 
end;

A noter : MaxSize est limitante. Si myLayout.TextHeight est supérieur à myLayout.MaxSize.Y c'est myLayout.MaxSize.Y qui sera pris en compte, quel que soit la valeur de TextHeight.
Il faut donc prévoir un aPoint.Y suffisamment grand pour ne pas être limité.

N.B.: Il peut être nécessaire de redimensionner le texte avant d'effectuer le calcul du Layout.
Dans mon cas (Samsung Note 2), la lecture de la propriété ListBoxItem1.Font.Size = 14 mais le rendu à l'écran est 18.
Pour ce faire on peut appliquer :

Code :

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

1
2
ListBoxItem1.StyledSettings := ListBoxItem1.StyledSettings - [TStyledSetting.Size] ;
ListBoxItem1.Font.Size := ListBoxItem1.Font.Size ;

Il est également possible d'utiliser un composant TListView à la place d'un TListBox.
TListView est plus à l'aise avec les grandes listes d'éléments et la propriété WordWrap est accessible dans l'inspecteur d'objets.

ListView1 > ItemAppearanceObjects > ItemObjects > Text > WordWrap