| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с обработкой WM_PAINT в OnMessage
L`Autour © (2008-09-12 09:22:00)Суть: прога с двумя панелями, на первой панели есть Memo, который нужно отрисовывать вручную, когда он не в фокусе.
Используя такой код:
function TForm1.MemoValue1Message(var Msg: tagMSG;
var Rslt: Integer): Boolean;
begin
Result := False;
if (Msg.message = WM_PAINT)and
(Form.ActiveControl <> MemoValue1) then
//тут пока отрисовки нет
Result := True;
end;
Получаю проблему с отрисовкой всего содержимого второй панели. Она отрисовывается, только если выполнять перемещение формы.
L`Autour (2008-09-12 11:20:00) [1]В 98SE и Me не прокатит.
А с нормальной прорисовкой остальных компонент уже справился. Надо было добавить в обработке WM_PAINT MemoValue1.ValidateRect(Msg.hwnd, nil);
exero (2008-09-12 10:56:00) [2]А сразу Unicode использовать по каким-то причинам нельзя?
L`Autour (2008-09-12 10:32:00) [3]Тогда придется в OnPaint делать самому две процедуры отрисовки: по умолчанию (для редактирования) и своей (отрисовка символов уникода в ANSI проге), вместо возможной одной.
exero (2008-09-12 09:33:00) [4]Может быть все же рисовать в OnPaint, как Кладов в своей книжке завещал?
| |
