Skip to main content
Skip table of contents

beSkinFontColor()

Systemschriftfarbe

Die Funktion gibt je nach gewählter Basisfarbe (und Farbstufe) den entsprechenden Font-Farbe zurück.
Der Rückgabewert können die Farben weiß oder schwarz sein.
Die Farben wurden mit dem Algorithmus von Clarity Design System ermittelt.

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

Weitere Verknüpfungen

JavaScript errors detected

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

If this problem persists, please contact our support.