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
125 lines
2.9 KiB
ObjectPascal
125 lines
2.9 KiB
ObjectPascal
unit PopupFrm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
RVStyle, RVScroll, RichView, ExtCtrls;
|
|
|
|
type
|
|
TfrmPopup = class(TForm)
|
|
Panel1: TPanel;
|
|
rv: TRichView;
|
|
rvs: TRVStyle;
|
|
procedure rvKeyPress(Sender: TObject; var Key: Char);
|
|
procedure rvClick(Sender: TObject);
|
|
procedure FormDeactivate(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
{ Private declarations }
|
|
procedure Build(DemoNo: Integer);
|
|
procedure MoveToMouse;
|
|
public
|
|
{ Public declarations }
|
|
procedure ShowTopic(DemoNo: Integer);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
uses MainFrm;
|
|
|
|
procedure TfrmPopup.rvKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
Key:=#0;
|
|
Close;
|
|
end;
|
|
|
|
procedure TfrmPopup.rvClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TfrmPopup.FormDeactivate(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TfrmPopup.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
Action := caFree;
|
|
end;
|
|
|
|
procedure TfrmPopup.Build(DemoNo: Integer);
|
|
begin
|
|
case DemoNo of
|
|
1:
|
|
begin
|
|
rv.AddBulletEx('',1,frmMain.il,1);
|
|
rv.Add('"Checkpoints"', 1);
|
|
rv.AddNL('Synchronizing document scrolling with list of contents', 0,0);
|
|
rv.AddNL('(This demo loads *.pas files from application directory)', 0,0);
|
|
end;
|
|
2:
|
|
begin
|
|
rv.AddBulletEx('',1,frmMain.il,1);
|
|
rv.Add('Customizing Styles', 1);
|
|
rv.AddNL('Interactive customization of document', 0,0);
|
|
end;
|
|
3:
|
|
begin
|
|
rv.AddBulletEx('',1,frmMain.il,1);
|
|
rv.Add('Query Summary', 1);
|
|
rv.AddNL('Complex query at one look', 0,0);
|
|
end;
|
|
4:
|
|
begin
|
|
rv.AddBulletEx('',1,frmMain.il,1);
|
|
rv.Add('Interactive document', 1);
|
|
rv.AddNL('Document is a control itself', 0,0);
|
|
end;
|
|
5:
|
|
begin
|
|
rv.AddBulletEx('',1,frmMain.il,1);
|
|
rv.Add('Chat Simulation', 1);
|
|
rv.AddNL('Autoscroll, URL detection', 0,0);
|
|
end;
|
|
6:
|
|
begin
|
|
rv.AddBulletEx('',1,frmMain.il,1);
|
|
rv.Add('Credits Demo:', 1);
|
|
rv.AddNL('Scrolling text and images on timer', 0,0);
|
|
end;
|
|
7:
|
|
begin
|
|
rv.AddBulletEx('',1,frmMain.il,1);
|
|
rv.Add('Search and mark:', 1);
|
|
rv.AddNL('Search and mark words in editor', 0,0);
|
|
rv.AddNL('(This demo loads MainFrm.pas from the application directory)', 0,0);
|
|
end;
|
|
end;
|
|
rv.Format;
|
|
Height := rv.DocumentHeight+20;
|
|
end;
|
|
|
|
procedure TfrmPopup.MoveToMouse;
|
|
var p: TPoint;
|
|
begin
|
|
GetCursorPos(p);
|
|
if p.x+Width>Screen.Width then
|
|
p.x := Screen.Width-Width;
|
|
if p.y+Height>Screen.Height then
|
|
p.y := Screen.Height-Height;
|
|
Left := p.x;
|
|
Top := p.y;
|
|
end;
|
|
|
|
procedure TfrmPopup.ShowTopic(DemoNo: Integer);
|
|
begin
|
|
Build(DemoNo);
|
|
MoveToMouse;
|
|
Show;
|
|
end;
|
|
|
|
end.
|