МнјУґъВл

ScaleRichView support and discussion (TRichView add-on for WYSIWYG editing)
Post Reply
th9999
Posts: 33
Joined: Tue Jun 25, 2013 10:42 am

МнјУґъВл

Post by th9999 »

procedure TZYBLBJFrm.Button1Click(Sender: TObject);
var c : TCheckBox;
begin
c := TCheckBox.Create(nil);
c.Parent := SRichViewEdit1.RichViewEdit;
c.Font.Charset := ANSI_CHARSET;
c.Font.Name :='ЛОМе';
c.Font.Size := 12;
c.Font.Color := clBlue;
c.Name := 'CheckBox'+inttostr(SRichViewEdit1.RichViewEdit.ControlCount+1);
c.Caption := '¶аСЎПоДї';
c.Color:=clWhite;
SRichViewEdit1.RichViewEdit.InsertControl('teste', c, rvvaAbsMiddle);
SRichViewEdit1.ActiveEditor.Format;
end;
Sergey Tkachenko
Site Admin
Posts: 17253
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Post by Sergey Tkachenko »

Please post questions in English
Post Reply