Convert old function RVA_ConvertToTwips
Posted: Fri Jan 08, 2021 1:07 pm
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
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