Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.029 c
14-1127219038
Prohodil Mimo
2005-09-20 16:23
2005.10.16
Пишем программу вместе.


14-1124894682
Marser
2005-08-24 18:44
2005.10.16
Опрос: Студенты и работа.


1-1127825416
jobster
2005-09-27 16:50
2005.10.16
Розыскивается Delphi-программист


4-1124012368
NeoMaster
2005-08-14 13:39
2005.10.16
ReadDirectoryChagesW на все логичесике диски


6-1119560559
viktorovich
2005-06-24 01:02
2005.10.16
Подключение к локальной сети





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский