GDI Plus problem when drawing

[eXirrah]

I'm not lazy and checked for topics like that but couldn't find exactly what I wanted to find.

So I start the script (the code I pasted below) and sometimes some of the lines doesn't draw.

_GDIPlus_GraphicsDrawLine returns 1 as if the line has been drawn, but it's not.

Please anyone explain to me what's the problem and how to fix it.

expandcollapse popup

#include <GUIConstants.au3>
#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <array.au3>
Global $ListHwnd, $ListRect
Global $fn = "D:\Documents and Settings\DarkFenix\Desktop\Projects\FarCry 1.bmp"
Global $gui = GUICreate("",500,500,-1,-1)
GUIRegisterMsg($WM_CTLCOLORSTATIC,"PaintFunc")
ListCreate()
Global $WM_NEEDSDRAW = 0
Global $DrawCount = 0
GUISetState()
;~ GDIDraw()
While 1
    If $WM_NEEDSDRAW Then
        If $WM_NEEDSDRAW == $ListHwnd Then
            ListRedraw()
;~          MsgBox(-1,"","Drawing the list")
        EndIf
        $WM_NEEDSDRAW = 0
    EndIf

    $tmsg = GUIGetMsg()
    If $tmsg == -3 Then ExitLoop
WEnd

Func ListCreate()
    $ListID = GUICtrlCreateLabel("List 1",10,10,480,75)
    GUICtrlSetBkColor(-1,0x000000)
    $ListHwnd = GUICtrlGetHandle(-1)
    $ListRect = GetWindowRect($ListHwnd)

EndFunc

Func ListRedraw()
    ListDraw()
EndFunc

Func ListDraw()
    Local $rect = $ListRect
    $x = 1
    $y = 11
    $w = $rect[2]-2
    $h = $rect[3]-12
    $r = Min($h,$w)*0.15
    _GDIPlus_Startup()
    $graph = _GDIPlus_GraphicsCreateFromHWND($ListHwnd)
    $image = _GDIPlus_ImageLoadFromFile($fn)
    $pen = _GDIPlus_PenCreate(0xffff0000,2)
;~  $temp = _GDIPlus_GraphicsDrawImage($graph,$image,0,0)
;~  _GDIPlus_DrawArcs($graph,$x,$y,$w,$h,$r,$pen)
;~  _GDIPlus_DrawLines($graph,$x,$y,$w,$h,$r,$pen)
    $temp = _GDIPlus_GraphicsDrawHex($graph,$x,$y,$w,$h,$w-$r*2,$h-$r*2,50,$pen)
    _GDIPlus_BitmapDispose($image)
    _GDIPlus_GraphicsDispose($graph)
    _GDIPlus_Shutdown()
EndFunc


Func PaintFunc($lhwnd,$msg,$lparam,$wparam)
    If $lhwnd <> $gui Then Return $GUI_RUNDEFMSG
    $WM_NEEDSDRAW = $wparam
    Return $GUI_RUNDEFMSG
EndFunc

Func _GDIPlus_DrawArcs($hwnd,$x,$y,$w,$h,$r,$pen)
    Local $temp
    Local $r2 = $r*2
    $temp = _GDIPlus_GraphicsDrawArc($hwnd,$x,$y,$r2,$r2,180,90,$pen)
    If Not $temp Then Return 0
    $temp = _GDIPlus_GraphicsDrawArc($hwnd,$x+$w-$r2,$y,$r2,$r2,270,90,$pen)
    If Not $temp Then Return 0
    $temp = _GDIPlus_GraphicsDrawArc($hwnd,$x,$y+$h-$r2,$r2,$r2,90,90,$pen)
    If Not $temp Then Return 0
    $temp = _GDIPlus_GraphicsDrawArc($hwnd,$x+$w-$r2,$y+$h-$r2-1,$r2,$r2,0,90,$pen)
    Return $temp
EndFunc

Func _GDIPlus_DrawLines($hwnd,$x,$y,$w,$h,$r,$pen)
    Local $temp
    $temp = _GDIPlus_GraphicsDrawLine($hwnd,$x+$r,$y,$x+$w-$r,$y,$pen)
    If Not $temp Then Return 0
    $temp = _GDIPlus_GraphicsDrawLine($hwnd,$x+$r,$y+$h,$x+$w-$r,$y+$h,$pen)
    If Not $temp Then Return 0
    $temp = _GDIPlus_GraphicsDrawLine($hwnd,$x,$y+$r,$x,$y+$h-$r,$pen)
    If Not $temp Then Return 0
    $temp = _GDIPlus_GraphicsDrawLine($hwnd,$x+$w,$y+$r,$x+$w,$y+$h-$r,$pen)
    Return $temp
EndFunc

Func _GDIPlus_GraphicsDrawHex($hwnd,$x,$y,$w,$h,$a,$b,$c,$pen)
    $r = ($w-$a)/2
    Local $points[11][2]
    Local $timer
    $points[0][0] = $x+$r
    $points[0][1] = $y

    $points[1][0] = $x+$r+($a/2)-$c
    $points[1][1] = $y

    $points[2][0] = $x+$r+($a/2)+$c
    $points[2][1] = $y

    $points[3][0] = $x+$r+$a
    $points[3][1] = $y

    $points[4][0] = $x+$w
    $points[4][1] = $y+$r

    $points[5][0] = $x+$w
    $points[5][1] = $y+$r+$b

    $points[6][0] = $x+$r+$a
    $points[6][1] = $y+$h

    $points[7][0] = $x+$r
    $points[7][1] = $y+$h

    $points[8][0] = $x
    $points[8][1] = $y+$b+$r

    $points[9][0] = $x
    $points[9][1] = $y+$r

    $points[10][0] = $x+$r
    $points[10][1] = $y

    For $i = 1 To 10
        $timer = TimerInit()
        If $i == 2 Then ContinueLoop
        While Not _GDIPlus_GraphicsDrawLine($hwnd,$points[$i-1][0],$points[$i-1][1],$points[$i][0],$points[$i][1],$pen)
            If TimerDiff($timer) > 5000 Then
                MsgBox(-1,"","GDI Error")
                Return 0
            EndIf
        WEnd
    Next
    Return 1
EndFunc

Func GetWindowRect($hwnd)
    Local $struct = _WinAPI_GetWindowRect($hwnd)
    Local $ret[4]
    $ret[0] = DllStructGetData($struct,"Left")
    $ret[1] = DllStructGetData($struct,"Top")
    $ret[2] = DllStructGetData($struct,"Right") - $ret[0]
    $ret[3] = DllStructGetData($struct,"Bottom") - $ret[1]
    Return $ret
EndFunc

Func Min($a,$b)
    If $a < $b Then Return $a
    Return $b
EndFunc

MyList.au3

[UEZ]

I don't understand what your problem is exactly. When I see the result and compare it with your code then it is too complicated!

Do you want to draw just a box with rounded edges?

UEZ

[eXirrah]

I use _GDIPlus_GraphicsDrawLine() UDF to draw the box.

When I start the script everything is fine, but sometimes when the box needs to be redrawn

(I use the WM_CTLCOLORSTATIC message to determine when) some of the lines draw and dissappear.

It usually happens to the first 3-4 lines I draw.

I can't figure out why this is happening probably there is a problem when the control is painted by

autoit and I try to paint something on it. What I think it is, is that autoit somehow detects the changes

that the first 3-4 lines I draw do and repaints again.