Soporte de Delphi para Aero Glass y la propiedad DoubleBuffered - ¿qué está pasando y cómo los usamos?

Acerca de DoubleBuffer

. NET puede tener uno, y puede tener el mismo nombre y el mismo propósito que el de Delphi, pero Delphi está implementando DoubleBuffer desde cero y asumo que. NET hace lo mismo. No se usan bits de estilo de ventana implementando esto.

DoubleBuffer y Glass Aero

Bastante simple: No configure DoubleBuffer para los controles que se sientan en el vidrio. Para que el DoubleBuffering funcione, uno tiene que ser capaz de inicializar el "Buffer", pero ¿con qué inicializarlo para Glass? DoubleBuffering no es necesario para los controles estándar de Windows (incluyendo TButton). Para los nuevos controles que necesitan superficies transparentes y un comportamiento similar al de doublebuffer, se pueden usar las api de Windows en capas.

Conseguir que los controles funcionen en el vidrio

Paso 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;

Paso 2 , este debe ser el controlador OnPaint de su formulario:

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;

Paso 3 : Establecer GlassFrame.Enabled = True; Establecer todas las demás propiedades de vidrio, añadir controles a la forma, donde quieras. Puede estar en vidrio o en cualquier otro lugar. Asegúrese de que los controles no tienen "DoubleBuffered = True". Eso es, disfrútalo. He probado con TButton, TCkBox y TEdit.

... EDITAR ...

Desafortunadamente, usando este método, el "vidrio" se trata como una superficie 100% transparente, y no lo es, parece vidrio, pero no se comporta como vidrio. El problema con la transparencia del 100% es que, si hace clic en esa área transparente, el clic va a la ventana detrás de la ventana. Horrible.

En el momento de escribir esto, estoy bastante seguro de que no hay ninguna API para cambiar el color predeterminado de la tecla NEGRA para el vidrio original (google encuentra innumerables publicaciones en blogs y foros sobre cómo debe usar el dibujo personalizado para los controles que se sientan en el vidrio y no hay ninguna función para cambiar eso en la lista de funciones DWM en MSDN). Sin cambiar el color NEGRO predeterminado, la mayoría de los controles no pueden renderizarse correctamente porque escriben texto usando clWindowText y eso es NEGRO. Uno sugirió truco encontrado en varios foros es cambiar el color de transparencia utilizando la API SetLayeredWindowAttributes. Y funciona! Una vez hecho eso, el texto negro en los controles muestra tiro, pero desafortunadamente el vidrio ya no es vidrio, el vidrio parece vidrio pero se comporta como 100% de transparencia. Esto prácticamente invalida esta solución y muestra un doble estándar por parte de Microsoft: El NEGRO original no se comporta como 100% de transparencia sin embargo, si lo cambiamos a algo mejor, se comporta como 100% transparencia.

En mi opinión, el pensamiento común de usar controles personalizados en vidrio es incorrecto. Es lo único que podría funcionar, pero está mal, porque se supone que debemos usar controles que sean consistentes en toda la plataforma: sugerir controles personalizados abre la puerta a aplicaciones inconsistentes, como winamp, donde cada usuario recrea la rueda para adaptarse a sus ideas artísticas. Incluso si un desarrollador logra recrear fielmente cualquier control de windows dado y hacer que funcione en vidrio, el "fix" es solo temporal y necesita ser recreado para la próxima versión de Windows. Sin mencionar que uno probablemente debería tener múltiples variantes para las versiones existentes de Windows.

La otra solución es usar ventanas en capas con UpdateLayeredWindow. Pero eso es un DOLOR por muchas razones.

Este es un callejón sin salida para mí. Pero le daré a la pregunta una bandera "favorita", si aparece algo mejor me gustaría saberlo.