0ed2ea7d3e
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9514 8e941d3f-bd1b-0410-a28a-d453659cc2b4
68 lines
2.0 KiB
ObjectPascal
68 lines
2.0 KiB
ObjectPascal
unit mvMapViewerReg;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, PropEdits, ComponentEditors;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
{$R mvmapviewer_icons.res}
|
|
|
|
uses
|
|
ImgList,
|
|
mvTypes, mvGeoNames, mvMapViewer, mvDLEFpc, mvDLECache, mvPluginCore,
|
|
mvMapViewerPropEdits, mvPluginEditors;
|
|
|
|
procedure Register;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
RegisterComponents(PALETTE_PAGE, [TMapView]);
|
|
RegisterComponents(PALETTE_PAGE, [TMvGeoNames]);
|
|
RegisterComponents(PALETTE_PAGE, [TMvDEFpc, TMvDECache]);
|
|
RegisterComponents(PALETTE_PAGE, [TMvPluginManager]);
|
|
|
|
RegisterComponentEditor(TMapView, TMapViewComponentEditor);
|
|
|
|
RegisterPropertyEditor(TypeInfo(TMapLayers),
|
|
TMapView, 'Layers', TMapLayersPropertyEditor);
|
|
|
|
RegisterPropertyEditor(TypeInfo(TMapTrackPoints),
|
|
TMapTrack, 'Points', TMapTrackPointsPropertyEditor);
|
|
|
|
RegisterPropertyEditor(TypeInfo(String),
|
|
TMapView,'MapProvider',TMapProviderPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(String),
|
|
TMapLayer,'MapProvider',TMapProviderPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(TImageIndex),
|
|
TPointOfInterest, 'ImageIndex', TPointOfInterestImageIndexPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(TDateTime),
|
|
TMapPoint, 'DateTime', TPointDateTimePropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(Double),
|
|
TMapPoint, 'Elevation', TPointElevationPropertyEditor);
|
|
|
|
RegisterPropertyEditor(TypeInfo(Double),
|
|
TMapPoint,'Latitude',TLatLonDMSPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(Double),
|
|
TMapPoint,'Longitude',TLatLonDMSPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(Double),
|
|
TMapCenter,'Latitude',TLatLonDMSPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(Double),
|
|
TMapCenter,'Longitude',TLatLonDMSPropertyEditor);
|
|
|
|
RegisterPropertyEditor(TypeInfo(TMvPluginList),
|
|
TMvPluginManager, 'PluginList', TMvPluginListPropertyEditor);
|
|
RegisterComponentEditor(TMvPluginManager, TMvPluginManagerComponentEditor);
|
|
|
|
for i := 0 to PluginClassRegistry.Count - 1 do
|
|
RegisterNoIcon([TMvCustomPluginClass(PluginClassRegistry.GetClass(i))]);
|
|
end;
|
|
|
|
end.
|
|
|