Шаг строк в параграфе

[Fenix063]

Добрый день!
Подскажите пожалуйста, как можно изменить шаг строк в параграфе...
Пишу программу на Delphi и столкнулся с данной проблемой!

пробовал писать следующее (для получения шага строк):

Код Выделить Развернуть

function GetStep: Double;
var
  ATextStyleParam: ksTextStyleParam;
begin
  ATextStyleParam := CoTextStyleParam.Create;
  Result := ATextStyleParam.Step;
end;
Но при этом выходит ошибка (не зарегистрирован класс).

Также пробовал другое:

Код Выделить Развернуть


...
var
  FKompas: KompasObject;
...
function GetStep: Double;
var
  ATextStyleParam: ksTextStyleParam;
begin
  ATextStyleParam := ksTextStyleParam(FKompas.GetParamStruct(ko_TextStyleParam));
  ATextStyleParam.Init;
  Result := ATextStyleParam.Step;
end;
Но при этом шаг строк равен 0. Что не является верным!

Также пробовал работать с ITextStyle из API7. Но там тоже самое.

Подскажите пожалуйста как решить данную проблему.

[333]

Так можно получить шаг:
doc2D.ksGetStyleParam( TEXT_STYLE, 1,    ATextStyleParam );
Result := ATextStyleParam.Step;

Менять можно через API7
ITextLine::Step