Code: Select all
c := TSRVEdit.Create(nil);
c.Parent := Panel5;//}SRichViewEdit1.RichViewEdit;
c.Name:= 'SRVEdit';
c.Text:='';
c.Color:=clWhite;
c.Font.Name :='ËÎÌå';
c.EnabledBorderWidth :=0;
SRichViewEdit1.RichViewEdit.InsertControl('teste', c, rvvaAbsMiddle);
just use those codes ,but SRVEdit can not surport unicode .