Advanced Paging de DBExtract

Version imprimable

09/11/2006, 17h52
Flebb

Advanced Paging de DBExtract

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.
11/11/2006, 13h12
RDM

Oui effectivement ca fait un peu n'importe quoi 8O
dans tous les cas tu désactiver l'affichage de toutes les pages en décochant ExactPaging
13/11/2006, 09h35
Flebb

(In)Exact Paging

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

ton projet est en Delphi ?
13/11/2006, 11h44
Flebb

Oui, ce projet là est en Delphi.

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

13/11/2006, 18h33
Flebb

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

???
tu as juste besoin de recompiler ton appli !
14/11/2006, 10h23
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 ?
14/11/2006, 11h22
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...
14/11/2006, 14h06
Flebb

Ok, j'ai testé, et ça me paraît très bien. :P
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.