Как создавать не квадратные формы и контролы

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

Всё, что нам нужно, это HRGN и дескриптор (handle) элемента управления. SetWindowRgn имеет три параметра: дескриптор окна, которое будем менять, дескритор региона и булевый (boolean) параметр, который указывает - перерисовывать или нет после изменения. Как только у нас есть дескриптор и регион, то можно вызвать SetWindowRgn(Handle, Region, True) и вуаля!

Заметьте, что Вы не должны освобождать регион при помощи DeleteObject, так как после вызова SetWindowRgn владельцем региона становится операционная система.

function BitmapToRgn(Image: TBitmap): HRGN;
var
  TmpRgn: HRGN;
  x, y: integer;
  ConsecutivePixels: integer;
  CurrentPixel: TColor;
  CreatedRgns: integer;
  CurrentColor: TColor;
begin
  CreatedRgns := 0;
  Result := CreateRectRgn(0, 0, Image.Width, Image.Height);
  inc(CreatedRgns);

  if (Image.Width = 0) or (Image.Height = 0) then
    exit;

  for y := 0 to Image.Height - 1 do
  begin
    CurrentColor := Image.Canvas.Pixels[0,y];
    ConsecutivePixels := 1;
    for x := 0 to Image.Width - 1 do
    begin
      CurrentPixel := Image.Canvas.Pixels[x, y];

      if CurrentColor = CurrentPixel then
        inc(ConsecutivePixels)
      else
      begin
        // Входим в новую зону
        if CurrentColor = clWhite then
        begin
          TmpRgn := CreateRectRgn(x - ConsecutivePixels, y, x, y + 1);
          CombineRgn(Result, Result, TmpRgn, RGN_DIFF);
          inc(CreatedRgns);
          DeleteObject(TmpRgn);
        end;
        CurrentColor := CurrentPixel;
        ConsecutivePixels := 1;
      end;
    end;

    if (CurrentColor = clWhite) and (ConsecutivePixels > 0) then
    begin
      TmpRgn := CreateRectRgn(x-ConsecutivePixels, y, x, y+1);
      CombineRgn(Result, Result, TmpRgn, RGN_DIFF);
      inc(CreatedRgns);
      DeleteObject(TmpRgn);
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  MaskBmp: TBitmap;
begin
  MaskBmp := TBitmap.Create;
  try
    MaskBmp.LoadFromFile('c:\Мои документы\DW.bmp');
    Height := MaskBmp.Height;
    Width := MaskBmp.Width;
    // ОС владеет регионом, после вызова SetWindowRgn
    SetWindowRgn(Self.Handle, BitmapToRgn(MaskBmp), True);
  finally
    MaskBmp.Free;
  end;
end;

Создание не прямоугольных форм и контролов в Delphi涉гывает создание региона (HRGN), представляющего форму или контроль, а затем настройку этого региона с помощью функции SetWindowRgn.

Приведенный код-снippet демонстрирует, как создать не прямоугольную форму, загрузив изображение bitmap, преобразовав его в регион и установив этот регион как регион окна с помощью SetWindowRgn.

Вот некоторые важные точки для заметки:

1. Функция BitmapToRgn принимает объект TBitmap в качестве входных данных и возвращает HRGN (handle to region). Она проходит по каждому пикселю в bitmap, проверяя, если последовательные пиксели имеют одинаковый цвет. Если они имеют, она увеличивает счетчик. Когда цвет изменяется или достигается края изображения, она создает прямоугольный регион для последовательных пикселей и комбинирует его с существующим регионом с помощью CombineRgn.
2. Процедура FormCreate загружает изображение bitmap из файла, преобразовывает его в регион с помощью BitmapToRgn, а затем устанавливает этот регион как регион формы окна с помощью SetWindowRgn. Обратите внимание, что после вызова SetWindowRgn OS становится владельцем региона, поэтому вам не рекомендуется удалять регион с помощью DeleteObject. Вот некоторые предложения по улучшению:
3. Обработка ошибок: предоставленный код не обрабатывает ошибки должным образом. Например, если файл bitmap не найден или не может быть загружен, программа будет крушиться. Вам нужно добавить блоки try-catch для обработки таких ошибок.
4. Организация кода: функция BitmapToRgn могла быть разделена на более мелкие функции, каждая из которых отвечала за конкретную задачу (например, создание прямоугольных регионов из последовательных пикселей). Это бы сделало код более читаемым и поддерживаемым.
5. Оптимизация производительности: преобразование изображения bitmap в регион может быть ресурсоемким процессом, особенно для больших изображений. Вам может потребоваться использовать более эффективный алгоритм или оптимизировать функцию BitmapToRgn для лучшей производительности.

В целом, предоставленный код демонстрирует, как создавать не прямоугольные формы и контролов в Delphi, преобразовывая изображение bitmap в регион и устанавливая этот регион как регион окна. Однако есть возможности улучшения в отношении обработки ошибок, организации кода и оптимизации производительности.

В статье описывается способ создания не квадратных форм и контролей в Windows при помощи функции SetWindowRgn, а также предоставляется пример кода на Delphi для преобразования изображения в регион и его применения к форме.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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