[Pytanie] Podświetlanie kontrolek

[MrKris7100]

Witam. Chciałbym aby ktoś powiedział mi jak zrobić żeby po nakierowaniu kursorem na jakiś obrazek w gui zmieniał się on na inny. Dam "Lubie to"

[Phoenix_PL]

Opt("MouseCoordMode",2)

 

Func _IsMouseOverControl($WinTitle,$WinText,$Control)

$C = ControlGetPos($WinTitle,$WinText,$Control)

If @error Then

SetError(-1)

Return 0

Else

$C_X = $C[0]

$C_Y = $C[1]

$C_Width = $C[2]

$C_Height = $C[3]

 

$M = MouseGetPos()

$M_X = $M[0]

$M_Y = $M[1]

If WinActive($WinTitle,$WinText) And (($M_X >= $C_X And $M_X <= $C_X + $C_Width) And ($M_Y >= $C_Y And $M_Y <= $C_Y + $C_Height)) Then

Return 1

Else

Return 0

EndIf

EndIf

EndFunc

Masz funkcję która zwraca ci czy myszka jest nad daną kontrolką. Resztę zrób sobie sam.

[MrKris7100]

Dzięki ale jak daje w pętli:

While 1
    If MouseOnControl($GUI,$pic) Then

GUICtrlSetImage($pic,"pic2.bmp")

Else

GUICtrlSetImage($pic,"pic1.bmp")

EndIf
WEnd

To obrazek mi miga cały czas jak ruszam kursorem

[hehe7]

Dzięki ale jak daje w pętli:

While 1

If MouseOnControl($GUI,$pic) Then GUICtrlSetImage($pic,"pic2.bmp") Else GUICtrlSetImage($pic,"pic1.bmp")

EndIf

WEnd

 

To obrazek mi miga cały czas jak ruszam kursorem

Nie za bardzo się orientuje ale czy napewno dobrze podałeś parametry funkcji?

 

($WinTitle,$WinText,$Control)

($GUI,$pic)

Może $pic to ma być jako $Control a nie Text

[MrKris7100]

Dobrze podałem bo zmieniłem twoją funkcje :

Func MouseOnControl($WinTitle,$Control)
    $C = ControlGetPos($WinTitle,"",$Control)
    If @error Then
        SetError(-1)
        Return 0
    Else
        $C_X        = $C[0]
        $C_Y        = $C[1]
        $C_Width    = $C[2]
        $C_Height   = $C[3]

        $M          = MouseGetPos()
        $M_X        = $M[0]
        $M_Y        = $M[1]
        If WinActive($WinTitle) And (($M_X >= $C_X And $M_X <= $C_X + $C_Width) And ($M_Y >= $C_Y And $M_Y <= $C_Y + $C_Height)) Then
            Return 1
        Else
            Return 0
        EndIf
    EndIf
EndFunc

[MrKris7100]

@ref

[MrKris7100]

@ref ;d

[MrKris7100]

@ref