TBeDBColorComboBox
TBeDBColorComboBox
TBeDBColorComboBox 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
ds_DataSource := CreateObject('TDataSource'),
oMem := CreateObject('TMemCalcTable'),
AddMemfield(oMem, 'Testfeld1', 'N', 10, 0),
AddMemfield(oMem, 'Testfeld2', 'N', 10, 0),
oMem.Active := True,
DBAppend(oMem),
oMem:Testfeld1 := GetBeDesignColor(dcbYellow, dcgLevel2),
oMem:Testfeld2 := GetBeDesignColor(dcbRed, dcgLevel5),
DBPost(oMem),
ds_DataSource.DataSet := oMem,
oForm := CreateObject('TFormEx', 'BoxTestForm'),
oColorBox1 := CreateObject('TBeDBColorComboBox', 'Box1', oForm, oForm),
oColorBox2 := CreateObject('TBeDBColorComboBox', 'Box2', oForm, oForm),
oColorBox1.DataSource := ds_DataSource,
oColorBox2.DataSource := ds_DataSource,
oColorBox1.DataField := 'Testfeld1',
oColorBox2.DataField := 'Testfeld2',
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(oMem),
DestroyObject(oColorBox1),
DestroyObject(oColorBox2),
stopseq