Redéfinir le comportement du pagedown dans reportbuilder

Télécharger le projet
Commenter

Description

Redéfinir le comportement du pagedown et pageup dans reportbuilder. Refinir certaines fonction de la classe TppPreview.

Source / Exemple : 


unit uMyPreview;

interface

uses
  ppPreview,Classes,Windows,ppTypes,ppComm,ppViewr;

type
  TMyPreviewPlugin = class(TppPreview)
    public
      procedure BeforePreview; override;
      procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  end;

implementation

uses
  Graphics;

//Inherited example
procedure TMyPreviewPlugin.BeforePreview;
begin
  inherited BeforePreview;
end;

procedure TMyPreviewPlugin.KeyDown(var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_PRIOR: Viewer.PriorPage;
    VK_NEXT: Viewer.NextPage;
    VK_HOME: Viewer.FirstPage;
    VK_END: Viewer.LastPage;
    VK_UP: Viewer.Scroll(dtUp);
    VK_DOWN: Viewer.Scroll(dtDown);
    VK_LEFT: Viewer.Scroll(dtLeft);
    VK_RIGHT: Viewer.Scroll(dtRight);
    VK_ESCAPE: PerformPreviewAction(paClose);
  end
end;

initialization
  TppPreviewPlugIn.Register(TMyPreviewPlugin);

finalization
  TppPreviewPlugIn.UnRegister(TMyPreviewPlugin);

end.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (dwmx5)