МнјУґъВл
Posted: Wed Jun 26, 2013 12:10 am
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;
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;