david
fddb8c1dff
NO HAY CÓDIGO FUENTE git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.TRichView@1 b34d35ef-135b-4489-b9d1-9916e9c25524
86 lines
2.0 KiB
ObjectPascal
86 lines
2.0 KiB
ObjectPascal
unit Demo6Frm;
|
|
|
|
interface
|
|
{$I RV_Defs.inc}
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, RVScroll, RichView, ExtCtrls,
|
|
ImgList, RVStyle;
|
|
|
|
type
|
|
TfrmDemo6 = class(TForm)
|
|
Close: TButton;
|
|
rvs: TRVStyle;
|
|
tmr: TTimer;
|
|
rv: TRichView;
|
|
il: TImageList;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure tmrTimer(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
Red: Byte;
|
|
DRed: Shortint;
|
|
ImageIndex: Integer;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmDemo6: TfrmDemo6;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmDemo6.FormCreate(Sender: TObject);
|
|
const crlf:String = chr(13)+chr(10);
|
|
begin
|
|
ImageIndex := 0;
|
|
Red := 150;
|
|
DRed := 5;
|
|
rvs.TextStyles[rvsHeading].Color := RGB(Red,0,0);
|
|
rv.TopMargin := rv.Height;
|
|
rv.BottomMargin := rv.Height;
|
|
|
|
rv.AddBulletEx('',0,il,1);
|
|
rv.Add('Credits Demo', 1);
|
|
rv.AddTextNL(
|
|
'Roberto Nelson'+crlf+
|
|
'Bruce Young'+crlf+
|
|
'Kim Lambert'+crlf+
|
|
'Leslie Johnson'+crlf+
|
|
'Phil Forest'+crlf+
|
|
'K.J. Weston'+crlf+
|
|
'Lee Terry'+crlf+
|
|
'Stewart Hall'+crlf+
|
|
'Katherine Young'+crlf+
|
|
'Chris Papadopulos'+crlf+
|
|
'Pete Fisher'+crlf+
|
|
'Ann Bennet'+crlf+
|
|
'Roger De Sousa'+crlf+
|
|
'Janet Boldwin'+crlf+
|
|
'Roger Reeves'+crlf+
|
|
'Willie Stansbury'+crlf+
|
|
'Leslie Phong'+crlf+
|
|
'Ashok Ramanathan',0,0,0);
|
|
rv.AddNL('and other people from Employee.db',2,0);
|
|
rv.VSmallStep := 1;
|
|
rv.Format;
|
|
end;
|
|
|
|
procedure TfrmDemo6.tmrTimer(Sender: TObject);
|
|
begin
|
|
if rv.VScrollPos<>rv.VScrollMax then
|
|
rv.VScrollPos := rv.VScrollPos+1
|
|
else
|
|
rv.VScrollPos := 0;
|
|
inc(Red, DRed);
|
|
rvs.TextStyles[rvsHeading].Color := RGB(Red,0,0);
|
|
if (Red=255) or (Red=100) then DRed := -DRed;
|
|
inc(ImageIndex);
|
|
if ImageIndex=il.Count then
|
|
ImageIndex := 0;
|
|
rv.SetBulletInfo(0,'',ImageIndex,nil,0);
|
|
end;
|
|
|
|
end. |