paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazMapViewer: Fix crash when changing download engines to default engine. Fix Linux compilation error.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9492 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-10-24 11:00:46 +00:00
parent aa7a12a74a
commit fe7fdae720
3 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazmapviewer/examples/fulldemo/configframe_with_addons.pas
View File

@ -53,8 +53,10 @@ begin
3: {$IFDEF MSWINDOWS}
MapView.DownloadEngine := TMvDEWin.Create(self);
{$ELSE}
MapView.DownloadEngine := nil;
ShowMessage('WinInet download engine can only be used in Windows.');
begin
MapView.DownloadEngine := nil;
ShowMessage('WinInet download engine can only be used in Windows.');
end;
{$ENDIF}
4: MapView.DownloadEngine := TMvDECache.Create(self);
end;

4
components/lazmapviewer/examples/fulldemo/main.lfm
View File

@ -632,7 +632,7 @@ object MainForm: TMainForm
MinSize = 8
MaxSize = 166
Title.Caption = 'Provider'
Width = 166
Width = 154
end>
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll, goRowHighlight]
RowCount = 11
@ -643,7 +643,7 @@ object MainForm: TMainForm
ColWidths = (
30
54
166
154
)
Cells = (
11

7
components/lazmapviewer/source/mvmapviewer.pas
View File

@ -842,6 +842,7 @@ implementation
uses
FileUtil, LazLoggerBase, Types, Math,
mvJobQueue,
mvDLEFPC,
{$IFDEF MSWINDOWS}
mvDLEWin,
{$ENDIF}
@ -2094,9 +2095,9 @@ begin
Result := FDownloadEngine;
end;
function TMapView.UsesDefaultdownloadEngine: Boolean;
function TMapView.UsesDefaultDownloadEngine: Boolean;
begin
Result := FDownloadEngine <> FBuiltinDownloadEngine;
Result := (FDownloadEngine = nil) or (FDownloadEngine = FBuiltinDownloadEngine);
end;
function TMapView.GetDrawingEngine: TMvCustomDrawingEngine;
@ -2109,7 +2110,7 @@ end;
function TMapView.UsesDefaultDrawingEngine: Boolean;
begin
Result := FDrawingEngine <> FBuiltinDrawingEngine;
Result := (FDrawingEngine = nil) or (FDrawingEngine = FBuiltinDrawingEngine);
end;
function TMapView.GetDrawPreviewTiles: Boolean;