Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Написать на 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 вся ветка

Форум: "WinAPI";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.049 c
14-1126609315
INeedYourHelp
2005-09-13 15:01
2005.10.16
Лицензионная Delphi 7 studio enterprise


4-1124183268
volser
2005-08-16 13:07
2005.10.16
Изменение рабочего стола


2-1124471103
NikNet
2005-08-19 21:05
2005.10.16
Как перевести MP3/WAV/WMA/... в MIDI? на DELPHI?


2-1126251458
Ragazor
2005-09-09 11:37
2005.10.16
With Tpanel.Create(scroolbox)....


14-1127808548
Rentgen
2005-09-27 12:09
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский