LazMapViewer: Extend TLegalNoticePlugin to support embedded links and line-breaks. Update demos.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9553 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
parent
230cdbbc3b
commit
2a66f07424
@ -25,8 +25,7 @@ object MainForm: TMainForm
|
||||
Left = 427
|
||||
Top = 141
|
||||
object LegalNoticePlugin: TLegalNoticePlugin
|
||||
LegalNotice = '(c) OpenStreetMap and contributors'
|
||||
LegalNoticeURL = 'https://www.openstreetmap.org'
|
||||
LegalNotice = '[https://www.openstreetmap.org (c) OpenStreetMap and contributors]'
|
||||
end
|
||||
object DraggableMarkerPlugin: TDraggableMarkerPlugin
|
||||
end
|
||||
|
||||
@ -26,7 +26,6 @@ object MainForm: TMainForm
|
||||
MapCenter.Latitude = 49
|
||||
PluginManager = PluginManager
|
||||
POIImages = ImageList1
|
||||
UseThreads = True
|
||||
Zoom = 3
|
||||
OnMouseUp = MapViewMouseUp
|
||||
end
|
||||
|
||||
@ -79,7 +79,7 @@ const
|
||||
DELTA = 5; // Tolerance of the HitTest
|
||||
var
|
||||
layer: TMapLayer;
|
||||
poi: TPointOfInterest;
|
||||
poi: TMapPointOfInterest;
|
||||
RP: TRealPoint;
|
||||
area: TRealArea;
|
||||
list: TMapObjectList;
|
||||
@ -97,7 +97,7 @@ begin
|
||||
try
|
||||
if (list = nil) then
|
||||
begin
|
||||
poi := TPointOfInterest(layer.PointsOfInterest.Add);
|
||||
poi := TMapPointOfInterest(layer.PointsOfInterest.Add);
|
||||
poi.Caption := 'Test ' + IntToStr(layer.PointsOfInterest.Count);
|
||||
poi.ImageIndex := Random(ImageList1.Count);
|
||||
poi.Longitude := RP.Lon;
|
||||
@ -106,9 +106,9 @@ begin
|
||||
begin
|
||||
for i := list.Count-1 downto 0 do
|
||||
begin
|
||||
if list[i] is TPointOfInterest then
|
||||
if list[i] is TMapPointOfInterest then
|
||||
begin
|
||||
poi := TPointOfInterest(list[i]);
|
||||
poi := TMapPointOfInterest(list[i]);
|
||||
poi.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -28,9 +28,6 @@
|
||||
<Item>
|
||||
<PackageName Value="lazMapViewerPkg"/>
|
||||
</Item>
|
||||
<Item>
|
||||
<PackageName Value="TAChartLazarusPkg"/>
|
||||
</Item>
|
||||
<Item>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item>
|
||||
|
||||
@ -10,7 +10,7 @@ uses
|
||||
athreads,
|
||||
{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, tachartlazaruspkg, Unit1
|
||||
Forms, Unit1
|
||||
{ you can add units after this };
|
||||
|
||||
{$R *.res}
|
||||
|
||||
@ -25,10 +25,10 @@ object MainForm: TMainForm
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = ParamsPanel
|
||||
AnchorSideRight.Control = cmbPosition
|
||||
Left = 75
|
||||
Left = 253
|
||||
Height = 23
|
||||
Top = 0
|
||||
Width = 601
|
||||
Width = 423
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Right = 4
|
||||
@ -37,13 +37,15 @@ object MainForm: TMainForm
|
||||
OnChange = edLegalNoticeChange
|
||||
end
|
||||
object lblLegalNotice: TLabel
|
||||
AnchorSideLeft.Control = ParamsPanel
|
||||
AnchorSideLeft.Control = rbRightMap
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edLegalNotice
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 0
|
||||
Left = 178
|
||||
Height = 15
|
||||
Top = 4
|
||||
Width = 67
|
||||
BorderSpacing.Left = 32
|
||||
Caption = 'Legal notice:'
|
||||
end
|
||||
object btnSaveToImage: TButton
|
||||
@ -85,10 +87,10 @@ object MainForm: TMainForm
|
||||
OnChange = cmbPositionChange
|
||||
end
|
||||
object cbShowMapCenter: TCheckBox
|
||||
AnchorSideLeft.Control = edLegalNotice
|
||||
AnchorSideLeft.Control = ParamsPanel
|
||||
AnchorSideTop.Control = seOpacity
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 75
|
||||
Left = 0
|
||||
Height = 19
|
||||
Top = 33
|
||||
Width = 110
|
||||
@ -103,7 +105,7 @@ object MainForm: TMainForm
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = seOpacity
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 209
|
||||
Left = 134
|
||||
Height = 19
|
||||
Top = 33
|
||||
Width = 111
|
||||
@ -119,7 +121,7 @@ object MainForm: TMainForm
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cbShowMapCenter
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 352
|
||||
Left = 277
|
||||
Height = 15
|
||||
Top = 35
|
||||
Width = 124
|
||||
@ -131,10 +133,10 @@ object MainForm: TMainForm
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edLegalNotice
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 484
|
||||
Left = 409
|
||||
Height = 23
|
||||
Top = 31
|
||||
Width = 69
|
||||
Width = 55
|
||||
Alignment = taRightJustify
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
@ -142,10 +144,37 @@ object MainForm: TMainForm
|
||||
MaxValue = 100
|
||||
TabOrder = 5
|
||||
Value = 50
|
||||
OnChange = FloatSpinEdit1Change
|
||||
OnChange = seOpacityChange
|
||||
end
|
||||
object rbLeftMap: TRadioButton
|
||||
AnchorSideLeft.Control = ParamsPanel
|
||||
AnchorSideTop.Control = edLegalNotice
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 0
|
||||
Height = 19
|
||||
Top = 2
|
||||
Width = 65
|
||||
Caption = 'Left map'
|
||||
Checked = True
|
||||
TabOrder = 7
|
||||
TabStop = True
|
||||
OnChange = rbLeftMapChange
|
||||
end
|
||||
object rbRightMap: TRadioButton
|
||||
AnchorSideLeft.Control = rbLeftMap
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edLegalNotice
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 73
|
||||
Height = 19
|
||||
Top = 2
|
||||
Width = 73
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'Right map'
|
||||
TabOrder = 6
|
||||
end
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
object FormCenterBevel: TBevel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = Owner
|
||||
@ -157,10 +186,10 @@ object MainForm: TMainForm
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
Shape = bsSpacer
|
||||
end
|
||||
object Panel2: TPanel
|
||||
object LeftPanel: TPanel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Bevel1
|
||||
AnchorSideRight.Control = FormCenterBevel
|
||||
AnchorSideBottom.Control = ParamsPanel
|
||||
Left = 0
|
||||
Height = 417
|
||||
@ -170,8 +199,8 @@ object MainForm: TMainForm
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
end
|
||||
object Panel3: TPanel
|
||||
AnchorSideLeft.Control = Bevel1
|
||||
object RightPanel: TPanel
|
||||
AnchorSideLeft.Control = FormCenterBevel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
|
||||
@ -7,34 +7,40 @@ interface
|
||||
uses
|
||||
Classes, SysUtils,
|
||||
LCLIntf, Forms, Controls, Graphics, ExtCtrls, StdCtrls, Dialogs, Spin,
|
||||
TAGraph, TATools,
|
||||
mvMapViewer, mvPluginCore, mvPlugins;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
Bevel1: TBevel;
|
||||
FormCenterBevel: TBevel;
|
||||
btnSaveToImage: TButton;
|
||||
cbShowMapCenter: TCheckBox;
|
||||
cbShowLegalNotice: TCheckBox;
|
||||
cmbPosition: TComboBox;
|
||||
edLegalNotice: TEdit;
|
||||
rbLeftMap: TRadioButton;
|
||||
rbRightMap: TRadioButton;
|
||||
seOpacity: TSpinEdit;
|
||||
lblLegalNotice: TLabel;
|
||||
lblOpacity: TLabel;
|
||||
ParamsPanel: TPanel;
|
||||
Panel2: TPanel;
|
||||
Panel3: TPanel;
|
||||
LeftPanel: TPanel;
|
||||
RightPanel: TPanel;
|
||||
procedure btnSaveToImageClick(Sender: TObject);
|
||||
procedure cbShowMapCenterChange(Sender: TObject);
|
||||
procedure cbShowLegalNoticeChange(Sender: TObject);
|
||||
procedure cmbPositionChange(Sender: TObject);
|
||||
procedure edLegalNoticeChange(Sender: TObject);
|
||||
procedure FloatSpinEdit1Change(Sender: TObject);
|
||||
procedure rbLeftMapChange(Sender: TObject);
|
||||
procedure seOpacityChange(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
FMapView1: TMapView;
|
||||
FMapView2: TMapView;
|
||||
FPluginManager: TMvPluginManager;
|
||||
FLegalNoticePlugin1: TLegalNoticePlugin;
|
||||
FLegalNoticePlugin2: TLegalNoticePlugin;
|
||||
FCenterMarkerPlugin: TCenterMarkerPlugin;
|
||||
FLinkedMapsPlugin: TLinkedMapsPlugin;
|
||||
public
|
||||
|
||||
end;
|
||||
@ -54,7 +60,7 @@ begin
|
||||
|
||||
FMapView1 := TMapView.Create(self);
|
||||
FMapView1.Align := alClient;
|
||||
FMapView1.Parent := Panel2;
|
||||
FMapView1.Parent := LeftPanel;
|
||||
FMapView1.MapProvider := 'OpenStreetMap Mapnik';
|
||||
FMapView1.UseThreads := true;
|
||||
FMapView1.Zoom := 9;
|
||||
@ -65,7 +71,7 @@ begin
|
||||
|
||||
FMapView2 := TMapView.Create(self);
|
||||
FMapView2.Align := alClient;
|
||||
FMapView2.Parent := Panel3;
|
||||
FMapView2.Parent := RightPanel;
|
||||
FMapView2.MapProvider := 'Maps for free';
|
||||
FMapView2.UseThreads := true;
|
||||
FMapView2.Zoom := 9;
|
||||
@ -74,13 +80,12 @@ begin
|
||||
FMapView2.Active := true;
|
||||
FMapView2.PluginManager := FPluginManager;
|
||||
|
||||
with TLegalNoticePlugin.Create(FPluginManager) do
|
||||
FLegalNoticePlugin1 := TLegalNoticePlugin.Create(FPluginManager);
|
||||
with FLegalNoticePlugin1 do
|
||||
begin
|
||||
LegalNotice := '(c) OpenStreetMap and contributors';
|
||||
LegalNoticeURL := 'https://www.openstreetmap.org/copyright';
|
||||
Spacing := 5;
|
||||
LegalNotice := 'Map data from [https://www.openstreetmap.org/copyright OpenStreetMap and contributors]';
|
||||
Spacing := 0;
|
||||
Font.Size := 8;
|
||||
Font.Color := clBlue;
|
||||
BackgroundColor := clWhite;
|
||||
MapView := FMapView1;
|
||||
|
||||
@ -88,60 +93,79 @@ begin
|
||||
seOpacity.Value := round(BackgroundOpacity * 100);
|
||||
end;
|
||||
|
||||
with TLegalNoticePlugin.Create(FPluginManager) do
|
||||
FLegalNoticePlugin2 := TLegalNoticePlugin.Create(FPluginManager);
|
||||
with FLegalNoticePlugin2 do
|
||||
begin
|
||||
LegalNotice := 'maps-for-free';
|
||||
LegalNoticeURL := 'https://maps-for-free.com/html/about.html';
|
||||
Spacing := 5;
|
||||
LegalNotice := '(c) [https://maps-for-free.com/html/about.html maps-for-free]';
|
||||
Spacing := 0;
|
||||
Font.Size := 8;
|
||||
Font.Color := clBlue;
|
||||
BackgroundColor := clWhite;
|
||||
MapView := FMapView2;
|
||||
end;
|
||||
|
||||
with TCenterMarkerPlugin.Create(FPluginManager) do
|
||||
FCenterMarkerPlugin := TCenterMarkerPlugin.Create(FPluginManager);
|
||||
with FCenterMarkerPlugin do
|
||||
begin
|
||||
Size := 15;
|
||||
Pen.Width := 3;
|
||||
Pen.Color := clRed;
|
||||
end;
|
||||
|
||||
with TLinkedMapsPlugin.Create(FPluginManager) do ;
|
||||
FLinkedMapsPlugin := TLinkedMapsPlugin.Create(FPluginManager);
|
||||
end;
|
||||
|
||||
procedure TMainForm.edLegalNoticeChange(Sender: TObject);
|
||||
begin
|
||||
(FPluginManager.Item[0] as TLegalNoticePlugin).LegalNotice := edLegalNotice.Text;
|
||||
if rbLeftMap.Checked then
|
||||
FLegalNoticePlugin1.LegalNotice := edLegalNotice.Text;
|
||||
if rbRightMap.Checked then
|
||||
FLegalNoticePlugin2.LegalNotice := edLegalNotice.Text;
|
||||
end;
|
||||
|
||||
procedure TMainForm.FloatSpinEdit1Change(Sender: TObject);
|
||||
procedure TMainForm.rbLeftMapChange(Sender: TObject);
|
||||
begin
|
||||
(FPluginManager.Item[0] as TLegalNoticePlugin).BackgroundOpacity := seOpacity.Value / 100;
|
||||
if FPluginManager.PluginList.Count > 1 then
|
||||
(FPluginManager.Item[1] as TLegalNoticePlugin).BackgroundOpacity := seOpacity.Value / 100;
|
||||
if rbLeftMap.Checked then
|
||||
edLegalNotice.Text := FLegalNoticePlugin1.LegalNotice;
|
||||
if rbRightMap.Checked then
|
||||
edLegalNotice.Text := FLegalNoticePlugin2.LegalNotice;
|
||||
end;
|
||||
|
||||
procedure TMainForm.seOpacityChange(Sender: TObject);
|
||||
begin
|
||||
if rbLeftMap.Checked then
|
||||
FLegalNoticePlugin1.BackgroundOpacity := seOpacity.Value / 100;
|
||||
if rbRightMap.Checked then
|
||||
FLegalNoticePlugin2.BackgroundOpacity := seOpacity.Value / 100;
|
||||
end;
|
||||
|
||||
procedure TMainForm.btnSaveToImageClick(Sender: TObject);
|
||||
begin
|
||||
if rbLeftMap.Checked then
|
||||
FMapView1.SaveToFile(TPortableNetworkGraphic, 'map1.png');
|
||||
if rbRightMap.Checked then
|
||||
FMapView2.SaveToFile(TPortableNetworkGraphic, 'map2.png');
|
||||
end;
|
||||
|
||||
procedure TMainForm.cbShowMapCenterChange(Sender: TObject);
|
||||
begin
|
||||
(FPluginManager.Item[2] as TCenterMarkerPlugin).Enabled := cbShowMapCenter.Checked;
|
||||
FCenterMarkerPlugin.Enabled := cbShowMapCenter.Checked;
|
||||
end;
|
||||
|
||||
procedure TMainForm.cbShowLegalNoticeChange(Sender: TObject);
|
||||
begin
|
||||
(FPluginManager.Item[0] as TLegalNoticePlugin).Enabled := cbShowLegalNotice.Checked;
|
||||
(FPluginManager.Item[1] as TLegalNoticePlugin).Enabled := cbShowLegalNotice.Checked;
|
||||
if rbLeftMap.Checked then
|
||||
FLegalNoticePlugin1.Enabled := cbShowLegalNotice.Checked;
|
||||
if rbRightMap.Checked then
|
||||
FLegalNoticePlugin2.Enabled := cbShowLegalNotice.Checked;
|
||||
end;
|
||||
|
||||
procedure TMainForm.cmbPositionChange(Sender: TObject);
|
||||
begin
|
||||
(FPluginManager.Item[0] as TLegalNoticePlugin).Position := TLegalNoticePosition(cmbPosition.ItemIndex);
|
||||
(FPluginManager.Item[1] as TLegalNoticePlugin).Position := TLegalNoticePosition(cmbPosition.ItemIndex);
|
||||
if rbLeftMap.Checked then
|
||||
FLegalNoticePlugin1.Position := TLegalNoticePosition(cmbPosition.ItemIndex);
|
||||
if rbRightMap.Checked then
|
||||
FLegalNoticePlugin2.Position := TLegalNoticePosition(cmbPosition.ItemIndex);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -10,7 +10,7 @@ object MainForm: TMainForm
|
||||
OnCreate = FormCreate
|
||||
object MapView: TMapView
|
||||
Left = 0
|
||||
Height = 257
|
||||
Height = 261
|
||||
Top = 0
|
||||
Width = 451
|
||||
Align = alClient
|
||||
@ -22,35 +22,48 @@ object MainForm: TMainForm
|
||||
PluginManager = PluginManager
|
||||
end
|
||||
object InfoPanel: TPanel
|
||||
Left = 0
|
||||
Height = 50
|
||||
Top = 257
|
||||
Width = 451
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 269
|
||||
Width = 435
|
||||
Align = alBottom
|
||||
ClientHeight = 50
|
||||
ClientWidth = 451
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 8
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 30
|
||||
ClientWidth = 435
|
||||
TabOrder = 1
|
||||
object lblMessageLabel: TLabel
|
||||
AnchorSideTop.Control = InfoPanel
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 16
|
||||
AnchorSideLeft.Control = InfoPanel
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 15
|
||||
Top = 18
|
||||
Top = 15
|
||||
Width = 146
|
||||
Caption = 'UserdefinedPlugin Message'
|
||||
end
|
||||
object lblUserdefinedPluginMessage: TLabel
|
||||
AnchorSideLeft.Control = lblMessageLabel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = InfoPanel
|
||||
AnchorSideTop.Control = lblMessageLabel
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 170
|
||||
Left = 154
|
||||
Height = 15
|
||||
Top = 18
|
||||
Top = 15
|
||||
Width = 38
|
||||
BorderSpacing.Left = 8
|
||||
Caption = ' (none)'
|
||||
end
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = InfoPanel
|
||||
AnchorSideTop.Control = InfoPanel
|
||||
Left = 0
|
||||
Height = 15
|
||||
Top = 0
|
||||
Width = 106
|
||||
Caption = 'Click into the map...'
|
||||
end
|
||||
end
|
||||
object PluginManager: TMvPluginManager
|
||||
Left = 262
|
||||
|
||||
@ -13,6 +13,7 @@ type
|
||||
{ TMainForm }
|
||||
|
||||
TMainForm = class(TForm)
|
||||
Label1: TLabel;
|
||||
lblMessageLabel: TLabel;
|
||||
lblUserdefinedPluginMessage: TLabel;
|
||||
MapView: TMapView;
|
||||
|
||||
@ -5,7 +5,7 @@ unit mvPlugins;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils,
|
||||
Classes, SysUtils, Contnrs,
|
||||
Graphics, Controls, LCLIntf, //LazLoggerBase,
|
||||
mvMapViewer, mvDrawingEngine, mvPluginCore, mvGPSObj, mvTypes;
|
||||
|
||||
@ -45,33 +45,42 @@ type
|
||||
|
||||
TLegalNoticePosition = (lnpTopLeft, lnpTopRight, lnpBottomLeft, lnpBottomRight);
|
||||
|
||||
TLegalNoticePlugin = class(TMvMultiMapsDrawPlugin)
|
||||
TLegalNoticePlugin = class(TMvDrawPlugin)
|
||||
private
|
||||
const
|
||||
DEFAULT_LEGALNOTICE_OPACITY = 0.55;
|
||||
DEFAULT_LEGALNOTICE_SPACING = 4;
|
||||
type
|
||||
TLegalNoticePart = class
|
||||
Text: String;
|
||||
URL: String;
|
||||
Rect: TRect;
|
||||
constructor Create(AText, AURL: String);
|
||||
end;
|
||||
TLegalNoticeParts = class(TFPObjectList);
|
||||
private
|
||||
FLegalNotice: String;
|
||||
FLegalNoticeURL: String;
|
||||
FLegalNotice: TCaption;
|
||||
FLegalNoticeParts: TLegalNoticeParts;
|
||||
FBackgroundOpacity: Single;
|
||||
FPosition: TLegalNoticePosition;
|
||||
FSpacing: Integer;
|
||||
FBackgroundColor: TColor;
|
||||
FMouseOverPart: Integer;
|
||||
FURLFontColor: TColor;
|
||||
private
|
||||
procedure SetBackgroundColor(AValue: TColor);
|
||||
procedure SetBackgroundOpacity(AValue: Single);
|
||||
procedure SetLegalNotice(AValue: String);
|
||||
procedure SetLegalNoticeURL(AValue: String);
|
||||
procedure SetLegalNotice(AValue: TCaption);
|
||||
procedure SetPosition(AValue: TLegalNoticePosition);
|
||||
procedure SetSpacing(AValue: Integer);
|
||||
protected
|
||||
procedure CalcClickableRect(AMapView: TMapView; out AClickableRect: TRect);
|
||||
procedure Changed(Sender: TObject);
|
||||
procedure ExtractLegalNoticeParts(AMapView: TMapView);
|
||||
function PointInURLPart(APoint: TPoint; out URL: String): Integer;
|
||||
protected
|
||||
procedure AfterDrawObjects(AMapView: TMapView; var Handled: Boolean); override;
|
||||
procedure MouseDown(AMapView: TMapView; {%H-}Button: TMouseButton; {%H-}Shift: TShiftState;
|
||||
X, Y: Integer; var Handled: Boolean); override;
|
||||
procedure MouseEnter(AMapView: TMapView; var Handled: Boolean); override;
|
||||
procedure MouseMove(AMapView: TMapView; {%H-}Shift: TShiftState; X, Y: Integer;
|
||||
var Handled: Boolean); override;
|
||||
public
|
||||
@ -81,13 +90,12 @@ type
|
||||
published
|
||||
property BackgroundColor: TColor read FBackgroundColor write SetBackgroundColor default clNone;
|
||||
property BackgroundOpacity: Single read FBackgroundOpacity write SetBackgroundOpacity default DEFAULT_LEGALNOTICE_OPACITY; // 0..1
|
||||
property LegalNotice: String read FLegalNotice write SetLegalNotice;
|
||||
property LegalNoticeURL: String read FLegalNoticeURL write SetLegalNoticeURL;
|
||||
property LegalNotice: TCaption read FLegalNotice write SetLegalNotice;
|
||||
property Position: TLegalNoticePosition read FPosition write SetPosition default lnpBottomRight;
|
||||
property Spacing: Integer read FSpacing write SetSpacing default DEFAULT_LEGALNOTICE_SPACING;
|
||||
property URLFontColor: TColor read FURLFontColor write FURLFontColor default clBlue;
|
||||
// inherited properties
|
||||
property Font;
|
||||
property MapView;
|
||||
end;
|
||||
|
||||
{ TDraggableMarkerPlugin }
|
||||
@ -324,17 +332,27 @@ end;
|
||||
|
||||
{ TLegalNoticePlugin }
|
||||
|
||||
constructor TLegalNoticePlugin.TLegalNoticePart.Create(AText, AURL: String);
|
||||
begin
|
||||
inherited Create;
|
||||
Text := AText;
|
||||
URL := AURL;
|
||||
end;
|
||||
|
||||
constructor TLegalNoticePlugin.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FBackgroundColor := clNone;
|
||||
FBackgroundOpacity := DEFAULT_LEGALNOTICE_OPACITY;
|
||||
FURLFontColor := clBlue;
|
||||
FPosition := lnpBottomRight;
|
||||
FSpacing := DEFAULT_LEGALNOTICE_SPACING;
|
||||
FLegalNoticeParts := TLegalNoticeParts.Create;
|
||||
end;
|
||||
|
||||
destructor TLegalNoticePlugin.Destroy;
|
||||
begin
|
||||
FLegalNoticeParts.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -345,72 +363,239 @@ begin
|
||||
FBackgroundColor := TLegalNoticePlugin(Source).BackgroundColor;
|
||||
FBackgroundOpacity := TLegalNoticePlugin(Source).BackgroundOpacity;
|
||||
FLegalNotice := TLegalNoticePlugin(Source).LegalNotice;
|
||||
FLegalNoticeURL := TLegalNoticePlugin(Source).LegalNoticeURL;
|
||||
FPosition := TLegalNoticePlugin(Source).Position;
|
||||
FSpacing := TLegalNoticePlugin(Source).Spacing;
|
||||
FURLFontColor := TLegalNoticePlugin(Source).URLFontColor;
|
||||
end;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TLegalNoticePlugin.AfterDrawObjects(AMapView: TMapView; var Handled: Boolean);
|
||||
var
|
||||
x, y: Integer;
|
||||
lClickableRect: TRect;
|
||||
i: Integer;
|
||||
lBounds: TRect;
|
||||
lSavedFont: TMvFont;
|
||||
lSavedOpacity: Single;
|
||||
part: TLegalNoticePart;
|
||||
begin
|
||||
if not Assigned(AMapView) then Exit;
|
||||
Handled := True;
|
||||
CalcClickableRect(AMapView,lClickableRect);
|
||||
x := lClickableRect.Left;
|
||||
y := lClickableRect.Top;
|
||||
|
||||
lSavedFont := AMapView.DrawingEngine.GetFont;
|
||||
lSavedOpacity := AMapView.DrawingEngine.Opacity;
|
||||
try
|
||||
ExtractLegalNoticeParts(AMapView);
|
||||
|
||||
lBounds := Rect(MaxInt, MaxInt, -MaxInt, -MaxInt);
|
||||
for i := 0 to FLegalNoticeParts.Count-1 do
|
||||
begin
|
||||
part := TLegalNoticePart(FLegalNoticeParts[i]);
|
||||
if part.Rect.Left < lBounds.Left then lBounds.Left := part.Rect.Left;
|
||||
if part.Rect.Top < lBounds.Top then lBounds.Top := part.Rect.Top;
|
||||
if part.Rect.Right > lBounds.Right then lBounds.Right := part.Rect.Right;
|
||||
if part.Rect.Bottom > lBounds.Bottom then lBounds.Bottom := part.Rect.Bottom;
|
||||
end;
|
||||
|
||||
// Draw the common (semi-transparent) background of all parts
|
||||
if FBackgroundColor <> clNone then
|
||||
begin
|
||||
AMapView.DrawingEngine.Opacity := FBackgroundOpacity;
|
||||
AMapView.DrawingEngine.BrushStyle := bsSolid;
|
||||
AMapView.DrawingEngine.BrushColor := ColorToRGB(FBackgroundColor);
|
||||
with lClickableRect do
|
||||
with lBounds do
|
||||
AMapView.DrawingEngine.FillRect(Left, Top, Right, Bottom);
|
||||
end;
|
||||
AMapView.DrawingEngine.BrushStyle := bsClear;
|
||||
|
||||
// Draw the part texts
|
||||
for i := 0 to FLegalNoticeParts.Count-1 do
|
||||
begin
|
||||
part := TLegalNoticePart(FLegalNoticeParts[i]);
|
||||
if part.URL <> '' then
|
||||
begin
|
||||
if i = FMouseOverPart then
|
||||
AMapView.DrawingEngine.SetFont(Font.Name, Font.Size, Font.Style + [fsUnderline], FURLFontColor)
|
||||
else
|
||||
AMapView.DrawingEngine.SetFont(Font.Name, Font.Size, Font.Style, FURLFontColor)
|
||||
end
|
||||
else
|
||||
AMapView.DrawingEngine.SetFont(Font.Name, Font.Size, Font.Style, Font.Color);
|
||||
AMapView.DrawingEngine.TextOut(x, y, FLegalNotice);
|
||||
AMapView.DrawingEngine.TextOut(part.Rect.Left, part.Rect.Top, part.Text);
|
||||
end;
|
||||
finally
|
||||
AMapView.DrawingEngine.Opacity := lSavedOpacity;
|
||||
AMapView.DrawingEngine.SetFont(lSavedFont);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TLegalNoticePlugin.CalcClickableRect(AMapView: TMapView; out
|
||||
AClickableRect: TRect);
|
||||
{ LegalNotice can contain text and embedded URLs with text following the
|
||||
wikipedia mark-down.
|
||||
|
||||
Line breaks allowed as #13, #10, #13#10, or '\n'
|
||||
|
||||
Example:
|
||||
'Map data from [https://openstreetmap.org/copyright OpenStreetMap and contributors]'
|
||||
displayed as "Map data from OpenStreamMap and contributors"
|
||||
Embedded URL (https://openstreetmap.org/copyright) is assigned to text
|
||||
"OpenStreetMap and contributors" }
|
||||
procedure TLegalNoticePlugin.ExtractLegalNoticeParts(AMapView: TMapView);
|
||||
var
|
||||
P: PAnsiChar;
|
||||
partType: (ptText, ptURL, ptURLText, prLineBreak);
|
||||
txt: String;
|
||||
url: String;
|
||||
part: TLegalNoticePart;
|
||||
savedFont: TMvFont;
|
||||
R: TRect;
|
||||
lineWidths: array of integer = nil;
|
||||
sz: TSize;
|
||||
x, y: Integer;
|
||||
lSavedFont: TMvFont;
|
||||
i, line, dx, dy, nLines: Integer;
|
||||
begin
|
||||
lSavedFont := AMapView.DrawingEngine.GetFont;
|
||||
FLegalNoticeParts.Clear;
|
||||
if FLegalNotice = '' then
|
||||
exit;
|
||||
|
||||
P := PChar(FLegalNotice);
|
||||
partType := ptText;
|
||||
txt := '';
|
||||
url := '';
|
||||
nLines := 1;
|
||||
|
||||
while true do
|
||||
begin
|
||||
case P^ of
|
||||
#0 : break;
|
||||
'[': begin
|
||||
// entering a URL part
|
||||
if partType = ptText then
|
||||
begin
|
||||
if (txt <> '') or (url <> '') then
|
||||
begin
|
||||
// Store away previously found txt and url
|
||||
part := TLegalNoticePart.Create(txt, url);
|
||||
FLegalNoticeParts.Add(part);
|
||||
end;
|
||||
partType := ptURL; // the next part will be in URL
|
||||
txt := '';
|
||||
url := '';
|
||||
end;
|
||||
end;
|
||||
' ': if partType = ptURL then // in URL
|
||||
begin
|
||||
partType := ptURLText; // next part will be the text assigned to the URL
|
||||
txt := '';
|
||||
end else
|
||||
txt := txt + P^;
|
||||
']': if partType = ptURLText then
|
||||
begin
|
||||
if (txt <> '') and (url <> '') then
|
||||
begin
|
||||
// Store away url and its text
|
||||
part := TLegalNoticePart.Create(txt, url);
|
||||
FLegalNoticeParts.Add(part);
|
||||
end;
|
||||
partType := ptText; // next part will be normal text again
|
||||
txt := '';
|
||||
url := '';
|
||||
end;
|
||||
#13,
|
||||
#10: begin
|
||||
if P^ = #13 then
|
||||
begin
|
||||
inc(P);
|
||||
if P^ <> #10 then dec(P);
|
||||
end;
|
||||
// Store away previously found text and url
|
||||
FLegalNoticeParts.Add(TLegalNoticePart.Create(txt, url));
|
||||
// Store #13 as indicator of a line break. Keep url.
|
||||
FLegalNoticeParts.Add(TLegalNoticePart.Create(#13, ''));
|
||||
txt := '';
|
||||
inc(nLines);
|
||||
end;
|
||||
'\': begin
|
||||
inc(P);
|
||||
if (P^ in ['n', 'N']) then
|
||||
begin
|
||||
// Store away previously found text and url
|
||||
FLegalNoticeParts.Add(TLegalNoticePart.Create(txt, url));
|
||||
// Store #13 as indicator of a line break. Keep url.
|
||||
FLegalNoticeParts.Add(TLegalNoticePart.Create(#13, ''));
|
||||
txt := '';
|
||||
inc(nLines);
|
||||
end else
|
||||
begin
|
||||
dec(P);
|
||||
txt := txt + P^;
|
||||
end;
|
||||
end;
|
||||
else
|
||||
if partType = ptURL then
|
||||
url := url + P^
|
||||
else
|
||||
txt := txt + P^;
|
||||
end;
|
||||
inc(P);
|
||||
end;
|
||||
|
||||
if (partType = ptText) and (txt <> '') then
|
||||
begin
|
||||
part := TLegalNoticePart.Create(txt, '');
|
||||
FLegalNoticeParts.Add(part);
|
||||
end;
|
||||
|
||||
// Measure pixel size of parts
|
||||
savedFont := AMapView.DrawingEngine.GetFont;
|
||||
try
|
||||
AMapView.DrawingEngine.SetFont(Font.Name, Font.Size, Font.Style, Font.Color);
|
||||
sz := AMapView.DrawingEngine.TextExtent(FLegalNotice);
|
||||
R := Rect(0, 0, 0, 0);
|
||||
SetLength(lineWidths, nLines);
|
||||
line := 0;
|
||||
lineWidths[line] := 0;
|
||||
for i := 0 to FLegalNoticeParts.Count-1 do
|
||||
begin
|
||||
part := TLegalNoticePart(FLegalNoticeParts[i]);
|
||||
sz := AMapView.DrawingEngine.TextExtent(part.Text);
|
||||
R := Rect(R.Right, R.Top, R.Right + sz.CX, R.Top + sz.CY);
|
||||
if R.Right > lineWidths[line] then
|
||||
lineWidths[line] := R.Right;
|
||||
if part.Text = #13 then // line break
|
||||
begin
|
||||
R := Rect(0, R.Bottom - sz.CY div 2, 0, R.Bottom);
|
||||
inc(line);
|
||||
lineWidths[line] := 0;
|
||||
end;
|
||||
part.Rect := R;
|
||||
end;
|
||||
finally
|
||||
AMapView.DrawingEngine.SetFont(savedFont);
|
||||
end;
|
||||
|
||||
// Calculate left/top corner of total text
|
||||
case FPosition of
|
||||
lnpTopLeft, lnpBottomLeft:
|
||||
x := FSpacing;
|
||||
dx := FSpacing;
|
||||
lnpTopRight, lnpBottomRight:
|
||||
x := AMapView.Width - sz.CX - FSpacing;
|
||||
dx := AMapView.Width - FSpacing - lineWidths[0];
|
||||
end;
|
||||
case FPosition of
|
||||
lnpTopLeft, lnpTopRight:
|
||||
y := FSpacing;
|
||||
dy := FSpacing;
|
||||
lnpBottomLeft, lnpBottomRight:
|
||||
y := AMapView.Height - sz.CY - FSpacing;
|
||||
dy := AMapView.Height - R.Bottom - FSpacing;
|
||||
end;
|
||||
AClickableRect := Rect(x, y, x + sz.CX, y + sz.CY);
|
||||
SetMapViewData(AMapView,AClickableRect,SizeOf(AClickableRect));
|
||||
finally
|
||||
AMapView.DrawingEngine.SetFont(lSavedFont);
|
||||
|
||||
// Move text rectangles to correct position
|
||||
line := 0;
|
||||
for i := 0 to FLegalNoticeParts.Count-1 do
|
||||
begin
|
||||
part := TLegalNoticePart(FLegalNoticeParts[i]);
|
||||
if part.Text = #13 then
|
||||
begin
|
||||
inc(line);
|
||||
if FPosition in [lnpTopRight, lnpBottomRight] then
|
||||
dx := AMapView.Width - FSpacing - lineWidths[line];
|
||||
end;
|
||||
OffsetRect(part.Rect, dx, dy);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -422,54 +607,61 @@ end;
|
||||
procedure TLegalNoticePlugin.MouseDown(AMapView: TMapView; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer; var Handled: Boolean);
|
||||
var
|
||||
pt: TPoint;
|
||||
lClickableRect : TRect;
|
||||
url: String;
|
||||
begin
|
||||
Unused(AMapView);
|
||||
// The button down event is consumed by a different plugin, so do nothing here
|
||||
if Handled then Exit;
|
||||
pt.X := X;
|
||||
pt.Y := Y;
|
||||
if GetMapViewData(AMapView,lClickableRect,SizeOf(lClickableRect)) < SizeOf(lClickableRect) then
|
||||
CalcClickableRect(AMapView,lClickableRect);
|
||||
if PtInRect(lClickableRect, pt) and (FLegalNoticeURL <> '') then
|
||||
if PointInURLPart(Point(X, Y), url) <> -1 then
|
||||
begin
|
||||
// The button down event is consumed by this plugin
|
||||
OpenURL(FLegalNoticeURL);
|
||||
OpenURL(url);
|
||||
Handled := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TLegalNoticePlugin.MouseEnter(AMapView: TMapView; var Handled: Boolean);
|
||||
var
|
||||
lClickableRect : TRect;
|
||||
begin
|
||||
inherited;
|
||||
CalcClickableRect(AMapView,lClickableRect);
|
||||
end;
|
||||
|
||||
procedure TLegalNoticePlugin.MouseMove(AMapView: TMapView; Shift: TShiftState;
|
||||
X, Y: Integer; var Handled: Boolean);
|
||||
var
|
||||
lClickableRect : TRect;
|
||||
url: String;
|
||||
begin
|
||||
if GetMapViewData(AMapView,lClickableRect,SizeOf(lClickableRect)) < SizeOf(lClickableRect) then
|
||||
CalcClickableRect(AMapView, lClickableRect);
|
||||
ExtractLegalNoticeParts(AMapView);
|
||||
|
||||
if PtInRect(lClickableRect, Point(X, Y)) and (not AMapView.Engine.InDrag) and
|
||||
(FLegalNoticeURL <> '') then
|
||||
if not (AMapView.Engine.InDrag) then
|
||||
begin
|
||||
FMouseOverPart := PointInURLPart(Point(X, Y), url);
|
||||
if (FMouseOverPart <> -1) then
|
||||
begin
|
||||
if url <> '' then
|
||||
begin
|
||||
Font.Style := [fsUnderline];
|
||||
AMapView.Cursor := crHandPoint;
|
||||
Handled := true;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
Font.Style := [];
|
||||
if not Handled then
|
||||
AMapView.Cursor := crDefault;
|
||||
end;
|
||||
Update;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TLegalNoticePlugin.PointInURLPart(APoint: TPoint; out URL: String): Integer;
|
||||
var
|
||||
part: TLegalNoticePart;
|
||||
begin
|
||||
for Result := 0 to FLegalNoticeParts.Count-1 do
|
||||
begin
|
||||
part := TLegalNoticePart(FLegalNoticeParts[Result]);
|
||||
if PtInRect(part.Rect, APoint) and (part.URL <> '') then
|
||||
begin
|
||||
uRL := part.URL;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
URL := '';
|
||||
Result := -1;
|
||||
end;
|
||||
|
||||
|
||||
procedure TLegalNoticePlugin.SetPosition(AValue: TLegalNoticePosition);
|
||||
begin
|
||||
if FPosition = AValue then Exit;
|
||||
@ -477,20 +669,13 @@ begin
|
||||
Update;
|
||||
end;
|
||||
|
||||
procedure TLegalNoticePlugin.SetLegalNotice(AValue: String);
|
||||
procedure TLegalNoticePlugin.SetLegalNotice(AValue: TCaption);
|
||||
begin
|
||||
if FLegalNotice = AValue then Exit;
|
||||
FLegalNotice := AValue;
|
||||
Update;
|
||||
end;
|
||||
|
||||
procedure TLegalNoticePlugin.SetLegalNoticeURL(AValue: String);
|
||||
begin
|
||||
if FLegalNoticeURL = AValue then Exit;
|
||||
FLegalNoticeURL := AValue;
|
||||
Update;
|
||||
end;
|
||||
|
||||
procedure TLegalNoticePlugin.SetBackgroundColor(AValue: TColor);
|
||||
begin
|
||||
if FBackgroundColor = AValue then Exit;
|
||||
@ -512,6 +697,9 @@ begin
|
||||
Update;
|
||||
end;
|
||||
|
||||
|
||||
{ TDraggableMarkerPlugin }
|
||||
|
||||
function TDraggableMarkerPlugin.GetFirstMarkerAtMousePos(const AMapView: TMapView;
|
||||
const AX, AY: Integer): TGPSPoint;
|
||||
var
|
||||
|
||||
@ -14,9 +14,9 @@ implementation
|
||||
{$R mvmapviewer_icons.res}
|
||||
|
||||
uses
|
||||
ImgList,
|
||||
Controls, ImgList,
|
||||
mvTypes, mvGeoNames, mvMapViewer, mvDLEFpc, mvDLECache, mvPluginCore,
|
||||
mvMapViewerPropEdits, mvPluginEditors;
|
||||
mvMapViewerPropEdits, mvPlugins, mvPluginEditors;
|
||||
|
||||
procedure Register;
|
||||
var
|
||||
@ -47,17 +47,19 @@ begin
|
||||
TMapPoint, 'Elevation', TPointElevationPropertyEditor);
|
||||
|
||||
RegisterPropertyEditor(TypeInfo(Double),
|
||||
TMapPoint,'Latitude',TLatLonDMSPropertyEditor);
|
||||
TMapPoint,'Latitude', TLatLonDMSPropertyEditor);
|
||||
RegisterPropertyEditor(TypeInfo(Double),
|
||||
TMapPoint,'Longitude',TLatLonDMSPropertyEditor);
|
||||
TMapPoint,'Longitude', TLatLonDMSPropertyEditor);
|
||||
RegisterPropertyEditor(TypeInfo(Double),
|
||||
TMapCenter,'Latitude',TLatLonDMSPropertyEditor);
|
||||
TMapCenter,'Latitude', TLatLonDMSPropertyEditor);
|
||||
RegisterPropertyEditor(TypeInfo(Double),
|
||||
TMapCenter,'Longitude',TLatLonDMSPropertyEditor);
|
||||
TMapCenter,'Longitude', TLatLonDMSPropertyEditor);
|
||||
|
||||
RegisterComponentEditor(TMvPluginManager, TMvPluginManagerComponentEditor);
|
||||
RegisterPropertyEditor(TypeInfo(TMvPluginList),
|
||||
TMvPluginManager, 'PluginList', TMvPluginListPropertyEditor);
|
||||
RegisterComponentEditor(TMvPluginManager, TMvPluginManagerComponentEditor);
|
||||
RegisterPropertyEditor(TypeInfo(TCaption),
|
||||
TLegalNoticePlugin, 'LegalNotice', TStringMultilinePropertyEditor);
|
||||
|
||||
for i := 0 to PluginClassRegistry.Count - 1 do
|
||||
RegisterNoIcon([TMvCustomPluginClass(PluginClassRegistry.GetClass(i))]);
|
||||
|
||||
@ -34,14 +34,14 @@ type
|
||||
FPluginManager: TMvPluginManager;
|
||||
FMapView: TMapView;
|
||||
FEnabled: Boolean;
|
||||
procedure SetEnabled(AValue: Boolean);
|
||||
procedure SetMapView(AValue: TMapView);
|
||||
procedure SetPluginManager(AValue: TMvPluginManager);
|
||||
protected
|
||||
function GetIndex: Integer; override;
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
procedure ReadState(Reader: TReader); override;
|
||||
procedure SetEnabled(AValue: Boolean); virtual;
|
||||
procedure SetIndex(AValue: Integer); override;
|
||||
procedure SetMapView(AValue: TMapView); virtual;
|
||||
procedure SetParentComponent(AParent: TComponent); override;
|
||||
procedure Update; virtual;
|
||||
protected
|
||||
@ -158,6 +158,7 @@ type
|
||||
destructor Destroy;override;
|
||||
published
|
||||
property Enabled;
|
||||
property MapView;
|
||||
end;
|
||||
|
||||
{ TMvMultiMapsDrawPlugin }
|
||||
|
||||
Loading…
Reference in New Issue
Block a user