GDIPlus

[BrettF]

More unchartered teritory now. Now I just need to draw lines with GDI, and the update it. Basically shift each line across to where the next line was.

Basically a 200x100px rectangle is the canvas.

Now a line is drawn from (x,y)

0,50 to 50,150

50,150 to 100,100

100,100 to 150,200

150,200 to 200,00

Then in the next step, the lines are cleared, and a new value is added, shifting the others (except for the first one).

0,50 to 50,80

50,80 to 100,100

100,100 to 150,200

150,200 to 200,200

And then the process starts over again... New value and shift. Please tell me if I've lost you. I suck at explaining.

So I've come up with this, but the lines never show. Also I'm not sure if my method for clearing the graphic is correct.

So here's the code.

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#Include <Array.au3>

Dim $var[4]
Dim $text
Dim $ret = 0
$var[0] = 52
$var[1] = 52
$var[2] = 52
$var[3] = 52

$hGUI = GUICreate("GDI+", 400, 300)
$pic = GUICtrlCreatePic("", 0, 0, 400, 300)
$hWnd = GUICtrlGetHandle($pic)
GUISetState()

; Draw a string
_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
    $tLayout = _GDIPlus_RectFCreate (140, 110, 100, 20)
$hPen = _GDIPlus_PenCreate (0x0000FF00, 10, 2)

Do
    Sleep(150)
    $new = Random(0, 100, 1)
    _UpdateGraph($var, $new)
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func _UpdateGraph(ByRef $var, $new_value)
    _GDIPlus_GraphicsClear ($hGraphic)
    $var[3] = $var[2]
    $var[2] = $var[1]
    $var[1] = $var[0]
    $var[0] = $new_value
    $text = "No." & @TAB & "X" & @TAB & "Y" & @TAB & "RET" & @CRLF
    $text &= 1 & @TAB & 0 & @TAB & 52 & @TAB & $ret & @CRLF
    $ret = _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 52, 48, $new_value, $hPen)
    $text &= 1 & @TAB & 48 & @TAB & $var[0] & @TAB & $ret & @CRLF
    $ret = _GDIPlus_GraphicsDrawLine ($hGraphic, 48, $var[0], 96, $var[1], $hPen)
    $text &= 1 & @TAB & 96 & @TAB & $var[1] & @TAB & $ret & @CRLF
    $ret = _GDIPlus_GraphicsDrawLine ($hGraphic, 96, $var[1], 144, $var[2], $hPen)
    $text &= 1 & @TAB & 144 & @TAB & $var[2] & @TAB & $ret & @CRLF
    $ret = _GDIPlus_GraphicsDrawLine ($hGraphic, 144, $var[2], 192, $var[3], $hPen)
    $text &= 1 & @TAB & 192 & @TAB & $var[3] & @TAB & $ret & @CRLF
    ToolTip ($text, 0, 0)
EndFunc  ;==>_UpdateGraph

Thanks,

Brett

-----

Its like a massive learning day for me! Woo!

[martin]

More unchartered teritory now. Now I just need to draw lines with GDI, and the update it. Basically shift each line across to where the next line was.

Basically a 200x100px rectangle is the canvas.

Now a line is drawn from (x,y)

0,50 to 50,150

50,150 to 100,100

100,100 to 150,200

150,200 to 200,00

Then in the next step, the lines are cleared, and a new value is added, shifting the others (except for the first one).

0,50 to 50,80

50,80 to 100,100

100,100 to 150,200

150,200 to 200,200

And then the process starts over again... New value and shift. Please tell me if I've lost you. I suck at explaining.

So I've come up with this, but the lines never show. Also I'm not sure if my method for clearing the graphic is correct.

So here's the code.

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#Include <Array.au3>

Dim $var[4]
Dim $text
Dim $ret = 0
$var[0] = 52
$var[1] = 52
$var[2] = 52
$var[3] = 52

$hGUI = GUICreate("GDI+", 400, 300)
$pic = GUICtrlCreatePic("", 0, 0, 400, 300)
$hWnd = GUICtrlGetHandle($pic)
GUISetState()

; Draw a string
_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
    $tLayout = _GDIPlus_RectFCreate (140, 110, 100, 20)
$hPen = _GDIPlus_PenCreate (0x0000FF00, 10, 2)

Do
    Sleep(150)
    $new = Random(0, 100, 1)
    _UpdateGraph($var, $new)
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func _UpdateGraph(ByRef $var, $new_value)
    _GDIPlus_GraphicsClear ($hGraphic)
    $var[3] = $var[2]
    $var[2] = $var[1]
    $var[1] = $var[0]
    $var[0] = $new_value
    $text = "No." & @TAB & "X" & @TAB & "Y" & @TAB & "RET" & @CRLF
    $text &= 1 & @TAB & 0 & @TAB & 52 & @TAB & $ret & @CRLF
    $ret = _GDIPlus_GraphicsDrawLine ($hGraphic, 0, 52, 48, $new_value, $hPen)
    $text &= 1 & @TAB & 48 & @TAB & $var[0] & @TAB & $ret & @CRLF
    $ret = _GDIPlus_GraphicsDrawLine ($hGraphic, 48, $var[0], 96, $var[1], $hPen)
    $text &= 1 & @TAB & 96 & @TAB & $var[1] & @TAB & $ret & @CRLF
    $ret = _GDIPlus_GraphicsDrawLine ($hGraphic, 96, $var[1], 144, $var[2], $hPen)
    $text &= 1 & @TAB & 144 & @TAB & $var[2] & @TAB & $ret & @CRLF
    $ret = _GDIPlus_GraphicsDrawLine ($hGraphic, 144, $var[2], 192, $var[3], $hPen)
    $text &= 1 & @TAB & 192 & @TAB & $var[3] & @TAB & $ret & @CRLF
    ToolTip ($text, 0, 0)
EndFunc ;==>_UpdateGraph

Thanks,

Brett

-----

Its like a massive learning day for me! Woo!

$hPen = _GDIPlus_PenCreate (0xFF00FF00, 10, 2);don't make the pen invisible then you can see the lines.

[BrettF]

Bahahahahah woops!

Thankyou!

[ProgAndy]

Also, you should use timerInit instead of sleep, so you the GUIClose is recognized

Also, free the resources on Exit.

$hPen = _GDIPlus_PenCreate (0xFF00FF00, 10, 2)
$Timer = TimerInit()
Do
    If TimerDiff($Timer) > 150 Then
        $new = Random(0, 100, 1)
        _UpdateGraph($var, $new)
        $Timer = TimerInit()
    EndIf
Until GUIGetMsg() = $GUI_EVENT_CLOSE

_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()

[Community On Patrol]

Hi BrettF,

Please create descriptive topics.

Using one word topics makes it really difficult to use the search feature, and those that could probably answer your question will probably not even read your thread.

Doing it enough could cause your posting privileges to be taken away all together, and we don't want that .

Thanks.

[BrettF]

Oh forgot to free. The Sleep isn't an issue, because in the full script, Timer is used...

Thanks,

Brett