Исключить круглый прямоугольник из области отсечения?

Question

Каков правильный способ исключить круглый прямоугольник из отсечения gregion с помощью Delphi/GDI?

Существует ExcludeClipRect, чтобы исключить прямоугольную область и есть CreateRoundRectRgn вместе с SelectClipRgn, чтобы установить область отсечения на круглый прямоугольник.

Но как я могу исключить круглый прямоугольник из области отсечения (что-то вроде ExcludeClipRoundRect или ExcludeClipRgn)? Я экспериментировал с CombineRgn, но не работал.

Answer 1

Благодаря замечанием @TLama я был в состоянии решить, как это:

Region := CreateRectRgn (0, 0, ClientWidth, ClientHeight); 
ExcludedRegion := CreateRoundRectRgn (1, 1, ClientWidth - 1, ClientHeight - 1, 3, 3); 
CombineRgn (Region, Region, ExcludedRegion, RGN_XOR); 
SelectClipRgn (Canvas.Handle, Region); 

Проблема в том, что прежде, чем область передается в качестве первого параметра CombineRgn не была создана. Одно предложение из связанного учебника при условии, что ключ:

Еще одна вещь, чтобы указать на то, что область назначения в CombineRgn может быть один из исходных областей.

вместе с этой информацией из MSDN:

hrgnDest [в]: Ручка к новой области с размерами, определенных путем объединения двух других регионов. (. Этот регион должен существовать до CombineRgn называется)

Answer 2

В качестве альтернативы уже given answer, что позволит определить один меньше регион, является использование ExtSelectClipRgn:

ExcludedRegion := CreateRoundRectRgn (1, 1, ClientWidth - 1, ClientHeight - 1, 3, 3); 
ExtSelectClipRgn(Canvas.Handle, ExcludedRegion, RGN_DIFF); 

Если вы» не уверен в том, что область отсечения была неизмененной, или нет, и хочет сбросить область, вы можете позвонить

SelectClipRgn(Canvas.Handle, 0); 

перед вызовом ExtSelectClipRgn.