Comment pouvez-vous modifier la couleur de la police d'un contrôle activé par thème?

Option 5. Utilisez le contrôle TYOU comme comme une option de base et remplacez tous les messages de peinture du contrôle (oui, vous pouvez appeler un composant mais le contrôle est le nom des composants visibles afin que vous puissiez plutôt utiliser cela). Tout simplement attraper le WM_Paint, éventuellement le WM_NCPAINT, vous pouvez dessiner le contrôle dans votre propre style. Au moins, vous pouvez réutiliser toute la fonctionnalité du contrôle. Tant que vous ne changez pas la disposition, seules les couleurs que vous n'aurez pas besoin de changer les Hittsts Mousedowns. up mouvements, etc.

Remarque: j'ai l'expérience avec le remplacement de TCustomedit pour permettre à toutes sortes de couleurs, de texte de fond, de boutons supplémentaires, etc. Il a fallu assez de temps pour le faire correctement et lire tous les documents de MSDN et Ko pour vous assurer que le contrôle a fait ce que je voulais que ça fasse.

Oh, mais vous pouvez!

Placez cela avant em> la déclaration de votre formulaire: p> xxx pré>

cette nouvelle déclaration de TCHECKBOX est maintenant utilisé au moment de l'exécution comme le type diffusant du DFM de votre formulaire. Maintenant, implémentez le message comme celui-ci: p>

procedure TCheckBox.CNCtlColorStatic(var Message: TWMCtlColorStatic);
begin
  SetTextColor(Message.ChildDC, ColorToRGB(clRed)); // or RGB(255,0,0));
  SetBkMode(Message.ChildDC, TRANSPARENT);
  Message.Result := GetStockObject(NULL_BRUSH);
end;

Voici comment j'ai résolu cela dans mon application:

1. Retirez la légende de la case à cocher et rendu plus petit - juste assez gros pour afficher la case à cocher sans la légende.
2. Mettez un TLABEL à côté de la case à cocher pour agir en tant que légende.
3. Dans l'événement OnClick de l'étiquette, bascule l'état de la case à cocher.
4. Si l'étiquette dispose d'un accélérateur de clavier ALT + Lettre, faites le formulaire Gérer le message CM_DialogChar. Copiez le gestionnaire de messages du code source TLABEL et ajoutez une ligne pour basculer l'état de la case à cocher.

   Ce n'est pas une vraie case, et c'est un peu plus de travail que je le souhaite, mais cela fonctionne assez bien dans mon application (qui n'a qu'une seule case ayant besoin de ce traitement).

Ceci nécessite une solution parfaite pour être une solution parfaite mais a fonctionné pour moi:

Ajoutez 2 méthode à votre case Box composant xxx

et mettre en œuvre de cette façon: xxx

Ce code est un code amélioré de @Flicker que le support bidimode code> et la position correcte du texte:

interface
  TMSCheckBox = class(TCheckBox)
  private
    FOriginalCaption: string;
    _MySetCap: Boolean;
    procedure WMPaint (var Message: TWMPaint); message WM_PAINT;
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
  end;

implementation

procedure TMSCheckBox.CMTextChanged(var Message: TMessage);
begin
  inherited;
  if _MySetCap then Exit;
  FOriginalCaption := Caption;
end;

procedure TMSCheckBox.WMPaint(var Message: TWMPaint);
const
  SPACE   :Integer = 2;
var
  txtW, txtH, txtX,
  BtnWidth: Integer;
  canv: TControlCanvas;
begin
  BtnWidth := GetSystemMetrics(SM_CXMENUCHECK);

  _MySetCap := True;
  if not (csDesigning in ComponentState) then
    Caption := '';
  _MySetCap := False;
  inherited;
  canv := TControlCanvas.Create;
  try
    canv.Control := Self;
    canv.Font := Font;
    txtW:= canv.TextWidth(FOriginalCaption);
    txtH:= canv.TextHeight(FOriginalCaption);
    if BiDiMode in [bdRightToLeft, bdRightToLeftReadingOnly] then
      txtX:= Width - BtnWidth - SPACE - txtW
    else
      txtX:= BtnWidth + SPACE;
    SetBkMode(canv.Handle, Ord(TRANSPARENT));
    canv.TextOut(txtX, (Height - txtH) div 2 + 1, FOriginalCaption);
  finally
    canv.Free;
  end;
end;