Опять Word

← →
Spawn (2003-08-16 10:44) [0]

Есть ли способ узнать Height одной строки?

Я пробовал узнавать Height текста, но получал не совсем точное значение:

try FontSize:=Doc.Paragraphs.Item(Doc.Paragraphs.Count).Range.Font.Size; LabelTest:=TLabel.Create(Self); LabelTest.Parent:=Self; LabelTest.Font.Size:=FontSize; LabelTest.Font.Name:=Doc.Paragraphs.Item(Doc.Paragraphs.Count).Range.F ont.Name; LabelTest.Caption:="Test"; tHeight:=LabelTest.Canvas.TextHeight(LabelTest.Caption); ShowMessage(IntToStr(tHeight)); finally FreeAndNil(LabelTest); end;

Может есть како то Word-овский способ?

← →
Spawn (2003-08-16 10:46) [1]

Нужно это для того, чтобы после вставки картинки, сместить параграф на нужное количество значений(чтоб следующая запись не "налегала" на картинку).

← →
Spawn (2003-08-16 13:55) [2]

Неужели нет друих способов?

← →
Viktorious (2003-08-16 15:46) [3]

Высота строки зависит не только от Font.Name и Font.Size,
а также от стиля текста (курсив, подчеркивание и т.п. - вроде бы:), поэтому неудивительно, что приведенный фрагмент не точно работает.

По-моему, лучше попробовать так:
var oldFont:TFont;
begin
oldFont:=TFont.Create;
oldFont.Assign(Self.Font);
Self.Font.Assign(Doc.Paragraphs.Item
(Doc.Paragraphs.Count).Range.Font);
tHeight:=Self.Canvas.TextHeight(Our_Text);//Our_Text-текст, высоту которого надо узнать
ShowMessage(IntToStr(tHeight));
Self.Font.Assign(oldFont);
oldFont.Free;
end;

Опять Word Найти похожие ветки