API:Vcl.ExtCtrls.TColorBox.OnGetColors
Delphi
property OnGetColors: TGetColorsEvent read FOnGetColors write FOnGetColors;
C++
__property OnGetColors;
Eigenschaften
| Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
|---|---|---|---|---|
| event | published | Vcl.ExtCtrls.pas Vcl.ExtCtrls.hpp |
Vcl.ExtCtrls | TColorBox |
Beschreibung
Wird ausgelöst, wenn das Steuerelement mit einer benutzerdefinierten Farbliste gefüllt wird. {{#multireplace:Vcl.ExtCtrls.TColorBox.OnGetColors|H21=!|H25=%|H28=(|H29=)|H2A=*|H2B=+|H2F=/|H3C=<|H3D==|H3E=>|H5B=[|H5D=]|H5E=^|H7C=|}} erbt von {{#multireplace:Vcl.ExtCtrls.TCustomColorBox.OnGetColors|H21=!|H25=%|H28=(|H29=)|H2A=*|H2B=+|H2F=/|H3C=<|H3D==|H3E=>|H5B=[|H5D=]|H5E=^|H7C=|}}. Der folgende Inhalt bezieht sich auf {{#multireplace:Vcl.ExtCtrls.TCustomColorBox.OnGetColors|H21=!|H25=%|H28=(|H29=)|H2A=*|H2B=+|H2F=/|H3C=<|H3D==|H3E=>|H5B=[|H5D=]|H5E=^|H7C=|}}.
Wird ausgelöst, wenn das Steuerelement mit einer benutzerdefinierten Farbliste gefüllt wird.
Mit OnGetColors können Sie eine benutzerdefinierte Farbliste füllen, die in die TCustomColorBox-Farbliste platziert werden soll.
Das OnGetColors-Ereignis wird nur dann aufgerufen, wenn die Eigenschaft cbCustomColors in Style enthalten ist.
- Sender ist eine Instanz von TCustomColorBox.
- Items ist ein TStrings-Objekt mit einer Liste der in TCustomColorBox angezeigten Farben.
- Items.Strings enthält die Liste der Anzeigestrings für das Kombinationsfeld.
- Items.Objects enthält eine Liste der den Anzeigenamen (Items.Strings) zugeordneten TColor-Werte als TObject.
- Hinweis: Wenn dieses Ereignis ausgelöst wird, enthält Items alle in der Eigenschaft Style angegebenen Farben, wie z.B. cbStandard. Farben werden durch Bearbeitung dieser Items-Liste hinzugefügt, verschoben oder aus TCustomColorBox entfernt.
Codefragmente
Um dies zu verdeutlichen, fügt das folgende Codefragment der Dropdown-Farbliste drei benutzerdefinierte Farben hinzu. Betrachten Sie das folgende Szenario: Eine Anwendung hat ein TColorBox-Objekt und die Eigenschaft cbCustomColors ist auf True gesetzt (in der Eigenschaft Style).
In diesem Szenario können Sie die folgende OnGetColors-Ereignisbehandlungsroutine implementieren:
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));
}