Koda helper - Design your dialogs faster

[E1M1]

Since I have to do lots of forms in Koda I decided to write little helper that saves my time. I hope it also saves someone else's time.

Idea is that you press one of 4 key combinations and then my script auto clicks on button chat creates new control, places that control on From1 at location of your muse and then clicks on caption/name to save your time.

How does it save time?

1) by auto placing control on GUI - You cont have to manually click on most common controls and then place them manually.

2) By auto clicking on Object Inspector to edit it's name/caption.

Keycombinations:

Alt + L = Add label at your mouse post and start editing it's caption

Alt + I = Add input at your mouse post and start editing it's name

Alt + C = Add combobox at your mouse post and start editing it's name

Alt + B = Add button at your mouse post and start editing it's name

expandcollapse popup

#include <Misc.au3>
Opt("MouseCoordMode", 2) ;1=absolute, 0=relative, 2=client

$dll = DllOpen("user32.dll")
$Alt = "12"
$L = "4C"
$I = "49"
$C = "43"
$B = "42"

While 1
    If ProcessExists("Fd.exe") Then
        If WinActive("[CLASS:TAForm]") Then
            If _IsPressed($Alt, $dll) Then
                If _IsPressed($L, $dll) Then
                    ConsoleWrite("Click on Label" & @CRLF)
                    Opt("MouseCoordMode", 1)
                    $xy = MouseGetPos()
                    Opt("MouseCoordMode", 2)
                    WinActivate("oda FormDesigner")
                    Sleep(50)
                    MouseClick("", 225, 65, 1, 0)
                    Opt("MouseCoordMode", 1)
                    MouseClick("", $xy[0], $xy[1], 1, 0)
                    Opt("MouseCoordMode", 2)
                    WinActivate("Object Inspector")
                    MouseClick("", 100, 70, 1, 0)
                    Opt("MouseCoordMode", 1)
                    MouseMove($xy[0], $xy[1],0)
                    Opt("MouseCoordMode", 2)
                EndIf
            EndIf
            If _IsPressed($Alt, $dll) Then
                If _IsPressed($C, $dll) Then
                    ConsoleWrite("Click on Label" & @CRLF)
                    Opt("MouseCoordMode", 1)
                    $xy = MouseGetPos()
                    Opt("MouseCoordMode", 2)
                    WinActivate("oda FormDesigner")
                    Sleep(50)
                    MouseClick("", 450, 65, 1, 0)
                    Opt("MouseCoordMode", 1)
                    MouseClick("", $xy[0], $xy[1], 1, 0)
                    Opt("MouseCoordMode", 2)
                    WinActivate("Object Inspector")
                    MouseClick("", 100, 200, 1, 0)
                    Opt("MouseCoordMode", 1)
                    MouseMove($xy[0], $xy[1],0)
                    Opt("MouseCoordMode", 2)
                EndIf
            EndIf
            If _IsPressed($Alt, $dll) Then
                If _IsPressed($I, $dll) Then
                    ConsoleWrite("Click on Label" & @CRLF)
                    Opt("MouseCoordMode", 1)
                    $xy = MouseGetPos()
                    Opt("MouseCoordMode", 2)
                    WinActivate("oda FormDesigner")
                    Sleep(50)
                    MouseClick("", 250, 65, 1, 0)
                    Opt("MouseCoordMode", 1)
                    MouseClick("", $xy[0], $xy[1], 1, 0)
                    Opt("MouseCoordMode", 2)
                    WinActivate("Object Inspector")
                    MouseClick("", 100, 160, 1, 0)
                    Opt("MouseCoordMode", 1)
                    MouseMove($xy[0], $xy[1],0)
                    Opt("MouseCoordMode", 2)
                EndIf
            EndIf
            If _IsPressed($Alt, $dll) Then
                If _IsPressed($B, $dll) Then
                    ConsoleWrite("Click on Label" & @CRLF)
                    Opt("MouseCoordMode", 1)
                    $xy = MouseGetPos()
                    Opt("MouseCoordMode", 2)
                    WinActivate("oda FormDesigner")
                    Sleep(50)
                    MouseClick("", 320, 65, 1, 0)
                    Opt("MouseCoordMode", 1)
                    MouseClick("", $xy[0], $xy[1], 1, 0)
                    Opt("MouseCoordMode", 2)
                    WinActivate("Object Inspector")
                    MouseClick("", 100, 190, 1, 0)
                    Opt("MouseCoordMode", 1)
                    MouseMove($xy[0], $xy[1],0)
                    Opt("MouseCoordMode", 2)
                EndIf
            EndIf
        EndIf
    EndIf
WEnd

Edited February 4, 2011 by E1M1

[logmein]

Small but useful! Thanks!