--
--
You received this message because you are subscribed to the
Google Groups "MapInfo-L" group.To post a message to this group, send
email to mapi...@googlegroups.com
To unsubscribe from this group, go to:
http://groups.google.com/group/mapinfo-l/subscribe?hl=en
For more options, information and links to MapInfo resources (searching
archives, feature requests, to visit our Wiki, visit the Welcome page at
http://groups.google.com/group/mapinfo-l?hl=en
---
You received this message because you are subscribed to the Google Groups "MapInfo-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to mapinfo-l+...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/mapinfo-l/67fe5a21-f828-41db-9c95-df23f359e476n%40googlegroups.com.
And try building your pen into a variable with the MakePen function:
Include "MapBasic.def"
Dim ColourArray(3) As Integer
ColourArray(1) = BLACK
ColourArray(2) = RED
ColourArray(3) = GREEN
Dim penNew As Pen
Dim i, nColour As Integer
For i = 1 To 10
nColour = ((i - 1) Mod 3) + 1
penNew = MakePen(1, 2, ColourArray(nColour))
Print penNew
Next
Your code might look like this:
Include "MapBasic.def"
Dim ColourArray(3) As Integer
ColourArray(1) = BLACK
ColourArray(2) = RED
ColourArray(3) = GREEN
Sub CreateAggRegions
i = i + 1
nColour = ((i - 1) Mod 3) + 1
penNew = MakePen(1, 2, ColourArray(nColour))
Create Ellipse Into Variable AggCircle (x1, y1) (x2, y2)
Brush (1,White, White)
Pen penNew
Insert Into AggRegions(Col1,Col2, obj) Values (RecID, AggPointCount, AggCircle)
End Sub
From: mapi...@googlegroups.com <mapi...@googlegroups.com>
On Behalf Of Uffe Kousgaard
Sent: 17. november 2021 08:51
To: mapi...@googlegroups.com
Subject: Re: [MI-L] Cycling
This message originated Externally. Use proper judgement and caution with attachments, links, or responses. |
To view this discussion on the web visit https://groups.google.com/d/msgid/mapinfo-l/74ee042d-36be-f4ec-dc6a-5071fd196244%40routeware.dk.