Community of MapPoint and Virtual Earth Users and Developers
This is a discussion on pushpins with delphi within the MapPoint 2006/2009 Discussion forums, part of the Map Forums category; I'm very new to mappoint so please forgive me if this has been answered before. i want to display the ...
| |||||||
| Today's Posts | Twitter Feed | Register | Blogs | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read |
| |||
| pushpins with delphi var vGuid : TGuid; curLat, CurLong, CurScore:real; objLocTst:location; ObjPin:Pushpin; i:integer; begin i:=0; OleContainer.CreateObject('MapPoint.Map.NA.9', False); OleContainer.DoVerb(1); OleContainer.OleObjectInterface.GetUserClassID(vGu id); FMap := IDispatch(OleContainer.OleObject) as _Map; FMap.DataSets.AddPushpinSet('70 plus'); with DM.ADOQ do begin First; // while not Eof do for i:=0 to 100 do //just do a subset for debugging begin CurLong := DM.ADOQ.FieldByName('longitude_x').AsFloat; //longitude CurLat := DM.ADOQ.FieldByName('latitude_y').AsFloat;//latitude CurScore := DM.ADOQ.FieldByName('homogeneity_score').Value; //what needs to be plotted as a function of lat, long objLocTst := FMap.GetLocation(curLat, CurLong,1) ; objPin := FMap.AddPushpin(objLocTst, floattostr(CurScore)); objPin.BalloonState := geoDisplayNone ; objPin.Cut ; Next; end; end; // FMap. end; this runs fine but i never get anything displayed. i think i'm missing something fundamental. can anyone help? thanks |
| |||
|
yes, i caught that later on. thank you. how would i go about adding a second dataset to this? i want to be able to overlay pushpins of different colours, each one corresponding to the results of a different database query. i think i'm missing the link between a dataset and a pushpin.. |
![]() |
| Tags |
| delphi, pushpins |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
| |
| ||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Delphi class | terrastudios | MapPoint 2006/2009 Discussion | 9 | 12-02-2005 04:01 AM |
| example in Delphi to route | tontaegu | MapPoint 2006/2009 Discussion | 0 | 08-23-2005 02:42 AM |
| Creating a subset of Pushpins from a set of pushpins | paf33 | MapPoint 2006/2009 Discussion | 3 | 08-09-2005 04:54 AM |
| Delphi | Anonymous | MapPoint 2006/2009 Discussion | 2 | 12-18-2003 11:11 AM |
| 'AddCommand' + Delphi | stuarth | MapPoint 2006/2009 Discussion | 0 | 04-09-2003 09:18 AM |
Taba Heights Holiday
Visit Egypt with your Taba Heights holiday. Book through UlookUbook and save!