Utilisation de asserts

Bonjour,

J'ai créé un helper (voir zip du projet) sur les grilles dans le but de pouvoir trier les données

Pièce jointe 659621

Seulement il y a certaines conditions nécessaires :
Utilisation de Firedac pour la source de données.
Utilisation de Livebindings (cela étant en FMX c'est la seule solution pour remplir une grille sans passer par le "manuel".
Déclaration des colonnes dans la liaison.

Je me demandai si l'utilisation de asserts pouvait obliger ces conditions et si oui comment ?
J'ai bien vu quelques trucs du genre mais pour des composants est-ce possible pour un helper ?

en attendant une répose de votre part, je vais me pencher sur le visuel de l'indicateur de tri comme ébauché ici

Je ne vois pas de limite à utiliser les assertions qui finalement ne font que soulever une exception EAssertionFailed.

Je ne me prononce pas sur LiveBinding que je n'ai jamais utilisé mais pour FireDac ce serait Assert(DataSet is TFDDataSet, 'Utilisation de FireDac obligatoire').

Les Assertions sont conçues pour alerter le développeur, normalement visible en config DEBUG mais masqué en config RELEASE.
En DEBUG, donc le développeur verra l'exception
En RELEASE, si le développeur n'a pas compris l'assertion :aie:, cela plantera surement plus loin ... si ce cas se produit, le développeur devrait songer à changer de métier :ptdr::mouarf:

En tout cas, je les utilises dans ce contexte, pour prévenir le développeur de corriger l'erreur, souvent mauvaises déclarations détectables au RunTime.

Bonjour,
Voilà ma nouvelle version (pièce jointe)
démo
Pièce jointe 659678
Il reste un petit hic niveau glyphe si vous faites très attention au milieu du déroulement lorsque le tri de la première colonne est annulé, le glyphe ne redevient pas rond tout de suite mais après déplacement de la souris (phénomène déjà constaté dans ce sujet

Je suis :ouin:, vert de rage, trois jours que je galère à découvrir la cause de ce petit bogue sans succès.
Une petite souris, qui se reconnaitra si elle lit ça, m'a suggéré de tester sous D11 et là, plus de bogue. Différence : l'appel de la procedure OnDrawColumnHeader est beaucoup plus fréquente (3 fois plus, sans parler l'appel lors des mouvements de souris)
Donc 12.1, en apportant une réduction des appels me flanque un :bug:

tel Rocky :aie: je suis mitigé remonter sur le ring pour trouver un contournement ou me plaindre à la fédération Embarcadero en posant un rapport de bogue ?

Sonné, je vais "dormir" dessus en passant à l'écriture du composant, le problème lié au fait qu'une colonne liée est une TLinkGridtoDataSourceColumn (unité différente de FMX.Grid) ne va pas faciliter les choses.

Finalement, j'ai résolu le problème en ajoutant un appel à l'évènement OnDrawHeaderClick car je n'ai pas trouvé d'autres choix :weird:
dans mon helper j'ai ajouté

Code:

---

1 2 3 4 5 6 7

{ TGridHelper }   procedure TGridHelper.column_headerclick(aColumn: TColumn); begin if Assigned(Self.OnDrawColumnHeader) then Self.OnDrawColumnHeader(aColumn,aColumn.Canvas,aColumn,aColumn.AbsoluteRect); end;

---

pour plus de lisibilité et du coup mon code devient

Code:

---

1 2 3 4 5 6 7

procedure TForm1.Grid1HeaderClick(Column: TColumn); begin var s := Grid1.Get_ColumnField(Grid1.get_componentbinding, Column); var sort:=Grid1.set_sort(s); FDMemTable1.IndexFieldNames :=sort; Grid1.column_headerclick(Column); // appel à onDrawColumnHeader end;

---