Главная страница
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.05 c
2-1179178018
{RASkov}
2007-05-15 01:26
2007.06.03
"Уникальный" идентификатор


15-1178728994
Виталий______
2007-05-09 20:43
2007.06.03
Вопрос по Oracle Forms Builder


15-1178177317
Ega23
2007-05-03 11:28
2007.06.03
У жены сестра старшая двойню родила!!!


15-1178567172
Kostafey
2007-05-07 23:46
2007.06.03
try...except...finally...end


6-1164277605
@lexR
2006-11-23 13:26
2007.06.03
список пользователей подключенных к домену