| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Окаймление для Edit. [D7, WinXP]

denik ©   (2004-12-21 20:39:00) 

Подскажите пожалуйста, как поменять цвет бордюра Edit`a на какой-нибудь свой.

---

DVM   (2004-12-22 10:17:00) [1]

Переопределить оконную процедуру его и в WM_PAINT добавить рисование рамки после вызова стандартной процедуры обработки сообщения. С темами XP возможны проблемы.

---

Yanis   (2004-12-22 00:30:00) [2]

> Как рисовать на Edit`e?
Нарисовать то можно. Хотя бы вот так:


var
 c: TCanvas;
begin
 C := TCanvas.Create;
 with c do
   begin
     Handle := GetDc(Edit1.Handle);
     Pen.Color := clBlue;
     Brush.Style := bsClear;
     Rectangle(Edit1.ClientRect);
   end;
 C.Free;

Только Edit все время придётся прерисовывать.

---

denik   (2004-12-21 23:50:00) [3]

Зачем мне создавать новый компонент. Мне нужно только сделать бордюр Edit`a синим цветом.

Как рисовать на Edit`e?

---

Yanis   (2004-12-21 22:56:00) [4]

Ручками наверное надо делать. Сделай компонент на основе TEdit. Посмотри Frame3D.

---

Наверх