var map: TIESlippyMap; begin map := TIESlippyMap.Create(); try map.Latitude := 51.503614574056016; map.Longitude := -0.12774750793460043; map.PointPosition := Point(ImageEnView1.IEBitmap.Width div 2, ImageEnView1.IEBitmap.Height div 2); map.Zoom := 13; map.DrawTo( ImageEnView1.IEBitmap ); ImageEnView1.Update(); finally map.Free(); end; end;
TIEEquirectangularRenderer Example
// Output current view as a JPEG var bmp: TIEBitmap; begin bmp := TIEBitmap.Create; bmp.Allocate( ImageEnView1.IEBitmap.width, ImageEnView1.IEBitmap.Height ); ImageEnView1.IEBitmap.VirtualBitmapProvider as TIEEquirectangularRenderer do DrawTo( bmp ); bmp.SaveToFile('D:\view.jpg'); bmp.Free(); end;