Lines Coordinates Recordertool
IsNull wrote:
could you post that drawing skript? I'm shure it would be very funny
Sure i will. Basically it goes like this (but keep in mind, this script is pretty much primitive, so there's a lot of space for improvement left):
ctrl+f1: Loads previously saved coords.txt and draws it on screen. Regardless of any already set content. any already recorded lines will be lost.
ctrl+s: saves the current buffer of recorded linecoordinates
(Attention! When the MsgBox appears, You'll have to dismiss it via keyboard, otherwise the script will draw at the button.)
ctrl+z: Undos last action up to 1st stored line (erased lines will be shown in yellow)
lbutton: 1st click starts, 2nd click ends recording and draws the line.
esc: Exits the app any unsaved data gets lost.
There are three lines commented out. Re-enabling these will show a tooltip (to left position) of the current status (step 0:started, 1:done / count of lines) and the coordinatebuffer below this was mainly for testing the undo functionality
Code:
#SingleInstance, Force
#NoEnv
SetBatchLines, -1
CoordMode,Mouse,Screen
; CoordMode,ToolTip,Screen
a:=0
steps := 0
; Start gdi+
If !pToken := Gdip_Startup()
{
MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
ExitApp
}
OnExit, Exit
Width := A_ScreenWidth, Height := A_ScreenHeight
Gui, 1: -Caption +E0x80000 +LastFound +AlwaysOnTop +ToolWindow +OwnDialogs
Gui, 1: Show, NA
hwnd1 := WinExist()
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromHDC(hdc)
Gdip_SetSmoothingMode(G, 4)
pPen := Gdip_CreatePen(0xc0000000, 4)
ePen := Gdip_CreatePen(0xffffff00, 5)
UpdateLayeredWindow(hwnd1, hdc, 0, 0, Width, Height)
Return
LButton::
MouseGetPos,mx,my
a++
if (a=1)
Pos1 := mx, Pos2 := my
else if (a=2) {
Pos3 := mx, Pos4 := my
Gdip_DrawLine(G, pPen, Pos1, Pos2, Pos3, Pos4)
UpdateLayeredWindow(hwnd1, hdc, 0, 0, Width, Height)
Loop,3
Coords .= pos%A_index% "|"
Coords .= pos4 "`n"
a := 0
steps++
}
; tooltip,% a "/" steps "`n" coords,10,10
Return
^z::
a:=0
Loop,Parse,Coords,`n
if (A_index = steps)
tmp := A_LoopField
else
tCoords := tCoords A_LoopField "`n"
steps--
Coords := tCoords
tCoords := ""
StringSplit,Pos,tmp,|
Gdip_DrawLine(G, ePen, Pos1, Pos2, Pos3, Pos4)
UpdateLayeredWindow(hwnd1, hdc, 0, 0, Width, Height)
StringReplace,coords,coords,`n`n,`n,All
; tooltip,% steps "`n" coords,10,10
return
^s::
if (FileExist("coords.txt"))
FileDelete,coords.txt
FileAppend,%coords%,coords.txt
MsgBox FileSaved
return
^f1::
fileRead,data,coords.txt
Loop,Parse,Data,`n,`r
{
StringSplit,Pos,A_LoopField,|
Gdip_DrawLine(G, wPen, Pos1, Pos2, Pos3, Pos4)
Gdip_DrawLine(G, bPen, Pos1, Pos2, Pos3, Pos4)
}
UpdateLayeredWindow(hwnd1, hdc, 0, 0, Width, Height)
return
;#######################################################################
esc::
Exit:
SelectObject(hdc, obm)
DeleteObject(hbm)
DeleteDC(hdc)
Gdip_DeleteGraphics(G)
; gdi+ may now be shutdown on exiting the program
Gdip_Shutdown(pToken)
ExitApp
Return
enjoy!
Login
Register
FAQ
Search
but this is up to u.