Discussion :

[neho88]

Bonjour,
j'ai bien compris que depuis Delphi 7 c'est une API Windows qui empêche de mettre en couleur la fonte et le fond d'une CheckBox et de certain autres composants.
mais cela ne résout pas mon problème.
et je trouve cela dommage que cette régression pourrisse la vie de beaucoup de personne.
pour certaine Checkbox, j'ai ajouté un TLabel qui m'a permis de résoudre mon problème,
mais là, c'est impossible de résoudre de cette façon.
je fais un tableur ou je mets une CheckBox dans toutes les cases du tableur et il faut que le fond de la CheckBox corresponde à la couleur du fond de la cellule dans laquelle est placée la CheckBox.

j'ai essayé avec les thème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
uses 
  UXTheme;
procedure CouleurCbx();
  begin
      CheckBox:=TCheckBox(FrmClr.FindComponent('CbxClr'+IntToStr(NmrCase)));
      If CheckBox<>Nil then begin
        SetWindowTheme(CheckBox.Handle, '', '');
        CheckBox.Brush.Color:=ClRed;
      end;
  end;

cela marche sur un projet que je crée et ou je fais l'essai, mais pas dans mon programme.
Je préférerais trouver une solution pour pouvoir colorié le fond et la fonte comme avec Delphi 7
merci pour votre aide, très précieuse.
bonne journée

[Jipété]

Salut,

Je préférerais trouver une solution pour pouvoir colorier le fond et la fonte comme avec Delphi 7

Pour la fonte : checkbox1.Font.Color:=clBlue; et pour le fond je ne comprends pas la question, pour la bonne et simple raison que ma checkbox prend automatiquement la couleur de l'objet sur lequel elle est placée.

Ou alors on ne parle pas de la même chose ? La checkbox peut être le carré cliquable où s'affiche ou pas le signe indiquant le "cochage", ou peut être l'objet complet (case à cocher, le texte, l'ensemble contenant ces deux objets). La case à cocher peut être colorée, l'objet complet non, on dirait.

Code :

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

CheckBox.Brush.Color:=ClRed;

Euh, dans mon Lazarus la complétion me montre un cadenas à côté de Brush, je suppose que c'est verrouillé (je n'ai jamais trouvé l'explication de cette information [comme plein d'autres, d'ailleurs, mais ceci est un autre sujet]) et pourtant checkbox1.Brush.Color:=clYellow; ne génère pas d'erreur. Mais pas d'action non plus.

[neho88]

Bonjour,
merci pour la réponse.
je travaille également sous Lazarus 1.0.2
cela ne fonctionne pas pour la fonte,
et j'ai posé le fichier pour le fond.
on ne peut pas dire que la CheckBox prend la couleur de fond de la case ou elle est placée.
bonne journée

[Jipété]

Yep !

Salut 2 solutions ou 3, peut-être pour résoudre ton problème

Peut-être une 4^e :

je travaille également sous Lazarus 1.0.2

Je savais que j'étais à la ramasse avec ma 1.4, mais là, je reste sans voix ! Envisager de migrer vers 1.4/1.6.4, peut-être ?

Un truc qui m'a étonné dans ton image, c'est que les checkbox sont mal alignées verticalement : es-tu sûr de leur avoir bien déclaré le parent comme étant la grille ?

[neho88]

Bonjour,
oui, elles étaient décalées,
mais ce n'est pas grave.
c'est la différence entre delphi 7 et Lazarus.
après correction ...



mais cela ne règle pas encore mon problème de couleur de fond ...

Bonne journée

[BeanzMaster]

Salut 2 solutions ou 3, peut-être pour résoudre ton problème
1) Ajouter un Panel qui reprendrait la couleur de fond de ta cellule avec la checkbox dedans
2) Mettre la propriété ParentColor de la checkbox à false
3) ne pas utiliser les thèmes cf dans les options de ton projet
A+

[Jipété]

Bonsoir,

tu devrais nous faire un petit zip avec le strict minimum pour voir le problème, pour qu'on puisse tester avec des versions supérieures.

[neho88]

Bonjour,
voici un Zip de la partie Palette des couleurs.
soyez indulgent, merci.
je suis preneur de toutes les modifications permettant d'améliorer le code.
bonne journée
PaletteCouleurs.zip

[BeanzMaster]

Salut, j'ai regardé ton projet vite fait.

Première suggestion mets ta version de Lazarus à jour au minimum la 1.6.4 mais préfère la dernière version quand même surtout si tu es sous Windows et idem pour Linux si tu peux mais au minimum la 1.6.4

Je n'avais pas fait attention que tu ne fais pas défiler ta grille, ton approche, n'est pas la bonne (c'est valable pour ta version Delphi également) Avec Lazarus ici, cela ne fonctionne tout simplement pas car la Checkbox ne se dessine pas de la même manière.
Le problème c'est que tu affiches tes checkbox par dessus la grille et non dans les cellules. De plus tes checkbox ne sont pas libérées de la mémoire en fin d'application

Pour un exemple de comment ajouter un control dans une celulle tu peux te référer à l'exemple (Menu Outils --> Exemple de projets) GridExamples/GridCellEditor
Voir aussi https://wiki.lazarus.freepascal.org/...Reference_Page et ce code pour Delphi https://www.thoughtco.com/place-a-ch...dbgrid-4077440

Deuxième solution : Vu que tu ne fais pas défiler ta grille en lieu et place tu pourrais utiliser le composant TFlowPanel dans l'onglet Addons et ajouter simplement des TPanel contenant la checkbox (via un tableau qui te permettrait des libérer de la mémoire tous ces composants créés dynamiquement). Suffit en suite de gérer le click de ces TPanel et de leur checkbox respectif via une methode commune et en te servant de la propriété "Tag".

A+

[Jipété]

Salut,

vit' vit' car je n'ai pas beaucoup de temps, j'ai jeté un œil à ton truc sous Linux.

j'ai commenté deux-trois machins spécifiques Windows liés aux thèmes, et quand ça a compilé j'ai exécuté et là, aucune checkbox visible !

Bon, la ligne coupable a vite été trouvée :

Code :

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

1
2
3
4
5
6
7
Procedure TFrmClr.CreationCheckBox(Sender: TObject);
//...
  begin
            with TCheckbox.Create(FrmClr) do begin
//...
//              Parent     := TstClrGph;  // bad sous linux
              Parent     := SgdClrGph;  // + 1 !

Et voilà, toujours avec ma vieille 1.4.0 :



Mais je n'ai pas étudié les autres onglets (qui ont l'air un peu brouillon [décalages les uns par apport aux autres] après un regard rapide) ni testé les histoires de défilement soulevées par BeanzMaster.

(Me suis permis de corriger les fautes d'orthographe et de typo dans les titres des deux premiers onglets)

[microb]

Salut,



Bon, la ligne coupable a vite été trouvé :

Il me semble voir une faute

[tourlourou]

Un de mes amis, ex-enseignant, préfère parler d'erreurs d'orthographe, tant qu'elles ne sont pas intentionnelles. En math, on fait d'ailleurs plus d'erreurs de raisonnement que de fautes, me semble-t-il.

[Jipété]

Il me semble voir une faute

Fixed, merci.

Cependant, je l'ai vue en rouvrant le sujet ce soir avant de lire ton post, lol ! Elle m'a sauté aux yeux, la coquine,
Ah, j'avais bien dit "vit' vit",

[neho88]

Bonjour,
j'ai mis à jours mon Lazarus (Version 2.0.6).
j'ai affiché les CheckBox dans les cases et non sur la grille, mais sans résultat. les Checkbox sont toujours blanches.
j'ai essayé avec un TLabel en dessous, même résultat.
j'ai essayé avec un TPanel, est là ... la checkBox prends bien la couleur du TPanel en couleur de fond !!!
je vais essayer dans cette voie.
les Checkbox ne sont pas libérées sur cette feuille, car elles sont libérées dans la fenêtre principale du programme.
sur ton Post vit, vit, les Checkbox sont bien en couleur ?
sous Linux, ça marche ???
bonne journée
merci pour tout le temps que vous passez à nous aider

[Jipété]

sur ton Post vit, vit, les Checkbox sont bien en couleur ?

Qu'est-ce que tu appelles "en couleur" ? D'une autre couleur que les cellules de la grille ? L'image montre bien qu'elles sont de la même couleur, et j'avoue n'avoir pas imaginé un instant qu'il puisse en être autrement.

sous Linux, ça marche ???

vit' vit' car je n'ai pas beaucoup de temps, j'ai jeté un œil à ton truc sous Linux.
Et voilà, toujours avec ma vieille [install Lazarus] 1.4.0 :