How to make _GDIPlus_GraphicsDrawLine dont disappear on screen

[senatin]

I created a square Line in the screen and it disappear instantly
I tried looking arround And im so confused about the code they use.

just like for example

GUIRegisterMsg(0xF, "MY_PAINT")

I couldnt figure it out.

 

expandcollapse popup

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

HotKeySet ("-", "Setlines")
HotKeySet( "=", "Turnoff")

_GDIPlus_Startup ()

$x = 100
$y = 100
$z = 500
$t = 500
$i = True


While 1
   Sleep(100)
   If $i Then
      $i = False
      $hDC = _WinAPI_GetWindowDC(0)

      $hGraphic = _GDIPlus_GraphicsCreateFromHDC($hDC)
      $Color = 0xFFcc0000
      $hPen = _GDIPlus_PenCreate($Color, 2)

      _GDIPlus_GraphicsDrawLine($hGraphic, $x,$y,$x,$t, $hPen)
      _GDIPlus_GraphicsDrawLine($hGraphic, $z,$y,$z,$t, $hPen)
      _GDIPlus_GraphicsDrawLine($hGraphic, $x,$y,$z,$y, $hPen)
      _GDIPlus_GraphicsDrawLine($hGraphic, $x,$t,$z,$t, $hPen)
      _GDIPlus_PenSetColor($hPen, $Color)


      _WinAPI_RedrawWindow(_WinAPI_GetDesktopWindow(), 0, 0, $RDW_INVALIDATE+$RDW_ALLCHILDREN)
      _WinAPI_ReleaseDC(0, $hDC)
   EndIf
WEnd

Func Setlines()
   $x = $x + 20
   $y = $y + 20
   $z = $z + 20
   $t = $t + 20
   $i = True
EndFunc

Func Turnoff()
   _GDIPlus_Shutdown()
   Exit
EndFunc

Can you help me out?

[UEZ]

expandcollapse popup

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

HotKeySet ("-", "Setlines")
HotKeySet( "{ESC}", "Turnoff")

_GDIPlus_Startup ()

$x = 100
$y = 100
$z = 500
$t = 500
$i = True

Global $hGUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR($WS_EX_TRANSPARENT, $WS_EX_LAYERED, $WS_EX_TOPMOST))
GUISetBkColor(0x81234)
GUISetState()
_WinAPI_SetLayeredWindowAttributes($hGUI, 0x81234)

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
$Color = 0xFFcc0000
$hPen = _GDIPlus_PenCreate($Color, 2)

While 1
   Sleep(100)
   If $i Then
      $i = False
      _GDIPlus_GraphicsDrawLine($hGraphic, $x,$y,$x,$t, $hPen)
      _GDIPlus_GraphicsDrawLine($hGraphic, $z,$y,$z,$t, $hPen)
      _GDIPlus_GraphicsDrawLine($hGraphic, $x,$y,$z,$y, $hPen)
      _GDIPlus_GraphicsDrawLine($hGraphic, $x,$t,$z,$t, $hPen)
   EndIf
WEnd

Func Setlines()
   $x = $x + 20
   $y = $y + 20
   $z = $z + 20
   $t = $t + 20
   $i = True
EndFunc

Func Turnoff()
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_Shutdown()
    GUIDelete($hGUI)
    Exit
EndFunc

 

[senatin]

Creating 2 GUI and adding an option that can delete and recreate 1 of GUI is that possible?

[senatin]

Its Working Thank you so much