GetBeDesignColor()

Bitte ab be 7 beSkinColor() verwenden

Systemfarbe

Die Funktion gibt je nach gewählter Basisfarbe (und Abstufungslevel) den entsprechenden Farbwert zurück.
Dabei harmonieren alle in der Funktion verfügbaren Farben miteinander.

Parameter

Beschreibung

nBaseColor:N

Basisfarbe

dcbWhite

dcbBlack

dcbBrown

dcbDarkBlue

dcbLightBlue

dcbRed

dcbGreen

dcbPurple

dcbCyan

dcbOrange

dcbYellow

nGradation:N

Abstufung

dcgBase

dcgLevel1

dcgLevel2

dcgLevel3

dcgLevel4

dcgLevel5

Rückgabewert

Farbwert von nBaseColor bzw. dessen Abstufung wenn nGradation angegeben ist.

Beispiel

CODE

| oForm, aPanels, oPanel, i, n, tm |

// Formular initialisieren
oForm := createObject('TFormEx'),

oForm.origCapt := 'GetBeDesignColor()-Test',
oForm.width    := 896,
oForm.height   := 118,

// Panels initialisieren
aPanels := {},
i       := 1,
while i <= 11 do
    redim(aPanels, aLen(aPanels) + 1),
    aPanels[i] := createObject('TPanel',,oForm, oForm),
    oPanel := aPanels[i],
    oPanel.bevelOuter := bvNone,
    oPanel.caption    := '',
    oPanel.width      := 80,
    oPanel.height     := 80,
    oPanel.left       := oPanel.width <h3> (i - 1),
    i++,
end,

i := 1,
while i <= 11 do
    oPanel := aPanels[i],
    oPanel.color := getBeDesignColor(i - 1, dcgLevel2),
    i++,
end,

// Formular anzeigen
showModal(oForm),

Weitere Verknüpfungen

beSkinColor()