API:Vcl.ExtCtrls.TColorBox.OnGetColors
Delphi
property OnGetColors: TGetColorsEvent read FOnGetColors write FOnGetColors;
C++
__property OnGetColors;
Propriétés
| Type | Visibilité | Source | Unité | Parent |
|---|---|---|---|---|
| event | published | Vcl.ExtCtrls.pas Vcl.ExtCtrls.hpp |
Vcl.ExtCtrls | TColorBox |
Description
Se produit lorsque le contrôle est rempli d'une liste de couleurs personnalisée.
Vcl.ExtCtrls.TColorBox.OnGetColors hérite de Vcl.ExtCtrls.TCustomColorBox.OnGetColors. Tout le contenu en-dessous de cette ligne se réfère à Vcl.ExtCtrls.TCustomColorBox.OnGetColors.
Se produit lorsque le contrôle est rempli d'une liste de couleurs personnalisée.
Utilisez OnGetColors pour remplir une liste de couleurs personnalisée à placer dans la liste des couleurs TCustomColorBox.
L'événement OnGetColors n'est appelé que si Style inclut la propriété cbCustomColors.
- Sender est l'instance de TCustomColorBox.
- Items est un TStrings contenant une liste des couleurs affichées dans le TCustomColorBox.
- Items.Strings contient la liste des chaînes d'affichage pour la boîte de couleurs.
- Items.Objects contient la liste des valeurs TColor correspondantes à chaque nom d'affichage (Items.Strings), transtypées en TObject.
- Remarque : Lorsque cet événement est déclenché, Items contient toutes les couleurs spécifiées dans la propriété Style, tel que cbStandard. Les couleurs sont ajoutées, déplacées ou retirées de TCustomColorBox en manipulant la liste Items.
Extrait de code
A titre indicatif, l'extrait de code suivant ajoute trois couleurs personnalisées à la liste déroulante des couleurs. Imaginez le scénario suivant : une application a TColorBox et cbCustomColors est défini sur True (dans la propriété Style).
Dans ce scénario, vous pouvez implémenter le gestionnaire d'événement suivant OnGetColors :
procedure TForm1.ColorBox1GetColors(Sender: TCustomColorBox; Items: TStrings);
begin
Items.AddObject('Custom Black', TObject(clBlack));
Items.AddObject('Custom White', TObject(clWhite));
Items.AddObject('Custom Red', TObject(clRed));
end;
void __fastcall TForm1::ColorBox1GetColors(TCustomColorBox *Sender, TStrings *Items)
{
Items->Clear();
Items->AddObject("Custom Black", (TObject*) (clBlack));
Items->AddObject("Custom White", (TObject*) (clWhite));
Items->AddObject("Custom Red", (TObject*) (clRed));
}