Окно в виде кольца

Delphi , Программа и Интерфейс , Интерфейс

Умея создавать окно эллипсовидной формы, для вас не составит большого труда слепить что-нибудь наподобие того, что показано на рисунке. Всё, что вам нужно сделать - это создать не один, а два региона и объединить их, используя функцию CombineRgn, т.е. теперь по созданию окна можно написать что-то вроде этого:

procedure TForm1.FormCreate(Sender: TObject);
var
  hsWindowRegion, hsWindowRegion2: Integer;
begin
  hsWindowRegion := CreateEllipticRgn(50, 50, 350, 200);
  hsWindowRegion2:=CreateEllipticRgn(80, 80, 200, 150);
  CombineRgn(hsWindowRegion, hsWindowRegion, hsWindowRegion2, RGN_DIFF);
  SetWindowRgn(Handle, hsWindowRegion, true);
end;

Мы уже знаем какую функцию нужно использовать для объединения регионов, но как же она действует и что же ей нужно указывать?

Вводятся следующие параметры:

• Дескриптор региона назначения,
• Дескриптор первого региона источника,
• Дескриптор второго региона источника,
• Режим взаимодействия регионов источников.

В качестве режима мы указали константу RGN_DIFF, а использовать можем:

• RGN_AND - Создает пересечение из двух смешанных областей,
• RGN_COPY - Создает копию области, идентифицированной дескриптором первой области источника,
• RGN_DIFF - Выводит части первой области источника, которые не пересекаются со второй,
• RGN_OR - Создает объединение двух смешанных областей,
• RGN_XOR - Создает объединение двух смешанных областей за исключением зоны перекрытия.

Статья Окно в виде кольца раздела Программа и Интерфейс Интерфейс может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Интерфейс ::