TBeColorComboBox
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