Convert old function RVA_ConvertToTwips

[daniel74]

Hi, we have just updated to a newer version of TRichview/TScaleview.

Almost everything worked without a problem but got stuck when trying to convert RVA_ConvertToTwips(Self);


Any ideas how to best replace the procedure?

unit RichViewActions;

procedure RVA_ConvertToTwips(Form: TComponent);
var
i: Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components is TrvCustomAction then
TrvCustomAction(Form.Components).ConvertToTwips;
end;


Regards
Daniel

[Sergey Tkachenko]

This function still exists, but it has additional TRVStyle parameter.

For TSRichViewEdit, call

RVA_ConvertToTwips(Self, SRichViewEdit1.RichViewEdit.Style);

And consider using EMU instead. All new RichViewActions demos were switched from twips to EMU.
Read more about twips and EMU here: https://www.trichview.com/help/idh_type ... units.html

[daniel74]

Will have a look.

Now it is working. Thanks for help.