hi everyone, there is some script i want to share
i'am not a good script writer but that script works, critiques and fix are welcome

object aligment:

used numpad keys when Numlock is OFF
NumpadDel - h:central aligment v:nochange
NumpadIns - h:nochange v:central aligment
NumpadClear (5) - h:central aligment v:central aligment
NumpadUp - h: central aligment v: on top
... etc

transparency:
Control 0 - No transparency
Control [ - Elliptical transparency + no line

color editor:
Control T - toggle color space in color editor
Control H - toggle fill line color

;=============================================
;ALIGN
;=============================================

#IfWinExist, Xara
NumpadLeft::
IfWinExist, Object Alignment
WinClose

ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 2, ComboBox2, Object Alignment

ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 1, ComboBox1, Object Alignment
ControlFocus, Apply, Object Alignment
Send {Space}
IfWinExist, Object Alignment
WinClose
return


#IfWinExist, Xara
NumpadRight::
IfWinExist, Object Alignment
WinClose
ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 4, ComboBox2, Object Alignment

ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 1, ComboBox1, Object Alignment
ControlFocus, Apply, Object Alignment
Send {Space}
IfWinExist, Object Alignment
WinClose
return



#IfWinExist, Xara
NumpadDown::
IfWinExist, Object Alignment
WinClose

ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 1, ComboBox2, Object Alignment

ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 2, ComboBox1, Object Alignment
ControlFocus, Apply, Object Alignment
Send {Space}
IfWinExist, Object Alignment
WinClose
return



#IfWinExist, Xara
NumpadUp::
IfWinExist, Object Alignment
WinClose

ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 1, ComboBox2, Object Alignment

ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 4, ComboBox1, Object Alignment
ControlFocus, Apply, Object Alignment
Send {Space}
IfWinExist, Object Alignment
WinClose
return




#IfWinExist, Xara
NumpadHome::
IfWinExist, Object Alignment
WinClose

ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 2, ComboBox2, Object Alignment

ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 4, ComboBox1, Object Alignment
ControlFocus, Apply, Object Alignment
Send {Space}
IfWinExist, Object Alignment
WinClose
return


#IfWinExist, Xara
NumpadPgDn::
IfWinExist, Object Alignment
WinClose

ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 4, ComboBox2, Object Alignment

ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 2, ComboBox1, Object Alignment
ControlFocus, Apply, Object Alignment
Send {Space}
IfWinExist, Object Alignment
WinClose
return



#IfWinExist, Xara
NumpadPgUp::
IfWinExist, Object Alignment
WinClose

ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 4, ComboBox2, Object Alignment

ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 4, ComboBox1, Object Alignment

ControlGet, Standart, Style,, Apply, A
ControlClick, Apply, A
ControlFocus, Apply, Object Alignment
Send {Space}
IfWinExist, Object Alignment
WinClose
return




#IfWinExist, Xara
NumpadEnd::
IfWinExist, Object Alignment
WinClose

ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 2, ComboBox2, Object Alignment

ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 2, ComboBox1, Object Alignment
ControlFocus, Apply, Object Alignment
Send {Space}
IfWinExist, Object Alignment
WinClose
return


#IfWinExist, Xara
NumpadClear::

IfWinExist, Object Alignment
WinClose

ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 3, ComboBox2, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 3, ComboBox1, Object Alignment
ControlFocus, Apply, Object Alignment
Send {Space}
ControlFocus, Close, Object Alignment
IfWinExist, Object Alignment
WinClose
return



#IfWinExist, Xara
NumpadIns::

IfWinExist, Object Alignment
WinClose

ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 1, ComboBox2, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 3, ComboBox1, Object Alignment
ControlFocus, Apply, Object Alignment
Send {Space}
ControlFocus, Close, Object Alignment
IfWinExist, Object Alignment
WinClose
return




#IfWinExist, Xara
NumpadDel::

IfWinExist, Object Alignment
WinClose

ControlGet, Standart, Style,, BUTTONSTRIP.54, A
ControlClick, BUTTONSTRIP.54, A
IfWinExist, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox2, Object Alignment
Control, Choose, 3, ComboBox2, Object Alignment
ControlGet, combox, FindString, No Change, ComboBox1, Object Alignment
Control, Choose, 1, ComboBox1, Object Alignment
ControlFocus, Apply, Object Alignment
Send {Space}
ControlFocus, Close, Object Alignment
IfWinExist, Object Alignment
WinClose
return

;=============================================
;TRANSPARENCY
;=============================================

;Control 0 - No transparency
#IfWinActive, Xara
^0::
ControlClick, TRANSPTOOLBMP, A
ControlGet, combox, FindString, No transparency, ComboBox4,
Control, Choose, 1, ComboBox4,
send {f2}
return

;Control [ - Elliptical transparency + no line
#IfWinActive, Xara
^[::
ControlClick, TRANSPTOOLBMP, A
ControlGet, combox, FindString, None, ComboBox1,
Control, Choose, 1, ComboBox1,
ControlGet, combox, FindString, No transparency, ComboBox4,
Control, Choose, 1, ComboBox4,
Control, Choose, 5, ComboBox4,
send {f2}
return

;=============================================
;COLOR EDITOR
;=============================================

;Control T - toggle color space in color editor
#IfWinExist, Color editor
^t::
{
ControlGet, combox, FindString, RGB color model, ComboBox1, Color editor
if combox

combox = ComboBox1
else
combox = ComboBox2

if (ColorModel = 2)
colorModel = 3
else
colorModel = 2
Control, Choose, %colorModel%, %combox%, Color editor
}
return


;Control H - toggle fill line color
#IfWinExist, Color editor
^h::
{
ControlGet, combox_f, FindString, Current fill color, ComboBox3, Color editor

combox_f = ComboBox3

if (Value = 1)
Value = 2
else
Value = 1

Control, Choose, %Value%, %combox_f%, Color editor
}
return

;====================================
;====================================