Discussion :

[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 :

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
 
    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));