XProfan

Deutsch

Beschreibung:

Die API GetSysColor ermittelt den Wert einer Systemfarbe.

Deklaration:

DEF @GETSYSCOLOR(1) !USER32,GetSysColor

Parameter:

1.Parameter: Zahlenkonstante für die auszulesende Systemfarbe als LongInt =>
-15 = Grundfarbe für dreidimensionale Objekte (z.B. Farbe von Buttons).
-21 = Dunkler Schatten für dreidimensionale Objekte.
-20 = Farbe zum Hervorheben von dreidimensionalen Objekten.
-22 = Farbe für Lichteinstrahlung auf dreidimensionale Objekte (für Kanten, die zum Licht hin liegen).
-$10 = Schattenfarbe für dreidimensional angezeigte Objekte.(für Kanten, die der Lichtquelle gegenüber liegen).
-10 = Rahmen eines aktiven Fensters.
-2 = Titel eines aktiven Fensters.
-12 = Hintergrundfarbe für MDI-Anwendungen.
-1 = Hintergrundfarbe des Desktops.
-9 = Text in der Titelleiste, Größenänderungsfeld und Pfeilfeld der Bildlaufleiste.
-17 = Deaktivierter Text.
-13 = Ausgewählte Elemente eines Controls.
-14 = Text auf Elementen, die in einem Control ausgewählt wurden.
-11 = Rahmenfarbe für inaktive Fenster.
-3 = Farbe für inaktive Fenstertitel.
-4 = Menühintergrundfarbe.
-7 = Text im Menü.
-0 = Grundfarbe von Scrollbars.
-5 = Fensterrahmen.
-8 = Text in Fenstern.

Rückgabewert:

Farbwert der gesuchten Systemfarbe als LongInt.

Beispiele:

Kompilieren Markieren Separieren

DEF @GETSYSCOLOR(1) !USER32,GetSysColor
DEF @GETSYSCOLOR(1) !USER32,GetSysColor
Declare Button&
SetTrueColor 1
Windowstyle 31
Windowtitle Hintergrundfarbe von Hauptfenster ändern
Window 0,0-640,440
Let Button&=@Createbutton(%HWND,Farbe ändern,20,300,150,30)

While 0=0

    Waitinput

    IF @Getfocus(Button&)

        CLS @GetSysColor(15)

    Endif

Wend