XProfan

Italia

Beschreibung:

Die API GetSysColor ermittelt il valore einer Systemfarbe.

Deklaration:

DEF @GETSYSCOLOR(1) !USER32,GetSysColor

Parameter:

1.Parameter: Zahlenkonstante per die auszulesende Systemfarbe als LongInt =>
-15 = Grundfarbe per dreidimensionale Objekte (z.B. Farbe von Buttons).
-21 = Dunkler Schatten per dreidimensionale Objekte.
-20 = Farbe zum Hervorheben von dreidimensionalen Objekten.
-22 = Farbe per Lichteinstrahlung auf dreidimensionale Objekte (per Kanten, die zum Licht hin liegen).
-$10 = Schattenfarbe per dreidimensional angezeigte Objekte.(per Kanten, die der Lichtquelle opposto liegen).
-10 = Rahmen eines aktiven Fensters.
-2 = Titel eines aktiven Fensters.
-12 = Hintergrundfarbe per 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 per inaktive Fenster.
-3 = Farbe per 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