Форум: "Основная";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

Как восстановить "удалённую" область?   Найти похожие ветки 

← →
SkySpeed   (2007-04-09 16:34) [0]

Удаляю "лишнюю" область так:
procedure TForm1.Button1Click(Sender: TObject);
var
a:HRGN;
begin
a:=CreateRectRgn(Panelka1.Left,Panelka1.Top,Panelka1.Left+Panelka1.Width,Panelka1.Top+Panelka1.Height);
CombineRgn(a,a,a,RGN_XOR);
SetWindowRgn(Panelka1.Handle,a,True);
DeleteObject(a);
end;

Как восстановить эту область?..

---

← →
Джо ©   (2007-04-09 16:54) [1]

> [0] SkySpeed   (09.04.07 16:34)
> Как восстановить эту область?..

То есть, как восстановить первоначальный регион?
 SetWindowRgn(Handle,0,True).

---

← →
SkySpeed   (2007-04-09 17:00) [2]

> Джо ©   (09.04.07 16:54) [1]
> > [0] SkySpeed   (09.04.07 16:34)
> > Как восстановить эту область?..
>
> То есть, как восстановить первоначальный регион?
>  SetWindowRgn(Handle,0,True).

То есть - ДА!
СПАСИБО! ОНО!

---

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

Форум: "Основная";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.073 c