TRichView.com

There is a example of how to constructure a tree from RVData

procedure TMainForm.ShowStructure(RVData: TCustomRVData; Node: TcxTreeListNode;
ParentID: integer; newtag: boolean; json: boolean; grid_type: integer);
var
i, StyleNo, ItemNo, combo_count, new_tag: Integer;
ParaNode, ItemNode ...

Thank you

procedure TFrameNRV.InsertLabel(rves: TCustomRichViewEdit;
sName_Prefix, sCaption: string);
var
ACtrl: TSRVLabel;
sItemNo: string;
sName: TRVAnsiString;
aAlign: TRVVAlign;
ATag: Integer;
item: TCustomRVItemInfo;
begin
ACtrl := TSRVLabel.Create(rves);
ACtrl.Parent := rves ...

Sorry, TLabel can be replaced by TPanel, I have changed our code

procedure TFInsertControls.ToolButton13Click(Sender: TObject);
var
c: TPanel;
begin
c := TPanel.Create(nil);
c.Parent := SRichViewEdit1.ActiveEditor;
c.Name := 'Panel';
c.Caption := 'Panel';
c.Font.Name := 'Microsoft Sans ...

I think it might be a label's caption font color problem. for you can select it, but label's caption looks blank.


procedure TForm1.SRVButton1Click(Sender: TObject);
var
ACtrl: TLabel;
sItemNo: string;
sName: TRVAnsiString;
aAlign: TRVVAlign;
item: TCustomRVItemInfo;
begin
item ...