[QuickReport] Preview Scroll

Version imprimable

14/09/2010, 10h52
joris84

[QuickReport] Preview Scroll

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

Personne n'a une idée :cry:

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:

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:

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

:arf:

21/09/2010, 16h48
joris84

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

:zekill: :pc: :massacre:
21/09/2010, 17h07
Lung

Pour contourner ça, utilise le QrPreview. Avec lui, je crois que ca fonctionne.
22/09/2010, 09h09
SergioMaster

Citation:

Envoyé par joris84

Bon ben vu le nombre de réponse :mouarf: 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 :mouarf: mais est-ce que la roulette était gérée en ce temps là :question:
22/09/2010, 15h51
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 :mouarf: 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 :ccool:

Merci , à vous