TCbColorDlg

Klasse zur Anzeige eines Farb-Auswahl-Dialogs.

Eigenschaften

Allgemeine-Eigenschaften

CustomColors:Array Array mit Elementen in der Form "ColorX=YYYYYY", wobei X den Wertebereich A bis P hat und YYYYYY ein Farbwert in Hexadezimal Schreibweise ist.
Options:Integer1 = erweiterten Dialog anzeigen (selbstdefinierbare Farben)
Accept:LTrue wenn Dialog mit OK bestätigt wurde.

Aktive-Eigenschaften (Methoden)

Active:LTrue = Dialog wird angezeigt

Rückgabewert

Color:IntegerWert der gewählten Farbe

Beispiel

| aColorDlg |

aColorDlg:= CreateObject('TCbColorDlg'),
StartSeq
    aColorDlg.Options      := 1,
    aColorDlg.CustomColors := {"ColorA=00FF33","ColorB=FF00FF"}, 
    aColorDlg.Active       := True,
    if aColorDlg.Accept then
       WriteLn(aColorDlg.Color)
    else
       WriteLn('Keine Farbe gewählt !')
    endif
Always
   DestroyObject(aColorDlg)
StopSeq