e1c08d4b8a
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9666 8e941d3f-bd1b-0410-a28a-d453659cc2b4
72 lines
2.3 KiB
ObjectPascal
72 lines
2.3 KiB
ObjectPascal
unit mvMapViewerReg;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, PropEdits, ComponentEditors;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
{$R mvmapviewer_icons.res}
|
|
|
|
uses
|
|
Controls, ImgList,
|
|
mvTypes, mvGeoNames, mvMapViewer, mvDLEFpc, mvDLECache, mvPluginCommon,
|
|
mvMapViewerPropEdits, mvPlugins, 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),
|
|
TMapPointOfInterest, 'ImageIndex', TPointOfInterestImageIndexPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(TDateTime),
|
|
TMapPoint, 'DateTime', TPointDateTimePropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(Double),
|
|
TMapPoint, 'Elevation', TPointElevationPropertyEditor);
|
|
|
|
RegisterPropertyEditor(TypeInfo(Double),
|
|
TMapPoint,'Latitude', TLatDMSPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(Double),
|
|
TMapPoint,'Longitude', TLonDMSPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(Double),
|
|
TMapCenter,'Latitude', TLatDMSPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(Double),
|
|
TMapCenter,'Longitude', TLonDMSPropertyEditor);
|
|
|
|
RegisterComponentEditor(TMvPluginManager, TMvPluginManagerComponentEditor);
|
|
RegisterPropertyEditor(TypeInfo(TMvPluginList),
|
|
TMvPluginManager, 'PluginList', TMvPluginListPropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(TCaption),
|
|
TLegalNoticePlugin, 'LegalNotice', TStringMultilinePropertyEditor);
|
|
RegisterPropertyEditor(TypeInfo(TCaption),
|
|
TTileInfoPlugin, 'InfoMask', TStringMultilinePropertyEditor);
|
|
|
|
for i := 0 to PluginClassRegistry.Count - 1 do
|
|
RegisterNoIcon([TMvCustomPluginClass(PluginClassRegistry.GetClass(i))]);
|
|
end;
|
|
|
|
end.
|
|
|