Главная страница
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.042 c
15-1162084362
MultiLang
2006-10-29 04:12
2006.11.19
Функция перевода файлов *.pas в структуру элементов языка ?


15-1162294433
greg123
2006-10-31 14:33
2006.11.19
Компонент для работы со штрих-кодами


2-1162591683
Mr tray
2006-11-04 01:08
2006.11.19
Рисование на канвасе пикчера


2-1162711192
HumanToString
2006-11-05 10:19
2006.11.19
Проверить значение первого символа


15-1161960043
manchik
2006-10-27 18:40
2006.11.19
Программирование рабочего стола!