*** Read me first ***

[Alex]

I think this section of the web site should be very useful to improve your coding practices and learn new things.

When you create your custom programs/macros you most likely face two main challenges: make your code function properly and make sure the code is efficient and works optimally.

In order to share knowledge and different tricks about using automation objects and methods in CorelDRAW, Designer and Photo-Paint you can post pieces of your written code here (a few lines, a function or a couple related functions) so that other people can review the code and suggest some improvements or other ways of implementing the functionality you are after.

Please keep the amount of code to be reviewed reasonable. Do not ask to review the whole solution of 2000 lines. Just some functionally complete pieces of 10-20 lines at a time. Along with the code itself supply the description of what the code does or at least what you want it to do.

To format your code properly, use the

...

tag pair. For example:

Sub Test()
    Dim s As Shape
    Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
End Sub

This will format the code as shown in the following post...

Don't forget to mention the application you are writing the code for (CorelDRAW, Corel DESIGNER, Corel PHOTO-PAINT), its version and the programming language you are using (VBA, stand-alone VB, C++, Delphi, C++Builder, etc).

Create a new thread for each piece of code to be reviewed and give the thread a easy to identify subject describing what code does (e.g. "Draw 11: Exporting each page to GIF")

[Alex]

Here is how the code sample shown above will be formatted on this board if you use the code tag:

Sub Test()
    Dim s As Shape
    Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
End Sub