GroupBox с прямоугольным вырезом

[stannic]

Где можно найти вот такой компонент-наследник TGroupBox? Или как его проще нарисовать? Нужно, чтобы все свойства обычного групбокса сохранились, плюс чтобы можно было вывернуть внутрь любой угол, как на рисунке.
Спасибо.

[volod3000]

Вот попробуйте, а дальше копайте в этом направлении.

function BitmapToRegion(Bitmap: TBitmap; TransColor: TColor): HRGN;
var X, Y: Integer;
    XStart: Integer;
begin
 Result := 0;
 with Bitmap do
 for Y := 0 to Height - 1 do
  begin
   X := 0;
   while X < Width do
    begin
     // Пропускаем прозрачные точки
     while (X < Width) and (Canvas.Pixels[X, Y] = TransColor) do
      Inc(X);
      if X >= Width then
      Break;
      XStart := X;
     // Пропускаем непрозрачные точки
     while (X < Width) and (Canvas.Pixels[X, Y] <> TransColor) do
      Inc(X);
      // Создаём новый прямоугольный регион и добавляем его к
      // региону всей картинки
      if Result = 0 then
       Result := CreateRectRgn(XStart, Y, X, Y + 1)
     else
       CombineRgn(Result, Result,
       CreateRectRgn(XStart, Y, X, Y + 1), RGN_OR);
     end;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
Var RGN : HRGN;
begin
 GroupBox1.Color := rgb(4,150,120);
 // создаем регион для картинки
 RGN:= BitmapToRegion(Image1.Picture.Bitmap, clWhite);
 // устанавливаем новый регион
 SetWindowRgn(GroupBox1.Handle, RGN, True); // второй параметр всегда равен True
end;

Вам еще понадобится BMP картинка 16-bit , приблизительно так :

[stannic]

volod3000,
спасибо! Ваш вариант только что проверил, буду копать дальше. Только один вопрос: ресурсы освобождать нужно (DeleteRgn) или они сами освобождаются?