Jump to content

drawing


Somerset
 Share

Recommended Posts

#include <GUIConstants.au3>
$x=51
$y=51


$x=$x - 1
$y=$y - 1

$a=0
$b=0
GUICreate("Snapshot",$x,$y,-1,-1,$WS_POPUP)
while 1
$var = PixelGetColor( $a,$b)
$nex=Hex($var, 6)
$shex="0x"&$nex

GUICtrlCreateLabel ($a&$b,$a,$b,1,1)
GUICtrlSetBkColor(-1,$shex)
if $b = $y and $a = $x then Exitloop

if $a <> $x then
$a=$a + 1
else
$a = 0
$b = $b +1
endif 

Wend

GUISetState ()

While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

this draws a tiny window of the upper left hand corner of the screen. the$x=$x - 1 and $y=$y - 1 were supposed to help with the relative coords of the desktop so please disreguard. this script seems not to be able to draw beyond much of 50x50 without being incomplete. so this might begood for someone that wanted to have a floationg window following the mouse or something. you can easily devert this script to write out another script or something. i hope this helps in some stupid way i am bored....

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...