XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Systemfarbenwerte
GetSysColor-Werte:
0  - Grundfarbe von Scrollbars.
1  - Hintergrundfarbe des Desktops.
2  - Titel eines aktiven Fensters.
3  - Farbe für inaktive Fenstertitel.
4  - Menühintergrundfarbe.
5  - Fensterrahmen.
7  - Text im Menü.
8  - Text in Fenstern.
9  - Text in der Titelleiste, Größenänderungsfeld und Pfeilfeld der Bildlaufleiste.
10  - Rahmen eines aktiven Fensters.
11  - Rahmenfarbe für inaktive Fenster.
12  - Hintergrundfarbe für MDI-Anwendungen.
13  - Ausgewählte Elemente eines Controls.
14  - Text auf Elementen, die in einem Control ausgewählt wurden.
15  - Grundfarbe für dreidimensionale Objekte (z.B. Farbe von Buttons).
16  - Schattenfarbe für dreidimensional angezeigte Objekte.(für Kanten, die der Lichtquelle gegenüber liegen).
17  - Deaktivierter Text.
20  - Farbe zum Hervorheben von dreidimensionalen Objekten.
21  - Dunkler Schatten für dreidimensionale Objekte.
22  - Farbe für Lichteinstrahlung auf dreidimensionale Objekte (für Kanten, die zum Licht hin liegen).
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