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
| 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),