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

Вниз

Не рисует на компоненте. Где ошибка?   Найти похожие ветки 

 
Виктор ©   (2002-06-01 00:00) [0]

Пытаюсь нарисовать красную рамку на комбобоксе, но она не рисуется. Если закомментировать inherited, то компонент не прорисовывается, но зато рисуется рамка. А как нарисовать рамку поверх комбобокса?

procedure TMyComboBox.WMPaint(var Message: TWMPaint);
var R: TRect;
FrameBrush: HBRUSH;
DC: HDC;
begin
inherited;
if HandleAllocated then begin
DC := GetDC(Handle);
FrameBrush := CreateSolidBrush(ColorToRGB(clRed));
R := Bounds(0, 0, 20, 20);
FrameRect(DC, R, FrameBrush);
DeleteObject(FrameBrush);
ReleaseDC(Handle, DC);
end;
end;


 
Виктор ©   (2002-06-01 00:19) [1]

Оказывается, что не рисует рамку, когда я кладу компонент на форму (designtime). Если ткнуть в компонент, то рамка появляется. Если изменить размер компонента, то рамка пропадает. Событие WMSize я тоже обрабатываю и рисую рамку. Подскажите, пожалуйста.



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

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

Наверх




Память: 0.46 MB
Время: 0.013 c
1-40008
OLDemon
2002-06-03 10:05
2002.06.13
Сделать видимой TPanel


1-39990
cpp
2002-06-03 14:34
2002.06.13
Разница в часах минутах и секундах


1-39980
Alex_KR
2002-05-31 22:59
2002.06.13
Иконка в System Tray


14-40181
vajo
2002-05-13 10:04
2002.06.13
Проблема с проводником в Win XP


1-40024
Alex is Fecit
2002-05-29 21:49
2002.06.13
---|Ветка была без названия|---