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
80 lines
2.2 KiB
ObjectPascal
80 lines
2.2 KiB
ObjectPascal
{*******************************************************}
|
|
{ }
|
|
{ RichView }
|
|
{ Combo Item Demo }
|
|
{ }
|
|
{ Copyright (c) Sergey Tkachenko }
|
|
{ svt@trichview.com }
|
|
{ http://www.trichview.com }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
|
|
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
|
|
Dialogs, RVScroll, RichView, RVStyle, ComboItem, RVTable;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
RVStyle1: TRVStyle;
|
|
rv: TRichView;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
var item: TRVComboItemInfo;
|
|
table: TRVTableItemInfo;
|
|
begin
|
|
rv.AddNLWTag('Virtual Greengrocery',0,1,0);
|
|
rv.AddNLWTag('',0,1,0);
|
|
table := TRVTableItemInfo.CreateEx(2,2,rv.RVData);
|
|
table.BorderColor := clSilver;
|
|
table.BorderStyle := rvtbColor;
|
|
table.BorderWidth := 2;
|
|
|
|
table.Cells[0,0].Clear;
|
|
table.Cells[1,0].Clear;
|
|
table.Cells[0,1].Clear;
|
|
table.Cells[1,1].Clear;
|
|
table.Cells[0,0].AddNLWTag('Select fruits:',0,0,0);
|
|
table.Cells[1,0].AddNLWTag('Select vegetables:',0,0,0);
|
|
table.Cells[0,0].BestWidth := 200;
|
|
table.Cells[0,1].BestWidth := 120;
|
|
table.CellPadding := 5;
|
|
table.ParaNo := 1;
|
|
|
|
item := TRVComboItemInfo.CreateEx(rv.RVData, 1, '');
|
|
item.MinWidth := 100;
|
|
item.Items.Add('apple');
|
|
item.Items.Add('banana');
|
|
item.Items.Add('pear');
|
|
table.Cells[0,1].AddItem('', item);
|
|
|
|
item := TRVComboItemInfo.CreateEx(rv.RVData, 1, '');
|
|
item.Items.Add('cucumber');
|
|
item.Items.Add('tomato');
|
|
item.MinWidth := 100;
|
|
table.Cells[1,1].AddItem('', item);
|
|
rv.AddItem('', table);
|
|
rv.AddNLWTag('(click the gray square to select)',0,1,0);
|
|
rv.Format;
|
|
|
|
end;
|
|
|
|
end.
|