font qulalitiy

General TRichView support forum. Please post your questions here
Post Reply
amethyst623
Posts: 3
Joined: Wed Sep 28, 2011 2:55 pm

font qulalitiy

Post by amethyst623 »

is there a method to set the font quality for text in the richviewedit?

LOGFONT logFont;
logFont.lfHeight = 8;
logFont.lfWidth = 0;
logFont.lfEscapement = 0;
logFont.lfOrientation = 0;
logFont.lfWeight = FW_NORMAL;
logFont.lfItalic = 0;
logFont.lfUnderline = 0;
logFont.lfStrikeOut = 0;
logFont.lfCharSet = ANSI_CHARSET;
logFont.lfOutPrecision = OUT_DEFAULT_PRECIS;
logFont.lfClipPrecision = CLIP_DEFAULT_PRECIS;
logFont.lfQuality = PROOF_QUALITY;
Sergey Tkachenko
Site Admin
Posts: 17572
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Post by Sergey Tkachenko »

There are no direct properties for changing a font quality.
A solution is possible using TRVStyle.OnApplyStyle event:

Code: Select all

// code for RVStyle.OnApplyStyle event
procedure TForm1.RVStyle1ApplyStyle(Sender: TRVStyle; Canvas: TCanvas;
  StyleNo: Integer; var DoDefault: Boolean);
var LogFont: TLogFont;
    tm: TTextMetric;
    TextStyle: TFontInfo;
begin
  DoDefault := False;
  TextStyle := Sender.TextStyles[StyleNo];
  TextStyle.AssignToLogFont(LogFont, Canvas, True, False, False);
  LogFont.lfQuality := 3 {NONANTIALIASED_QUALITY};
  Canvas.Font.Handle := CreateFontIndirect(LogFont);
  // supporting CharScale property
  if TextStyle.CharScale<>100 then begin
    if GetTextMetrics(Canvas.Handle, tm) then
      LogFont.lfWidth := tm.tmAveCharWidth*TextStyle.CharScale div 100
    else
      LogFont.lfWidth := Canvas.TextWidth('x')*TextStyle.CharScale div 100;
    Canvas.Font.Handle := CreateFontIndirect(LogFont);
  end;
  // supporting CharSpacing property
  SetTextCharacterExtra(Canvas.Handle, TextStyle.CharSpacing);
end;

This solution has the following problems:
1) it applies only to text; bullet and numbering still use the system settings
2) this solution ignores bidirected text properties, so it can be used only if your application does not need to support Arabic or Hebrew.
Post Reply