Soutien Delphi pour Aero Glass et la propriété DoubleBuffered-que se passe-t-il et comment les utiliser?

À Propos De DoubleBuffer

.NET peut en avoir un, et il peut avoir le même nom et le même but que celui de Delphi, mais Delphi implémente DoubleBuffer à partir de ground-up et je suppose .NET fait la même chose. Aucun bits de style de fenêtre n'est utilisé pour implémenter ceci.

DoubleBuffer et Verre Aero

assez simple: ne pas placer DoubleBuffer pour les contrôles qui sont assis sur le verre. Pour que le DoubleBuffering fonctionne il faut être capable d'initialiser le "tampon" - mais avec quoi l'initialiser pour le verre? Le DoubleBuffering n'est pas requis pour les commandes standard de Windows (y compris TButton). Pour les nouveaux contrôles qui nécessitent à la fois des surfaces transparentes et un comportement de type doublebuffer, on peut utiliser l'api fenêtres en couches.

l'Obtention de commandes pour travailler sur Verre

Étape 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;

Étape 2 , ceci doit être votre formulaire OnPaint handler:

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;

Step 3 : Set GlassFrame.Enabled = True; définissez toutes les autres propriétés du verre, ajoutez des commandes à la forme, où que vous les aimiez. Peut-être sur du verre ou n'importe où ailleurs. Assurez-vous que les contrôles n'ont pas "DoubleBuffered = True". C'est, en profiter. J'ai testé avec TButton, TCkBox et TEdit.

... MODIFIER. ..

malheureusement en utilisant cette méthode "verre" est traité comme un 100% surface transparente, et ce n'est pas - on dirait du verre, mais ça ne se comporte pas comme du verre. Le problème avec 100% de transparence est, si vous cliquez sur cette zone transparente, votre cliquez va à la fenêtre derrière votre fenêtre. Horrible.

au moment de cet écrit, je suis assez sûr qu'il n'y a pas D'API pour changer la couleur de la clé noire par défaut pour le verre d'origine (google trouve d'innombrables billets de blog et forum sur la façon dont vous avez besoin d'utiliser le dessin personnalisé pour les contrôles qui sont assis sur le verre et il n'y a aucune fonction pour changer cela dans la liste des fonctions DWM sur MSDN ). Sans changer la couleur Noire par défaut la plupart des contrôles ne peuvent pas rendre correctement parce qu'ils écrivent le texte en utilisant clWindowText et c'est noir. Un truc suggéré trouvé sur plusieurs forums est de changer la couleur de transparence en utilisant L'API SetLayeredWindowAttributes. Et ça marche!!! Une fois que c'est fait le texte noir sur les contrôles montre jeter, mais malheureusement le verre n'est plus le verre, le verre ressemble au verre mais se comporte comme une transparence à 100%. Cela invalide assez fortement cette solution et montre un double standard du côté de Microsoft: le noir original ne se comporte pas comme une transparence de 100% mais si nous le changeons en quelque chose de mieux il se comporte comme une transparence de 100%.

à mon avis, l'idée courante d'utiliser des commandes sur mesure sur verre est erronée. C'est la seule chose qui pourrait marcher, mais c'est mal, parce que nous sommes censés utiliser des contrôles qui sont cohérents à travers le plate-forme: proposer des contrôles personnalisés ouvre la porte à des applications incohérentes, de type winamp, où chaque utilisateur crée à nouveau la roue en fonction de ses idées artistiques. Même si un développeur réussit à recréer fidèlement n'importe quel contrôle de fenêtres donné et le faire fonctionner sur le verre, le "correctif" est seulement temporaire et doit être recréé pour la prochaine version de fenêtres. Pour ne pas mentionner un devrait probablement avoir plusieurs variantes pour les versions existantes de windows.

l'autre solution est pour utiliser des fenêtres en couches avec UpdateLayeredWindow. Mais C'est une douleur pour tellement de raisons.

C'est une impasse pour moi. Mais je vais donner à la question un drapeau "préféré", si quelque chose de mieux se présente, j'aimerais le savoir.