Вниз
Скачать: CL | DM;

Написать на Canvas   Найти похожие ветки 

← →
Knop ©   (2005-08-15 15:51) [0]

Как можно вывести на Canvas экрана слово из lebel или edit?


← →
Eraser ©   (2005-08-15 15:55) [1]

Knop ©   (15.08.05 15:51)

Можно, и не только из label или edit.
См. свойство Handle у TCanvas.


← →
Knop ©   (2005-08-15 15:59) [2]

Например?


← →
alex-drob ©   (2005-08-15 16:05) [3]

DrawText


← →
Knop ©   (2005-08-15 16:48) [4]

Спасибо. Вроде разобрался. Использовал TextOut


← →
Eraser ©   (2005-08-15 16:58) [5]

Knop ©   (15.08.05 16:48) [4]

Не забывай контекст потом осободить.


← →
Knop ©   (2005-08-16 11:52) [6]


> Не забывай контекст потом осободить.

Как?

И ещё возник вопрос: Форма развёрнута на весь экран. В центре формы надо вывести надпись. Пишу TextOut(Screen.Width div 2, Screen.Height div 2, "Текст"), но так задаются координаты верхнего левого угла. Как можно узнать "длину" текста, чтобы потом внести поправки в координаты. Или можно другую процедуру (если есть) с примерчиком желательно.


← →
Eraser ©   (2005-08-16 14:38) [7]

Knop ©   (16.08.05 11:52) [6]
> Не забывай контекст потом осободить.

Как?


Перед вызовом Canvas.Free, впиши ReleaseDC(0, Canvas.Handle);

Как можно узнать "длину" текста, чтобы потом внести поправки в координаты.

TCanvas.TextWidth(const Text: string): Integer;
___
А вообще справка по Делфи - весч хорошая...


← →
Knop ©   (2005-08-16 15:09) [8]


> Перед вызовом Canvas.Free, впиши ReleaseDC(0, Canvas.Handle);

У меня вызывается из главного окна форма, на которой всё дело и происходит (рисование), потом форма уничтожается FreeAndNil. Стоит ли делать как вы указали

> А вообще справка по Делфи - весч хорошая...

Знать бы как по английски сформулировать запрос нормально



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c
14-1127452073
DelphiN!
2005-09-23 09:07
2005.10.16
Разграничение сетевого канала по приоритетности


2-1126641667
keal
2005-09-14 00:01
2005.10.16
Как сделать сервер по типу icq?


14-1127832662
NikNet
2005-09-27 18:51
2005.10.16
Опять про 25 (ToolBar2000), Скачал TBSkin а не идет :(


2-1126843465
Meine
2005-09-16 08:04
2005.10.16
DBGrid


2-1125850871
Lower_
2005-09-04 20:21
2005.10.16
Stringgrid




   Наверх