LazMapViewer: Move spreadmarker plugin into markers folder.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9719 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-04-02 23:04:49 +00:00
parent 72e6a3e6e1
commit 706cde3920
5 changed files with 11 additions and 7 deletions

View File

@ -6,9 +6,9 @@ object MainForm: TMainForm
Caption = 'Great Circle Plugin Demo' Caption = 'Great Circle Plugin Demo'
ClientHeight = 493 ClientHeight = 493
ClientWidth = 872 ClientWidth = 872
LCLVersion = '4.99.0.0'
OnActivate = FormActivate OnActivate = FormActivate
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '3.6.0.0'
object ParamsPanel: TPanel object ParamsPanel: TPanel
Left = 8 Left = 8
Height = 454 Height = 454
@ -82,8 +82,8 @@ object MainForm: TMainForm
Height = 25 Height = 25
Top = 58 Top = 58
Width = 108 Width = 108
OnChange = tbSegmentLengthChange
Position = 0 Position = 0
OnChange = tbSegmentLengthChange
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
@ -195,8 +195,8 @@ object MainForm: TMainForm
'Mark Center' 'Mark Center'
'Mark Destination' 'Mark Destination'
) )
OnItemClick = cgOptionsItemClick
TabOrder = 3 TabOrder = 3
OnItemClick = cgOptionsItemClick
Data = { Data = {
03000000020202 03000000020202
} }
@ -244,9 +244,9 @@ object MainForm: TMainForm
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
MaxValue = 10 MaxValue = 10
MinValue = 1 MinValue = 1
OnChange = seOrthodromePenWidthChange
TabOrder = 0 TabOrder = 0
Value = 3 Value = 3
OnChange = seOrthodromePenWidthChange
end end
object clbOrthodromePenColor: TColorButton object clbOrthodromePenColor: TColorButton
AnchorSideLeft.Control = seOrthodromePenWidth AnchorSideLeft.Control = seOrthodromePenWidth
@ -309,9 +309,9 @@ object MainForm: TMainForm
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
MaxValue = 10 MaxValue = 10
MinValue = 1 MinValue = 1
OnChange = seGreatCirclePenWidthChange
TabOrder = 0 TabOrder = 0
Value = 1 Value = 1
OnChange = seGreatCirclePenWidthChange
end end
object clbGreatCirclePenColor: TColorButton object clbGreatCirclePenColor: TColorButton
AnchorSideLeft.Control = seGreatCirclePenWidth AnchorSideLeft.Control = seGreatCirclePenWidth
@ -411,8 +411,10 @@ object MainForm: TMainForm
Layers = <> Layers = <>
Font.Color = clBlack Font.Color = clBlack
MapProvider = 'OpenStreetMap Standard' MapProvider = 'OpenStreetMap Standard'
ParentFont = False
PluginManager = MvPluginManager PluginManager = MvPluginManager
POIImages = ImageList POIImages = ImageList
TabOrder = 0
end end
object lblInfo: TLabel object lblInfo: TLabel
Left = 6 Left = 6

View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
ComCtrls, Menus, Spin, ComCtrls, Menus, Spin,
mvMapViewer, mvTypes, mvGPSObj, mvPluginCommon, mvMapViewer, mvTypes, mvGPSObj, mvPluginCommon,
mvGeoMath, mvPlugins, mvGreatCirclePainterPlugin; mvGeoMath, mvPlugins, mvMarkerPlugins, mvGreatCirclePainterPlugin;
type type

View File

@ -7,7 +7,8 @@ interface
uses uses
Classes, SysUtils, Classes, SysUtils,
Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
mvMapViewer, mvPluginCommon, mvPlugins, mvMarkerPlugins, mvGPSObj, mvspreadmarker_plugin; mvMapViewer, mvGPSObj, mvPluginCommon, mvPlugins,
mvMarkerPlugins, mvspreadmarker_plugin;
type type

View File

@ -951,5 +951,6 @@ end;
initialization initialization
RegisterPluginClass(TSpreadMarkerPlugin, 'Spread marker'); RegisterPluginClass(TSpreadMarkerPlugin, 'Spread marker');
end. end.