Photo-Paint, Custom brush sizes toolid, brushid, setactivetool, brushtool, brushsettings, nib

I would like to create a macro for different brush sizes for painting. I would also like to have these in the brush selector drop down if possible otherwise I can add to a toolbar.

brushtool, brushsettings require brushid. However there's no "get" function to return the current active brush so I can learn about the brushID.

It ought to be simple, something like:

Sub HardBrush25()
Dim cs As Object
Set cs = PHOTOPAINT.CorelScript
cs.BrushTool 0, 0, 0, 20, 0, 25, 0, 0, 100, 99
MsgBox "reset to 25"
Set cs = Nothing
End Sub

BTW why do I need to create "cs" as an object that disables intellisense?

Thanks, Ted

No Data
Reply Children
No Data