TBeColorComboBox

TBeColorComboBox zeigt eine Liste von BeDesignColors zur Auswahl an.

Eigenschaften

Eigenschaft	Beschreibung
ColorValue:N	Numerischer Wert der ausgewählten Farbe. (Nur lesen möglich)
Properties.AllowSelectColor:L	Erlaubt es über einen Button frei definierbare Farben auszusuchen.
ShowDescriptions:L	Bestimmt ob die Farbbeschreibung angezeigt werden soll.

Verwendung

Erzeugung per Codeblock-Funktion CreateObject

Beispiel

CODE

| oForm, oColorBox1, oColorBox2, oMem, ds_DataSource |
startseq
   oForm      := CreateObject('TFormEx', 'BoxTestForm'),
   oColorBox1 := CreateObject('TBeColorComboBox', 'Box1', oForm, oForm),
   oColorBox2 := CreateObject('TBeColorComboBox', 'Box2', oForm, oForm),

   oColorBox1.Width      := 200,
   oColorBox2.Width      := 200,
   oColorBox2.Top        :=  30,

   oColorBox1.Properties.AllowSelectColor := True,  // Anzeigen des Buttons zum öffnen der Farbauswahl
   oColorBox1.Properties.ShowDescriptions := False, // Keine Farbbeschreibungen
   oColorBox2.Properties.AllowSelectColor := False, // Keinen Button zum öffnen der Farbauswahl anzeigen
   oColorBox2.Properties.ShowDescriptions := True,  // Farbbeschreibungen anzeigen
   ShowModal(oForm),
   writeln(oColorBox1.ColorValue), // Ausgewählte Farbe nach dem Schließen ausgeben
   writeln(oColorBox2.ColorValue), // Ausgewählte Farbe nach dem  Schließen ausgeben
always
   DestroyObject(oColorBox1),
   DestroyObject(oColorBox2),
stopseq

Weitere Verknüpfungen

TBeDBColorComboBox