Re: Increase small font

Return to index

Author

Message

Sergey Tkachenko

Posted: 01/16/2004 15:44:56

You can use TRVStyle.OnApplyStyle event:

procedure TForm3.RVStyle1ApplyStyle(Sender: TRVStyle; Canvas: TCanvas;

  StyleNo: Integer; var DoDefault: Boolean);

begin

  if (Sender.TextStyles[StyleNo].FontName = 'Small Fonts') and

     (Canvas.Font.PixelsPerInch=Screen.PixelsPerInch) then begin

    Canvas.Font.Assign(Sender.TextStyles[StyleNo]);

    Canvas.Font.Size := 8;

    Canvas.Font.Name := 'Arial';

    DoDefault := False;

  end;

end;