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

Вниз

Обработчик сообщения WM_PAINT не срабатывает для PageControl   Найти похожие ветки 

 
0315   (2006-11-03 04:19) [0]

Вот часть кода:
 private
   procedure LabelPaint(var Msg: TWMPAINT); message WM_PAINT;
...

procedure TForm1.LabelPaint(var Msg: TWMPAINT);
var i: byte; rect: TRect;
begin
inherited;
rect:= Bounds(0, 0, 60,45);
For i:= 1 to 9 do with TLabel(FindComponent ("Label" + IntToStr(i))) do Canvas.StretchDraw(rect,b[i]);
end;

Проблема в том, что Label1..9 находятся на PageControl1 и ни.. чего не срабатывает, то-есть форма конечно прорисовывается но картинок на Label1..9 нету...
Если Label1..9 размещать непосредственно на форме всё работает, и ещё, что самое интересное, если убрать inherited, то само собой не прорисовываются все остальные объекты, зато прорисовываются картинки на Label1..9...
Вообщем, если кто знает как решить эту проблему, не изменяя сильно кода программы, напишите на мой майл, заранее благодарен.


 
Ketmar ©   (2006-11-03 04:42) [1]

вот же удивительно, а? http://antigreen.org/bioreactor/



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

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

Наверх




Память: 0.46 MB
Время: 0.048 c
2-1162142182
Alral
2006-10-29 20:16
2006.11.19
TComboBox-gruppirovka po alfavitu


4-1151505576
salexn
2006-06-28 18:39
2006.11.19
Vista и API функции


15-1162221542
Lebedev
2006-10-30 18:19
2006.11.19
MediaPlayer не приигрывает avi видео-ролик цифрового фотика.


2-1162458819
DVM
2006-11-02 12:13
2006.11.19
Как в SQL INSERT INTO указать правильное значение для счетчика?


15-1162058237
Ketmar
2006-10-28 21:57
2006.11.19
ай, какая чудесная картинка...