MapWinGIS:AxMap UDFillStipple

This is a back-up of the WIKI.
Not all links might work
We're working on a new wiki.

Main Page | Recent changes | View source | Page history | Log in / create account |

Printable version | Disclaimers | Privacy policy

UDFillStipple

****NOT IMPLEMENTED AT THIS TIME****
Gets or sets one user defined stipple row. The user defined fill stipple contains 32 rows of 32 bits. The stipple is created by setting patterns in the bits contained in each row.


VB.NET Usage Property set_UDFillStipple(LayerHandle As Integer, StippleRow As Integer, param0 As Integer)

            Parameters

LayerHandle

The handle of the layer for which the fill stipple is to be set.
StippleRow The row in the custom stipple for which the pattern is to be set.
param0 The custom fill stipple as an integer value where the stipple is defined by arranging the 32 bits in the desired pattern.


Property get_UDFillStipple(LayerHandle As Integer, StippleRow As Integer) As Integer

            Parameters

LayerHandle

The handle of the layer for which the fill stipple is required.
StippleRow The row in the custom stipple for which the pattern is to be returned.
ReturnValue The custom fill stipple as an integer value where the stipple is defined by arranging the 32 bits in the desired pattern.

Sample Code

    Private Sub UDFillStipple()
        Dim hndl As Integer, cust_stipple As Integer, i As Integer
        'Get the layer handle for the layer at position 0
        hndl = Map1.get_LayerHandle(0)
        'Set the custom fill stipple
        cust_stipple = 2147483647
        'Set the fill stipple for the shapes in the specified layer to be custom fill stipple
        Map1.set_ShapeLayerFillStipple(hndl, MapWinGIS.tkFillStipple.fsCustom)
        'Set the user defined fill stipple for each row
        For i = 1 To 32
            Map1.set_UDFillStipple(hndl, i, cust_stipple)
        Next
        'Get the user defined fill stipple for row 0 of the fill stipple
        cust_stipple = Map1.get_UDFillStipple(hndl, 0)
    End Sub
  

VB 6 Usage

Property UDFillStipple(LayerHandle As Long, StippleRow As Long) As Long

            Parameters

LayerHandle

The handle of the layer for which the fill stipple is required.
StippleRow The row in the custom stipple for which the patter is required.
ReturnValue The custom fill stipple as an integer value where the stipple is defined by arranging the 32 bits in the desired pattern.

Sample Code

    Private Sub UDFillStipple()
        Dim hndl As Long, cust_stipple As Long
        Dim i As Integer
        'Get the layer handle for the layer at position 0
        hndl = Map1.LayerHandle(0)
        'Set the custom fill stipple
        cust_stipple = 2147483647
        'Set the fill stipple for the shapes in the specified layer to be custom fill stipple
        Map1.ShapeLayerFillStipple(hndl) = fsCustom
        'Set the user defined fill stipple for each row
        For i = 1 To 32
            Map1.UDFillStipple(hndl, i) = cust_stipple
        Next
        'Get the user defined fill stipple for row 0 in the fill stipple
        cust_stipple = Map1.UDFillStipple(hndl, 0)
    End Sub

Retrieved from "http://mapwindow.org/wiki/index.php/MapWinGIS:AxMap_UDFillStipple"

This page has been accessed 1,415 times. This page was last modified on 9 November 2005, at 19:09.