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

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.048 c
2-1179058680
Просто_новичок
2007-05-13 16:18
2007.06.03
Частое обращение к жёсткому диску.


2-1179219374
leshas0
2007-05-15 12:56
2007.06.03
функция - вернуть массив


15-1178766009
Slider007
2007-05-10 07:00
2007.06.03
С днем рождения ! 9 мая


1-1176217171
I-New
2007-04-10 18:59
2007.06.03
вывод TPopupMenu с Timage при нажатии на левую кнопку мыши


2-1179107919
Ale][andr
2007-05-14 05:58
2007.06.03
INIFILES