mapviewer: Replace repeated calls to IntPower(2,..) by table lookup function ZoomLevel. Add elemental unit tests.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8790 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/lazmapviewer/examples/fulldemo/main.pas

@@ -119,6 +119,7 @@ type
 var
   MainForm: TMainForm;
 
+
 implementation
 
 {$R *.lfm}
@@ -145,7 +146,6 @@ var
   PointFormatSettings: TFormatsettings;
   CacheDir: String = HOMEDIR + 'cache/';   // share the cache in both example projects
 
-
 function CalcIniName: String;
 begin
   Result := ChangeFileExt(Application.ExeName, '.ini');