Menüfarbe ermitteln [ERLEDIGT]

[Sören]

Hallo,

ich möchte die Hintergrundfarbe (RGB) eines Menüs ermitteln.
Also nicht die der Menüleiste, sondern die des PopUp-Menüs.

Nun erhalte ich mit der Win-API-Funktion GetSysColor( COLOR_MENU ) ja einen Farbwert zurück, dieser lässt sich aber nicht mittels GraGetRGBIntensity() in einen RGB-Farbwert auflösen.

Kann mir da jemand weiterhelfen?

[Rolf Ramacher]

Hi Sören,

du erhälst doch einen 3 numerische Werte ? für Rot grün und blau. Gesetzt werden die Farben doch mit GraMakeRGBColour()
Hierbei gibst du doch die numerischen Werte mit. - Es sei denn dein ermittlender numerischer Wert ist kleiner Null oder größer als 255

[Tom]

Hallo, Sören.

Welchen Wert bekommst Du zurück?

Möglicherweise muss der Farbwert mit AutomationTranslateColor() umgerechnet werden.

[AUGE_OHR]

ich möchte die Hintergrundfarbe (RGB) eines Menüs ermitteln.
Also nicht die der Menüleiste, sondern die des PopUp-Menüs.

wenn du nichts geändert hast sollte es die "selbe" Farbe sein

Nun erhalte ich mit der Win-API-Funktion GetSysColor( COLOR_MENU ) ja einen Farbwert zurück, dieser lässt sich aber nicht mittels GraGetRGBIntensity() in einen RGB-Farbwert auflösen.

hm ... ich "denke" das GetSysColor() "nur" die "Systemfarben" zurückgibt. http://msdn.microsoft.com/en-us/library/ms724371%28VS.85%29.aspx
Es entspricht also dem Demo C:\ALASKA\XPPW32\Source\samples\basics\PRESPARA\panel.prg

[Sören]

Hallo,

danke für Eure Antworten!

@Rolf:
Nein, ich erhalte einen numerischen System-Farbwert zurück (siehe Code unten), der nicht identisch ist mit dem Xbase++-Farbwert.

@Jimmy:
Genau: Ich brauche die Hintergrund-Systemfarbe des Menüs, aber die Konstante XBPSYSCLR_MENU nützt mir nichts,
da sie sich nicht in ein RGB-Array { nR, nG, nB } umwandeln lässt.

@Tom:
JAAA, das ist die Lösung: AutomationTranslateColor(). --- DANKE!
Die Funktion war mir bislang unbekannt.

Und so funktioniert's:

Code: Alles auswählen

#define COLOR_MENU   4

DLLFUNCTION GetSysColor( nIndex ) USING STDCALL FROM "USER32.DLL"

? nSysColor := GetSysColor( COLOR_MENU )  // 15790320
? nColor := AutomationTranslateColor( nSysColor, .T. )  // 32567536
? GraGetRGBIntensity( nColor )  // { 240, 240, 240 } 


[Tom]

Hallo, Sören.

Die Funktion war mir bislang unbekannt.

Die benötigt man u.a., wenn Active-X-Komponenten Farbwerte zurückreichen. So nutze ich z.B. den "ColorPicker" von CodeJock, und dessen Rückgabewert muss auch so umgerechnet werden.