Смещение размерной надписи

[Mister_Gentleman]

Доброго времени суток. Скажите, пожалуйста, как можно сдвинуть вниз размерную надпись в Delphi (см.изображение - выделено красным), т.к пересекает другие линии. Нужно, чтобы выводилось как на изображении Screenshot_3.Заранее спасибо.

[Slaviation]

См. IDimensionParams::TextType = ksDimTManual и IDimensionParams::TextBase = ksDimBaseP2 и IDimensionParams::TextPos.
Пример во вложении.

[Mister_Gentleman]

См. IDimensionParams::TextType = ksDimTManual и IDimensionParams::TextBase = ksDimBaseP2 и IDimensionParams::TextPos.
Пример во вложении.

Спасибо, только жаль, что не в Delphi.

[Mister_Gentleman]

Может кто всё-таки посоветует как программно задать смещение размерной надписи именно в Delphi? С другими языками не дружу.