cdrTwoColorPattern by code

Hi,

I have a problem with this.

I export some image as pcx and I can use it as a 2 colors fill, but using the Corel dialog box, and I want to use it by code.

Anyone know how to take the pcx file and insert it in this code ??

Dim b As String

ActiveSelection.Fill.ApplyPatternFill cdrTwoColorPattern, b, 0, CreateRGBColor(0, 120, 120), CreateRGBColor(50, 50, 50), False

I´ve tried to read it as a text, but it fail ...

Open file.pcx For Input As #1
Line Input #1, b
Close #1

I think I need to convert it to a correct string.... thank you...

[shelbym]

Instead of trying to read the file, you need to load it. Something like this:

Sub MyTwoColorFill()
    Dim s As Shape
    Dim pf As PatternFill
    
    Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5)
    Set pf = s.Fill.ApplyPatternFill(cdrTwoColorPattern)
    With pf
        .Load "D:\Temp\Tile.pcx"
        .FrontColor = CreateRGBColor(0, 120, 120)
        .BackColor = CreateRGBColor(50, 50, 50)
        .TransformWithShape = False
    End With
End Sub

Hope that helps,

-Shelby

thank you, it works fine