LazMapViewer: Rename unit mvPluginCore to mvPluginCommon. Adapt all sample projects.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9581 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
parent
4bf90d369f
commit
8df360f422
@ -579,6 +579,7 @@ object CfgFrame: TCfgFrame
|
|||||||
end
|
end
|
||||||
object MapScalePlugin: TMapScalePlugin
|
object MapScalePlugin: TMapScalePlugin
|
||||||
ZoomMin = 5
|
ZoomMin = 5
|
||||||
|
BackgroundOpacity = 0.550000011920929
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
@ -6,9 +6,9 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, IniFiles,
|
Classes, SysUtils, IniFiles,
|
||||||
Graphics,
|
Graphics, Forms, Controls, StdCtrls, Buttons, Dialogs, ExtCtrls,
|
||||||
Forms, Controls, StdCtrls, Buttons, Dialogs, ExtCtrls, ColorBox, ExtDlgs, Spin,
|
ColorBox, ExtDlgs, Spin,
|
||||||
mvMapViewer, mvEngine, mvPluginCore, mvMapGridPlugin, mvMapScalePlugin,
|
mvMapViewer, mvEngine, mvPluginCommon, mvMapGridPlugin, mvMapScalePlugin,
|
||||||
globals;
|
globals;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
@ -7,7 +7,7 @@ interface
|
|||||||
uses
|
uses
|
||||||
SysUtils, Classes, Math,
|
SysUtils, Classes, Math,
|
||||||
Graphics, Forms, Controls, StdCtrls, ExtCtrls,
|
Graphics, Forms, Controls, StdCtrls, ExtCtrls,
|
||||||
mvDLEFpc, mvMapViewer, mvPluginCore, mvPlugins, mvGPSObj;
|
mvDLEFpc, mvMapViewer, mvPluginCommon, mvPlugins, mvGPSObj;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
@ -7,7 +7,7 @@ interface
|
|||||||
uses
|
uses
|
||||||
Classes, ComCtrls, DividerBevel, ExtCtrls, Spin, StdCtrls, SysUtils,
|
Classes, ComCtrls, DividerBevel, ExtCtrls, Spin, StdCtrls, SysUtils,
|
||||||
Forms, Controls, Graphics, Dialogs, //LazLogger,
|
Forms, Controls, Graphics, Dialogs, //LazLogger,
|
||||||
mvMapViewer, mvTypes, mvEngine, mvPluginCore, mvMapGridPlugin;
|
mvMapViewer, mvTypes, mvEngine, mvPluginCommon, mvMapGridPlugin;
|
||||||
|
|
||||||
type
|
type
|
||||||
TMainForm = class(TForm)
|
TMainForm = class(TForm)
|
||||||
|
@ -7,7 +7,7 @@ interface
|
|||||||
uses
|
uses
|
||||||
Classes, SysUtils,
|
Classes, SysUtils,
|
||||||
LCLIntf, Forms, Controls, Graphics, ExtCtrls, StdCtrls, Dialogs, Spin,
|
LCLIntf, Forms, Controls, Graphics, ExtCtrls, StdCtrls, Dialogs, Spin,
|
||||||
mvMapViewer, mvPluginCore, mvPlugins;
|
mvMapViewer, mvPluginCommon, mvPlugins;
|
||||||
|
|
||||||
type
|
type
|
||||||
TMainForm = class(TForm)
|
TMainForm = class(TForm)
|
||||||
|
@ -7,7 +7,7 @@ interface
|
|||||||
uses
|
uses
|
||||||
Buttons, Classes, SysUtils, Math,
|
Buttons, Classes, SysUtils, Math,
|
||||||
Graphics, Controls, StdCtrls, ExtCtrls, Forms,
|
Graphics, Controls, StdCtrls, ExtCtrls, Forms,
|
||||||
mvMapViewer, mvPluginCore, mvPlugins;
|
mvMapViewer, mvPluginCommon, mvPlugins;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
@ -6,7 +6,7 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, Controls, Graphics,
|
Classes, SysUtils, Controls, Graphics,
|
||||||
mvPluginCore, mvPlugins, mvMapViewer, mvTypes, mvGPSObj, mvGeoMath;
|
mvPluginCommon, mvPlugins, mvMapViewer, mvTypes, mvGPSObj, mvGeoMath;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
@ -5,8 +5,8 @@ unit Unit1;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, mvMapViewer,
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
||||||
mvPluginCore, uDragColoredItemPlugin;
|
mvMapViewer, mvPluginCommon, uDragColoredItemPlugin;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
@ -76,24 +76,24 @@ object Form1: TForm1
|
|||||||
object MvPluginManager1LegalNoticePlugin1: TLegalNoticePlugin
|
object MvPluginManager1LegalNoticePlugin1: TLegalNoticePlugin
|
||||||
BackgroundColor = clWhite
|
BackgroundColor = clWhite
|
||||||
BackgroundOpacity = 1
|
BackgroundOpacity = 1
|
||||||
Font.Height = -19
|
|
||||||
LegalNotice = 'Test 1'
|
LegalNotice = 'Test 1'
|
||||||
|
Font.Height = -19
|
||||||
end
|
end
|
||||||
object MvPluginManager1LegalNoticePlugin2: TLegalNoticePlugin
|
object MvPluginManager1LegalNoticePlugin2: TLegalNoticePlugin
|
||||||
BackgroundColor = clYellow
|
BackgroundColor = clYellow
|
||||||
BackgroundOpacity = 1
|
BackgroundOpacity = 1
|
||||||
Font.Color = clRed
|
|
||||||
Font.Height = -19
|
|
||||||
LegalNotice = 'Test 2'
|
LegalNotice = 'Test 2'
|
||||||
Spacing = 14
|
Spacing = 14
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -19
|
||||||
end
|
end
|
||||||
object MvPluginManager1LegalNoticePlugin3: TLegalNoticePlugin
|
object MvPluginManager1LegalNoticePlugin3: TLegalNoticePlugin
|
||||||
BackgroundColor = clBlue
|
BackgroundColor = clBlue
|
||||||
BackgroundOpacity = 1
|
BackgroundOpacity = 1
|
||||||
Font.Color = clWhite
|
|
||||||
Font.Height = -19
|
|
||||||
LegalNotice = 'Test 3'
|
LegalNotice = 'Test 3'
|
||||||
Spacing = 24
|
Spacing = 24
|
||||||
|
Font.Color = clWhite
|
||||||
|
Font.Height = -19
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
@ -5,8 +5,9 @@ unit Unit1;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, ExtCtrls, mvMapViewer, mvPluginCore, mvPlugins, StdCtrls, SysUtils,
|
SysUtils, Classes,
|
||||||
Forms, Controls, Graphics, Dialogs, ValEdit;
|
Forms, Controls, Graphics, StdCtrls, ExtCtrls, Dialogs, ValEdit,
|
||||||
|
mvMapViewer, mvPluginCommon, mvPlugins;
|
||||||
|
|
||||||
type
|
type
|
||||||
TForm1 = class(TForm)
|
TForm1 = class(TForm)
|
||||||
|
@ -27,7 +27,6 @@ object MainForm: TMainForm
|
|||||||
MapCenter.Longitude = 10
|
MapCenter.Longitude = 10
|
||||||
MapCenter.Latitude = 50
|
MapCenter.Latitude = 50
|
||||||
PluginManager = PluginManager
|
PluginManager = PluginManager
|
||||||
UseThreads = True
|
|
||||||
Zoom = 8
|
Zoom = 8
|
||||||
OnZoomChange = MapViewZoomChange
|
OnZoomChange = MapViewZoomChange
|
||||||
end
|
end
|
||||||
|
@ -7,7 +7,7 @@ interface
|
|||||||
uses
|
uses
|
||||||
Classes, SysUtils,
|
Classes, SysUtils,
|
||||||
Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, Spin,
|
Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, Spin,
|
||||||
mvMapViewer, mvMapProvider, mvPluginCore, mvMapScalePlugin;
|
mvMapViewer, mvMapProvider, mvPluginCommon, mvMapScalePlugin;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
@ -59,6 +59,11 @@
|
|||||||
<Debugging>
|
<Debugging>
|
||||||
<DebugInfoType Value="dsDwarf3"/>
|
<DebugInfoType Value="dsDwarf3"/>
|
||||||
</Debugging>
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
</Linking>
|
</Linking>
|
||||||
</CompilerOptions>
|
</CompilerOptions>
|
||||||
<Debugging>
|
<Debugging>
|
||||||
|
@ -17,8 +17,8 @@ uses
|
|||||||
|
|
||||||
begin
|
begin
|
||||||
RequireDerivedFormResource := True;
|
RequireDerivedFormResource := True;
|
||||||
Application.Title := 'MapScale_Demo';
|
Application.Title:='MapScale_Demo';
|
||||||
Application.Scaled := True;
|
Application.Scaled:=True;
|
||||||
{$PUSH}{$WARN 5044 OFF}
|
{$PUSH}{$WARN 5044 OFF}
|
||||||
Application.MainFormOnTaskbar := True;
|
Application.MainFormOnTaskbar := True;
|
||||||
{$POP}
|
{$POP}
|
||||||
|
@ -5,9 +5,9 @@ unit Unit1;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
|
Classes, SysUtils,
|
||||||
mvMapViewer, mvPluginCore, mvPlugins,
|
Forms, Controls, Graphics, Dialogs,
|
||||||
mvGPSObj, mvspreadmarker_plugin;
|
mvMapViewer, mvPluginCommon, mvPlugins, mvGPSObj, mvspreadmarker_plugin;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
@ -44,11 +44,6 @@
|
|||||||
<ResourceBaseClass Value="Form"/>
|
<ResourceBaseClass Value="Form"/>
|
||||||
<UnitName Value="Unit1"/>
|
<UnitName Value="Unit1"/>
|
||||||
</Unit>
|
</Unit>
|
||||||
<Unit>
|
|
||||||
<Filename Value="..\..\..\source\addons\plugins\mvnullplugin.pas"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
<UnitName Value="mvNullPlugin"/>
|
|
||||||
</Unit>
|
|
||||||
</Units>
|
</Units>
|
||||||
</ProjectOptions>
|
</ProjectOptions>
|
||||||
<CompilerOptions>
|
<CompilerOptions>
|
||||||
|
@ -5,8 +5,9 @@ unit Unit1;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
|
Classes, SysUtils,
|
||||||
mvMapViewer, mvPluginCore, mvPlugins;
|
Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
|
||||||
|
mvMapViewer, mvPluginCommon, mvPlugins;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
@ -5,7 +5,7 @@ unit Unit1;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, mvMapViewer, mvPluginCore, mvPlugins, StdCtrls, SysUtils, Forms,
|
Classes, mvMapViewer, mvPluginCommon, mvPlugins, StdCtrls, SysUtils, Forms,
|
||||||
Controls, Graphics, Dialogs, mvTypes;
|
Controls, Graphics, Dialogs, mvTypes;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
@ -21,12 +21,27 @@
|
|||||||
<Mode Name="default"/>
|
<Mode Name="default"/>
|
||||||
</BuildModes>
|
</BuildModes>
|
||||||
</Target>
|
</Target>
|
||||||
<Target FileName="examples\fulldemo_with_addons\mapviewer_demo_with_addons.lpi">
|
<Target FileName="unittests\mapviewer_tests.lpi">
|
||||||
|
<BuildModes>
|
||||||
|
<Mode Name="Default"/>
|
||||||
|
</BuildModes>
|
||||||
|
</Target>
|
||||||
|
<Target FileName="examples\elevations\Elevations_Demo.lpi">
|
||||||
|
<BuildModes>
|
||||||
|
<Mode Name="Default"/>
|
||||||
|
</BuildModes>
|
||||||
|
</Target>
|
||||||
|
<Target FileName="examples\flights\flights.lpi">
|
||||||
<BuildModes>
|
<BuildModes>
|
||||||
<Mode Name="default"/>
|
<Mode Name="default"/>
|
||||||
</BuildModes>
|
</BuildModes>
|
||||||
</Target>
|
</Target>
|
||||||
<Target FileName="unittests\mapviewer_tests.lpi">
|
<Target FileName="examples\gpstilelayer_demo\GPSTileLayer_Demo.lpi">
|
||||||
|
<BuildModes>
|
||||||
|
<Mode Name="Default"/>
|
||||||
|
</BuildModes>
|
||||||
|
</Target>
|
||||||
|
<Target FileName="examples\restricted_zoom_pan\RestrictedZoomPan_Demo.lpi">
|
||||||
<BuildModes>
|
<BuildModes>
|
||||||
<Mode Name="Default"/>
|
<Mode Name="Default"/>
|
||||||
</BuildModes>
|
</BuildModes>
|
||||||
|
@ -129,8 +129,8 @@ FPC 3.2.0 or newer required."/>
|
|||||||
<UnitName Value="mvClassRegistration"/>
|
<UnitName Value="mvClassRegistration"/>
|
||||||
</Item26>
|
</Item26>
|
||||||
<Item27>
|
<Item27>
|
||||||
<Filename Value="source/mvplugincore.pas"/>
|
<Filename Value="source/mvplugincommon.pas"/>
|
||||||
<UnitName Value="mvPluginCore"/>
|
<UnitName Value="mvPluginCommon"/>
|
||||||
</Item27>
|
</Item27>
|
||||||
<Item28>
|
<Item28>
|
||||||
<Filename Value="source/addons/plugins/mvplugins.pas"/>
|
<Filename Value="source/addons/plugins/mvplugins.pas"/>
|
||||||
|
@ -13,7 +13,7 @@ uses
|
|||||||
mvDLEFpc, mvMapViewerReg, mvGPX, mvDrawingEngine, mvDE_IntfGraphics,
|
mvDLEFpc, mvMapViewerReg, mvGPX, mvDrawingEngine, mvDE_IntfGraphics,
|
||||||
mvDLEWin, mvMapViewerPropEdits, mvLayersPropEditForm, mvGeoMath,
|
mvDLEWin, mvMapViewerPropEdits, mvLayersPropEditForm, mvGeoMath,
|
||||||
mvMapViewerPathEditForm, mvMapViewerPathEditDsgForm, mvDLECache,
|
mvMapViewerPathEditForm, mvMapViewerPathEditDsgForm, mvDLECache,
|
||||||
mvPluginEditors, mvClassRegistration, mvPluginCore, mvPlugins,
|
mvPluginEditors, mvClassRegistration, mvPluginCommon, mvPlugins,
|
||||||
mvspreadmarker_plugin, uInactivityAlarmTimer, mvMapGridPlugin,
|
mvspreadmarker_plugin, uInactivityAlarmTimer, mvMapGridPlugin,
|
||||||
mvMapScalePlugin, LazarusPackageIntf;
|
mvMapScalePlugin, LazarusPackageIntf;
|
||||||
|
|
||||||
|
@ -9,7 +9,7 @@ interface
|
|||||||
uses
|
uses
|
||||||
Classes, SysUtils, Math,
|
Classes, SysUtils, Math,
|
||||||
Graphics, Controls, LCLIntf, //LazLoggerBase,
|
Graphics, Controls, LCLIntf, //LazLoggerBase,
|
||||||
mvMapViewer, mvDrawingEngine, mvPluginCore, mvGeoMath, mvTypes;
|
mvMapViewer, mvDrawingEngine, mvPluginCommon, mvGeoMath, mvTypes;
|
||||||
|
|
||||||
type
|
type
|
||||||
TMapGridPlugin = class;
|
TMapGridPlugin = class;
|
||||||
|
@ -7,7 +7,7 @@ interface
|
|||||||
uses
|
uses
|
||||||
Classes, SysUtils, Contnrs,
|
Classes, SysUtils, Contnrs,
|
||||||
Graphics, Controls, LCLIntf, //LazLoggerBase,
|
Graphics, Controls, LCLIntf, //LazLoggerBase,
|
||||||
mvMapViewer, mvDrawingEngine, mvPluginCore, mvGPSObj, mvTypes;
|
mvMapViewer, mvDrawingEngine, mvPluginCommon, mvGPSObj, mvTypes;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ TCenterMarkerPlugin - draws a cross in the map center }
|
{ TCenterMarkerPlugin - draws a cross in the map center }
|
||||||
|
@ -9,7 +9,7 @@ interface
|
|||||||
uses
|
uses
|
||||||
Classes, SysUtils, Math,
|
Classes, SysUtils, Math,
|
||||||
Graphics, Controls, Types,
|
Graphics, Controls, Types,
|
||||||
mvMapViewer, mvGeoMath, mvPluginCore;
|
mvMapViewer, mvGeoMath, mvPluginCommon;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ TMapScalePlugin }
|
{ TMapScalePlugin }
|
||||||
|
@ -18,7 +18,7 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, Controls, Graphics,
|
Classes, SysUtils, Controls, Graphics,
|
||||||
mvMapViewer, mvTypes, mvGpsObj,mvPluginCore,mvDrawingEngine,mvGeoMath,
|
mvMapViewer, mvTypes, mvGpsObj, mvPluginCommon, mvDrawingEngine, mvGeoMath,
|
||||||
uInactivityAlarmTimer;
|
uInactivityAlarmTimer;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
@ -105,7 +105,7 @@ implementation
|
|||||||
uses
|
uses
|
||||||
System.UITypes, Dialogs, IDEWindowIntf, LazIDEIntf, StrUtils, mvMapViewer,
|
System.UITypes, Dialogs, IDEWindowIntf, LazIDEIntf, StrUtils, mvMapViewer,
|
||||||
mvGpsObj, mvLayersPropEditForm, mvEngine, mvGeoMath,
|
mvGpsObj, mvLayersPropEditForm, mvEngine, mvGeoMath,
|
||||||
mvMapViewerPathEditDsgForm, mvPluginCore;
|
mvMapViewerPathEditDsgForm, mvPluginCommon;
|
||||||
|
|
||||||
const
|
const
|
||||||
sNONE = '(none)';
|
sNONE = '(none)';
|
||||||
|
@ -15,7 +15,7 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Controls, ImgList,
|
Controls, ImgList,
|
||||||
mvTypes, mvGeoNames, mvMapViewer, mvDLEFpc, mvDLECache, mvPluginCore,
|
mvTypes, mvGeoNames, mvMapViewer, mvDLEFpc, mvDLECache, mvPluginCommon,
|
||||||
mvMapViewerPropEdits, mvPlugins, mvPluginEditors;
|
mvMapViewerPropEdits, mvPlugins, mvPluginEditors;
|
||||||
|
|
||||||
procedure Register;
|
procedure Register;
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
unit mvPluginCore;
|
unit mvPluginCommon;
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
{$mode objfpc}{$H+}
|
||||||
|
|
@ -121,7 +121,7 @@ implementation
|
|||||||
{$R *.lfm}
|
{$R *.lfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
mvPluginCore;
|
mvPluginCommon;
|
||||||
|
|
||||||
{ TMvComponentListPropertyEditor }
|
{ TMvComponentListPropertyEditor }
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user