TRichView.com

procedure TForm1.RichViewEdit1StyleConversion(Sender: TCustomRichViewEdit;
StyleNo, UserData: integer; AppliedToText: boolean; var NewStyleNo: integer);
var
AFontInfo: TFontInfo;
begin
AFontInfo := TFontInfo.Create(nil);
try
AFontInfo.Assign(RVStyle1.TextStyles[StyleNo]);
case UserData of ...

@Sergey Tkachenko
Hello, I have another question. When I execute the code in cmbFontChange to change the font name of all the text in RichViewEdit1 at once, sometimes it works without any errors, but sometimes it doesn't work and throws the exception "Project project1 raised an exception class ...

@Sergey Tkachenko It's indeed a coding issue, thank you

The forum doesn't allow me to upload anything anymore. I'll paste the demonstration code.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, RVStyle,
RVEdit,
RVTable,
RVTypes,
CRVData,
RichView,
LazUTF8;

type

TTextColorPair ...

Images cannot be uploaded directly; they can only be compressed and uploaded.

The effect drawing to be achieved.

I would like to ask about a problem where I cannot change the font name and color of the content in a control under Lazarus.

This sample code demonstrates the function that when Button1Click is clicked, a string text is added to RichViewEdit1, divided into two paragraphs. Then when CheckBox1Click ...

@Sergey Tkachenko
I came to remind you, thank you for your help! Wish you a happy work!

procedure TForm3.RichViewEdit1Paint(Sender: TCustomRichView; ACanvas: TCanvas;
Prepaint: Boolean);
var
i, Y: Integer;
FirstDrawItemNo, LastDrawItemNo: Integer;
begin
if Prepaint then
exit;
ACanvas.Pen.Color := $EE9900;
ACanvas.Pen.Style := psSolid;
ACanvas.Pen.Width := 1;

Sender.RVData ...

Want to make a recording time timer, the "positions" how to take?

How should I take the number of positions ？？？？


// Timer
procedure TMainForm.TimerTimer(Sender: TObject);
var
position: int64;
Hour, Min, Sec, MSec: Word;
const
MiliSecInOneDay = 86400000;
begin
if RVCamRecorder1.Active then ...

That's right. Thank you very much！！

@Sergey Tkachenko

Rvmedia trial is very good. I have a question, how to minimize the generated video file. AVI and MP4 files are still a little large. How to make the files smaller and generate TS files? How to generate?

Sorry, I translated it with the translation software. I hope you can ...

Thanks.

Linespacing problem

The first row of data is not spaced at the top of RVE from the first row to the second row.
How to fix it.
Linespacing：=150%,The larger the number, the more obvious it is

See figure for problem effect.

Let me use the,
Form.DoubleBuffered:=true;