Поддержка Delphi Аэро Стекла и свойства DoubleBuffered - что продолжается и как мы используем их?

О DoubleBuffer

.NET может иметь его, и он может иметь то же имя и то же назначение, что и Delphi, но Delphi реализует DoubleBuffer с нуля, и я предполагаю, что .NET делает то же самое. При его реализации не используются биты оконного стиля.

DoubleBuffer и Glass Aero

Довольно просто: Не устанавливайте DoubleBuffer для элементов управления, которые находятся на Glass. Для работы DoubleBuffering необходимо иметь возможность инициализировать "буфер" - но чем его инициализировать для Glass? DoubleBuffering не требуется для стандартных элементов управления Windows (включая TButton). Для новых элементов управления, которым нужны и прозрачные поверхности, и поведение, подобное двойному буферу, можно использовать апи Layered windows.

Получение элементов управления для работы на Glass

Шаг 1:

TForm1 = class(TForm)
...
protected
  procedure CreateWindowHandle(const Params: TCreateParams); override;
...
end;

procedure TForm15.CreateWindowHandle(const Params: TCreateParams);
begin
  inherited;
  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
  SetLayeredWindowAttributes(Handle, RGB(60, 60, 60), 0, LWA_COLORKEY);
end;

Шаг 2, это должен быть обработчик OnPaint вашей формы:

procedure TForm15.FormPaint(Sender: TObject);
var rClientRect:TRect;
begin
  if GlassFrame.Enabled then
  begin
    rClientRect := ClientRect;

    Canvas.Brush.Color := RGB(60, 60, 60);
    Canvas.Brush.Style := bsSolid;
    Canvas.FillRect(rClientRect);

    if not GlassFrame.SheetOfGlass then
    begin
      rClientRect.Top := rClientRect.Top + GlassFrame.Top;
      rClientRect.Left := rClientRect.Left + GlassFrame.Left;
      rClientRect.Right := rClientRect.Right - GlassFrame.Right;
      rClientRect.Bottom := rClientRect.Bottom - GlassFrame.Bottom;
      Canvas.Brush.Color := clBtnFace;
      Canvas.FillRect(rClientRect);
    end;
  end;
end;

Шаг 3: Set GlassFrame.Enabled = True; Установите все остальные свойства Glass, добавьте элементы управления на форму, где бы они вам не нравились. Это может быть на Glass или в любом другом месте. Убедитесь, что элементы управления не имеют "DoubleBuffered = True". Вот и все, наслаждайтесь. Я тестировал с TButton, TCkBox и TEdit.

... EDIT ...

К сожалению, при использовании этого метода "Стекло" рассматривается как 100% прозрачная поверхность, а это не так - оно выглядит как стекло, но не ведет себя как стекло. Проблема со 100% прозрачностью заключается в том, что если вы щелкните на этой прозрачной области, ваш щелчок перейдет на окно за вашим окном. Ужасно.

На момент написания этой статьи я уверен, что не существует API для изменения цвета по умолчанию BLACK для оригинального стекла (google находит бесчисленные сообщения в блогах и на форумах о том, что нужно использовать пользовательский рисунок для элементов управления, которые находятся на стекле, и нет функции для изменения этого в списке функций DWM на MSDN). Без изменения цвета по умолчанию BLACK большинство элементов управления не могут корректно отображаться, потому что они пишут текст с помощью clWindowText, а он BLACK. Один из предложенных приемов, найденный на нескольких форумах, заключается в изменении цвета прозрачности с помощью API SetLayeredWindowAttributes. И это работает! После этого черный текст на элементах управления отображается как бросок, но, к сожалению, стекло больше не стекло, стекло выглядит как стекло, но ведет себя как 100% прозрачность. Это практически сводит на нет данное решение и показывает двойные стандарты со стороны Microsoft: Оригинальный BLACK не ведет себя как 100% прозрачность, но если мы изменим его на что-то лучшее, он будет вести себя как 100% прозрачность.

На мой взгляд, распространенное мнение об использовании пользовательских элементов управления на Glass ошибочно. Это единственное, что может сработать, но это неправильно, потому что мы должны использовать элементы управления, согласованные по всей платформе: предложение использовать пользовательские элементы управления открывает дверь для непоследовательных, похожих на winamp приложений, где каждый пользователь переделывает колесо в соответствии со своими художественными идеями. Даже если разработчику удастся точно воссоздать любой элемент управления windows и заставить его работать на стекле, "исправление" будет временным и его придется создавать заново для следующей версии windows. Не говоря уже о том, что необходимо иметь несколько вариантов для существующих версий windows.

Другим решением является использование многослойных окон с UpdateLayeredWindow. Но это неприятно по многим причинам.

Для меня это тупик. Но я поставлю этому вопросу флаг "любимый", если появится что-то лучшее, я хотел бы об этом узнать.