TRichView.com

Code: Select all

for i := 0 to RVStyle1.TextStyles.Count-1 do begin
  RVStyle1.TextStyles[i].FontName := 'Tahoma';
  RVStyle1.TextStyles[i].Size := 10;
end;

Code: Select all

Stream.Clear;
rv.SaveRVFToStream(Stream, False);
Stream.Position := 0;
rv.Clear;
rv.DeleteUnusedStyles(True, True, True);
rv.InsertRVFFromStream(Stream, 0);

Code: Select all

rve.SelectAll; 
with rvActionFontEx1 do begin
  UserInterface := False;
  ValidProperties := [rvfimFontName, rvfimFontSize];
  Font.Name := 'Tahoma';
  Font.Size := 10;
   Execute;
   UserInterface := True;
end;

Code: Select all

myRVActionFont: TrvActionFontEx;

myRVActionFont := rvActionsResource.rvActionFontEx1;
myRVActionFont.Control := myRichViewEdit;

myRichViewEdit.OnCurTextStyleChanged := myRichViewEditCurTextStyleChanged;

procedure myRichViewEditCurTextStyleChanged(Sender: TObject);
var
   TempStyle: TFontInfo;
begin
	TempStyle := myRichViewEdit.Style.TextStyles[myRichViewEdit.CurTextStyleNo];
	cxFontNameComboBox.FontName := TempStyle.FontName;
	cxSpinEditFontSize.Value := TempStyle.Size;
end;

Code: Select all

var
   myTextStyle: TFontInfo;
   myIndexNewTextStyle: integer;
begin
	myTextStyle := TFontInfo.Create(nil);

	try
		myTextStyle.FontName := DefaultUserFont; // Calibri
		myTextStyle.Size := DefaultUserFontSize; // 11
		myTextStyle.Color := DefaultUserFontColor; // clBlack

		if assigned(cxColorComboBoxSchriftfarbe) then begin
			cxColorComboBoxSchriftfarbe.ColorValue := myTextStyle.Color;
		end;
		cxFontNameComboBox.FontName := myTextStyle.FontName;
		cxSpinEditFontSize.Value := myTextStyle.Size;

		if assigned(myRichViewEdit.Style) then begin
			if myRichViewEdit.Style.TextStyles.FindSuchStyle(0, myTextStyle, RVAllFontInfoProperties) <= 0 then begin
				myRichViewEdit.Style.TextStyles.Add;
				myIndexNewTextStyle := myRichViewEdit.Style.TextStyles.Count-1;
				myRichViewEdit.Style.TextStyles[myIndexNewTextStyle].Assign(myTextStyle);
				myRichViewEdit.Style.TextStyles[myIndexNewTextStyle].Standard := false;
			end;

			with rvetRVActionSchriftart do begin
				UserInterface := False;
				ValidProperties := [rvfimFontName, rvfimColor, rvfimSize];
				Font.Name := myTextStyle.FontName;
				Font.Color := myTextStyle.Color;
				Font.Size := myTextStyle.Size;
				Execute;
				UserInterface := True;
			end;

			myRichViewEdit.ClearUndo;
		end;
	finally
		FreeAndNil(myTextStyle);
	end;
end;

Code: Select all

      with myRVActionFont do begin
         UserInterface := False;
			ValidProperties := [rvfimFontName];
         Font.Name := cxFontNameComboBox.FontName;
         Execute;
         UserInterface := True;
      end;

		
      TempInteger := Integer(cxSpinEditFontSize.EditValue);
      with myRVActionFont do begin
         UserInterface := False;
         ValidProperties := [rvfimSize];
         Font.Size := TempInteger;
         Execute;
         UserInterface := True;
      end;