XProfan

Français

Beschreibung:

qui API GetSysColor ermittelt la valeur einer Systemfarbe.

Deklaration:

DEF @GETSYSCOLOR(1) !USER32,GetSysColor

paramètre:

1.paramètre: Zahlenkonstante pour qui auszulesende Systemfarbe comme LongInt =>
-15 = Grundfarbe pour dreidimensionale Objekte (z.B. la couleur de Buttons).
-21 = Dunkler ombre pour dreidimensionale Objekte.
-20 = la couleur zum Hervorheben de dreidimensionalen Objekten.
-22 = la couleur pour Lichteinstrahlung sur dreidimensionale Objekte (pour Kanten, qui zum Licht hin liegen).
-$10 = Schattenfarbe pour dreidimensional angezeigte Objekte.(pour Kanten, qui qui Lichtquelle à liegen).
-10 = cadre eines aktiven Fensters.
-2 = Titel eines aktiven Fensters.
-12 = Hintergrundfarbe pour MDI-Anwendungen.
-1 = Hintergrundfarbe des Desktops.
-9 = Text dans qui Titelleiste, Größenänderungsfeld et Pfeilfeld qui Bildlaufleiste.
-17 = Deaktivierter Text.
-13 = Ausgewählte Elemente eines Controls.
-14 = Text sur Elementen, qui dans einem Contrôle ausgewählt wurden.
-11 = Rahmenfarbe pour inaktive la fenêtre.
-3 = la couleur pour inaktive Fenstertitel.
-4 = Menühintergrundfarbe.
-7 = Text im menu.
-0 = Grundfarbe de Scrollbars.
-5 = Fensterrahmen.
-8 = Text dans Windows.

Rückgabewert:

Farbwert qui gesuchten Systemfarbe comme LongInt.

Beispiele:

Kompilieren Marque Séparation

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