Discussion :

[SergioMaster]

Bonjour,

J'ai un petit problème esthétique avec cette propriété et ce uniquement au premier "remplissage" de la liste

si je change de commande puis reviens sur tout autre commande ou bien la même j'obtiens

présentation nettement plus lisible.

Question : quelqu'un a-t-il une idée pour que la première interrogation soit affichée de la même manière que les suivante ?
(je voudrais éviter d'en passer par un style)

[ShaiLeTroll]

Cela ne serait pas un blanc prévu pour être sur un bleu foncé pour montrer la sélection qui déconne un peu ?
C'est comme en VCL, le HideSelection a aussi quelques effets de bord

lors du changement de sélection, tu vois aussi l'anomalie ailleurs que la première ligne ?
A part, désélectionner l'item

[SergioMaster]

Merci,

Cela ne serait pas un blanc prévu pour être sur un bleu foncé pour montrer la sélection qui déconne un peu ?

Non, il n'y a normalement pas de blanc prévu

lors du changement de sélection, tu vois aussi l'anomalie ailleurs que la première ligne ?

Alors, déjà, il faut que je tombe sur une commande avec plusieurs lignes (ce qui est rare) pour faire le test.
Dans ce cas, j'ai le même phénomène : la première fois pour les lignes sélectionnées, j'ai du blanc sur bleu-ciel ensuite (aller-retour la commande) c'est devenu du noir sur bleu-ciel (ce que je veux)

Le pire est que je tente de le reproduire dans un exemple plus simple et ne constate pas ce phénomène !

[ShaiLeTroll]

Un truc de Warrior inspiré du source

Code :

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

1
2
3
4
if Assigned(ListView.Selected) then
  for it: TListItemDrawable in ListView.Selected.View.ViewList do
    if it is TListItemText then
      TListItemText(it).SelectedTextColor := clBlack;

[SergioMaster]

warrior qui a failli fonctionner (avec quelques ajustements)
à l'ouverture

Clic sur la ligne suivante

aller/retour lignes->entete->lignes puis sélection de la seconde

Cela va me rendre chèvre, je vais devoir fouiller dans le style en tout cas je ne comprends pas comment cela passe d'un mode sélectionné à non sélectionné
encore moins que, dans mon exemple "simple" je n'ai pas le phénomène

[ShaiLeTroll]

Lors OnChange ou OnSelectItem, faut relancer le code car chaque item a ses propres vues (il y a un systeme de passe, je suppose comme la VCL, un truc genre prePaint, postPaint ...)

voir être massif puisque la liste est courte

Code :

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

1
2
3
4
for itv: TListItem in ListView.Items do
  for it: TListItemDrawable in itv.View.ViewList do
    if it is TListItemText then
      TListItemText(it).SelectedTextColor := clBlack;

[SergioMaster]

Oui, mais j'aurais voulu éviter, surtout que ce n'est que pour la première commande !

[SergioMaster]

Bon, alors pour finir la soirée, je suis passé par une sorte de hacking de style en codant ceci dans le onCreate de la forme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
uses FMX.Styles;
 
procedure TFormPrestaShop.FormCreate(Sender: TObject);
var Aco : TColorObject;
    AStyle : TFMXObject;
begin
AStyle:=TStyleManager.ActiveStyle(Self);
ACo:=TColorObject(AStyle.FindStyleResource('listviewstyle.selectiontext'));
if Assigned(ACo) then ACo.Color:=Talphacolors.Crimson; // exprés pour voir un changement notable 
 
end;

c'est presque ça, il me manque une instruction pour que cela s'applique du premier coup

Le plus dingue de l'histoire, c'est que je ne comprends pas d'où peut venir cette couleur ! J'ai beau fouiller dans ce style (Listviewstyle est hyper complexe, plein d'appel à des StyleObjects) je ne vois nulle part cette couleur blanche ou approchante)

[SergioMaster]

Eurêka, du moins en partie, j'ai trouvé le coupable et cela devrait faire plaisir à Anselme45 : c'est le TTabControl (où plus exactement la transition entre onglets)

Voilà un apperçu

J'ai la même liste, celle de droite est dans la forme principale, celle de gauche dans TabItem2 non actif au démmarrage de l'application.
Quand j'ouvre le fichier, j'en profite pour passer tabItem2 en onglet actif en utilisant une transition

Code :

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

1
2
3
4
5
procedure TForm123.Button1Click(Sender: TObject);
begin
ClientDataset1.Active:=true;
Tabcontrol1.Next();
end;

Rien de bien sorcier mais la différence saute aux yeux !

Si tabItem2 est actif au design alors pas de souci.
Si, au lieu d'utiliser une transition, je passe directement à l'onglet (Tabcontrol1.TabIndex:=1) pas de souci non plus

Conclusions :
1 - je vais me passer de transition pour régler mon problème
2 - un petit bogue, du moins avec rio 10.3.2 . Avec Sidney 10.4.1 tout est OK (AMHA cela vait du être signalé, mais je n'ai pas le courage de faire la recherche dans le portail qualité)

en tout cas, même si j'ai perdu du temps, cela m'a permis de toucher un peu plus aux styles