Discussion :

[Wriggles]

Bonjour à tous,

Dans le cadre d'un relooking de l'appli sur laquelle je bosse, on prend le parti de lâcher le 3D des différents composants.

Il m'en reste un qui me pose problème : TBitBtn.

Pour traiter les TButton, j'ai utilisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TForm1.Flatten(theControl: TWinControl);
var
   dwStyle: Longint;
begin
     dwStyle := GetWindowLong(theControl.handle, GWL_STYLE) or BS_FLAT;
     SetWindowLong(theControl.Handle, GWL_STYLE, dwStyle);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var 
  i : Integer;
begin
  for i := 0 to Self.ComponentCount -1 do
  begin
    if (Self.Components[i] is TButton)
    or (Self.Components[i] is TBitBtn)then
      Flatten(Self.Components[i] as TWinControl);
  end;

Cela marche bien pour les composants TButton (en thème Windows classique) mais ne fait strictement rien sur le TBitBtn.

J'aurais donc deux questions :
. Dans la mesure où ces deux composants ont les mêmes héritages, pourquoi cela ne fonctionne que pour l'un d'entre eux ?
. Sauriez-vous comment rendre le TBitBtn plat ?

Merci.

[edam]

pourquoi pas les speedbutton??
voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure CNDrawItem(var MSG: TWMDrawItem); message CN_DRAWITEM;

voir le code source similaire à celui de delphi,et les API (InflateRect,DrawEdge)
crée un désandant de TBitbtn et intersepte le message CN_DRAWITEM,

[Wriggles]

Merci Edam pour cette proposition,

Mais le problème est que j'ai dans mon appli pas loin de 1300 TSBitBtn (dont un certain nombre géré par la propriété kind) et il faut avouer (en toute fainéantise ) que devoir gérer cela à la mano ne m'enchante guère.

J'aurais aimé trouver une solution que je pourrais initialiser dans les ancêtres de mes form pour modifier l'aspect de ce composant (chose que je fais pour tous les autres).

[Aos]

Il te reste le fer à repasser

[Wriggles]

Cela reste une idée

Je vais essayer de me faire une moulinette qui transformera mes boutons dans un autre type et qui implémentera dans le code (pas + dfm) l'équivalent de ce qui était géré dans le kind.

Heu, après la marmotte arrêtera de mettre le chocolat dans le papier....

Merci pour les conseils, je passe le post en résolu.

[edam]

mon idée +sa
bon courage