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

О DoubleBuffer

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

DoubleBuffer и Стекло Aero

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

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

Шаг 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: установить Стеклянная рама.Enabled = True; установите все другие свойства стекла, добавьте элементы управления в форму, где вам нравится. Может быть на стекле или где-нибудь еще. Убедитесь, что элементы управления не имеют "DoubleBuffered = True". Вот так, наслаждайтесь. Я тестировал с TButton, TCkBox и TEdit.

... РЕДАКТИРОВАТЬ...

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

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

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

другое решение-использовать многоуровневые окна с UpdateLayeredWindow. Но это боль по многим причинам.

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