TTMSFNCOpenLayers.TileLayers Property
Provides the custom tile layer collection.
API unit family: TMSFNCOpenLayers
Declaring type: TTMSFNCOpenLayers
Inherited from: TTMSFNCCustomOpenLayers
Type: TTMSFNCOpenLayersTileLayers
Syntax
property TileLayers: TTMSFNCOpenLayersTileLayers;
__property TTMSFNCOpenLayersTileLayers* TileLayers = {read=FTileLayers, write=SetTileLayers};
Usage examples
Add OpenLayers tile layers with CSS classes
Adds XYZ, WMS, and GeoTIFF tilelayers and assigns CSSClassName values.
procedure TForm1.ConfigureOpenLayersTileLayers;
var
LBaseLayer: TTMSFNCOpenLayersTileLayer;
LWMSLayer: TTMSFNCOpenLayersTileLayer;
LGeoTiffLayer: TTMSFNCOpenLayersTileLayer;
begin
TMSFNCOpenLayers1.TileLayers.Clear;
LBaseLayer := TMSFNCOpenLayers1.TileLayers.Add;
LBaseLayer.Source := tlsXYZ;
LBaseLayer.URL := 'https://{a-c}.tile.openstreetmap.org/{z}/{x}/{y}.png';
LBaseLayer.Opacity := 1;
LBaseLayer.CSSClassName := 'street-base-layer';
LWMSLayer := TMSFNCOpenLayers1.TileLayers.Add;
LWMSLayer.Source := tlsWMS;
LWMSLayer.URL := 'https://ahocevar.com/geoserver/wms';
LWMSLayer.Params.Layers := 'topp:states';
LWMSLayer.Opacity := 0.55;
LWMSLayer.CSSClassName := 'wms-boundary-layer';
LGeoTiffLayer := TMSFNCOpenLayers1.TileLayers.Add;
LGeoTiffLayer.Source := tlsGeoTiff;
LGeoTiffLayer.URL := 'https://example.com/raster/temperature.tif';
LGeoTiffLayer.Opacity := 0.65;
LGeoTiffLayer.CSSClassName := 'geotiff-temperature-layer';
end;
void __fastcall TForm1::ConfigureOpenLayersTileLayers()
{
TMSFNCOpenLayers1->TileLayers->Clear();
TTMSFNCOpenLayersTileLayer *LBaseLayer = TMSFNCOpenLayers1->TileLayers->Add();
LBaseLayer->Source = tlsXYZ;
LBaseLayer->URL = "https://{a-c}.tile.openstreetmap.org/{z}/{x}/{y}.png";
LBaseLayer->Opacity = 1;
LBaseLayer->CSSClassName = "street-base-layer";
TTMSFNCOpenLayersTileLayer *LWMSLayer = TMSFNCOpenLayers1->TileLayers->Add();
LWMSLayer->Source = tlsWMS;
LWMSLayer->URL = "https://ahocevar.com/geoserver/wms";
LWMSLayer->Params->Layers = "topp:states";
LWMSLayer->Opacity = 0.55;
LWMSLayer->CSSClassName = "wms-boundary-layer";
TTMSFNCOpenLayersTileLayer *LGeoTiffLayer = TMSFNCOpenLayers1->TileLayers->Add();
LGeoTiffLayer->Source = tlsGeoTiff;
LGeoTiffLayer->URL = "https://example.com/raster/temperature.tif";
LGeoTiffLayer->Opacity = 0.65;
LGeoTiffLayer->CSSClassName = "geotiff-temperature-layer";
}