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&szlig;en ausgeben
   writeln(oColorBox2.ColorValue), // Ausgewählte Farbe nach dem Schlie&szlig;en ausgeben
always
   DestroyObject(oMem),
   DestroyObject(oColorBox1),
   DestroyObject(oColorBox2),
stopseq

Weitere Verknüpfungen

TBeColorComboBox