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
115 lines
2.8 KiB
ObjectPascal
115 lines
2.8 KiB
ObjectPascal
unit Demo3Frm;
|
|
|
|
interface
|
|
{$I RV_Defs.inc}
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, ComCtrls, RVStyle, RVScroll, RichView,
|
|
ImgList, ExtCtrls;
|
|
|
|
type
|
|
TfrmDemo3 = class(TForm)
|
|
PageControl1: TPageControl;
|
|
rv: TRichView;
|
|
TabSheet1: TTabSheet;
|
|
TabSheet2: TTabSheet;
|
|
TabSheet3: TTabSheet;
|
|
Page4: TTabSheet;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Edit1: TEdit;
|
|
Label3: TLabel;
|
|
Edit2: TEdit;
|
|
RadioGroup1: TRadioGroup;
|
|
CheckBox1: TCheckBox;
|
|
CheckBox2: TCheckBox;
|
|
CheckBox3: TCheckBox;
|
|
Memo1: TMemo;
|
|
Label4: TLabel;
|
|
il: TImageList;
|
|
procedure Change(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
procedure rvClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
procedure BuildSummary;
|
|
end;
|
|
|
|
|
|
implementation
|
|
uses MainFrm;
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmDemo3.BuildSummary;
|
|
const OffOn: array [Boolean] of String = ('Off', 'On');
|
|
Checks: array [Boolean] of Integer = (1, 2);
|
|
begin
|
|
rv.Clear;
|
|
rv.AddNL('Query', sncomHeading,1);
|
|
|
|
rv.AddBulletEx('', 0, il, 0);
|
|
rv.Add('Edit1: ', sncomKeyword);
|
|
rv.Add(Edit1.Text, sncomNormal);
|
|
|
|
rv.AddBulletEx('', 0, il, 0);
|
|
rv.Add('Edit2: ', sncomKeyword);
|
|
rv.Add(Edit2.Text, sncomNormal);
|
|
|
|
rv.AddBreakEx(1, rvbsLine, clRed);
|
|
|
|
if RadioGroup1.ItemIndex<>-1 then begin
|
|
rv.AddBulletEx('', 3, il, 0);
|
|
rv.Add('Menu: ', sncomKeyword);
|
|
rv.Add(RadioGroup1.Items[RadioGroup1.ItemIndex], sncomNormal);
|
|
end;
|
|
|
|
rv.AddBreakEx(1, rvbsLine, clRed);
|
|
|
|
rv.AddNL('Check1: ', sncomKeyword, 0);
|
|
rv.AddBulletEx('', Checks[Checkbox1.Checked], il, -1);
|
|
rv.Add(OffOn[Checkbox1.Checked], sncomNormal);
|
|
|
|
rv.AddNL('Check2: ', sncomKeyword, 0);
|
|
rv.AddBulletEx('', Checks[Checkbox2.Checked], il, -1);
|
|
rv.Add(OffOn[Checkbox2.Checked], sncomNormal);
|
|
|
|
rv.AddNL('Check3: ', sncomKeyword, 0);
|
|
rv.AddBulletEx('', Checks[Checkbox3.Checked], il, -1);
|
|
rv.Add(OffOn[Checkbox3.Checked], sncomNormal);
|
|
|
|
rv.AddBreakEx(1, rvbsLine, clRed);
|
|
|
|
rv.AddBulletEx('', 0, il, 0);
|
|
rv.Add('Memo1: ',sncomKeyword);
|
|
rv.AddTextNL(Memo1.Lines.Text, sncomNormal, -1, 0);
|
|
rv.Format;
|
|
end;
|
|
|
|
procedure TfrmDemo3.Change(Sender: TObject);
|
|
begin
|
|
BuildSummary;
|
|
end;
|
|
|
|
procedure TfrmDemo3.FormCreate(Sender: TObject);
|
|
begin
|
|
BuildSummary;
|
|
end;
|
|
|
|
procedure TfrmDemo3.FormKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
if Key=VK_ESCAPE then Close;
|
|
end;
|
|
|
|
procedure TfrmDemo3.rvClick(Sender: TObject);
|
|
begin
|
|
if not rv.SelectionExists then
|
|
Application.MessageBox('This RichView only for view, do not click it', 'Info',
|
|
MB_OK or MB_ICONEXCLAMATION);
|
|
end;
|
|
|
|
end. |