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
3.5 KiB
ObjectPascal
125 lines
3.5 KiB
ObjectPascal
unit MainFrm;
|
|
|
|
interface
|
|
{$I RV_Defs.inc}
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
RVScroll, RichView, RVStyle,
|
|
ImgList, MMSystem;
|
|
|
|
type
|
|
TfrmMain = class(TForm)
|
|
rv: TRichView;
|
|
rvs: TRVStyle;
|
|
rvTop: TRichView;
|
|
rvsForDemos: TRVStyle;
|
|
il: TImageList;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure rvJump(Sender: TObject; id: Integer);
|
|
procedure rvRVMouseMove(Sender: TObject; id: Integer);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmMain: TfrmMain;
|
|
|
|
|
|
{ Constants for text styles, rvsForDemos.TextStyles }
|
|
const sncomNormal = 0;
|
|
sncomHeading = 1;
|
|
sncomKeyword = 2;
|
|
sncomMarked = 3;
|
|
|
|
{ Constants for text styles, rvs.TextStyles }
|
|
const snNormal = 0;
|
|
snHeading = 1;
|
|
snExit = 3;
|
|
snJump = 4;
|
|
|
|
implementation
|
|
|
|
uses PopupFrm,
|
|
Demo1Frm, Demo2Frm, Demo3Frm,
|
|
Demo4Frm, Demo5Frm, Demo6Frm,
|
|
Demo7Frm;
|
|
{$R *.DFM}
|
|
{-----------------------------------------------------}
|
|
procedure TfrmMain.FormCreate(Sender: TObject);
|
|
begin
|
|
|
|
rvTop.BackgroundBitmap := rv.BackgroundBitmap;
|
|
rvTop.AddNL(' ', snNormal, 1);
|
|
rvTop.AddNL('RichView Demos', snHeading, 1);
|
|
rvTop.AddNL(' ', snNormal, 1);
|
|
rvTop.Format;
|
|
rvTop.Height := rvTop.DocumentHeight;
|
|
|
|
rv.AddNL('Click links for demos, click balls for hints', snNormal, 1);
|
|
rv.AddHotspotExTag('', 0,1,il, 1, 1);
|
|
rv.Add('1. ', snNormal);
|
|
rv.AddNLTag('"Checkpoints"', snJump, -1, 1);
|
|
rv.AddHotspotExTag('', 0,1,il, 1, 2);
|
|
rv.Add('2. ', snNormal);
|
|
rv.AddNLTag('Customizing Styles', snJump, -1, 2);
|
|
rv.AddHotspotExTag('', 0,1,il, 1, 3);
|
|
rv.Add('3. ', snNormal);
|
|
rv.AddNLTag('Query Summary', snJump, -1, 3);
|
|
rv.AddHotspotExTag('', 0,1,il, 1, 4);
|
|
rv.Add('4. ', snNormal);
|
|
rv.AddNLTag('Interactive document', snJump, -1, 4);
|
|
rv.AddHotspotExTag('', 0,1,il, 1, 5);
|
|
rv.Add('5. ', snNormal);
|
|
rv.AddNLTag('Chat Simulation', snJump, -1, 5);
|
|
rv.AddHotspotExTag('', 0,1,il, 1, 6);
|
|
rv.Add('6. ', snNormal);
|
|
rv.AddNLTag('Credits Demo', snJump, -1, 6);
|
|
rv.AddHotspotExTag('', 0,1,il, 1, 7);
|
|
rv.Add('7. ', snNormal);
|
|
rv.AddNLTag('Search and mark', snJump, -1, 7);
|
|
rv.AddBreakEx(2, rvbsLine, clGreen);
|
|
rv.AddNL('Exit', snExit, 1);
|
|
rv.Format;
|
|
end;
|
|
{-----------------------------------------------------}
|
|
procedure TfrmMain.rvJump(Sender: TObject; id: Integer);
|
|
var ItemNo, StyleNo, ItemTag: Integer;
|
|
frm: TFrmPopup;
|
|
frmDemo: TForm;
|
|
begin
|
|
ItemNo := rv.GetJumpPointItemNo(id);
|
|
StyleNo := rv.GetItemStyle(ItemNo);
|
|
ItemTag := rv.GetItemTag(ItemNo);
|
|
if StyleNo=rvsHotspot then begin
|
|
frm := TFrmPopup.Create(Self);
|
|
frm.ShowTopic(ItemTag);
|
|
end
|
|
else begin
|
|
frmDemo := nil;
|
|
case ItemTag of
|
|
1: frmDemo := TfrmDemo1.Create(Application);
|
|
2: frmDemo := TfrmDemo2.Create(Application);
|
|
3: frmDemo := TfrmDemo3.Create(Application);
|
|
4: frmDemo := TfrmDemo4.Create(Application);
|
|
5: frmDemo := TfrmDemo5.Create(Application);
|
|
6: frmDemo := TfrmDemo6.Create(Application);
|
|
7: frmDemo := TfrmDemo7.Create(Application);
|
|
0: Close;
|
|
end;
|
|
if frmDemo<>nil then begin
|
|
frmDemo.ShowModal;
|
|
frmDemo.Free;
|
|
end;
|
|
end;
|
|
end;
|
|
{-----------------------------------------------------}
|
|
procedure TfrmMain.rvRVMouseMove(Sender: TObject; id: Integer);
|
|
begin
|
|
if id<>-1 then
|
|
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'UCS.wav'),
|
|
0,SND_ASYNC or SND_FILENAME);
|
|
end;
|
|
|
|
end. |