Discussion :

[joris84]

Bonjours tout le monde !!!!!


J'ai un souci au niveau de l'aperçu avant impression avec le composant TQuickRep sous DELPHI 5.

Le scroll barre de droite ne repond pas à la roulette de la souris , j'ai cherché dans ces propriété pour essayer de l'activer : j'ai rien trouver.

Pour le gérer en code , je ne sais pas ou le faire car il y a peut d'événement proposé.



Merci d'avance pour vos idées et/ou solution

[joris84]

Personne n'a une idée

J'ai un peu avancé sur mon soucis , j'ai réussis a récupérer l'événement de la roulette de la souris ,grâce au onCreate de la form qui utilise le TQuickRep.

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
 
procedure TEtatBilanDetail.FormCreate(Sender: TObject);
begin
  Application.OnMessage:= RecupMessage;
end;
 
procedure TEtatBilanDetail.RecupMessage(var Msg: TMsg; var Handled: boolean);
begin
  if (Msg.Message = WM_MOUSEWHEEL)  then
  begin
    msg.message:=WM_KEYDOWN;
    msg.lParam:=0;
    li_i:=hiword(msg.wParam);
    if li_i>0 then   // UP  120
    begin
          ................
    end else
    begin        // DOWN   -120
          .................
    end;
  end;
end;
:arf:

Mais dans RecupMessage , je n'arrive pas à gérer le scroll barre verticale.
J'ai testé avec les 2 propriétés (pour la form et le quickrep) ci_dessous mais sa n'a rien donnée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
TEtatBilanDetail.Perform(WM_VScroll, SB_LINEUP, 0);
TEtatBilanDetail.Perform(WM_VScroll, SB_LINEDOWN, 0);
......
QuickRep.Perform(WM_VScroll, SB_LINEUP, 0);
QuickRep.Perform(WM_VScroll, SB_LINEDOWN, 0);
......
TEtatBilanDetail.ScrollBy(0,-30);
TEtatBilanDetail.ScrollBy(0,30);
.......
QuickRep.ScrollBy(0,-30);
QuickRep.ScrollBy(0,30);

[joris84]

Bon ben vu le nombre de réponse c'est que sa doit pas être impossible ou bien tres tordu.

[Lung]

Pour contourner ça, utilise le QrPreview. Avec lui, je crois que ca fonctionne.

[SergioMaster]

Bon ben vu le nombre de réponse c'est que ca doit pas être impossible ou bien tres tordu.

déjà , dans le forum idoine ( ic ) , ça aurait été mieux
Ensuite , tout dépend si tu as la version Pro de QuickReport , donc avec source, ou non
et enfin je n'ai plus D5 mais est-ce que la roulette était gérée en ce temps là

[joris84]

Lung : Ok merci vais testé sa de que je peux .

SergioMaste : Malheureusement , j'ai pas les source TQuickRep et effectivement je travail sur un encetre de DELPHI que ma société n'est pas prêt a vouloir mette à jours.
Sinon pour la place de mon message vue que j'utilise un Composant Delphi , j'ai cru bon le mettre dans le forum DELPHI>COMPOSANTS mais je note l'info pour la prochaine fois

Merci , à vous