You've already forked lazarus-ccr
LazMapViewer: Add downloadengine based on WinInet (Windows only). Update fulldemo_with_addons. Remove Synapse openssl units from package.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8703 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@@ -174,7 +174,11 @@ implementation
|
||||
|
||||
uses
|
||||
GraphType, Types,
|
||||
mvJobQueue, mvExtraData, mvDLEFpc, mvDE_IntfGraphics;
|
||||
mvJobQueue, mvExtraData, mvDLEFpc,
|
||||
{$IFDEF MSWINDOWS}
|
||||
mvDLEWin,
|
||||
{$ENDIF}
|
||||
mvDE_IntfGraphics;
|
||||
|
||||
{ Converts a length given in millimeters to screen pixels }
|
||||
function mmToPx(AValue: Double): Integer;
|
||||
@@ -865,7 +869,11 @@ begin
|
||||
FGPSItems := TGPSObjectList.Create;
|
||||
FGPSItems.OnModified := @OnGPSItemsModified;
|
||||
|
||||
{$IFDEF MSWindows}
|
||||
FBuiltinDownloadEngine := TMvDEWin.Create(self);
|
||||
{$ELSE}
|
||||
FBuiltinDownloadEngine := TMvDEFpc.Create(self);
|
||||
{$ENDIF}
|
||||
FBuiltinDownloadEngine.Name := 'BuiltInDLE';
|
||||
|
||||
FEngine := TMapViewerEngine.Create(self);
|
||||
|
||||
Reference in New Issue
Block a user