当前位置: 首页 > news >正文

南京企业建网站流程网站怎么做支付接口

南京企业建网站流程,网站怎么做支付接口,佛山网站建设改版,网站建设中 html5 源码概述#xff1a;TatukGIS Developer Kernel#xff08;DK#xff09;是一个用于开发自定义地理信息系统#xff08;GIS#xff09;应用程序以及解决方案的综合性软件开发工具包#xff08;SDK#xff09;。本篇文章主要介绍用DK11为FMX创建一个应用程序#xff0c;现在…概述TatukGIS Developer KernelDK是一个用于开发自定义地理信息系统GIS应用程序以及解决方案的综合性软件开发工具包SDK。本篇文章主要介绍用DK11为FMX创建一个应用程序现在就跟着小编来了解一下吧~ # 31款JAVA开发必备控件和工具 # 界面/文档管理/报表/IDE等4000款产品火热销售中 TatukGIS Developer KernelDK是一个用于开发自定义地理信息系统GIS应用程序以及解决方案的综合性软件开发工具包SDK。其功能强大价格适中个人、公司及政府等客户都需喜欢使用。感兴趣的朋友可以下载来用一下哦^-^ 点击下载TatukGIS Developer Kernel免费版 本篇文章主要介绍用DK11为FMX创建一个应用程序现在就跟着小编来了解一下吧~ 创建新项目 创建多设备应用程序。然后选择空白应用程序。 设计形式 打开“设计”选项卡并在空白表单上添加控件。从工具选项板中选择控件。 工具选项板包含设计表单的所有组件。专用TatukGIS组件包含在“TatukGIS”类别中。 对象检查器包含与指定对象关联的属性和事件。在本节中您可以设置标题、名称、对齐、位置、大小等。 1、添加TStatusBar并将TLabel放在上面。更改lblPosition的标签名称并将其文本设置为“Position”。 2、添加TGIS_ViewerWND。将其名称更改为“GIS”。在对象检查器中将“对齐”设置为“客户端”。 3、添加TToolBar将对齐设置为“顶部”。 4、向TToolBar添加四个按钮TButton 名称btnOpen文本打开 名称btnSelect文本选择 名称btnDrag文本拖动 名称btnZoom文本缩放 设置每个按钮对齐到“左边”。 5、添加TGIS_ControlLegend。在对象检查器中将GIS_Viewer设置为“GIS”并将“对齐”设置为“左”。双击图例中的图层调用“可视化属性”对话框。 6、将TGIS_ControlScale和TGIS_ControlNorthArrow添加到GIS在Structure窗口中您可以拖放组件以设置层次结构。在对象检查器中将“GIS”指定为GIS_Viewer。 最终结果应如下所示 添加代码 设计表单后转到“代码”选项卡。 在实现部分的{$ R * .fmx}下方添加“使用System.IOUtilsGisLicenseGisTypesGisAllLayersGisUtilsGisLayerVector”。 System.IOUtils  返回用户的主路径或应用程序的可写临时目录或存储如TPath.GetDocumentsPath。 GisLicense  包含有关TatukGIS许可证的信息。 Mistypes  常见的常量和类型如TGIS_Point。经常被客户端代码频繁使用并包含它几乎是一个要求。 GisAllLayers  允许使用TatukGIS Samples数据文件夹中的图层。 GisUtils  GisPoint等常用方法包含在TGIS_Utils类方法中。经常被客户端代码使用并包含它几乎是一个要求。 GisLayerVector - 包含类似TGIS_Shape、TGIS_LayerVector的类型。 附加事件 接下来将事件附加到组件。要附加事件处理程序请在“对象检查器”中选择“事件”选项卡然后双击该事件。如果要调用“OnClick”事件也可以双击组件。在此示例中我们使用以下事件 btnaopenclick  procedure TForm2.btnOpenClick(Sender: TObject); beginGIS.RotationAngle : 0 ;{$IFDEF WIN32}GIS.Open( TGIS_Utils.GisSamplesDataDir  /world/worldDCW/world.shp);{$ELSEIF Defined(MACOS) and Defined(IOS)}GIS.Open( TPath.GetDocumentsPath  PathDelim  world.shp)  ;{$ELSE ANDROID}GIS.Open( TPath.GetDocumentsPath  PathDelim  ne_10m_admin_0_countries.shp)  ;{$ENDIF} end; btnSelectClick procedure TForm2.btnSelectClick(Sender: TObject); beginGIS.Mode : TGIS_ViewerMode.Select ; end; btnDragClick  procedure TForm2.btnDragClick(Sender: TObject); beginGIS.Mode : TGIS_ViewerMode.Drag ; btnZoomClick  procedure TForm2.btnZoomClick(Sender: TObject); beginGIS.Mode : TGIS_ViewerMode.Zoom ; end; GISTapSimpleEvent  点击简单事件在所选形状上闪烁并在状态栏中显示光标的位置。要调用该事件请使用以下代码 procedure TForm2.GISTapSimpleEvent(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Single); varptg : TGIS_Point ;shp : TGIS_Shape ; beginif GIS.IsEmpty thenexit ;if GIS.Mode  TGIS_ViewerMode.Select thenexit ;ptg : GIS.ScreenToMap( Point(Round(X), Round(Y)) ) ;shp : TGIS_Shape( GIS.Locate( ptg, 5 / GIS.Zoom ) ) ;if not Assigned( shp ) then exit ;shp.Flash ; lblPosition.Text : Format( x: %.4f, y: %.4f , [ptg.X,  ptg.Y] ) ; end; 将文件添加到部署 在部署中添加文件和设置路径。 使用“项目/部署”菜单项选择Android和iOS设备平台并为每个平台添加要与应用程序一起部署的文件并设置“远程路径”列值 设置Android的远程路径assets \ internal \  设置iOS的远程路径StartUp \ Documents \  如果要同时为几个文件设置远程路径请单击图标DK11 。 测试 编译并运行项目。 源代码 最终代码应如下所示 unit Unit2;interfaceusesSystem.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.GisControlNorthArrow, FMX.GisControlScale, FMX.Layouts, FMX.TreeView, FMX.GisControlLegend, GisTypesUI, FMX.GisViewerWnd, FMX.Controls.Presentation ;typeTForm2  class(TForm)ToolBar1: TToolBar;statusBar: TStatusBar;GIS: TGIS_ViewerWnd;GIS_ControlLegend1: TGIS_ControlLegend;GIS_ControlScale1: TGIS_ControlScale;GIS_ControlNorthArrow1: TGIS_ControlNorthArrow;btnOpen: TButton;btnSelect: TButton;btnDrag: TButton;btnZoom: TButton;lblPosition: TLabel;procedure GISTapSimpleEvent(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Single);procedure btnOpenClick(Sender: TObject);procedure btnSelectClick(Sender: TObject);procedure btnDragClick(Sender: TObject);procedure btnZoomClick(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm2: TForm2;implementation{$R *.fmx}uses System.IOUtils, GisLicense, GisTypes, GisAllLayers, GisUtils, GisLayerVector;procedure TForm2.btnDragClick(Sender: TObject); beginGIS.Mode : TGIS_ViewerMode.Drag ; end;procedure TForm2.btnOpenClick(Sender: TObject); beginGIS.RotationAngle : 0 ;{$IFDEF WIN32}GIS.Open( TGIS_Utils.GisSamplesDataDir  /world/worldDCW/world.shp );{$ELSEIF Defined(MACOS) and Defined(IOS)}GIS.Open( TPath.GetDocumentsPath  PathDelim  world.shp )  ;{$ELSE ANDROID}GIS.Open( TPath.GetDocumentsPath  PathDelim  ne_10m_admin_0_countries.shp )  ;{$ENDIF} end;procedure TForm2.btnSelectClick(Sender: TObject); beginGIS.Mode : TGIS_ViewerMode.Select ; end;procedure TForm2.btnZoomClick(Sender: TObject); beginGIS.Mode : TGIS_ViewerMode.Zoom ; end;procedure TForm2.GISTapSimpleEvent(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Single); varptg : TGIS_Point ;shp : TGIS_Shape ; beginif GIS.IsEmpty thenexit ;if GIS.Mode  TGIS_ViewerMode.Select thenexit ;ptg : GIS.ScreenToMap( Point(Round(X), Round(Y) ) ) ;shp : TGIS_Shape( GIS.Locate( ptg, 5/GIS.Zoom ) ) ;if not Assigned( shp ) then exit ;shp.Flash ;lblPosition.Text : Format( x: %.4f, y: %.4f, [ptg.X, ptg.Y] ) ; end;end.
http://www.tj-hxxt.cn/news/159607.html

相关文章:

  • 山东省建设备案网站审批表室内装修设计要学多久
  • 上海网站建设seo电商个人网站建设
  • 普通网站建设wordpress jpress
  • 如何用网站做课件关键词快速排名不限行业
  • 著名的设计企业网站免费商城版网站
  • 温州手机网站制作门窗网站建设
  • 哪个网站做图片外链设计师必备的国际设计网站
  • wap网站源码招聘网站开发技术维护
  • 旅游网站规划建设网页制作素材教学
  • 汕尾网站设计做靓号网站
  • 个人建立网站后怎么盈利建设个人商城网站
  • 高清做网站插图调用wordpress编辑器
  • 上海网站设计排名濮阳市城乡一体化示范区七星医院
  • 简单的购物网站怎么做江苏手机网站建设公司
  • 怎么做app网站ui原型公司名称免费起名
  • 运城做网站费用高吗张家港高端网站建设公司
  • 用vue做网站一般用什么组件库计算机速成班培训
  • 河北大城县网站建设公司合肥网站制作开发
  • 怎么对网站做seo优化自己做的网站怎么才能在百度上查找
  • 网站建设维护兼职做自媒体小视频哪个网站比较赚钱
  • 用python做网站怎么赚钱wordpress漏洞扫描
  • 网站备案名称填写规则网站建设实训总结范文
  • 30天网站建设实录视频国外网站怎么浏览
  • 高校邦营销型网站建设答案wordpress v4.9.5
  • 深圳专门做写字楼的网站怎么在网上推广产品
  • 巨野做网站的北滘 网站建设
  • 个人做网站法律风险国外网站服务器
  • 网站建设中外链与内链的技巧高端装修公司怎么获客
  • 临沂seo网站管理怎样利用网站做推广
  • php做网站需要mysql么优化的概念