Discussion :

[Jlmat]

Bonjour,

Je suis sur la version 2.012 de Lazarus
Quand je démarre une nouvelle application en {$mode objfpc}{$H+} je n'ai écrit encore aucun code
Je met la propriété Color de la fiche principale à ClPurple par exemple (un Fond foncé)
Je pose maintenant un composant TRadioGroup sur la Fiche principale, je laisse en fond la Couleur de la Fiche principale par sa propriété Parent.Color à true;

Problème: Quand je veux mettre ensuite les intitulés des boutons et même le caption du TRadioGroup en blanc, rien ne marche. J'ai pourtant désactivé les propriétés :
Parent.Font.color à False et mis clWhite dans la couleur de Font...

Est-ce normal en Lazarus? Car en Delphi, je n'avais pas ce problème!
J'ai déposé le TRadioGroup sur un Panel, mais ça ne marche pas non plus...

Quelqu'un a une idée?

Merci

[Jipété]

Bonsoir,

Quelqu'un a une idée ?

Ça me disait un peu quelque chose, alors jette un coup d'œil à cette discussion, qui a gagné le tag , et regarde bien la solution de BeanzMaster.

[Jlmat]

Merci Jipété

Bonsoir,
Ça me disait un peu quelque chose, alors jette un coup d'œil à cette discussion, qui a gagné le tag , et regarde bien la solution de BeanzMaster.

BeanzMaster: Pour éviter ce problème d'affichage, il faut décocher utiliser les ressources "manifest" (et autoriser les thèmes) dans les options pour le projet --> options du projet --> Application.

merci, ça fonctionne à l'exécution mais dans l'éditeur en mode conception, le texte est toujours invisible! C'est pas cool et pas très naturel!...
ça te faisait pareil, Jipété?

Je ne mets pas encore résolu...

[Jipété]

merci, ça fonctionne à l'exécution mais dans l'éditeur en mode conception, le texte est toujours invisible! C'est pas cool et pas très naturel!...
ça te faisait pareil, Jipété?

Tutafait :

Pièce jointe 374110
comme ça ne se reflète pas dans l'EDI (en haut sur ma copie d'écran), ce n'est pas intuitif ni mémorisable facilement.

Bon dimanche et bon courage,

[anapurna]

Salut

Il y a quelques années déjà, pour palier à ce problème dans Delphi nous faisions comme cela : voir ici.

[Jlmat]

Bonjour,

Après une recherche plus approfondie, je me rends compte que la possibilité de régler la couleur des étiquettes n'est pas possible Dans TRadioGroup.
En allant voir le code source et les ancêtres, il faudrait pouvoir modifier l'écriture du composant qui fait référence à EXtCtrls et qui inclut {$I radiogroup.inc}
Il faudrait donc réécrire ce composant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type
 
  { TRadioGroupStringList }
 
  TRadioGroupStringList = class(TStringList)
  private
    FRadioGroup: TCustomRadioGroup;
  protected
    procedure Changed; override;
  public
    constructor Create(TheRadioGroup: TCustomRadioGroup);
    procedure Assign(Source: TPersistent); override;
  end;

En remontant la chaîne hiérarchique, on arrive à TCustomRadioGroup et puis on arrive à TWinControl qui lui gère les Handle de chaque éléments. Il faudrait pour ainsi pouvoir identifier l'endroit où est défini le handle des étiquettes. Var on retrouve la définition de TBrush, mais pas celle de TPen

Bon voilà où j'en suis!

[Jlmat]

merci Anapurna pour cette remarque intéressante.

Je vais essayer de voir ça dans une réécriture du composant

jlmat