Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.08.2009, 16:47   #1
Fezilk
Пользователь
 
Регистрация: 29.08.2008
Сообщений: 32
Печаль RichEdit: фон градиентом.

Доброго времени суток!

Необходимо сделать градиентный фон в RichEdit. Как это сделать?
Если можно на фон поставить изображение - как?

PS. TRichView не предлагать.
Fezilk вне форума Ответить с цитированием
Старый 24.08.2009, 16:53   #2
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Лично моя разработка отличается крайней сложностью и непонятностью, но мне удалось поставить на фон Rich`а изображение.Если интересует нечто подобное, могу объяснить, как это делается.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 24.08.2009, 17:09   #3
Fezilk
Пользователь
 
Регистрация: 29.08.2008
Сообщений: 32
По умолчанию

Alex Cones, да, интересует, объясните, пожалуйста.
Fezilk вне форума Ответить с цитированием
Старый 24.08.2009, 17:22   #4
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Значит так, я сосдал первую форму и назвал её FRMMain, затем содал вторую форму и назвал её FRMBACK, Обе формы сделал размером 300*400, с BORDERSTYLE = NONE. Взял изображение, размером 300*400 (см. выше). Создал на FRMMAIN имадж и назвал его IMGMAIN, растянул его на всю форму, зарядил изображение. Создал Имадж для FRMBACK и назвал его IMGBACK также растянул и зарядил. В таймере с интервалом 1 или в обработчике события OnMOVING самой формы (я разумею FRMMAIN) пишем следующее:
Код:
FRMBACK.LEFT:=FRMMAIN.LEFT;
FRMBACK.TOP:=FRMMAIN.TOP;
У обоих форм делаем свойство AlwaysOnTop. На форму FRMMAIN кидаем RichEdit или Memo и делаем фон у данного объекта равным clFushia или (что равносильно) $FF00FF. Затем берем у обоих форм свойство Transparent и выставляем в True, а цвет транспарента (TransparentColor) делаем уже понятным для нас clFushia. Да, и главная деталь: если кликнуть по ричу то мы попадем в фокус FRMBACK по этому создаем процедуру OnClick для IMGBACK и пишем там, что мы передаем фокус к ричу или главной форме, если на ней не будет больше никого, кто мог бы съесть фокус. Все! Уф...
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 24.08.2009, 17:33   #5
Fezilk
Пользователь
 
Регистрация: 29.08.2008
Сообщений: 32
По умолчанию

спасибо =)
только у меня все немного сложнее.
на форме 2 панели, на одной из них RichEdit, для которого фоновый рисунок надо. Поэтому не знаю как сделать.. если сможете - объясните, пожалуйста.
Fezilk вне форума Ответить с цитированием
Старый 24.08.2009, 17:34   #6
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

А как сделать, чтобы углы формы былы прозрачными...
Т.е. чтобы, например, на рабочем столе висел кружокк.
TwiX вне форума Ответить с цитированием
Старый 24.08.2009, 17:34   #7
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Ричь с прозрачным фоном будет "прожигать" форму аж до рабочего стола, в этом и предназначение FRMBACK - закрыть эту дырку и закрасить её рисунком. Так что никаких проблем.
2TwiX углы формы сделай розового цвета (можно любого другого, но врят ли на твоей фоме будут розовые рисунки) и установи этот цвет в TransparentColor формы.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 24.08.2009, 17:43   #8
Fezilk
Пользователь
 
Регистрация: 29.08.2008
Сообщений: 32
По умолчанию

Огромнейшее спасибо =)
Вообще не понимаю, как до такого додуматься можно =)
Все работает на ура!)
Fezilk вне форума Ответить с цитированием
Старый 24.08.2009, 17:47   #9
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

Т.е. просвечивается тот цвет, который установлен в transparentColor? Или всё, что светлее?
А кнопка с розовым цветом будет просвечиваться?)
TwiX вне форума Ответить с цитированием
Старый 24.08.2009, 17:52   #10
Fezilk
Пользователь
 
Регистрация: 29.08.2008
Сообщений: 32
По умолчанию

кажется я поторопился.. события OnMoving нет в форме..
Fezilk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
фон папки zmeyy Общие вопросы Delphi 28 31.10.2010 13:16
Фон =Kroshka= Microsoft Office Word 2 23.07.2009 14:39
Анимированный фон Delph1n Мультимедиа в Delphi 11 31.01.2009 14:47
фон beygul Общие вопросы Delphi 5 28.09.2008 11:28
Фон Стаханов_Андрей Помощь студентам 5 04.03.2008 08:20