Discussion :

[Jon Shannow]

Bonjour,

Je voudrais que la page active de mon tpagecontrol ait une couleur différente des autres (pour la mettre en évidence).
Je n'y arrive pas. Visiblement les propriétés Font ne concernent que les enfants de la page, pas la page elle-même.

Quelqu'un sait comment faire ?

Merci d'avance

JS

[e-ric]

Il me semble que sous Delphi/Windows, ce n'est pas possible (un peu comme vouloir changer la couleur d'un bouton) alors sans doute que dans Lazarus, on retrouve la même limitation.

Par contre en plaçant un TPanel dans ta page, c'est un peu lourd mais cela devrait te dépanner.

@+

[ThWilliam]

Bonjour,

Non, changer la couleur du libellé ne me paraît pas possible.
Pour mettre ta page active en évidence, une solution esthétique est d'utiliser une image.

Dans un TImageList, tu stockes une image à l'index zéro.

puis...

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
   PageControl1.ActivePage.ImageIndex:= -1; // on supprime l'image de la page qu'on va quitter
end;  
 
procedure TForm1.PageControl1Change(Sender: TObject);
begin
     PageControl1.ActivePage.ImageIndex:= 0; // on assigne l'image à la page active
end;

Thierry

[Jon Shannow]

Merci ThWilliam,

Ça marche nickel.

Merci aussi e-ric, d'avoir répondu.

A+
JS