Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.01;
Скачать: CL | DM;

Вниз

Опять 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;



Страницы: 1 вся ветка

Текущий архив: 2003.09.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
1-1473
LuLu
2003-08-18 14:04
2003.09.01
изменение формы


1-1498
Opera
2003-08-19 15:44
2003.09.01
GameExplorer


1-1399
ASt
2003-08-16 01:38
2003.09.01
Много однотипных компонентов


1-1440
deep.one
2003-08-17 15:45
2003.09.01
Вопрос по поводу записи в файлы


4-1712
vgb
2003-06-28 14:39
2003.09.01
CreateBitmap(...)