beSkinColor()
Systemfarbe
Die Funktion gibt je nach gewählter Basisfarbe (und Farbstufe) den entsprechenden Farbwert zurück.
Die Farben wurden vom Clarity Design System übernommen.
Parameter | Beschreibung |
|---|---|
nColor:N | Basisfarbe - Zahlen / Konstanten: 0 / clarRed 1 / clarPink 2 / clarPurple 3 / clarUltramarine 4 / clarBlue 5 / clarCyan 6 / clarTeal 7 / clarGreen 8 / clarYellow 9 / clarOrange 10 / clarRedOrange 11 / clarWarmGrey 12 / clarNeutralGrey 13 / clarCoolGrey |
nAccent:N | Optional: Farbstufe - Zahlen / Konstanten: 0 / clarAccent0 1 / clarAccent1 2 / clarAccent2 3 / clarAccent3 4 / clarAccent4 5 / clarAccent5 6 / clarAccent6 7 / clarAccent7 8 / clarAccent8 9 / clarAccent9 |
Rückgabewert
Numerisch
Beispiel
CODE
| oForm, oPanelBasicColor, aPanelAccentColor |
oForm := CreateObject('TFormEx', 'TFormEx'),
oForm.Height := 300,
oForm.Width := 300,
oPanelBasicColor := CreateObject('TBePanel', 'pnl_Basic', oForm, oForm),
aPanelAccentColor := CreateObject('TBePanel', 'pnl_Accent', oForm, oForm),
oPanelBasicColor.Align := alLeft,
oPanelBasicColor.Width := 150,
aPanelAccentColor.Align := alClient,
oPanelBasicColor.Color := beskinColor(clarBlue),
aPanelAccentColor.Color := beskinColor(clarBlue, clarAccent6),
oPanelBasicColor.Font.Color := beskinFontColor(clarBlue),
aPanelAccentColor.Font.Color := beskinFontColor(clarBlue, clarAccent6),
ShowModal(oForm),