Skip to content

Commit 24ef0b8

Browse files
First commit: version 1.0
1 parent 708049f commit 24ef0b8

19 files changed

+2893
-1
lines changed

Demo/GoogleMaps/Data/customer.xml

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
<?xml version="1.0" standalone="yes"?> <DATAPACKET Version="2.0"><METADATA><FIELDS><FIELD attrname="CustNo" fieldtype="r8"/><FIELD attrname="Company" fieldtype="string" WIDTH="30"/><FIELD attrname="Addr1" fieldtype="string" WIDTH="30"/><FIELD attrname="Addr2" fieldtype="string" WIDTH="30"/><FIELD attrname="City" fieldtype="string" WIDTH="15"/><FIELD attrname="State" fieldtype="string" WIDTH="20"/><FIELD attrname="Zip" fieldtype="string" WIDTH="10"/><FIELD attrname="Country" fieldtype="string" WIDTH="20"/><FIELD attrname="Phone" fieldtype="string" WIDTH="15"/><FIELD attrname="FAX" fieldtype="string" WIDTH="15"/><FIELD attrname="TaxRate" fieldtype="r8"/><FIELD attrname="Contact" fieldtype="string" WIDTH="20"/><FIELD attrname="LastInvoiceDate" fieldtype="dateTime"/></FIELDS><PARAMS DEFAULT_ORDER="1" PRIMARY_KEY="1" LCID="1033"/></METADATA><ROWDATA><ROW CustNo="1221" Company="Kauai Dive Shoppe" Addr1="4-976 Sugarloaf Hwy" Addr2="Suite 103" City="Kapaa Kauai" State="HI" Zip="94766-1234" Country="US" Phone="808-555-0269" FAX="808-555-0278" TaxRate="8.5" Contact="Erica Norman" LastInvoiceDate="19950202T01:05:03000"/><ROW CustNo="1231" Company="Unisco" Addr1="PO Box Z-547" City="Freeport" Country="Bahamas" Phone="809-555-3915" FAX="809-555-4958" TaxRate="0" Contact="George Weathers" LastInvoiceDate="19941117T14:10:33000"/><ROW CustNo="1351" Company="Sight Diver" Addr1="1 Neptune Lane" City="Kato Paphos" Country="Cyprus" Phone="357-6-876708" FAX="357-6-870943" TaxRate="0" Contact="Phyllis Spooner" LastInvoiceDate="19941018T19:20:30000"/><ROW CustNo="1354" Company="Cayman Divers World Unlimited" Addr1="PO Box 541" City="Grand Cayman" Country="British West Indies" Phone="011-5-697044" FAX="011-5-697064" TaxRate="0" Contact="Joe Bailey" LastInvoiceDate="19920130T02:00:56000"/><ROW CustNo="1356" Company="Tom Sawyer Diving Centre" Addr1="632-1 Third Frydenhoj" City="Christiansted" State="St. Croix" Zip="00820" Country="US Virgin Islands" Phone="504-798-3022" FAX="504-798-7772" TaxRate="0" Contact="Chris Thomas" LastInvoiceDate="19920320T09:35:40000"/><ROW CustNo="1380" Company="Blue Jack Aqua Center" Addr1="23-738 Paddington Lane" Addr2="Suite 310" City="Waipahu" State="HI" Zip="99776" Country="US" Phone="401-609-7623" FAX="401-609-9403" TaxRate="0" Contact="Ernest Barratt" LastInvoiceDate="19941108T23:22:08000"/><ROW CustNo="1384" Company="VIP Divers Club" Addr1="32 Main St." City="Christiansted" State="St. Croix" Zip="02800" Country="US Virgin Islands" Phone="809-453-5976" FAX="809-453-5932" TaxRate="0" Contact="Russell Christopher" LastInvoiceDate="19950201T18:45:23000"/><ROW CustNo="1510" Company="Ocean Paradise" Addr1="PO Box 8745" City="Kailua-Kona" State="HI" Zip="94756" Country="US" Phone="808-555-8231" FAX="808-555-8450" TaxRate="0" Contact="Paul Gardner" LastInvoiceDate="19941109T01:22:22000"/><ROW CustNo="1513" Company="Fantastique Aquatica" Addr1="Z32 999 #12A-77 A.A." City="Bogota" Country="Columbia" Phone="057-1-773434" FAX="057-1-773421" TaxRate="0" Contact="Susan Wong" LastInvoiceDate="19940718T17:17:01000"/><ROW CustNo="1551" Company="Marmot Divers Club" Addr1="872 Queen St." City="Kitchener" State="Ontario" Zip="G3N 2E1" Country="Canada" Phone="416-698-0399" FAX="426-698-0399" TaxRate="0" Contact="Joyce Marsh" LastInvoiceDate="19900707T04:20:58000"/><ROW CustNo="1560" Company="The Depth Charge" Addr1="15243 Underwater Fwy." City="Marathon" State="FL" Zip="35003" Country="US" Phone="800-555-3798" FAX="800-555-0353" TaxRate="0" Contact="Sam Witherspoon" LastInvoiceDate="19940409T08:14:52000"/><ROW CustNo="1563" Company="Blue Sports" Addr1="203 12th Ave. Box 746" City="Giribaldi" State="OR" Zip="91187" Country="US" Phone="610-772-6704" FAX="610-772-6898" TaxRate="0" Contact="Theresa Kunec" LastInvoiceDate="19910509T12:05:42000"/><ROW CustNo="1624" Company="Makai SCUBA Club" Addr1="PO Box 8534" City="Kailua-Kona" State="HI" Zip="94756" Country="US" Phone="317-649-9098" FAX="317-649-6787" TaxRate="0" Contact="Donna Siaus" LastInvoiceDate="19950107T13:55:30000"/><ROW CustNo="1645" Company="Action Club" Addr1="PO Box 5451-F" City="Sarasota" State="FL" Zip="32274" Country="US" Phone="813-870-0239" FAX="813-870-0282" TaxRate="0" Contact="Michael Spurling" LastInvoiceDate="19931018T14:18:06000"/><ROW CustNo="1651" Company="Jamaica SCUBA Centre" Addr1="PO Box 68" City="Negril" State="Jamaica" Country="West Indies" Phone="011-3-697043" FAX="011-3-697043" TaxRate="0" Contact="Barbara Harvey" LastInvoiceDate="19920825T00:19:50000"/><ROW CustNo="1680" Company="Island Finders" Addr1="6133 1/3 Stone Avenue" City="St Simons Isle" State="GA" Zip="32521" Country="US" Phone="713-423-5675" FAX="713-423-5676" TaxRate="0" Contact="Desmond Ortega" LastInvoiceDate="19950102T09:33:40000"/><ROW CustNo="1984" Company="Adventure Undersea" Addr1="PO Box 744" City="Belize City" Country="Belize" Phone="011-34-09054" FAX="011-34-09064" TaxRate="0" Contact="Gloria Gonzales" LastInvoiceDate="19941106T16:35:42000"/><ROW CustNo="2118" Company="Blue Sports Club" Addr1="63365 Nez Perce Street" City="Largo" State="FL" Zip="34684" Country="US" Phone="612-897-0342" FAX="612-897-0348" TaxRate="0" Contact="Harry Bathbone" LastInvoiceDate="19900608T11:21:06000"/><ROW CustNo="2135" Company="Frank&apos;s Divers Supply" Addr1="1455 North 44th St." City="Eugene" State="OR" Zip="90427" Country="US" Phone="503-555-2778" FAX="503-555-2769" TaxRate="0" Contact="Lloyd Fellows" LastInvoiceDate="19890624T10:29:46000"/><ROW CustNo="2156" Company="Davy Jones&apos; Locker" Addr1="246 South 16th Place" City="Vancouver" State="BC" Zip="K8V 9P1" Country="Canada" Phone="803-509-0112" FAX="803-509-0553" TaxRate="0" Contact="Tanya Wagner" LastInvoiceDate="19911105T00:20:30000"/><ROW CustNo="2163" Company="SCUBA Heaven" Addr1="PO Box Q-8874" City="Nassau" Country="Bahamas" Phone="011-32-09485" FAX="011-32-09485" TaxRate="0" Contact="Robert Michelind" LastInvoiceDate="19901224T19:18:52000"/><ROW CustNo="2165" Company="Shangri-La Sports Center" Addr1="PO Box D-5495" City="Freeport" Country="Bahamas" Phone="011-32-08574" FAX="011-32-44938" TaxRate="0" Contact="Frank Paniagua" LastInvoiceDate="19890703T15:32:49000"/><ROW CustNo="2315" Company="Divers of Corfu, Inc." Addr1="Marmoset Place 54" City="Ayios Matthaios" State="Corfu" Country="Greece" Phone="30-661-88364" FAX="30-661-05943" TaxRate="0" Contact="Charles Lopez" LastInvoiceDate="19940613T08:20:32000"/><ROW CustNo="2354" Company="Kirk Enterprises" Addr1="42 Aqua Lane" City="Houston" State="TX" Zip="77079" Country="US" Phone="713-556-6437" FAX="713-556-1073" TaxRate="0" Contact="Rudolph Claus" LastInvoiceDate="19940208T14:37:45000"/><ROW CustNo="2975" Company="George Bean &amp; Co." Addr1="#73 King Salmon Way" City="Lugoff" State="NC" Zip="29078" Country="US" Phone="803-438-2771" FAX="803-438-3003" TaxRate="0" Contact="Bill Wyers" LastInvoiceDate="19940406T00:20:54000"/><ROW CustNo="2984" Company="Professional Divers, Ltd." Addr1="4734 Melinda St." City="Hoover" State="AL" Zip="32145" Country="US" Phone="205-555-8333" FAX="205-555-4054" TaxRate="0" Contact="Shirley Mathers" LastInvoiceDate="19940505T17:18:11000"/><ROW CustNo="3041" Company="Divers of Blue-green" Addr1="634 Complex Ave." City="Pelham" State="AL" Zip="32145" Country="US" Phone="205-555-7184" FAX="205-555-6059" TaxRate="0" Contact="Nancy Bean" LastInvoiceDate="19940228T19:29:34000"/><ROW CustNo="3042" Company="Gold Coast Supply" Addr1="223-B Houston Place" City="Mobile" State="AL" Zip="30696" Country="US" Phone="205-555-2640" FAX="205-555-4094" TaxRate="0" Contact="Elaine Falls" LastInvoiceDate="19940712T02:01:44000"/><ROW CustNo="3051" Company="San Pablo Dive Center" Addr1="1701-D N Broadway" City="Santa Maria" State="CA" Zip="95443" Country="US" Phone="823-044-2910" FAX="823-044-2990" TaxRate="0" Contact="Patricia O&apos;Brien" LastInvoiceDate="19940721T08:40:05000"/><ROW CustNo="3052" Company="Underwater Sports Co." Addr1="351-A Sarasota St." City="San Jose" State="CA" Zip="92195" Country="US" Phone="408-867-0594" FAX="408-867-0094" TaxRate="0" Contact="Dave Walling" LastInvoiceDate="19940924T15:07:24000"/><ROW CustNo="3053" Company="American SCUBA Supply" Addr1="1739 Atlantic Avenue" City="Lomita" State="CA" Zip="91770" Country="US" Phone="213-654-0092" FAX="213-654-0095" TaxRate="0" Contact="Lynn Cinciripini" LastInvoiceDate="19950104T13:38:47000"/><ROW CustNo="3054" Company="Catamaran Dive Club" Addr1="Box 264 Pleasure Point" City="Catalina Island" State="CA" Zip="90740" Country="US" Phone="213-223-0941" FAX="213-223-2324" TaxRate="0" Contact="Nicole Dupont" LastInvoiceDate="19941020T00:00:28000"/><ROW CustNo="3055" Company="Diver&apos;s Grotto" Addr1="24601 Universal Lane" City="Downey" State="CA" Zip="94220" Country="US" Phone="213-432-0093" FAX="213-432-4821" TaxRate="0" Contact="Peter Owen" LastInvoiceDate="19941126T17:38:49000"/><ROW CustNo="3151" Company="Fisherman&apos;s Eye" Addr1="PO Box 7542" City="Grand Cayman" Country="British West Indies" Phone="809-555-4680" FAX="809-555-4689" TaxRate="0" Contact="Bethan Lewis" LastInvoiceDate="19940801T04:39:24000"/><ROW CustNo="3158" Company="Action Diver Supply" Addr1="Blue Spar Box #3" City="St. Thomas" Zip="00820" Country="US Virgin Islands" Phone="22-44-500211" FAX="22-44-500596" TaxRate="0" Contact="Marianne Miles" LastInvoiceDate="19930829T02:50:55000"/><ROW CustNo="3615" Company="Marina SCUBA Center" Addr1="PO Box 82438 Zulu 7831" City="Caracas" Country="Venezuela" Phone="58-33-66222" FAX="58-33-66049" TaxRate="0" Contact="Stephen Bryant" LastInvoiceDate="19930511T20:24:30000"/><ROW CustNo="3984" Company="Blue Glass Happiness" Addr1="6345 W. Shore Lane" City="Santa Monica" State="CA" Zip="90410" Country="US" Phone="213-555-1984" FAX="213-555-1995" TaxRate="0" Contact="Christine Taylor" LastInvoiceDate="19941202T00:00:07000"/><ROW CustNo="4312" Company="Divers of Venice" Addr1="220 Elm Street" City="Venice" State="FL" Zip="39224" Country="US" Phone="813-443-2356" FAX="813-443-9842" TaxRate="0" Contact="Simone Green" LastInvoiceDate="19931025T20:22:30000"/><ROW CustNo="4531" Company="On-Target SCUBA" Addr1="7-73763 Nanakawa Road" City="Winnipeg" State="Manitoba" Zip="J2R 5T3" Country="Canada" Phone="416-445-0988" FAX="416-445-0223" TaxRate="0" Contact="Bram Phillips" LastInvoiceDate="19940109T04:32:48000"/><ROW CustNo="4652" Company="Jamaica Sun, Inc." Addr1="PO Box 643" City="Runaway Bay" State="Jamaica" Country="West Indies" Phone="809-555-2746" FAX="809-555-0929" TaxRate="0" Contact="Jonathan West" LastInvoiceDate="19941216T05:30:33000"/><ROW CustNo="4684" Company="Underwater Fantasy" Addr1="PO Box 842" City="Ocho Rios" State="Jamaica" Country="West Indies" Phone="809-555-2214" FAX="809-555-2234" TaxRate="0" Contact="Grant Ainsworth" LastInvoiceDate="19940825T18:50:42000"/><ROW CustNo="5132" Company="Princess Island SCUBA" Addr1="PO Box 32 Waiyevo" City="Taveuni" Country="Fiji" Phone="679-311923" FAX="679-311203" TaxRate="0" Contact="Anne Mariachi" LastInvoiceDate="19891230T09:20:17000"/><ROW CustNo="5151" Company="Central Underwater Supplies" Addr1="PO Box 737" City="Johannesburg" Zip="2042" Country="Republic So. Africa" Phone="27-11-4432458" FAX="27-11-4433259" TaxRate="0" Contact="Maria Eventosh" LastInvoiceDate="19941113T01:40:23000"/><ROW CustNo="5163" Company="Safari Under the Sea" Addr1="PO Box 7456" City="Grand Cayman" Country="British West Indies" Phone="809-409-4233" FAX="809-409-3002" TaxRate="0" Contact="Anna Rack" LastInvoiceDate="19930915T18:35:30000"/><ROW CustNo="5165" Company="Larry&apos;s Diving School" Addr1="3562 NW Bruce Street" City="Milwaukie" State="OR" Zip="96277" Country="US" Phone="503-403-7777" FAX="503-403-0059" TaxRate="0" Contact="Isabelle Neece" LastInvoiceDate="19940521T23:02:57000"/><ROW CustNo="5384" Company="Tora Tora Tora" Addr1="PO Box H-4573" City="Nassau" Country="Bahamas" Phone="809-898-0043" FAX="809-898-9864" TaxRate="0" Contact="Kevin Rider" LastInvoiceDate="19950205T05:40:46000"/><ROW CustNo="5412" Company="Vashon Ventures" Addr1="743 Keyhole Court" City="Honolulu" State="HI" Zip="92856" Country="US" Phone="532-099-0423" FAX="532-099-6654" TaxRate="0" Contact="Susan Smith" LastInvoiceDate="19940118T01:45:50000"/><ROW CustNo="5432" Company="Divers-for-Hire" Addr1="G.O. P Box 91" City="Suva" Country="Fiji" Phone="679-804576" FAX="679-059345" TaxRate="0" Contact="Joe Hatter" LastInvoiceDate="19940128T20:02:48000"/><ROW CustNo="5515" Company="Ocean Adventures" Addr1="PO Box 466 Kihei" City="Maui" State="HI" Zip="95736" Country="US" Phone="776-868-9334" FAX="776-868-9553" TaxRate="0" Contact="Paul Still" LastInvoiceDate="19950108T16:35:40000"/><ROW CustNo="6215" Company="Underwater SCUBA Company" Addr1="PO Box Sn 91" City="Somerset" Zip="SXBN" Country="Bermuda" Phone="809-555-1225" FAX="809-555-2445" TaxRate="0" Contact="Michael Grossman" LastInvoiceDate="19940407T23:32:50000"/><ROW CustNo="6312" Company="Aquatic Drama" Addr1="921 Everglades Way" City="Tampa" State="FL" Zip="30643" Country="US" Phone="613-442-7654" FAX="613-442-7678" TaxRate="0" Contact="Gillian Owen" LastInvoiceDate="19890325T04:42:52000"/><ROW CustNo="6516" Company="The Diving Company" Addr1="PO Box 8535" City="St. Thomas" Zip="00820" Country="US Virgin Islands" Phone="22-44-50098" FAX="22-44-09878" TaxRate="0" Contact="Brian Miles" LastInvoiceDate="19940115T12:40:50000"/><ROW CustNo="6582" Company="Norwest&apos;er SCUBA Limited" Addr1="PO Box 6834" City="Paget" Zip="PSBZ" Country="Bermuda" Phone="778-123-0745" FAX="778-123-9705" TaxRate="0" Contact="Angela Jones" LastInvoiceDate="19950203T06:47:30000"/><ROW CustNo="6812" Company="Waterspout SCUBA Center" Addr1="7865 NE Barber Ct." City="Portland" State="OR" Zip="99271" Country="US" Phone="503-654-2434" FAX="503-654-9986" TaxRate="0" Contact="Richard Houser" LastInvoiceDate="19941011T10:11:33000"/><ROW CustNo="9841" Company="Neptune&apos;s Trident Supply" Addr1="PO Box 129" City="Negril" State="Jamaica" Country="West Indies" Phone="778-897-3546" FAX="778-897-6643" TaxRate="0" Contact="Louise Franks" LastInvoiceDate="19951101T06:32:05000"/></ROWDATA></DATAPACKET>

Demo/GoogleMaps/GoogleMapsTest.dpr

Lines changed: 16 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,16 @@
1+
program GoogleMapsTest;
2+
3+
uses
4+
Forms,
5+
MIdasLib,
6+
MainForm in 'MainForm.pas' {formMain},
7+
Vcl.GoogleMap in '..\..\Source\Vcl.GoogleMap.pas';
8+
9+
{$R *.res}
10+
11+
begin
12+
Application.Initialize;
13+
Application.MainFormOnTaskbar := True;
14+
Application.CreateForm(TformMain, formMain);
15+
Application.Run;
16+
end.

0 commit comments

Comments
 (0)