Как вывести текст по центру на canvas.

← →
Nikfel © (2007-06-28 17:25) [0]

Пожалуйста помогите. Мне надо создать компонент tlabel, затем нарисовать на нем (разноцветный фон), при этом текст введенный в caption закрашивается. А мне надо ввести текст по центру, но при этом учитывать что с боку будет изображение и текст надо будет еще сместить на размер изображения. Заранее спасибо.

← →
Jeer © (2007-06-28 17:30) [1]

Карандаши купи и резинку.

← →
Ega23 © (2007-06-28 17:33) [2]

Canvas.TextOut((Label.Width - Image.Width - Canvas.GetFontWidth("ля-ля-ля")) div 2, Y, "ля-ля-ля")

← →
homm © (2007-06-28 17:35) [3]

> при этом текст введенный в caption закрашивается

Поясни. Кем закрашиваеться, и чем закрашиваеться.

> А мне надо ввести текст по центру, но при этом учитывать
> что с боку будет изображение

Текст.Лево = (ПолеДляВвода.Ширина - Текст.Ширина) поделить 2 - Изображение.Ширина; Текст.Верх = (ПолеДляВвода.Высота - Текст.Высота) поделить 2 - Изображение.Высота;

← →
Nikfel © (2007-06-28 18:15) [4]

Спасибо, разобрался. Вот правильный код:
label1.Canvas.TextOut(((Label1.Width-label1.Canvas.TextWidth("ля-ля-ля")) div 2)+(image1.Width div 2), (label1.Height-label1.Canvas.TextHeight("ля-ля-ля")) div 2, "ля-ля-ля");
Изображение должно быть выведено на canvas по левому краю, иначе текст будет не по центру.

> Поясни. Кем закрашиваеться, и чем закрашиваеться.
>

Закрашивал карандашом pen. Рисовал линии разных цветов.

← →
Однокамушкин (2007-06-29 16:35) [6]

http://msdn2.microsoft.com/en-us/library/ms533933.aspx

Как вывести текст по центру на canvas. Найти похожие ветки