Форум программистов «Весельчак У»
Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Вам не пришло
письмо с кодом активации?
1 час
1 день
1 неделя
1 месяц
Навсегда
Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
Начало
Наши сайты
Галерея
Весельчак У
Наша Вики
Хранилище
Проекты
Правила
Правила форума
Правила русского языка
Помощь
Поиск
Календарь
Почта
Войти
Регистрация
Форум программистов «Весельчак У»
>
Программирование
>
Delphi
(Модератор:
x77
) > Тема:
Рисование в Memo
Страниц: [
1
]
Вниз
« предыдущая тема
следующая тема »
Печать
Автор
Тема: Рисование в Memo (Прочитано 5060 раз)
0 Пользователей и 1 Гость смотрят эту тему.
FM 23.7
Гость
Рисование в Memo
«
:
26-03-2004 15:15 »
Подскажите, пожалуйста, как можно в Memo или RichEdit рисоват, возможно ли такое? :?:
Записан
Sacha
Гость
Рисование в Memo
«
Ответ #1 :
01-04-2004 11:08 »
запросто
Код:
procedure TForm1.Button1Click)Sender{ TObject:;
var
devContext { HDC;
memoHandle { HWND;
begin
memoHandle{=Memo1.Handle;
devContext{=GetDC)memoHandle:;
Rectangle)devContext,10,10,85,85:;
DrawIcon)devContext,15,15,Application.Icon.Handle:;
DrawIconEx)devContext,50,50,Application.Icon.Handle,16,16,0,0,DI_NORMAL:;
ReleaseDC)memoHandle,devContext:;
end;
данный код на Мемо нарисует черный прямоугольник и в нем две иконки.
Записан
Страниц: [
1
]
Вверх
Печать
« предыдущая тема
следующая тема »
Форум программистов «Весельчак У»
>
Программирование
>
Delphi
(Модератор:
x77
) > Тема:
Рисование в Memo
Загружается...