scrollingu.pas

来自「wptools5 pro 完整源代码 Msword界面的文本编辑器源代码」· PAS 代码 · 共 50 行

unit ScrollingU;

interface

uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, WPRTEDefs, WPCTRMemo, WPCTRRich;

type
  TWPScrollDemo = class(TForm)
    WPRichText1: TWPRichText;
    Panel1: TPanel;
    Button1: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  WPScrollDemo: TWPScrollDemo;

implementation

{$R *.dfm}

procedure TWPScrollDemo.FormCreate(Sender: TObject);
begin
  WPRichText1.ViewOptions := [wpInfiniteTextArea];
end;

procedure TWPScrollDemo.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
end;



procedure TWPScrollDemo.Timer1Timer(Sender: TObject);
begin
  WPRichText1.TopOffset := WPRichText1.TopOffset + 1;
end;

end.