Bug report

[taotao878]

1. please run this script in Win XPsp2

2. please run this script in Win 2003

The result of 1 is different from the result of 2.

expandcollapse popup

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 2)

Global $n = 0
Global $MousePos = True
Global $Last


$mainwindow = GUICreate("test", 220, 220)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_PRIMARYup')
GUISetOnEvent($GUI_EVENT_MOUSEMOVE, "MouseOver")
$Previewimage = GUICtrlCreatePic("act_rs.bmp", 20, 20, 92, 46)
GUICtrlSetCursor($Previewimage, 0)
GUISetState(@SW_SHOW)

While 1
    Sleep(1000)
WEnd


Func _Exit()
     Exit
EndFunc


Func _PRIMARYup()
    If $MousePos Then
        If $n = 2 Then 
            $n = 0
        Else
            $start = TimerInit()
        EndIf
    EndIf
    $GGCI = GUIGetCursorInfo($mainwindow)
    If $GGCI[4] = $Previewimage Then msgbox(0,"test","Very beauty！")
EndFunc


Func MouseOver()
    $GGCI = GUIGetCursorInfo($mainwindow)
    If $GGCI[4] = $Previewimage And $Last <> $Previewimage  Then
        GUICtrlsetimage($Previewimage, "") 
        GUICtrlsetimage($Previewimage, "act_rs1.bmp")
        GuiCtrlSetCursor($Previewimage, 0)
        $Last = $Previewimage
    ElseIf $GGCI[4] <> $Previewimage And $Last = $Previewimage Then
        GUICtrlsetimage($Previewimage, "")
        GUICtrlsetimage($Previewimage, "act_rs.bmp")
        $Last = 0
    EndIf
EndFunc

The attached files are 32bit ARGB format BMP (with alpha channel)

act_rs1.bmp

act_rs.bmp

Edited April 8, 2008 by taotao878

[taotao878]

run this script in WinXPsp2, the result like the attached file

[taotao878]

run this script in Win2003, the result like the attached file

[JustinReno]

I doubt this is a bug.

[taotao878]

I think this is a bug also.

But nobody see this topic.

[taotao878]

I think au3 isn't fully to support aRGB bmp format.