Eine art Mini-Lupe
[Blockierte Grafik: http://i26.tinypic.com/mj0aow.png]
[autoit]#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.2.11.7 (beta)
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]; Script Start - Add your code below here
[/autoit][autoit][/autoit][autoit]$Scale = 20
$PixelSize = 5
; ########################
[/autoit][autoit][/autoit][autoit]Dim $Lay[$Scale + 1][$Scale + 1]
Dim $PosOld[2]
$GUI = GUICreate("Lupe", $Scale * $PixelSize, $Scale * $PixelSize)
For $x = 1 To $Scale
For $y = 1 To $Scale
$Lay[$x][$y] = GUICtrlCreateLabel("", ($x * $PixelSize)-$PixelSize, ($y * $PixelSize)-$PixelSize, $PixelSize, $PixelSize)
Next
Next
WinSetOnTop($GUI, "", 1)
GUISetState()
While 1
$Pos = MouseGetPos()
If $Pos[0] <> $PosOld[0] Or $Pos[1] <> $PosOld[1] Then
For $x = 1 To $Scale
For $y = 1 To $Scale
$Pix = PixelGetColor($Pos[0] + $x - ($Scale / 2), $Pos[1] + $y - ($Scale / 2))
GUICtrlSetBkColor($Lay[$x][$y], $Pix)
Next
Next
$PosOld = $Pos
EndIf
If GUIGetMsg() = -3 Then Exit
WEnd
; EOF
[/autoit]
hoffe es gefällt euch