Discussion :

[menoulette]

Bonjour à vous tous ,
j'ai essayé d'insérer le composant XpManifest sur mon projet après l'exécution j'ai vu que le s couleurs de mon projet sont devenus tous blanc alors j'ai du enlevé le composant le composant mais le problème persiste or que le composant n'existe pas sur les uses des mes unités !!! comment faire pour me débarrasser de ce problème

merci d'avance

[ThWilliam]

Bonjour.

Si tu as supprimé le composant ET enlevé l'unité Xpman de la clause uses, il ne doit pas y avoir de problème.
Au lieu de faire une simple compilation, fais une reconstruction.

Thierry

[menoulette]

Bonjour
Merci pour votre réponse j'ai pu résoudre le problème mais quand j'enleève le composant xpmanifest mon projet n'espt pas joli je l'ai restauré et j'ai changé la propriété de mes composants(panel,GroupBox,...) (ParentBackGround à false) et j'ai récupéré les couleurs mais ca ne marche pas avec les pagecontrol et label !!! dommage

[ShaiLeTroll]

Tu dois avoir Delphi 7 !
On trouve un bug dans la gestion du dessin des TLabel et PageControl sous Vista

dous D7, ParentBackGround est capricieux, il faut parfois le forcer en code plus efficace que dans la DFM
C'est corrigé en 2007

Pour le TPageControl, je collais un panel pour avoir le gris à l'ancienne au lieu de speudo-blanc

TPageControl and TTabControl OwnerDraw mechanism broken in Win64"
Correctif de Windows Vista pour Delphi 7 Edition Professionnelle
Créez des applications Delphi compatibles Windows Vista - Mise à jour > VIII. Les raccourcis avec ALT cachent des composants

Maintenant, j'utilise les thèmes VCL, en particulier les Kamri et j'ai justement bossé en Delphi XE2 en redéfinissant les StyleHook (merci The Road to Delphi – a Blog about programming) pour retrouver ce qui me manque de C++Builder XE3 et ses StyleElement !
J'ai changé de taf et rétrogradé de version !

[menoulette]

Bonjour merci pour vos réponse heureusement que je plaçais toujours des panels sur mes frames en changeant leur propriété de parentbackgroundcolor à false j'ai pu réglé le problème , il me restait le problème des labels alors j'ai trouvé une solution en mettant la propriété (tag à 1 ) de chaque label et en mettant ce code sur la méthode (on Creat) de la form pour empêcher la création de la transparence

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure Tfiche_Recape.FormCreate(Sender: TObject);
var
  Cpt  : integer ;
begin
  for Cpt := 0 to Self.ComponentCount - 1 do
    if (Self.Components[Cpt] is TLabel) then
      with (Self.Components[Cpt] as TLabel) do
        Transparent := not (Tag = 1);
 
 CheckBox1.Repaint; 
end;

me reste maintenant de trouver une solution pareille pour les CheckBox

[ShaiLeTroll]

Pour les CheckBox avec un texte coloré ?
Je trichais en mettant un TLabel à côté du TCheckBox

Curieux ton problème avec les TLabel,
moi je n'ai eu des bugs que dans une TScrollBox pour faire défiler une serie de champ de saisie façon TDBCtrlGrid mais sans DB !