VPF::Полное обновление окна - Форум программистов

Sunvas

Дата 9.4.2006, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Как реализовать полную перерисовку (обновление) чужого окна? Это значит что нужно обновить все компоненты окна и его бордер.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Yanis

Дата 9.4.2006, 01:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Код


InvalidateRect(hForeignWnd, nil, True);

--------------------

*щёлк*

Sunvas

Дата 9.4.2006, 01:46 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(Yanis @ 9.4.2006, 01:34

)

InvalidateRect(hForeignWnd, nil, True);

Не, бордер не обновляет.

Мне нужно, чтобы полностью восстанавливало окно вот после такого:

Код


var canv:tcanvas;
begin
canv:=tcanvas.Create;
canv.Handle:=getwindowdc(handle);
canv.Pen.Color:=clolive;
canv.brush.Color:=canv.Pen.Color;
canv.Pen.Mode:=pmxor;
canv.Rectangle(0,0,Width,Height);

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Yanis

Дата 9.4.2006, 02:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Sunvas @ 9.4.2006, 01:46

)

var canv:tcanvas;
begin
canv:=tcanvas.Create;
canv.Handle:=getwindowdc(handle);
canv.Pen.Color:=clolive;
canv.brush.Color:=canv.Pen.Color;
canv.Pen.Mode:=pmxor;
canv.Rectangle(0,0,Width,Height);

InvertRect(GetWindowDC(Handle), Rect(0,0,Width,Height));
smile

А бордер обновить можно так:

Код


SendMessage(Handle, WM_NCPAINT, 0, 0);

--------------------

*щёлк*

Sunvas

Дата 9.4.2006, 02:23 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(Yanis @ 9.4.2006, 02:06

)

SendMessage(Handle, WM_NCPAINT, 0, 0);

Может и можно, но для

Цитата(Sunvas @ 9.4.2006, 01:46

)

var canv:tcanvas;
begin
canv:=tcanvas.Create;
canv.Handle:=getwindowdc(handle);
canv.Pen.Color:=clolive;
canv.brush.Color:=canv.Pen.Color;
canv.Pen.Mode:=pmxor;
canv.Rectangle(0,0,Width,Height);

это не помогает.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Yanis

Дата 9.4.2006, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Такой вопрос, может не по теме... Когда ты собираешься освобождать canv?

--------------------

*щёлк*

Sunvas

Дата 10.4.2006, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(Yanis @ 9.4.2006, 09:51

)

Когда ты собираешься освобождать canv?

Если ты имеешь в виду canv.free то это я делаю после закрытия всей программы (в onclose).

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Sunvas

Дата 15.4.2006, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Вот нашел способ обновления бордера формы sendmessage(handle,26,0,0) в вин 2000, а в ХР это почему-то не работает. Может есть аналог?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »