02-TatukGIS-地图加载.ppt

側耳聽智慧，專心求聰明
呼求明哲，揚聲求聰明
尋找它，如尋找銀子
搜求它，如搜求隱藏的珍寶
你就明白敬畏耶和華，得以認識上帝
因為，耶和華賜人智慧
知識和聰明都由祂口而出
祂給正直人存留真智慧
給行為純正的人做盾牌
為要保守公平人的路
護庇虔敬人的道。《箴言2：2-9》 加载图层方法SHAPE文件组成加载SHP文件MAPINFO文件加载TAB文件加载MIF文件AUTOCAD文件格式加载DXF文件:加载DWG文件:加载CSV文件栅格图层ADF文件加载JPEG加载其他细节一层一层的添加太过繁琐!!!???工程文件的加载方法注意GIS基本图层功能GIS基本图形操作工具鼠標中鍵縮放地圖var
pt:TPoint;
ptg1:TGIS_Point;
ptg2:TGIS_Point;
delta:TGIS_Point;
begin
pt:=ttkViewer1.ScreenToClient(MousePos);
ifnotPtInRect(ttkViewer1.ClientRect,pt)thenexit;//notthiswindow
Handled:=True;
ifttkViewer1.IsEmptythenexit;
//zoomandrestoreapropermapposition
ptg1:=ttkViewer1.ScreenToMap(ttkViewer1.ScreenToClient(MousePos));
ttkViewer1.Zoom:=ttkViewer1.Zoom*2;
ptg2:=ttkViewer1.ScreenToMap(ttkViewer1.ScreenToClient(MousePos));
delta.X:=ptg1.X-ptg2.X;
delta.Y:=ptg1.Y-ptg2.Y;
ttkViewer1.Center:=GisPoint(ttkViewer1.Center.X+delta.X,ttkViewer1.Center.Y+delta.Y);
Handled:=True;
end;