Главная страница
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.045 c
15-1178567172
Kostafey
2007-05-07 23:46
2007.06.03
try...except...finally...end


15-1178717673
webncassd
2007-05-09 17:34
2007.06.03
2а сайта и БД, MYSql


2-1178970944
Strate
2007-05-12 15:55
2007.06.03
Exeption внутри Thread


2-1178941012
Iv_
2007-05-12 07:36
2007.06.03
Цветная бегущая строка


2-1179133630
Zahadom
2007-05-14 13:07
2007.06.03
Копированиет с индикатором - ёлки-палки!