Set ctrl font colour winapi(Solved)

[JohnOne]

Looking for a way to change text colour of a label for instance via winapi.

This does not seem to work.

#include <WinAPI.au3>
#include <WindowsConstants.au3>

_Main()

Func _Main()
    Local $hwnd, $hDC
    $hwnd = GUICreate("test")
    $hlabel = GUICtrlCreateLabel("label", 10,10,50,25)
    $hlabel2 = GUICtrlGetHandle($hlabel)
    $hDC = _WinAPI_GetDC($hlabel2)
    If @error Then Exit MsgBox(0,"_WinAPI_GetDC", @error); no error
    _WinAPI_SetTextColor($hDC, 0x0000FF)
    If @error Then Exit MsgBox(0,"_WinAPI_SetTextColor", @error); no error
    GUISetState()
    While 1
        If GUIGetMsg() = -3 Then ExitLoop
    WEnd
    _WinAPI_ReleaseDC($hlabel2, $hDC)
EndFunc   ;==>_Main

Not sure why.

Appreciate any suggestions, bearing in mind I know I can do it with native functions but that is not what I'm after.

I cannot even make it work c++, and ideas about that would be just as sufficient.

Thanks for reading.

Edited January 19, 2013 by JohnOne

[UEZ]

This is working but I don't know whether it is what you are looking for.

#include <WindowsConstants.au3>
#include <WinAPI.au3>


Global $hwnd, $iCol = 0x0000FF ;BGR

$hwnd = GUICreate("test")
$iLabel = GUICtrlCreateLabel("label", 10,10,50,25)
$hLabel = GUICtrlGetHandle($iLabel)
GUIRegisterMsg($WM_CTLCOLORSTATIC, '_WM_CTLCOLORSTATIC')
GUISetState()

While 1
    If GUIGetMsg() = -3 Then ExitLoop
WEnd

GUIDelete()
Exit

Func _WM_CTLCOLORSTATIC($hWnd, $iMsg, $wParam, $iParam)
    #forceref $hWnd, $iMsg
    Switch _WinAPI_GetDlgCtrlID($iParam)
        Case $iLabel
            _WinAPI_SetTextColor($wParam, $iCol)
            _WinAPI_SetBkMode($wParam, $TRANSPARENT)
            Return _WinAPI_GetStockObject($NULL_BRUSH)
    EndSwitch
    Return "GUI_RUNDEFMSG"
EndFunc

Br,

UEZ

[JohnOne]

lol, I have just finished doing exactly that in c++, except for "_WinAPI_SetBkMode($wParam, $TRANSPARENT)"

which I was having big problems with.

Thank you kindly good sir