d7de2eba34
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9498 8e941d3f-bd1b-0410-a28a-d453659cc2b4
68 lines
1.8 KiB
ObjectPascal
68 lines
1.8 KiB
ObjectPascal
unit ConfigFrame_with_Addons;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
mvDrawingEngine, mvDE_RGBGraphics, mvDE_BGRA, //mvDE_LCL,
|
|
mvDLEFPC, mvDLEWin, mvDLESynapse, mvDLECache,
|
|
ConfigFrame;
|
|
|
|
type
|
|
|
|
{ TCfgFrame_with_addons }
|
|
|
|
TCfgFrame_with_addons = class(TCfgFrame)
|
|
cbDownloadEngine: TComboBox;
|
|
cbDrawingEngine: TComboBox;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
procedure cbDownloadEngineChange(Sender: TObject);
|
|
procedure cbDrawingEngineChange(Sender: TObject);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TCfgFrame_with_addons }
|
|
|
|
procedure TCfgFrame_with_addons.cbDrawingEngineChange(Sender: TObject);
|
|
begin
|
|
if not MapView.UsesDefaultDrawingEngine then
|
|
MapView.DrawingEngine.Free;
|
|
case cbDrawingEngine.ItemIndex of
|
|
0: MapView.DrawingEngine := nil;
|
|
1: MapView.DrawingEngine := TMvRGBGraphicsDrawingEngine.Create(Self);
|
|
2: MapView.DrawingEngine := TMvBGRADrawingEngine.Create(self);
|
|
// 3: MapView.DrawingEngine := TMvLCLDrawingEngine.Create(self);
|
|
end;
|
|
DoUpdateLayers;
|
|
end;
|
|
|
|
procedure TCfgFrame_with_addons.cbDownloadEngineChange(Sender: TObject);
|
|
begin
|
|
if not MapView.UsesDefaultDownloadEngine then
|
|
MapView.DownloadEngine.Free;
|
|
case cbDownloadEngine.ItemIndex of
|
|
0: MapView.DownloadEngine := nil;
|
|
1: MapView.DownloadEngine := TMvDESynapse.Create(self);
|
|
2: MapView.DownloadEngine := TMvDEFPC.Create(self);
|
|
3: {$IFDEF MSWINDOWS}
|
|
MapView.DownloadEngine := TMvDEWin.Create(self);
|
|
{$ELSE}
|
|
begin
|
|
MapView.DownloadEngine := nil;
|
|
ShowMessage('WinInet download engine can only be used in Windows.');
|
|
end;
|
|
{$ENDIF}
|
|
4: MapView.DownloadEngine := TMvDECache.Create(self);
|
|
end;
|
|
UpdateDownloadEngineProxy;
|
|
end;
|
|
|
|
end.
|
|
|