Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Рисование в Memo  (Прочитано 5059 раз)
0 Пользователей и 1 Гость смотрят эту тему.
FM 23.7
Гость
« : 26-03-2004 15:15 » 

Подскажите, пожалуйста, как можно в Memo или RichEdit рисоват, возможно ли такое?  :?:
Записан
Sacha
Гость
« Ответ #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]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines