Discussion :

[Harry]

Bonjour,

Je voudrais savoir si il etait possible, relativement simplement, de changer la couleur des onglets d'un TPageControl, en effet je suis surpris qu'il n'y ai toujours pas de propriété color pour ca dans la version VCL.NET... ou alors c'est bien caché

J'en ai marre d'avoir toujours des morceaux de composants en 'gris windows' (clBtnFace) lorsque je fait des fenetres colorés !

Merci,

Harry

[Manopower]

Je ne connais pas la VCL.net mais j'ai planché sur ce suchi avec la version Delphi 7. Et je n'y ai pas trouvé de solution
la propriété OwnerDraw=True met une couleur sur les onglets mais efface le texte.

La solution finalement utilisée : TAdvPageControl de TMS Software, vraiment un super chouette composant !

Bonne prog !

[Harry]

Oui, mais il me faut des composants qui s'afficheront dans le VCL et pas que dans W32 et en plus qui soient compatible avec Delphi 2005 et pas juste Delphi 7.
C'est le cas de ton composant ?

De plus : J'essaye autant que possible de ne pas utiliser de composant tiers ces temps ci : c'est trop de galères lorsqu'il faut changer de PC de dev (ou qu'on veux debugger ailleurs) et que les compos ne veulent pas s'installer ou qu'il faut un code qu'on à pas, ou qu'on à plus les compos et qu'on trouve plus la meme version et que ca fait bugger de partout.

[Manopower]

Oui, mais il me faut des composants qui s'afficheront dans le VCL et pas que dans W32

Je ne suis pas sûr de bien comprendre ce que tu veux dire, mais oui les sources du composant sont fournis, ce qui permet de les modifier, hériter à loisir.

Pour ton deuxième argument, effectivement il est inattaquable, mais si il n'y a pas de solution dans la VCL, il faut bien aller voir un tiers. (si on créé soi-même un compo, le problème est le même, le PC du collègue peut ne pas avoir ce compo d'installé)

bon courage !

[maciej.bednarski]

Bonjour,

Pour cela il suffit de basculer la propriété OwerDraw à True et de surchargé l'événement OnDrawTab

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
20
21
 
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  r: TRect;
  s: string;
begin
  // Propriété OwnerDraw doit être à True du PageCotrol
  s :=  PageControl1.Pages[TabIndex].Caption;
  with Control.Canvas do
  begin
    if Active then
      Brush.Color := clRed
    else Brush.Color := clBtnFace;
    Brush.Style := bsSolid;
    FillRect(Rect);
    r := Rect;
    DrawText(Handle, PAnsiChar(s), Length(s), r, DT_CENTER + DT_NOPREFIX +
      DT_SINGLELINE + DT_VCENTER);
  end;
end;

Et voilà...

[Harry]

Pour ton deuxième argument, effectivement il est inattaquable, mais si il n'y a pas de solution dans la VCL, il faut bien aller voir un tiers. (si on créé soi-même un compo, le problème est le même, le PC du collègue peut ne pas avoir ce compo d'installé)

Si c'est moi qui fait le composant alors en général j'essaye de pas faire un vrai composant mais d'integrer le code dans les sources du projet. Et si c'est un composant gratuit avec sources ca aide deja bien, je ne serai pas coincé comme avec Woll2Woll ou j'ai pas la license, c'est un autre dev qui avait installé... la license coute une fortune et j'ai des centaines de compos de fcShapeBtn et fcLabel plein un de mes projets Delphi 7... suis coincé, va falloir que je les remplace tous ou que je rachete une nouvelle license.

Merci maciej.bednarski, je vais tester ca

[Harry]

j'ai un souci : meme avec le OwnerDraw activé ca ne semble pas passer dans le OnDrawTab