Advanced Paging de DBExtract [Résolu]

[Flebb]

Bonjour,

J'utilise XMLRAD2006 R1.
J'ai coché la case "Advanced Paging" de mon DBExtract afin de ne pas voir s'afficher tous les liens vers les numéros de pages (environ de 300).

Mon problème est que lorsqu'un utilisateur clique sur le lien d'un numéro de page, tous les numéros de page précédents s'affichent dans le ListFooter.
Par exemple si on clique sur la page 280, tous les numéros de pages de 1 à 280 s'affichent dans le ListFooter, provoquant ainsi un gros problème de mise en page...

Merci de votre aide.

[RDM]

Oui effectivement ca fait un peu n'importe quoi
dans tous les cas tu désactiver l'affichage de toutes les pages en décochant ExactPaging

[Flebb]

Dommage, Exact Paging est annoncé comme une évolution de la version...
C'est une fonctionnalité bien pratique pour les longues listes que comporte mon application.
A-t-on une chance d'avoir un patch ?
Des idées pour contourner le problème ?

Merci de votre aide

[RDM]

ton projet est en Delphi ?

[Flebb]

Oui, ce projet là est en Delphi.

[RDM]

ok, alors tu peux essayer de modifier dans le fichier XMLGRam.pas
dans la fonction AddPageItems il faut remplacer le if par:

Code :

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
 
    if FExactPagingFishEye then
    begin
      if (OneInterval*2) >= NbPage then // All pages
      begin
        for I := 1 to NbPage do
          PageItems.AppendChild('Page', IntToStr(I));
        Exit;
      end;
      // First pages
        for I := 1 to OneInterval do // One by one
          PageItems.AppendChild('Page', IntToStr(I));
 
      // before and after pages
      LowPage := CurrentPage-OneInterval;
      HighPage := CurrentPage+OneInterval;
      if LowPage <= OneInterval then
        LowPage := OneInterval+1;
      if LowPage > OneInterval+1 then
        PageItems.AppendChild('Page', '...');
      if HighPage >= NbPage-OneInterval then
        HighPage := NbPage-OneInterval-1;
      for I := LowPage to HighPage do // One by one
        PageItems.AppendChild('Page', IntToStr(I));
      if HighPage < NbPage-OneInterval-1 then
        PageItems.AppendChild('Page', '...');
 
      // Last pages
      LowPage := NbPage-OneInterval;
        for I := LowPage to NbPage do // One by one
          PageItems.AppendChild('Page', IntToStr(I));

[Flebb]

Le temps de trouver les infos nécessaires pour arriver à recompiler XMLRad avec Delphi 7, et je te dis ce que ça donne...

[RDM]

???
tu as juste besoin de recompiler ton appli !

[Flebb]

Ok, je pensais qu'une modif dans ces fichiers nécessitait une recompilation des DLL d'XMLRad.
Je ne comprends pas bien comment une modif dans xmlgram.pas du répertoire
\Delos\XMLCLX\Source serait prise en compte en recompilant mon projet qui se trouve dans \Delos\Projects\MonProjet\Bin\Source ?

[RDM]

parce que dans tes chemins de bibliothèque de Delphi tu as le répertoire XMLCLX\Source qui a été ajouté lors de l'install
tu ne pourrais pas recompiler ton appli si tu ne compilais pas xmlgram.pas entre autres...

[Flebb]

Ok, j'ai testé, et ça me paraît très bien.
Le résultat me donne un format du type :
1 2 3 ... 9 10 11 12 13 14 15 ... 284 285 286 287

Merci de ton aide efficace.