Skip to main content
Skip table of contents

TBeDBColorComboBox

TBeDBColorComboBox

TBeDBColorComboBox zeigt eine Liste von BeDesignColors zur Auswahl an.

 

Eigenschaften

EigenschaftBeschreibung

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

Weitere Verknüpfungen


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.