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

TedSch
over 4 years ago

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

  • over 4 years ago

    Where from did you collect this piece of code?

    Nobody oblige you to use the variable declaration. You can just use:

    PHOTOPAINT.CorelScript.BrushTool 0, 0, 0, 20, 0, 25, 0, 0, 100, 99

    But not the object declaration is the reason of Intellisense missing.

    I am asking about the code source/provenience because it looks that it does not set the brush dimension and should do something else. In the Photo-Paint (strangeș/nsuficient) documentation it is written:

    "The BrushTool method creates a brush stroke with one of the predefined brushes.
    A BrushTool command block must end with a CorelScript.PathStroke command"
    I also found  CorelScript.BrushSettings method, which maybe does what you need, but I could not discover how to set its first parameter ('ToolID'). Very poor documentation style...
    So, I asked about the code provenience in order to maybe discover such a 'command block'. In the code sample it is only the method.
    I tried to record what is happening when the code is run and it has been record but nothing happened in terms of brush dimension change.
    The Photo-paint recorder is a docker. You should press the red 'Record' button from the bottom.
    Tha Photo-Paint documentation is very, very poor. It looks it is done just to prove it exists. Not helping somebody wanting to learn...

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.