Форум: "Основная";
Текущий архив: 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.038 c