Advanced Paging de DBExtract

**Flebb** · 09/11/2006, 17h52

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** · 11/11/2006, 13h12

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** · 13/11/2006, 09h35

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** · 13/11/2006, 10h51

ton projet est en Delphi ?

**Flebb** · 13/11/2006, 11h44

Oui, ce projet là est en Delphi.

**RDM** · 13/11/2006, 17h17

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

**Flebb** · 13/11/2006, 18h33

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

**RDM** · 14/11/2006, 09h41

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

**Flebb** · 14/11/2006, 10h23

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 ?