+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يبرمجة هذا المكون TMSWebGMaps (/showthread.php?tid=6467)
كيف يبرمجة هذا المكون TMSWebGMaps - didrosoft - 03-10-2014
بعد عناء طويل في البحث عن نسخة كاملة للدلفي xe2 لم اجد فاكتفيت بنسخة تجريبية حتى نجد المكون الكامل ان شاء الله ..لكن المشكل الذي واجهني هو غياب اي درس عن استغلال هذا المكون لهذا اخواني الافاضل ياريت تساعدونا في شرح طريقة برمجته وانا شاكر لكم مسبقا
كيف يبرمجة هذا المكون TMSWebGMaps - onexite - 08-10-2014
PHP كود :
WebGMaps1.MapOptions.DefaultLatitude :=JvSpinEdit1.Value;
WebGMaps1.MapOptions.DefaultLongitude :=JvSpinEdit2.Value;
WebGMaps1.Launch;
كيف يبرمجة هذا المكون TMSWebGMaps - didrosoft - 09-10-2014
بارك الله فيك اخي الفاضل onexite على التوضيح وياريت اخي لو تعطيني مثال عن طريقة جلب مثلا خط الطول والعرض لمنطقة معية ولو عندك اكثلة اخرى اكون شاكرا لك
كيف يبرمجة هذا المكون TMSWebGMaps - onexite - 10-10-2014
didrosoft كتب :بارك الله فيك اخي الفاضل onexite على التوضيح وياريت اخي لو تعطيني مثال عن طريقة جلب مثلا خط الطول والعرض لمنطقة معية ولو عندك اكثلة اخرى اكون شاكرا لك
PHP كود :
procedure TForm9.BitBtn1Click(Sender: TObject);
var
List: TStrings;
begin
List := TStringList.Create;
try
ExtractStrings([','], [], PChar(WebGMapsLookupEdit1.Text), List);
WebGMapsGeocoding1.Address := WebGMapsLookupEdit1.Text;
//ShowMessage(WebGMapsLookupEdit1.Lookup.Values[0]);
if WebGMapsGeocoding1.LaunchGeocoding = erOk then
begin
WebGMaps1.MapOptions.DefaultLatitude :=WebGMapsGeocoding1.ResultLatitude;
WebGMaps1.MapOptions.DefaultLongitude :=WebGMapsGeocoding1.ResultLongitude;
WebGMaps1.Launch;
JvSpinEdit1.Value:=WebGMapsGeocoding1.ResultLongitude;
// JvSpinEdit3.Value:=WebGMapsGeocoding1.ResultElevation;
JvSpinEdit2.Value:=WebGMapsGeocoding1.ResultLatitude;
// Application.ProcessMessages;
JvSpinEdit3.Value:=(WebGMapsGeocoding1.ResultTimeZone /3600) ;
btn1.Enabled:=true;
end;
edt2.Text:=List
[List.Count-2];
edt3.Text:=List
[List.Count-1];
finally
List.Free;
end;
end;