Quantcast
Channel: MapWinGIS ActiveX Map and GIS Component
Viewing all 2341 articles
Browse latest View live
↧

New Post: shape random colors

October 14, 2015, 1:22 am
$
0
0
In case somebody is looking at the same, I solved this with a procedure creating the categories (VBA):
Sub CreateLineColors(sf as MapWINGIS.Shapefile, aantal As Integer)

Dim ct As MapWinGIS.ShapefileCategory
Dim i As Integer

For i = 0 To aantal - 1
    Set ct = sf.Categories.Add("Kleur" & i)
    ct.DrawingOptions.LineColor = RGB(RandomColor(225), RandomColor(225), RandomColor(225))
    ct.DrawingOptions.LineWidth = 3
Next i

End Sub

Function RandomColor(MaxValue As Integer) As Integer
    RandomColor = Int((MaxValue * Rnd) + 1)
End Function
(because I don't want almost white colours I maximized the values to 225)

Now after creating the shapefile I call the function with the variables holding my shapefile and the number of colours I want (NrColors). Every shape will now get a category by the following:
shpIndex = sf.EditAddShape(shp)
If shpIndex = -1 Then
    'Something goes wrong!
Else
    sf.ShapeCategory(shpIndex) = shpIndex Mod NrColors
End If
↧
Search

New Post: Draw Lines with coordinates

October 20, 2015, 4:35 am
$
0
0
Hello @ Paul,

How do I draw a set of graphic lines with equal spacing e.g. dx for every line drawn?

I have this code for drawing the line but I don't know how to make it graphic and also add the spacing

void DrawLine( double x1, double y1, double x2, double y2, int pixelWidth, Color color)
{
//Set point 1 as x = 100, y = 100
x1 = 50
y1 = 50
'Set point2 as x = 500, y = 500
x2 = 100
y2 = 100
//Set pixel width for the line as 1
width = 1
//Set the color for the line as green
col = RGB(0, 255, 0)
//Create new drawing layer on map
draw_hndl = Map1.NewDrawing(MapWinGIS.tkDrawReferenceList.dlScreenReferencedList)
'Draw green line from point 1 to point 2
Map1.DrawLine x1, y1, x2, y2, width, col
}
↧
↧

New Post: MapWinGis ActiveX component registration problem

October 28, 2015, 6:01 am
$
0
0
Hi,

I have a problem with MapWinGis ActiveX component version 4.9 installation on C++ Builder 10, I can't register this component, I have received an error: Component TImage can't be registered by package mapwingis.bpl because it has already been registered by package dclstd230.bpl. please help me to solve this problem.
Thank you!

Kind regards,
Dmitry.
↧

Created Unassigned: Pan map with offline cache causes crash [26013]

October 27, 2015, 8:37 pm
$
0
0
Been working on an MS Access 2003 project that uses MapWinGIS 4.9.3.5. Running on Windows 10 (64bit), and using OpenStreetMap tiles.

Immediate goal is to cache tiles so the program can be used offline. Finally got to a place where I can pan through the map while online, thus saving the tiles into a disk cache (.db3) for later use. Then I disconnect Internet access on the computer and try displaying the tiles when offline. Running into an issue when try to display an area where I haven't previous visited (ie. a cached tile does not exist for that area). About half the time it handles the situation gracefully by just displaying a blank tile background, while other times it crashes Access immediately.

Trying to find a common set of conditions that causes an immediate crash. Haven't found anything that is 100% consistent, but these two things cause the most frequent crashes:

1. pan to an area off the edge of the cached area. Move the map around several times (e.g. 3-5 separate pan operations). Often crashes

2. within a cached area, increase the zoom level beyond what was cached originally (e.g. I had panned thru the map at zoom level 10 while ONline, and now try try to pan thru it at zoom level 11 while OFFline.)

This is the code used to set up the map for caching the tiles:

Private Sub ConfigureOfflineMaps()
Dim sFilename As String
Dim sPathname As String
With axMap.Tiles
.DoCaching(tkCacheType.Disk) = True
.DoCaching(tkCacheType.RAM) = False
dhParsePath CurrentDb.Name, sPathname, sFilename
.DiskCacheFilename = sPathname & "\" & APPLICATIONNAME & ".db3"
.MaxCacheSize(tkCacheType.Disk) = 500
End With
End Sub

A second issue that causes a lot of head-scratching was to try to share a common .db3 file between this program and the new release of MapWindow 5. I had configured MW5 to store a cache file, panned thru a large area at various zoom levels, then pointed my program (MapWinGIS) to the same cache file. It consistently crashed Access. I gave up on that tack for now, but it is a goal for the future. In concept, is it feasible to share the cache file between the two applications, or is that concept just out of the question?

Finally, I tried to use the Prefetch command but could not figure out how to configure the final parameter in the call statement (MWStopExecution). Any advice for that command would be appreciated. So instead of prefetching the tiles, I just scrubbed thru the map while online to visit all the areas of interest.

(I also did this while writing this message: connected to Internet, opened the map with caching enabled, panned to new sections of map (worked OK), disconnected Internet, panned the map ==> crash Access)
↧

Created Unassigned: MapWinGis component installation problem [26014]

October 28, 2015, 5:21 am
$
0
0
Hi,

I have a problem with MapWinGis ActiveX component installation on C++ Builder 10, I can't register this component, I have received an error: Component TImage can't be registered by package mapwingis.bpl because it has already been registered by package dclstd230.bpl. please help me to solve this problem.
Thank you!

Kind regards,
Dmitry.
↧
↧

Edited Unassigned: MapWinGis component installation problem [26014]

October 28, 2015, 6:19 am
$
0
0
Hi,

I have a problem with MapWinGis ActiveX component version 4.9 installation on C++ Builder 10, I can't register this component, I have received an error: Component TImage can't be registered by package mapwingis.bpl because it has already been registered by package dclstd230.bpl. please help me to solve this problem.
Thank you!

Kind regards,
Dmitry.
↧

New Post: dynamic size for pictures

October 29, 2015, 12:33 am
$
0
0
For visualisation I created 6 different categories of shapecategories (being used in a point shapefile). Now I want the size of the picture to depend on a variable, is that possible? I've seen something for gradientfill, but that's for colors.

Of course I can devide every category into 10 others for 10 different sizes, but I don't think that's the best way to do it. The result should be 60 shapecategories....

Anybody ideas?
↧

New Post: Showing Point attributes

November 1, 2015, 7:08 pm
$
0
0
Hello,

Sorry for this so very late post, but I came with a solution for this, in VB and in C#:

What's important though is that it's not a mapwinGIS problem. It's about windows event handlers.

In VB, the event handling subs (such as "control_MousMoveEvent") usually have their handles associated automaticallly, like in this line of code:
Private Sub AxMap1_MouseDownEvent(ByVal sender As Object, ByVal e As AxMapWinGIS._DMapEvents_MouseDownEvent) Handles AxMap1.MouseDownEvent
You see, the "Handles..." takes care of the handling and you don't have to bother with assigning a handle to the event. In your code, there is no mention to that handle. So the author wrote the code for the handle himself. This MapEvents variable was probably declared somewhere else in his project, so it's not clear what it means. But it's surely related to windows and not to MapWinGIS, as I'll show in the C# example that follows.

The easiest solution in this case would be to put the "Handles AxMap1..." in your code as shown above and delete the line referring to MapEvents.

In C#, you create the event handling method and associate a mouse handler to it, as shown in the following code just after the main form declaration, at the beginning of the class declaration:
      public fmMain()
    {
        InitializeComponent();
        ...
        AxMap1.MouseDownEvent += new AxMapWinGIS._DMapEvents_MouseDownEventHandler(AxMap1_MouseDown);
With this line, I assign a handler to the method "AxMap1_MouseDown", which is a customized MouseDownEvent method where I put the code to do whatever I want to do when the user clicks the mouse...

Of course, the "axMap.SendMouseMove = True" applies, in both languages. And you can also set it to "TRUE" in design time, as it's a property of the axMap control.

Et voilá, it works!! At least for me, both in VB and C#.

Hope I was of some help... and since I came upon this thread over the same "MapEvents" issue, I hope it gives some answers to others who face the same problem, particularly newbies as myself, relying on the MapWinGIS documentation code to reduce the learning curve...

Regards,

PGSCosta
↧
Search

New Post: Index Gneration slow

November 3, 2015, 10:04 am
$
0
0
Hello everybody,

in my application (MapWinGis.ocx 4.9.3.5, windows 10 64, Access 32 Bit, vba) I somtimes need to create an index of unique values by:
objShape.Categories.Generate 0, ctUniqueValues, 0
This works if there are not too many elements in the shapefile. But it's painfully slow.

Is there a way to speed up the creation?

Thanks Helmut
↧
↧

New Post: Drag Marker

November 3, 2015, 10:27 pm
$
0
0
Hi
Could someone give a newbie with the MapWinGIS ActiveX an example or put me in the right direction.
I have succeeded open a .png map and put in the .bmp markers I want on the map.
If I want to drag this markers to a new point, how can I do this?


Public Sub AxMap1MouseDownEvent(sender As Object, e As _DMapEvents_MouseDownEvent)
    If e.button = 1 Then
        ' left button
        Dim sf = New Shapefile()
        sf = New Shapefile()
        If Not sf.CreateNewWithShapeID("", ShpfileType.SHP_POINT) Then
            MessageBox.Show("Failed to create shapefile: " + sf.ErrorMsg(sf.LastErrorCode))
            Return
        End If

        m_layerHandle = AxMap1.AddLayer(sf, True)
        sf.CollisionMode = tkCollisionMode.AllowCollisions
        Dim img As New Image
        img = Me.OpenMarker
        Dim options As ShapeDrawingOptions = sf.DefaultDrawingOptions
        options.PointType = tkPointSymbolType.ptSymbolPicture
        options.Picture = img

        Dim shp As New Shape()
        shp.Create(ShpfileType.SHP_POINT)

        Dim pnt As New Point()
        Dim x As Double = 0.0
        Dim y As Double = 0.0
        axMap1.PixelToProj(e.x, e.y, x, y)
        pnt.x = x
        pnt.y = y
        Dim index As Integer = shp.numPoints
        shp.InsertPoint(pnt, index)

        index = sf.NumShapes
        If Not sf.EditInsertShape(shp, index) Then
            MessageBox.Show("Failed to insert shape: " + sf.ErrorMsg(sf.LastErrorCode))
            Return
        End If
        axMap1.Redraw()
    End If
End Sub


Private Function OpenMarker() As Image
    Dim path As String = Me.TextBox1.Text ‘Path to icon
    If Not File.Exists(path) Then
        MessageBox.Show(Convert.ToString("Can't find the file: ") & path)
    Else
        Dim img As New Image()
        If Not img.Open(path, ImageType.USE_FILE_EXTENSION, True, Nothing) Then
            MessageBox.Show(img.ErrorMsg(img.LastErrorCode))
            img.Close()
        Else
            Return img
        End If
    End If
    Return Nothing
End Function
Thanks Anders
↧

New Post: Drag Marker

November 3, 2015, 10:42 pm
$
0
0
You have to write a bit of code checking mouse coordinates and marker coordinates setting flags when mouse is over/near marker and then with MouseDown,Dragging,MouseUp,Paint marker at new location.
Good luck

2015-11-04 7:28 GMT+01:00 Aljen <[email removed]>:

From: Aljen

Hi
Could someone give a newbie with the MapWinGIS ActiveX an example or put me in the right direction.
I have succeeded open a .png map and put in the .bmp markers I want on the map.
If I want to drag this markers to a new point, how can I do this?


Public Sub AxMap1MouseDownEvent(sender As Object, e As _DMapEvents_MouseDownEvent)
    If e.button = 1 Then
        ' left button
        Dim sf = New Shapefile()
        sf = New Shapefile()
        If Not sf.CreateNewWithShapeID("", ShpfileType.SHP_POINT) Then
            MessageBox.Show("Failed to create shapefile: " + sf.ErrorMsg(sf.LastErrorCode))
            Return
        End If

        m_layerHandle = AxMap1.AddLayer(sf, True)
        sf.CollisionMode = tkCollisionMode.AllowCollisions
        Dim img As New Image
        img = Me.OpenMarker
        Dim options As ShapeDrawingOptions = sf.DefaultDrawingOptions
        options.PointType = tkPointSymbolType.ptSymbolPicture
        options.Picture = img

        Dim shp As New Shape()
        shp.Create(ShpfileType.SHP_POINT)

        Dim pnt As New Point()
        Dim x As Double = 0.0
        Dim y As Double = 0.0
        axMap1.PixelToProj(e.x, e.y, x, y)
        pnt.x = x
        pnt.y = y
        Dim index As Integer = shp.numPoints
        shp.InsertPoint(pnt, index)

        index = sf.NumShapes
        If Not sf.EditInsertShape(shp, index) Then
            MessageBox.Show("Failed to insert shape: " + sf.ErrorMsg(sf.LastErrorCode))
            Return
        End If
        axMap1.Redraw()
    End If
End Sub


Private Function OpenMarker() As Image
    Dim path As String = Me.TextBox1.Text ‘Path to icon
    If Not File.Exists(path) Then
        MessageBox.Show(Convert.ToString("Can't find the file: ") & path)
    Else
        Dim img As New Image()
        If Not img.Open(path, ImageType.USE_FILE_EXTENSION, True, Nothing) Then
            MessageBox.Show(img.ErrorMsg(img.LastErrorCode))
            img.Close()
        Else
            Return img
        End If
    End If
    Return Nothing
End Function
Thanks Anders

Read the full discussion online.

To add a post to this discussion, reply to this email ([email removed])

To start a new discussion for this project, email [email removed]

You are receiving this email because you subscribed to this discussion on CodePlex. You can unsubscribe or change your settings on codePlex.com.

Please note: Images and attachments will be removed from emails. Any posts to this discussion will also be available online atcodeplex.com


↧

New Post: Drag Marker

November 5, 2015, 2:26 pm
$
0
0
I have written similar code for .net PictureBox , so I know how to approach.
I have tried a lot but I manage not to "catch" the icon
Do you have any examples that show how I get the icon such as the mouse clicks.
↧

New Post: Drag Marker

November 5, 2015, 10:54 pm
$
0
0
You can download Formmap.cs from velsto.codeplex.com and have a look at the pb1_MouseDown etc. methods it is for moving lines in a graph and redrawing the graph at the new position, it took me a while.
Greetings Maurits

2015-11-05 23:26 GMT+01:00 Aljen <[email removed]>:

From: Aljen

I have written similar code for .net PictureBox , so I know how to approach.
I have tried a lot but I manage not to "catch" the icon
Do you have any examples that show how I get the icon such as the mouse clicks.

Read the full discussion online.

To add a post to this discussion, reply to this email ([email removed])

To start a new discussion for this project, email [email removed]

You are receiving this email because you subscribed to this discussion on CodePlex. You can unsubscribe or change your settings on codePlex.com.

Please note: Images and attachments will be removed from emails. Any posts to this discussion will also be available online atcodeplex.com


↧
↧

New Post: Index Gneration slow

November 6, 2015, 3:13 am
$
0
0
Hello again,

yesterday I had to revert my application to MapWinGis.ocx 4.8.8.1 after having installed it with MapWinGis.ocx 4.9.3.5 at a customer yesterday.

The application was so slow, that it paralyzed the computer for more than 5 minutes - the reverted version needs only a second for the same action. I'm completely aware that MapWinGis.ocx is not meant to work with access/vba and my code may not be optimal in places, but for future releases it would be nice to optimize the ocx code for performance. The bottle neck seems to be, as far as I can see, the index creation, if unique values are needed (which worked fine with 4.8.8.1).

I'm happy with 4.8.8.1 for the time being.

Thanks again for your excelent work.

Helmut
↧

New Post: offline openstreetmap?

November 12, 2015, 10:42 pm
$
0
0
I've been trying to do a similar thing, but having difficulty with the cache functions. I rasied the question on another forum http://www.mapwindow.org/phorum/read.php?3,24728,24728#msg-24728 yesterday. Functions such as set_UseCache() don't seem to be members of MapWinGIS::Tiles.

Today I found this topic, and have also tried to use the Prefetch functions (specifically using PrefetchToFolder). I was equally unclear about the IStopExecution parameter. It was also unclear what the file extension was for - I found the code compiled using nullptr values for these parameters. To save the current view to a cache folder I've got (in VS2013 C++ using Windows Forms):

axMap1->Tiles->PrefetchToFolder(axMap1->GeographicExtents, axMap1->CurrentZoom, axMap1->Tiles->ProviderId, "C:\MapCache\", nullptr, nullptr);

Which doesn't crash or anything. It also doesn't create or write to the specified folder.

Alan
↧
Search

New Post: offline openstreetmap?

November 13, 2015, 8:32 am
$
0
0
Hi Alan

I read your other post - don't have a lot of info to offer.

However, I made some progress with my project, but not by using the Prefetch function. Don't recall the details right now, but I somehow got it to cache the areas that I had "visited" while online. (Could see the cache file growing in size as I panned the map to new areas.) It required repeating this process of "visiting" all the candidate areas at various zoom levels. Later, while offline, these tiles would be displayed correctly. It was labour-intensive to cache the data, but it seemed to work. Ran into some problems while offline when I "travelled outside the cached area". Kinda recall posting a message that described the issues (either here or on the MapWindow 5 site), but I can't find it now to provide a link.

I've put the project on hold - not really pursuing the Prefetch function. If desired, I could post the VBA code that eventually proved more-or-less successful.
↧

New Post: offline openstreetmap?

November 14, 2015, 1:01 pm
↧
↧

New Post: offline openstreetmap?

November 17, 2015, 1:31 am
$
0
0
I had also tried the DoCaching() function. If I have

RealTimeMap->Tiles->DoCaching(tkCacheType::Disk) = true;

The error generated is "MapWinGIS::ITiles::DoCaching[MapWinGIS::tkCacheType]::get" cannot be called with the given argument list object type is: MapWinGIS::Tiles ^". Which to me suggests that this function only calls get_DoCaching() rather than be overloaded to also call set_DoCaching(). But, since that function isn't actually documented (as far as I've seen) and I've only seen it in code people have posted I assume it's not the recommended way to set the caching options.

Alan
↧

New Post: offline openstreetmap?

November 17, 2015, 10:40 am
$
0
0
In principle, your code looks similar to what worked for me, so I don't have a definitive solution. FWIW, here is the code that is called from the FormOpen event of my Access 2003 VBA program (it uses a library function to parse the current filename):

Private Sub ConfigureOfflineMaps()
Dim sFilename As String
Dim sPathname As String
With axMap.Tiles
     .DoCaching(tkCacheType.Disk) = True
     .DoCaching(tkCacheType.RAM) = False
     dhParsePath CurrentDb.Name, sPathname, sFilename
     .DiskCacheFilename = sPathname & "\" & APPLICATIONNAME & ".db3"  ' dynamic, to this project
     .MaxCacheSize(tkCacheType.Disk) = 500
End With
End Sub
↧

New Post: Connection string spatialite from Access

November 19, 2015, 5:19 am
$
0
0
Hello

It was so easy !!! I tied to do something more complex...
This way works very well :
dim ds as New MapWinGis.OgrDataSource
if ds.Open("C:\temp\mabase.sqlite") = false then
debug.print "erreur"
else
debug.print "succes"
end if
↧
Viewing all 2341 articles
Browse latest View live
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>