Line

← →
ZL (2005-01-23 20:16) [0]

Подскажите, пожалуйста, как сделать так:
На форме чертим линию (х1,у1 – х2,у2), как написать надпись (1-2 символа) над линией по центру.

← →
MakedoneZ © (2005-01-23 20:26) [1]

для вычисления координат центра линии вот ф-ла:
x:=(x1+x2)/2 y:=(y1+y2)/2,отсюда делай выводы :)

← →
begin...end © (2005-01-23 20:31) [2]

А можно сформировать прямоугольник и вызвать DrawText с DT_CENTER.

← →
KilkennyCat © (2005-01-23 20:43) [3]

> begin...end © (23.01.05 20:31) [2]

а кто говорил, что линия - горизонтальная? :)

← →
KilkennyCat © (2005-01-23 20:44) [4]

TLogFont

← →
MakedoneZ © (2005-01-23 21:03) [5]

В случе если он не горизонтальная,то Label может пройти поверх линии,в зависимости коэффициента наклона.

← →
MakedoneZ © (2005-01-23 21:39) [6]

procedure MakeMark(x1,x2,y1,y2 : Integer; N,M: Byte; Mark: String);

begin
with MyForm.Canvas do
begin
MoveTo(x1,y1);
LineTo(x2,y2);
TextOut(((x1+x2) div 2)-N,((y1+y2) div 2)+M,Mark);
end;

Здесь не при помощи Label,а графический вывод слова Hi;
Как ты понял x1,x2,y1,y2 - координаты линии.
А вот N,M зависят от шрифта(Canvas.Font.Size:=z),но если ты не менял размер то рекомендую N=4; M=4(Ведь ты сказал что не более 2 симвовлов,вообще надо бы учитывать ширину шрифта,но если не менял и 2 либо 1 символ,то N=4; M=4;);

В вычислении середины отрезка может быть погрешность,в случае если (x2+x1) нечетное (из-за div),но она очень мала.
Добавлю что в случае если линия не горизонтальна,слово может пройти по линии,и тут уже надо учитывать угловой коэффициент.

Извините забыл
end; для процедуры MakeMark.
Не судите строго :)

← →
ZL (2005-01-24 21:30) [8]

Просто супер! Большое спасибо!!!!

Всегда рад помочь! :)

Line Найти похожие ветки