Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.09;
Скачать: CL | DM;

Вниз

Окаймление для Edit.   Найти похожие ветки 

 
denik   (2004-12-21 20:39) [0]

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


 
Yanis ©   (2004-12-21 22:56) [1]

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


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

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

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


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

> Как рисовать на 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 все время придётся прерисовывать.


 
DVM ©   (2004-12-22 10:17) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2005.01.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
14-1103711268
AlexG
2004-12-22 13:27
2005.01.09
Глюк в Delphi 5!!! Нужна помощь!!!


14-1103203292
Игорь Шевченко
2004-12-16 16:21
2005.01.09
Министр обороны призвал "прекратить дебилизацию" россиян


1-1103620067
Sha
2004-12-21 12:07
2005.01.09
MSWord: узнать Cell.Width в случае Cell.Width=wdUndefined


14-1103641954
Григорьев Антон
2004-12-21 18:12
2005.01.09
Торт для настоящего программиста :))


1-1103880954
Димон
2004-12-24 12:35
2005.01.09
Dialog в DLL