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:
wp_xxyyzz 2025-01-11 11:06:39 +00:00
parent 4bf90d369f
commit 8df360f422
29 changed files with 62 additions and 45 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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)

View File

@ -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)

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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)

View File

@ -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

View File

@ -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

View File

@ -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>

View File

@ -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}

View File

@ -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

View File

@ -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>

View File

@ -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

View File

@ -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

View File

@ -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>

View File

@ -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"/>

View File

@ -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;

View File

@ -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;

View File

@ -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 }

View File

@ -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 }

View File

@ -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

View File

@ -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)';

View File

@ -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;

View File

@ -1,4 +1,4 @@
unit mvPluginCore; unit mvPluginCommon;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}

View File

@ -121,7 +121,7 @@ implementation
{$R *.lfm} {$R *.lfm}
uses uses
mvPluginCore; mvPluginCommon;
{ TMvComponentListPropertyEditor } { TMvComponentListPropertyEditor }