rakudave

awesome! I'm gonna use this for sure....

awesome!

it is, but i can hardly find the time to do so...

... getting more complicated every day ... but i'll try

well, i can do that, but it gets very hard to see anything if the lines are just 1px apart...

... not sure whether i'm getting your point, but you can resize the window and i'ts showing 5 pixels, with a bigger one every 20...

@all: thanks... I can do that... ahm, good point... i'll try to solve this problem...

I made this little tool to measure things when testing GUI's 'n stuff it's resizable and transparent. there's also a optional tooltip with all infos. and you can toggle on/off for the compiled version with icon: see attached file screenie: and the source: CODE#include <GUIConstants.au3>AutoItSetOption("GUIResizeMode",802) Global $oldwidth = 500, $oldheight = 100, $ontop = 1 $main = GUICreate("Pangaea_Ruler",500,100,-1,-1,$WS_POPUP + $WS_SIZEBOX) GUICtrlCreateLabel("",28,28,32,20,$SS_BLACKFRAME,$GUI_WS_EX_PARENTDRAG) $quit = GUICtrlCreateLabel("",133,28,32,20,$SS_BLACKFRAME + $SS_NOTIFY) _draw() GUICtrlCreateLabel("move",30,30,28,20,$SS_CENTER,$GUI_WS_EX_PARENTDRAG) GUICtrlCreateLabel("",28,28,32,20,$SS_BLACKFRAME) $trans = GUICtrlCreateSlider(60,37,73,18,$TBS_NOTICKS) GUICtrlSetLimit(-1,255,80) GUICtrlSetData(-1,220) GUICtrlCreateLabel("transparency:",70,25,100,12) GUICtrlSetFont(-1,7) $top = GUICtrlCreateCheckbox('"Always On Top"',28,50) GUICtrlSetState(-1,1) $info = GUICtrlCreateCheckbox("Info",130,50,-1,-1,$SS_NOTIFY) GUICtrlSetState(-1,1) GUICtrlCreateLabel("quit",135,30,28,20,$SS_CENTER) GUICtrlCreateLabel("",133,28,32,20,$SS_BLACKFRAME) GUISetState() WinSetTrans("Pangaea_Ruler","",220) WinSetOnTop("Pangaea_Ruler","",1) do $msg = GUIGetMsg() $size = WinGetPos("Pangaea_Ruler","") If $size[3] <> $oldheight then If $size[3] < 100 then WinMove("Pangaea_Ruler","",$size[0],$size[1],$size[2],100) Else $oldheight = $size[3] EndIf EndIf If $size[2] <> $oldwidth then If $size[2] < 200 then WinMove("Pangaea_Ruler","",$size[0],$size[1],200) Else $oldwidth = $size[2] EndIf EndIf If $msg = $top then select case $ontop = 0 WinSetOnTop("Pangaea_Ruler","",1) $ontop = 1 case $ontop = 1 WinSetOnTop("Pangaea_Ruler","",0) $ontop = 0 EndSelect EndIf If $msg = $trans then WinSetTrans("Pangaea_Ruler","",GUICtrlRead($trans)) If $msg = $quit then exit If $msg = $info then ToolTip("") If GUICtrlRead($info) = 1 then $cur = GUIGetCursorInfo() $pos = WinGetPos("Pangaea_Ruler","") ToolTip("Rel. mouse position: " & $cur[0] + 4 & "x" & $cur[1] + 4 & @crlf & "Abs. mouse position: " & MouseGetPos(0) & "x" & MouseGetPos(1) & @crlf & "Win position: " & $pos[0] & "x" & $pos[1] & @crlf & "Win size: " & $pos[2] & "x" & $pos[3]) EndIf until $msg = $GUI_EVENT_CLOSE Func _draw() for $x = 5 to @desktopwidth step 5 Select case $x = 20 GUICtrlCreateLabel("",$x - 4,0,1,10,$SS_BLACKRECT) case StringinStr($x / 20,".") = 0 GUICtrlCreateLabel("",$x - 4,0,1,10,$SS_BLACKRECT) GUICtrlCreateLabel($x,$x - 4,10) GUICtrlSetFont(-1,6) case else GUICtrlCreateLabel("",$x - 4,0,1,5,$SS_BLACKRECT) EndSelect next for $y = 5 to @desktopheight step 5 Select case $y = 20 GUICtrlCreateLabel("",0,$y - 4,10,1,$SS_BLACKRECT) GUICtrlCreateLabel($y,15,$y - 8) GUICtrlSetFont(-1,6) case StringinStr($y / 20,".") = 0 GUICtrlCreateLabel("",0,$y - 4,10,1,$SS_BLACKRECT) GUICtrlCreateLabel($y,10,$y - 4) GUICtrlSetFont(-1,6) case else GUICtrlCreateLabel("",0,$y - 4,5,1,$SS_BLACKRECT) EndSelect next AutoItSetOption("GUIResizeMode",842) for $x = 5 to @desktopwidth step 5 Select case $x < 30 case StringinStr($x / 20,".") = 0 GUICtrlCreateLabel($x,$x - 4,80) GUICtrlSetFont(-1,6) GUICtrlCreateLabel("",$x - 4,90,1,10,$SS_BLACKRECT) case else GUICtrlCreateLabel("",$x - 4,95,1,5,$SS_BLACKRECT) EndSelect next AutoItSetOption("GUIResizeMode",804) for $y = 5 to @desktopheight step 5 Select case $y < 25 case StringinStr($y / 20,".") = 0 GUICtrlCreateLabel($y,480,$y - 4) GUICtrlSetFont(-1,6) GUICtrlCreateLabel("",490,$y - 4,10,1,$SS_BLACKRECT) case else GUICtrlCreateLabel("",495,$y - 4,5,1,$SS_BLACKRECT) EndSelect next AutoItSetOption("GUIResizeMode",802) EndFunc hope anyone uses it ^^ Pangaea_Ruler.zip

lol, this is cool!

this is nice!

i'll integrate this into the new version as soon as i find the time to do so ^^ (omg, school...)

@zerocool60544: working on it... ^^ @busysignal: i'm i drunk? just kiddin'... thanks

awesome!

this is very cool! i think i'm gonna use this...

ah, very nice! i read about ByRef, but couldn't make any use of it yet, thaks...