Changeset 210 for branches/highdpi/Start.pas

Timestamp:

May 9, 2020, 4:02:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

• branches/highdpi/Start.pas (modified) (54 diffs)

branches/highdpi/Start.pas

@@ -5 +5 @@
 
 uses
-  GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Math,
+  UDpiControls, GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area,
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
-  Menus, Registry, DrawDlg, fgl, Protocol, UDpiControls;
-
-const
-  // main actions
-  nMainActions = 5;
-  maConfig = 0;
-  maManual = 1;
-  maCredits = 2;
-  maAIDev = 3;
-  maWeb = 4;
+  Menus, Registry, DrawDlg, fgl, Protocol;
 
 type
@@ -40 +31 @@
   );
 
-  TStartTab = (
-    tbMain,
-    tbMap,
-    tbNew,
-    tbPrevious
-  );
+  TStartTab = (tbMain, tbMap, tbNew, tbPrevious);
+  TMainAction = (maConfig, maManual, maCredits, maAIDev, maWeb, maNone);
+  TMainActionSet = set of TMainAction;
 
   TMapArray = array[0 .. lxmax * lymax - 1] of Byte;
+
+  TMiniMode = (mmNone, mmPicture, mmMultiPlayer);
+
+  { TMiniMap }
+
+  TMiniMap = class
+  const
+    MaxWidthMapLogo = 96;
+    MaxHeightMapLogo = 96;
+  var
+    Bitmap: TDpiBitmap; { game world sample preview }
+    Size: TPoint;
+    Colors: array [0 .. 11, 0 .. 1] of TColor;
+    Mode: TMiniMode;
+    procedure LoadFromLogFile(FileName: string; var LastTurn: Integer);
+    procedure LoadFromMapFile(FileName: string; var nMapLandTiles, nMapStartPositions: Integer);
+    procedure PaintRandom(Brightness, StartLandMass, WorldSize: Integer);
+    procedure PaintFile(SaveMap: TMapArray);
+    constructor Create;
+    destructor Destroy; override;
+  end;
 
   { TStartDlg }
@@ -72 +81 @@
     procedure FormShow(Sender: TObject);
     procedure FormHide(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure BrainClick(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; x, y: integer);
+    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; x, y: integer);
+    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; x, y: integer);
     procedure Up1BtnClick(Sender: TObject);
     procedure Down1BtnClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure ListClick(Sender: TObject);
     procedure RenameBtnClick(Sender: TObject);
@@ -88 +101 @@
     procedure Down2BtnClick(Sender: TObject);
     procedure QuitBtnClick(Sender: TObject);
-    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure CustomizeBtnClick(Sender: TObject);
     procedure AutoDiffUpBtnClick(Sender: TObject);
     procedure AutoDiffDownBtnClick(Sender: TObject);
-    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; x, y: integer);
-    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; x, y: integer);
     procedure AutoEnemyUpBtnClick(Sender: TObject);
     procedure AutoEnemyDownBtnClick(Sender: TObject);
@@ -109 +118 @@
     AutoDiff: Integer;
     MultiControl: Integer;
-    MiniWidth: Integer;
-    MiniHeight: Integer;
-    SelectedAction: Integer;
     Page: TStartPage;
     ShowTab: TStartTab;
@@ -126 +132 @@
     ListIndex: array [TStartTab] of Integer;
     MapFileName: string;
-    FormerGames, Maps: TStringList;
-    LogoBuffer, Mini: TDpiBitmap; { game world sample preview }
-    MiniColors: array [0 .. 11, 0 .. 1] of TColor;
+    FormerGames: TStringList;
+    Maps: TStringList;
+    LogoBuffer: TDpiBitmap;
     // BookDate: string;
     PlayerSlots: TPlayerSlots;
-    MiniMode: (mmNone, mmPicture, mmMultiPlayer);
-    ActionsOffered: set of 0 .. nMainActions - 1;
-    TurnValid, Tracking: boolean;
+    ActionsOffered: TMainActionSet;
+    SelectedAction: TMainAction;
+    TurnValid: Boolean;
+    Tracking: Boolean;
     DefaultAI: string;
+    MiniMap: TMiniMap;
     procedure DrawAction(y, IconIndex: integer; HeaderItem, TextItem: string);
     procedure InitPopup(PlayerIndex: Integer);
     procedure OfferBrain(Brain: TBrain; FixedLines: Integer);
-    procedure PaintFileMini(SaveMap: TMapArray);
     procedure PaintInfo;
     procedure ChangePage(NewPage: TStartPage);
     procedure ChangeTab(NewTab: TStartTab);
-    procedure PaintRandomMini(Brightness: integer);
     procedure UnlistBackupFile(FileName: string);
     procedure SmartInvalidate(x0, y0, x1, y1: integer;
       invalidateTab0: boolean = false); overload;
     procedure LoadConfig;
+    procedure SaveConfig;
+    procedure LoadAiBrainsPictures;
+    procedure UpdateInterface;
   end;
 
@@ -152 +161 @@
   StartDlg: TStartDlg;
 
+
 implementation
 
 uses
-  Directories, Direct, ScreenTools, Inp, Back, Locale;
+  Global, Directories, Direct, ScreenTools, Inp, Back, Locale, UPixelPointer;
 
 {$R *.lfm}
 
 const
-  CevoExt = '.cevo';
-  CevoMapExt = '.cevo map';
   // predefined world size
   // attention: lx*ly+1 must be prime!
-  { nWorldSize=8;
+  { MaxWorldSize=8;
     lxpre: array[0..nWorldSize-1] of integer =(30,40,50,60,70,90,110,130);
     lypre: array[0..nWorldSize-1] of integer =(46,52,60,70,84,94,110,130);
     DefaultWorldTiles=4200; }
-  nWorldSize = 6;
-  lxpre: array [0 .. nWorldSize - 1] of integer = (30, 40, 50, 60, 75, 100);
-  lypre: array [0 .. nWorldSize - 1] of integer = (46, 52, 60, 70, 82, 96);
+  MaxWorldSize = 6;
+  WorldSizes: array [0 .. MaxWorldSize - 1] of TPoint = ((X: 30; Y: 46),
+    (X: 40; Y: 52), (X: 50; Y: 60), (X: 60; Y: 70), (X: 75; Y: 82),
+    (X: 100; Y: 96));
   DefaultWorldTiles = 4150;
   DefaultWorldSize = 3;
@@ -206 +215 @@
   TabHeight = 40;
 
-  MaxWidthMapLogo = 96;
-  MaxHeightMapLogo = 96;
-
   InitAlive: array [1 .. nPl] of integer = (1, 1 + 2, 1 + 2 + 32,
     1 + 2 + 8 + 128, 1 + 2 + 8 + 32 + 128, 1 + 2 + 8 + 16 + 64 + 128,
@@ -219 +225 @@
   EnemyAutoDiff: array [1 .. 5] of integer = (4, 3, 2, 1, 1);
 
+{ TMiniMap }
+
+constructor TMiniMap.Create;
+var
+  X, Y: Integer;
+begin
+  Bitmap := TDpiBitmap.Create;
+
+  for X := 0 to 11 do
+    for Y := 0 to 1 do
+      Colors[x, y] := GrExt[HGrSystem].Data.Canvas.Pixels[66 + x, 67 + y];
+end;
+
+destructor TMiniMap.Destroy;
+begin
+  FreeAndNil(Bitmap);
+  inherited Destroy;
+end;
+
+procedure TMiniMap.LoadFromLogFile(FileName: string; var LastTurn: Integer);
+var
+  SaveMap: TMapArray;
+  y: Integer;
+  Dummy: Integer;
+  FileLandMass: integer;
+  LogFile: file;
+  s: string[255];
+  MapRow: array [0 .. lxmax - 1] of Cardinal;
+begin
+  AssignFile(LogFile, FileName);
+  try
+    Reset(LogFile, 4);
+    BlockRead(LogFile, s[1], 2); { file id }
+    BlockRead(LogFile, Dummy, 1); { format id }
+    if Dummy >= $000E01 then
+      BlockRead(LogFile, Dummy, 1); { item stored since 0.14.1 }
+    BlockRead(LogFile, Size.X, 1);
+    BlockRead(LogFile, Size.Y, 1);
+    BlockRead(LogFile, FileLandMass, 1);
+    if FileLandMass = 0 then
+      for y := 0 to Size.Y - 1 do
+        BlockRead(LogFile, MapRow, Size.X);
+    BlockRead(LogFile, Dummy, 1);
+    BlockRead(LogFile, Dummy, 1);
+    BlockRead(LogFile, LastTurn, 1);
+    BlockRead(LogFile, SaveMap, 1);
+    if SaveMap[0] = $80 then
+      Mode := mmMultiPlayer
+    else
+      Mode := mmPicture;
+    if Mode = mmPicture then
+      BlockRead(LogFile, SaveMap[4], (Size.X * Size.Y - 1) div 4);
+    CloseFile(LogFile);
+  except
+    CloseFile(LogFile);
+    LastTurn := 0;
+    Size := WorldSizes[DefaultWorldSize];
+    Mode := mmNone;
+  end;
+  PaintFile(SaveMap);
+end;
+
+procedure TMiniMap.LoadFromMapFile(FileName: string; var nMapLandTiles, nMapStartPositions: Integer);
+var
+  x, y, lxFile, lyFile: integer;
+  MapFile: file;
+  s: string[255];
+  MapRow: array [0 .. lxmax - 1] of Cardinal;
+  ImageFileName: string;
+begin
+  ImageFileName := Copy(FileName, 1, Length(FileName) - Length(CevoMapExt)) + '.png';
+  Mode := mmPicture;
+  if LoadGraphicFile(Bitmap, ImageFileName, gfNoError) then
+  begin
+    if Bitmap.width div 2 > MaxWidthMapLogo then
+      Bitmap.width := MaxWidthMapLogo * 2;
+    if Bitmap.height > MaxHeightMapLogo then
+      Bitmap.height := MaxHeightMapLogo;
+    Size.X := Bitmap.width div 2;
+    Size.Y := Bitmap.height;
+  end
+  else
+  begin
+    Mode := mmNone;
+    Size.X := MaxWidthMapLogo;
+    Size.Y := MaxHeightMapLogo;
+  end;
+
+  AssignFile(MapFile, FileName);
+  try
+    Reset(MapFile, 4);
+    BlockRead(MapFile, s[1], 2); { file id }
+    BlockRead(MapFile, x, 1); { format id }
+    BlockRead(MapFile, x, 1); // MaxTurn
+    BlockRead(MapFile, lxFile, 1);
+    BlockRead(MapFile, lyFile, 1);
+    nMapLandTiles := 0;
+    nMapStartPositions := 0;
+    for y := 0 to lyFile - 1 do begin
+      BlockRead(MapFile, MapRow, lxFile);
+      for x := 0 to lxFile - 1 do
+      begin
+        if (MapRow[x] and fTerrain) in [fGrass, fPrairie, fTundra, fSwamp,
+          fForest, fHills] then
+          inc(nMapLandTiles);
+        if MapRow[x] and (fPrefStartPos or fStartPos) <> 0 then
+          inc(nMapStartPositions);
+      end
+    end;
+    if nMapStartPositions > nPl then
+      nMapStartPositions := nPl;
+    CloseFile(MapFile);
+  except
+    CloseFile(MapFile);
+  end;
+end;
+
+procedure TMiniMap.PaintRandom(Brightness, StartLandMass, WorldSize: Integer);
+var
+  i, x, y, xm, cm: Integer;
+  MiniPixel: TPixelPointer;
+  Map: ^TTileList;
+begin
+  Map := PreviewMap(StartLandMass);
+  Size := WorldSizes[WorldSize];
+
+  Bitmap.PixelFormat := pf24bit;
+  Bitmap.SetSize(Size.X * 2, Size.Y);
+  Bitmap.BeginUpdate;
+  MiniPixel := PixelPointer(Bitmap);
+  for y := 0 to ScaleToVcl(Size.Y) - 1 do begin
+    for x := 0 to ScaleToVcl(Size.X) - 1 do begin
+      for i := 0 to 1 do begin
+        xm := (x * 2 + i + y and 1) mod (ScaleToVcl(Size.X) * 2);
+        MiniPixel.SetX(xm);
+        cm := Colors
+          [Map[ScaleFromVcl(x) * lxmax div Size.X + lxmax *
+          ((ScaleFromVcl(y) * (lymax - 1) + Size.Y div 2) div (Size.Y - 1))] and
+          fTerrain, i];
+        MiniPixel.Pixel^.B := ((cm shr 16) and $FF) * Brightness div 3;
+        MiniPixel.Pixel^.G := ((cm shr 8) and $FF) * Brightness div 3;
+        MiniPixel.Pixel^.R := ((cm shr 0) and $FF) * Brightness div 3;
+      end;
+    end;
+    MiniPixel.NextLine;
+  end;
+  Bitmap.EndUpdate;
+end;
+
+procedure TMiniMap.PaintFile(SaveMap: TMapArray);
+var
+  i, x, y, xm, cm, Tile, OwnColor, EnemyColor: integer;
+  MiniPixel: TPixelPointer;
+  PrevMiniPixel: TPixelPointer;
+begin
+  OwnColor := GrExt[HGrSystem].Data.Canvas.Pixels[95, 67];
+  EnemyColor := GrExt[HGrSystem].Data.Canvas.Pixels[96, 67];
+  Bitmap.PixelFormat := pf24bit;
+  Bitmap.SetSize(Size.X * 2, Size.Y);
+  if Mode = mmPicture then begin
+    Bitmap.BeginUpdate;
+    MiniPixel := PixelPointer(Bitmap);
+    PrevMiniPixel := PixelPointer(Bitmap, 0, -1);
+    for y := 0 to ScaleToVcl(Size.Y) - 1 do begin
+      for x := 0 to ScaleToVcl(Size.X) - 1 do begin
+        for i := 0 to 1 do begin
+          xm := (x * 2 + i + y and 1) mod (ScaleToVcl(Size.X) * 2);
+          MiniPixel.SetX(xm);
+          Tile := SaveMap[ScaleFromVcl(x) + Size.X * ScaleFromVcl(y)];
+          if Tile and fTerrain = fUNKNOWN then
+            cm := $000000
+          else if Tile and smCity <> 0 then
+          begin
+            if Tile and smOwned <> 0 then
+              cm := OwnColor
+            else
+              cm := EnemyColor;
+            if y > 0 then begin
+              // 2x2 city dot covers two lines
+              PrevMiniPixel.SetX(xm);
+              PrevMiniPixel.Pixel^.B := cm shr 16;
+              PrevMiniPixel.Pixel^.G:= cm shr 8 and $FF;
+              PrevMiniPixel.Pixel^.R := cm and $FF;
+            end;
+          end
+          else if (i = 0) and (Tile and smUnit <> 0) then
+            if Tile and smOwned <> 0 then
+              cm := OwnColor
+            else cm := EnemyColor
+          else
+            cm := Colors[Tile and fTerrain, i];
+          MiniPixel.Pixel^.B := (cm shr 16) and $ff;
+          MiniPixel.Pixel^.G := (cm shr 8) and $ff;
+          MiniPixel.Pixel^.R := (cm shr 0) and $ff;
+        end;
+      end;
+      MiniPixel.NextLine;
+      PrevMiniPixel.NextLine;
+    end;
+    Bitmap.EndUpdate;
+  end;
+end;
+
+{ TStartDlg }
 
 procedure TStartDlg.FormCreate(Sender: TObject);
 var
-  x, y, i: Integer;
-  r0, r1: HRgn;
-  Location: TPoint;
+  x, i: Integer;
+  PlayerSlot: TPlayerSlot;
   AIBrains: TBrains;
-  PlayerSlot: TPlayerSlot;
 begin
   PlayerSlots := TPlayerSlots.Create;
@@ -236 +444 @@
   end;
   LoadConfig;
-
-  ActionsOffered := [maManual, maCredits, maWeb];
-  Include(ActionsOffered, maConfig);
-  if FileExists(HomeDir + 'AI Template' + DirectorySeparator + 'AI development manual.html') then
+  LoadAssets;
+
+  ActionsOffered := [maConfig, maManual, maCredits, maWeb];
+  if FileExists(HomeDir + AITemplateFileName) then
     Include(ActionsOffered, maAIDev);
 
@@ -259 +467 @@
   DirectDlg.Top := (DpiScreen.Height - DirectDlg.Height) div 2;
 
-  if FullScreen then
-  begin
-    Location := Point((DpiScreen.Width - 800) * 3 div 8,
-      DpiScreen.Height - Height - (DpiScreen.Height - 600) div 3);
-    Left := Location.X;
-    Top := Location.Y;
-
-    r0 := DpiCreateRectRgn(0, 0, Width, Height);
-    r1 := DpiCreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight);
-    CombineRgn(r0, r0, r1, RGN_DIFF);
-    DeleteObject(r1);
-    r1 := DpiCreateRectRgn(QuitBtn.Left, QuitBtn.Top, QuitBtn.Left + QuitBtn.Width,
-      QuitBtn.top + QuitBtn.Height);
-    CombineRgn(r0, r0, r1, RGN_OR);
-    DeleteObject(r1);
-    SetWindowRgn(Handle, r0, False);
-    DeleteObject(r0); // causes crash with Windows 95
-  end
-  else
-  begin
-    Left := (DpiScreen.Width - Width) div 2;
-    Top := (DpiScreen.Height - Height) div 2;
-  end;
+  UpdateInterface;
 
   Canvas.Font.Assign(UniFont[ftNormal]);
@@ -290 +476 @@
   PlayerSlots.Count := nPlOffered;
   for i := 0 to PlayerSlots.Count - 1 do
-  with TPlayerSlot(PlayerSlots[i]) do begin
+  with PlayerSlots[i] do begin
     DiffUpBtn := TButtonC.Create(self);
     DiffUpBtn.Graphic := GrExt[HGrSystem].Data;
@@ -324 +510 @@
     CustomizeBtn.ButtonIndex := 2;
 
-  Brains[0].Picture := TDpiBitmap.Create;
-  Brains[0].Picture.SetSize(64, 64);
-  DpiBitBlt(Brains[0].Picture.Canvas.Handle, 0, 0, 64, 64,
-    GrExt[HGrSystem2].Data.Canvas.Handle, 1, 111, SRCCOPY);
-  Brains[1].Picture := TDpiBitmap.Create;
-  Brains[1].Picture.SetSize(64, 64);
-  DpiBitBlt(Brains[1].Picture.Canvas.Handle, 0, 0, 64, 64,
-    GrExt[HGrSystem2].Data.Canvas.Handle, 66, 111, SRCCOPY);
-  Brains[2].Picture := TDpiBitmap.Create;
-  Brains[2].Picture.SetSize(64, 64);
-  DpiBitBlt(Brains[2].Picture.Canvas.Handle, 0, 0, 64, 64,
-    GrExt[HGrSystem2].Data.Canvas.Handle, 131, 111, SRCCOPY);
-  Brains[3].Picture := TDpiBitmap.Create;
-  Brains[3].Picture.SetSize(64, 64);
-  DpiBitBlt(Brains[3].Picture.Canvas.Handle, 0, 0, 64, 64,
-    GrExt[HGrSystem2].Data.Canvas.Handle, 131, 46, SRCCOPY);
-
-  AIBrains := TBrains.Create(False);
-  Brains.GetByKind(btAI, AIBrains);
-  for i := 0 to AIBrains.Count - 1 do
-  with AIBrains[I] do
-  begin
-    AIBrains[i].Picture := TDpiBitmap.Create;
-    if not LoadGraphicFile(AIBrains[i].Picture, HomeDir + 'AI' + DirectorySeparator +
-      FileName + DirectorySeparator + FileName + '.png', gfNoError) then begin
-      AIBrains[i].Picture.SetSize(64, 64);
-      with AIBrains[i].Picture.Canvas do begin
-        Brush.Color := $904830;
-        FillRect(Rect(0, 0, 64, 64));
-        Font.Assign(UniFont[ftTiny]);
-        Font.Style := [];
-        Font.Color := $5FDBFF;
-        Textout(32 - TextWidth(FileName) div 2,
-          32 - TextHeight(FileName) div 2, FileName);
-      end;
-    end;
-  end;
-  AIBrains.Free;
+  BitBltBitmap(BrainNoTerm.Picture, 0, 0, 64, 64, GrExt[HGrSystem2].Data, 1, 111);
+  BitBltBitmap(BrainSuperVirtual.Picture, 0, 0, 64, 64, GrExt[HGrSystem2].Data, 66, 111);
+  BitBltBitmap(BrainTerm.Picture, 0, 0, 64, 64, GrExt[HGrSystem2].Data, 131, 111);
+  BitBltBitmap(BrainRandom.Picture, 0, 0, 64, 64, GrExt[HGrSystem2].Data, 131, 46);
+  LoadAiBrainsPictures;
 
   EmptyPicture := TDpiBitmap.Create;
@@ -372 +525 @@
   LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
 
-  Mini := TDpiBitmap.Create;
-  for x := 0 to 11 do
-    for y := 0 to 1 do
-      MiniColors[x, y] := GrExt[HGrSystem].Data.Canvas.Pixels[66 + x, 67 + y];
+  MiniMap := TMiniMap.Create;
   InitButtons;
 
@@ -394 +544 @@
 procedure TStartDlg.FormDestroy(Sender: TObject);
 begin
+  SaveConfig;
   FreeAndNil(FormerGames);
   FreeAndNil(Maps);
-  FreeAndNil(Mini);
   FreeAndNil(EmptyPicture);
   FreeAndNil(LogoBuffer);
   FreeAndNil(PlayerSlots);
+  FreeAndNil(MiniMap);
 end;
 
@@ -417 +568 @@
       DeleteObject(r1);
     end;
-  if not invalidateTab0 then
-  begin
+  if not invalidateTab0 then begin
     r1 := DpiCreateRectRgn(0, 0, 6 + 36, 3 + 38); // tab 0 icon
     CombineRgn(r0, r0, r1, RGN_DIFF);
@@ -447 +597 @@
         WriteInteger('Diff' + IntToStr(I), 2);
     end;
-    WriteInteger('MultiControl', 0);
 
     OpenKey(AppRegistryKey, True);
+    if ValueExists('Gamma') then Gamma := ReadInteger('Gamma')
+      else Gamma := 100;
+    if Gamma <> 100 then InitGammaLookupTable;
+    if ValueExists('Locale') then LocaleCode := ReadString('Locale')
+      else LocaleCode := '';
     if ValueExists('WorldSize') then WorldSize := Reg.ReadInteger('WorldSize')
       else WorldSize := DefaultWorldSize;
@@ -475 +629 @@
     if ValueExists('ResolutionFreq') then
       ResolutionFreq := ReadInteger('ResolutionFreq');
+    if ValueExists('MultiControl') then
+      MultiControl := ReadInteger('MultiControl')
+      else MultiControl := 0;
     {$IFDEF WINDOWS}
     if ScreenMode = 2 then
@@ -485 +642 @@
 end;
 
+procedure TStartDlg.SaveConfig;
+var
+  Reg: TRegistry;
+begin
+  Reg := TRegistry.Create;
+  with Reg do try
+    OpenKey(AppRegistryKey, True);
+    WriteInteger('WorldSize', WorldSize);
+    WriteInteger('LandMass', StartLandMass);
+    WriteString('Locale', LocaleCode);
+    WriteInteger('Gamma', Gamma);
+    if FullScreen then WriteInteger('ScreenMode', 1)
+      else WriteInteger('ScreenMode', 0);
+    WriteInteger('MultiControl', MultiControl);
+  finally
+    Free;
+  end;
+end;
+
+procedure TStartDlg.LoadAiBrainsPictures;
+var
+  AIBrains: TBrains;
+  I: Integer;
+begin
+  AIBrains := TBrains.Create(False);
+  Brains.GetByKind(btAI, AIBrains);
+  for i := 0 to AIBrains.Count - 1 do
+  with AIBrains[I] do begin
+    if not LoadGraphicFile(AIBrains[i].Picture, GetAiDir + DirectorySeparator +
+      FileName + DirectorySeparator + FileName + '.png', gfNoError) then begin
+      with AIBrains[i].Picture.Canvas do begin
+        Brush.Color := $904830;
+        FillRect(Rect(0, 0, 64, 64));
+        Font.Assign(UniFont[ftTiny]);
+        Font.Style := [];
+        Font.Color := $5FDBFF;
+        Textout(32 - TextWidth(FileName) div 2,
+          32 - TextHeight(FileName) div 2, FileName);
+      end;
+    end;
+  end;
+  AIBrains.Free;
+end;
+
+procedure TStartDlg.UpdateInterface;
+var
+  r0, r1: HRgn;
+  Location: TPoint;
+begin
+  if FullScreen then begin
+    Location := Point((DpiScreen.Width - 800) * 3 div 8,
+      DpiScreen.Height - Height - (DpiScreen.Height - 600) div 3);
+    Left := Location.X;
+    Top := Location.Y;
+
+    r0 := DpiCreateRectRgn(0, 0, Width, Height);
+    r1 := DpiCreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight);
+    CombineRgn(r0, r0, r1, RGN_DIFF);
+    DeleteObject(r1);
+    r1 := DpiCreateRectRgn(QuitBtn.Left, QuitBtn.Top, QuitBtn.Left + QuitBtn.Width,
+      QuitBtn.top + QuitBtn.Height);
+    CombineRgn(r0, r0, r1, RGN_OR);
+    DeleteObject(r1);
+    SetWindowRgn(Handle, r0, False);
+    DeleteObject(r0); // causes crash with Windows 95
+  end else begin
+    Left := (DpiScreen.Width - Width) div 2;
+    Top := (DpiScreen.Height - Height) div 2;
+  end;
+end;
+
 procedure TStartDlg.DrawAction(y, IconIndex: integer; HeaderItem, TextItem: string);
 begin
@@ -493 +721 @@
   BiColorTextOut(Canvas, Colors.Canvas.Pixels[clkAge0 - 1, cliDimmedText],
     $000000, xAction, y + 21, Phrases2.Lookup(TextItem));
-  BitBltCanvas(LogoBuffer.Canvas, 0, 0, 50, 50, Canvas,
-    xActionIcon - 2, y - 2, SRCCOPY);
+
+  // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
+  LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
+  DpiBitCanvas(LogoBuffer.Canvas, 0, 0, 50, 50, Canvas,
+    xActionIcon - 2, y - 2);
   GlowFrame(LogoBuffer, 8, 8, 34, 34, $202020);
-  DpiBitBlt(Canvas.Handle, xActionIcon - 2, y - 2, 50, 50,
-    LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);
-  DpiBitBlt(Canvas.Handle, xActionIcon, y, 40, 40, BigImp.Canvas.Handle,
-    (IconIndex mod 7) * xSizeBig + 8, (IconIndex div 7) * ySizeBig, SRCCOPY);
+  DpiBitCanvas(Canvas, xActionIcon - 2, y - 2, 50, 50,
+    LogoBuffer.Canvas, 0, 0);
+  DpiBitCanvas(Canvas, xActionIcon, y, 40, 40, BigImp.Canvas,
+    (IconIndex mod 7) * xSizeBig + 8, (IconIndex div 7) * ySizeBig);
   RFrame(Canvas, xActionIcon - 1, y - 1, xActionIcon + 40, y + 40,
     $000000, $000000);
@@ -511 +742 @@
   s: string;
   Tab2: TStartTab;
+  MainAction: TMainAction;
 begin
   PaintBackground(self, 3, 3, TabOffset + 4 * TabSize - 4, TabHeight - 3);
@@ -588 +820 @@
       TabOffset + (Integer(Tab) + 1) * TabSize + 2, TabHeight, MainTexture.clBevelShade,
       MainTexture.clBevelShade); // Tab shadow
-  BitBltCanvas(LogoBuffer.Canvas, 0, 0, 36, 36, Canvas, 6,
-    3 + 2 * integer(Tab <> tbMain), SRCCOPY);
+  // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
+  LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
+  DpiBitCanvas(LogoBuffer.Canvas, 0, 0, 36, 36, Canvas, 6,
+    3 + 2 * integer(Tab <> tbMain));
 
   ImageOp_BCC(LogoBuffer, Templates, 0, 0, 145, 38, 36, 27, $BFBF20, $4040DF);
@@ -595 +829 @@
   ImageOp_BCC(LogoBuffer, Templates, 10, 27, 155, 38 + 27, 26, 9, $BFBF20,
     $4040DF); // logo part 2
-  DpiBitBlt(Canvas.Handle, 6, 3 + 2 * integer(Tab <> tbMain), 36, 36,
-    LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);
-
-  if Page = pgMain then
-  begin
-    if SelectedAction >= 0 then // mark selected action
+  DpiBitCanvas(Canvas, 6, 3 + 2 * integer(Tab <> tbMain), 36, 36,
+    LogoBuffer.Canvas, 0, 0);
+
+  if Page = pgMain then begin
+    if SelectedAction <> maNone then // mark selected action
       for i := 0 to (ClientWidth - 2 * ActionSideBorder) div wBuffer + 1 do
       begin
@@ -607 +840 @@
           w := wBuffer;
         h := ActionPitch;
-        if yAction + SelectedAction * ActionPitch - 8 + h > ClientHeight - ActionBottomBorder
+        if yAction + Integer(SelectedAction) * ActionPitch - 8 + h > ClientHeight - ActionBottomBorder
         then
           h := ClientHeight - ActionBottomBorder -
-            (yAction + SelectedAction * ActionPitch - 8);
-        //BitBltCanvas(LogoBuffer.Canvas, 0, 0, w, h, Canvas,
-        //  ActionSideBorder + i * wBuffer, yAction + SelectedAction * ActionPitch
-        //  - 8, SRCCOPY);
-        BitBlt(LogoBuffer.Canvas.Handle, 0, 0, w, h, Canvas.Handle,
-          ActionSideBorder + i * wBuffer, yAction + SelectedAction * ActionPitch
-          - 8, SRCCOPY);
+            (yAction + Integer(SelectedAction) * ActionPitch - 8);
+        // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
+        LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
+        DpiBitCanvas(LogoBuffer.Canvas, 0, 0, w, h, Canvas,
+          ActionSideBorder + i * wBuffer, yAction + Integer(SelectedAction) * ActionPitch
+          - 8);
         MakeBlue(LogoBuffer, 0, 0, w, h);
-        DpiBitBlt(Canvas.Handle, ActionSideBorder + i * wBuffer,
-          yAction + SelectedAction * ActionPitch - 8, w, h,
-          LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);
+        DpiBitCanvas(Canvas, ActionSideBorder + i * wBuffer,
+          yAction + Integer(SelectedAction) * ActionPitch - 8, w, h,
+          LogoBuffer.Canvas, 0, 0);
       end;
     y := yAction;
-    for i := 0 to nMainActions - 1 do
+    for MainAction := Low(TMainActionSet) to High(TMainActionSet) do
     begin
-      if i in ActionsOffered then
-        case i of
-          maConfig:
-            DrawAction(y, 25, 'ACTIONHEADER_CONFIG', 'ACTION_CONFIG');
-          maManual:
-            DrawAction(y, 19, 'ACTIONHEADER_MANUAL', 'ACTION_MANUAL');
-          maCredits:
-            DrawAction(y, 22, 'ACTIONHEADER_CREDITS', 'ACTION_CREDITS');
-          maAIDev:
-            DrawAction(y, 24, 'ACTIONHEADER_AIDEV', 'ACTION_AIDEV');
+      if MainAction in ActionsOffered then
+        case MainAction of
+          maConfig: DrawAction(y, 25, 'ACTIONHEADER_CONFIG', 'ACTION_CONFIG');
+          maManual: DrawAction(y, 19, 'ACTIONHEADER_MANUAL', 'ACTION_MANUAL');
+          maCredits: DrawAction(y, 22, 'ACTIONHEADER_CREDITS', 'ACTION_CREDITS');
+          maAIDev: DrawAction(y, 24, 'ACTIONHEADER_AIDEV', 'ACTION_AIDEV');
           maWeb:
             begin
@@ -642 +870 @@
                 Phrases2.Lookup('ACTIONHEADER_WEB'));
               Canvas.Font.Assign(UniFont[ftNormal]);
-              BitBltCanvas(LogoBuffer.Canvas, 0, 0, 91, 25, Canvas,
-                xActionIcon, y + 2, SRCCOPY);
+              // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
+              LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
+              DpiBitCanvas(LogoBuffer.Canvas, 0, 0, 91, 25, Canvas,
+                xActionIcon, y + 2);
               ImageOp_BCC(LogoBuffer, Templates, 0, 0, 1, 400, 91, 25, 0,
                 Colors.Canvas.Pixels[clkAge0 - 1, cliDimmedText]);
-              DpiBitBlt(Canvas.Handle, xActionIcon, y + 2, 91, 25,
-                LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);
+              DpiBitCanvas(Canvas, xActionIcon, y + 2, 91, 25,
+                LogoBuffer.Canvas, 0, 0);
             end;
         end;
-      inc(y, ActionPitch);
+      Inc(y, ActionPitch);
     end;
   end
@@ -671 +901 @@
         if (i < 13) or (i > 17) then
         begin
-          DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
-            GrExt[HGrSystem2].Mask.Canvas.Handle, xOrna, yOrna, SRCAND);
-          DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
-            GrExt[HGrSystem2].Data.Canvas.Handle, xOrna, yOrna, SRCPAINT);
+          DpiBitCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
+            GrExt[HGrSystem2].Mask.Canvas, xOrna, yOrna, SRCAND);
+          DpiBitCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
+            GrExt[HGrSystem2].Data.Canvas, xOrna, yOrna, SRCPAINT);
         end;
       PaintLogo(Canvas, 69 + 11 * 27, yLogo, MainTexture.clBevelLight,
@@ -690 +920 @@
           if Assigned(PlayersBrain[I]) and (PlayersBrain[i].Kind in [btTerm, btRandom, btAI]) then
           begin
-            DpiBitBlt(Canvas.Handle, xBrain[i] - 18, yBrain[i] + 19, 12, 14,
-              GrExt[HGrSystem].Data.Canvas.Handle, 134 + (Difficulty[i] - 1) *
-              13, 28, SRCCOPY);
+            DpiBitCanvas(Canvas, xBrain[i] - 18, yBrain[i] + 19, 12, 14,
+              GrExt[HGrSystem].Data.Canvas, 134 + (Difficulty[i] - 1) *
+              13, 28);
             Frame(Canvas, xBrain[i] - 19, yBrain[i] + 18, xBrain[i] - 18 + 12,
               yBrain[i] + (19 + 14), $000000, $000000);
@@ -710 +940 @@
                 PlayerSlots[I].MultiBtn.left + 12, PlayerSlots[I].MultiBtn.top + 12,
                 MainTexture.clBevelShade, MainTexture.clBevelLight);
-              DpiBitBlt(Canvas.Handle, xBrain[i] - 31, yBrain[i], 13, 12,
-                GrExt[HGrSystem].Data.Canvas.Handle, 88, 47, SRCCOPY);
+              DpiBitCanvas(Canvas, xBrain[i] - 31, yBrain[i], 13, 12,
+                GrExt[HGrSystem].Data.Canvas, 88, 47);
             end;
           end;
@@ -755 +985 @@
         if (i < 2) or (i > 6) then
         begin
-          DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
-            GrExt[HGrSystem2].Mask.Canvas.Handle, xOrna, yOrna, SRCAND);
-          DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
-            GrExt[HGrSystem2].Data.Canvas.Handle, xOrna, yOrna, SRCPAINT);
+          DpiBitCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
+            GrExt[HGrSystem2].Mask.Canvas, xOrna, yOrna, SRCAND);
+          DpiBitCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
+            GrExt[HGrSystem2].Data.Canvas, xOrna, yOrna, SRCPAINT);
         end;
       PaintLogo(Canvas, 69, yLogo, MainTexture.clBevelLight,
@@ -788 +1018 @@
       MainTexture.clBevelShade);
     RisedTextOut(Canvas, 344, y0Mini - 77, Phrases.Lookup('STARTCONTROLS', 5));
-    s := IntToStr((lxpre[WorldSize] * lypre[WorldSize] * 20 +
+    s := IntToStr((WorldSizes[WorldSize].X * WorldSizes[WorldSize].Y * 20 +
       DefaultWorldTiles div 2) div DefaultWorldTiles * 5) + '%';
     RisedTextOut(Canvas, 514 - BiColorTextWidth(Canvas, s), y0Mini - 77, s);
@@ -837 +1067 @@
     BtnFrame(Canvas, ReplayBtn.BoundsRect, MainTexture);
 
-  if not(Page in [pgMain, pgNoLoad]) then
-  begin
-    xMini := x0Mini - MiniWidth;
-    yMini := y0Mini - MiniHeight div 2;
-    Frame(Canvas, xMini, yMini, xMini + 3 + MiniWidth * 2,
-      yMini + 3 + MiniHeight, MainTexture.clBevelLight,
+  if not (Page in [pgMain, pgNoLoad]) then
+  begin
+    xMini := x0Mini - MiniMap.Size.X;
+    yMini := y0Mini - MiniMap.Size.Y div 2;
+    Frame(Canvas, xMini, yMini, xMini + 3 + MiniMap.Size.X * 2,
+      yMini + 3 + MiniMap.Size.Y, MainTexture.clBevelLight,
       MainTexture.clBevelShade);
-    Frame(Canvas, xMini + 1, yMini + 1, xMini + 2 + MiniWidth * 2,
-      yMini + 2 + MiniHeight, MainTexture.clBevelShade,
+    Frame(Canvas, xMini + 1, yMini + 1, xMini + 2 + MiniMap.Size.X * 2,
+      yMini + 2 + MiniMap.Size.Y, MainTexture.clBevelShade,
       MainTexture.clBevelLight);
-  end;
-  s := '';
-  if MiniMode = mmPicture then
-  begin
-    DpiBitBlt(Canvas.Handle, xMini + 2, yMini + 2, MiniWidth * 2, MiniHeight,
-      Mini.Canvas.Handle, 0, 0, SRCCOPY);
-    if Page = pgStartRandom then
-      s := Phrases.Lookup('RANMAP')
-  end
-  else if MiniMode = mmMultiPlayer then
-    s := Phrases.Lookup('MPMAP')
-  else if Page = pgStartMap then
-    s := Copy(MapFileName, 1, Length(MapFileName) - 9)
-  else if Page = pgEditMap then
-    s := List.Items[List.ItemIndex]
-  else if Page = pgNoLoad then
-    s := Phrases.Lookup('NOGAMES');
-  if s <> '' then
-    RisedTextOut(Canvas, x0Mini + 2 - BiColorTextWidth(Canvas, s) div 2,
-      y0Mini - 8, s);
+
+    s := '';
+    if MiniMap.Mode = mmPicture then
+    begin
+      DpiBitCanvas(Canvas, xMini + 2, yMini + 2, MiniMap.Size.X * 2, MiniMap.Size.Y,
+        MiniMap.Bitmap.Canvas, 0, 0);
+      if Page = pgStartRandom then
+        s := Phrases.Lookup('RANMAP')
+    end
+    else if MiniMap.Mode = mmMultiPlayer then
+      s := Phrases.Lookup('MPMAP')
+    else if Page = pgStartMap then
+      s := Copy(MapFileName, 1, Length(MapFileName) - 9)
+    else if Page = pgEditMap then
+      s := List.Items[List.ItemIndex]
+    else if Page = pgNoLoad then
+      s := Phrases.Lookup('NOGAMES');
+    if s <> '' then
+      RisedTextOut(Canvas, x0Mini + 2 - BiColorTextWidth(Canvas, s) div 2,
+        y0Mini - 8, s);
+  end;
 end;
 
 procedure TStartDlg.FormShow(Sender: TObject);
-var
-  x, y: integer;
-  PicturePixel: TPixelPointer;
 begin
   SetMainTextureByAge(-1);
   List.Font.Color := MainTexture.clMark;
 
-  Fill(EmptyPicture.Canvas, 0, 0, 64, 64, (wMaintexture - 64) div 2,
-    (hMaintexture - 64) div 2);
-  // darken texture for empty slot
-  EmptyPicture.BeginUpdate;
-  PicturePixel.Init(EmptyPicture);
-  for y := 0 to ScaleToVcl(64) - 1 do begin
-    for x := 0 to ScaleToVcl(64) - 1 do begin
-      PicturePixel.Pixel^.B := Max(PicturePixel.Pixel^.B - 28, 0);
-      PicturePixel.Pixel^.G := Max(PicturePixel.Pixel^.G - 28, 0);
-      PicturePixel.Pixel^.R := Max(PicturePixel.Pixel^.R - 28, 0);
-      PicturePixel.NextPixel;
-    end;
-    PicturePixel.NextLine;
-  end;
-  EmptyPicture.EndUpdate;
+  Fill(EmptyPicture.Canvas, Bounds(0, 0, 64, 64),
+    Point((wMaintexture - 64) div 2, (hMaintexture - 64) div 2));
+
+  DarkenImage(EmptyPicture, 28);
 
   Difficulty[0] := Diff0;
 
-  SelectedAction := -1;
+  SelectedAction := maNone;
   if ShowTab = tbPrevious then
     PreviewMap(StartLandMass); // avoid delay on first TabX change
@@ -921 +1138 @@
 procedure TStartDlg.StartBtnClick(Sender: TObject);
 var
-  I, GameCount, MapCount: integer;
+  I, GameCount, MapCount: Integer;
   FileName: string;
   Reg: TRegistry;
@@ -929 +1146 @@
       begin // load
         FileName := List.Items[List.ItemIndex];
-        if LoadGame(DataDir + 'Saved' + DirectorySeparator, FileName + CevoExt, LoadTurn, false)
+        if LoadGame(GetSavedDir + DirectorySeparator, FileName + CevoExt, LoadTurn, false)
         then
           UnlistBackupFile(FileName)
@@ -960 +1177 @@
           end;
 
-          // save settings and AI assignment
+          // Save settings and AI assignment
           if Page = pgStartRandom then begin
-            WriteInteger('WorldSize', WorldSize);
-            WriteInteger('LandMass', StartLandMass);
-
+            SaveConfig;
             OpenKey(AppRegistryKey + '\AI', True);
             if AutoDiff < 0 then
@@ -974 +1189 @@
                 WriteInteger('Diff' + IntToStr(I), Difficulty[I]);
               end;
-            WriteInteger('MultiControl', MultiControl);
           end;
 
@@ -1013 +1227 @@
         end;
 
-        StartNewGame(DataDir + 'Saved' + DirectorySeparator, FileName + CevoExt, MapFileName,
-          lxpre[WorldSize], lypre[WorldSize], StartLandMass, MaxTurn);
+        StartNewGame(GetSavedDir + DirectorySeparator, FileName + CevoExt, MapFileName,
+          WorldSizes[WorldSize].X, WorldSizes[WorldSize].Y, StartLandMass, MaxTurn);
         UnlistBackupFile(FileName);
       end;
@@ -1033 +1247 @@
         end;
         MapFileName := Format(Phrases.Lookup('MAP'), [MapCount]) + CevoMapExt;
-        EditMap(MapFileName, lxpre[WorldSize], lypre[WorldSize], StartLandMass);
-      end
-  end
-end;
-
-procedure TStartDlg.PaintRandomMini(Brightness: integer);
-var
-  i, x, y, xm, cm: integer;
-  MiniPixel: TPixelPointer;
-  Map: ^TTileList;
-begin
-  Map := PreviewMap(StartLandMass);
-  MiniWidth := lxpre[WorldSize];
-  MiniHeight := lypre[WorldSize];
-
-  Mini.PixelFormat := pf24bit;
-  Mini.SetSize(MiniWidth * 2, MiniHeight);
-  Mini.BeginUpdate;
-  MiniPixel.Init(Mini);
-  for y := 0 to ScaleToVcl(MiniHeight) - 1 do begin
-    for x := 0 to ScaleToVcl(MiniWidth) - 1 do begin
-      for i := 0 to 1 do begin
-        xm := (x * 2 + i + y and 1) mod (ScaleToVcl(MiniWidth) * 2);
-        MiniPixel.SetX(xm);
-        cm := MiniColors
-          [Map[x * lxmax div MiniWidth + lxmax *
-          ((y * (lymax - 1) + MiniHeight div 2) div (MiniHeight - 1))] and
-          fTerrain, i];
-        MiniPixel.Pixel^.B := ((cm shr 16) and $FF) * Brightness div 3;
-        MiniPixel.Pixel^.G := ((cm shr 8) and $FF) * Brightness div 3;
-        MiniPixel.Pixel^.R := ((cm shr 0) and $FF) * Brightness div 3;
-      end;
-    end;
-    MiniPixel.NextLine;
-  end;
-  Mini.EndUpdate;
-end;
-
-procedure TStartDlg.PaintFileMini(SaveMap: TMapArray);
-var
-  i, x, y, xm, cm, Tile, OwnColor, EnemyColor: integer;
-  MiniPixel, PrevMiniPixel: TPixelPointer;
-begin
-  OwnColor := GrExt[HGrSystem].Data.Canvas.Pixels[95, 67];
-  EnemyColor := GrExt[HGrSystem].Data.Canvas.Pixels[96, 67];
-  Mini.PixelFormat := pf24bit;
-  Mini.SetSize(MiniWidth * 2, MiniHeight);
-  if MiniMode = mmPicture then
-  begin
-    Mini.BeginUpdate;
-    MiniPixel.Init(Mini);
-    PrevMiniPixel.Init(Mini, 0, -1);
-    for y := 0 to MiniHeight - 1 do begin
-      for x := 0 to MiniWidth - 1 do begin
-        for i := 0 to 1 do begin
-          xm := (x * 2 + i + y and 1) mod (MiniWidth * 2);
-          MiniPixel.SetX(xm);
-          Tile := SaveMap[x + MiniWidth * y];
-          if Tile and fTerrain = fUNKNOWN then
-            cm := $000000
-          else if Tile and smCity <> 0 then
-          begin
-            if Tile and smOwned <> 0 then
-              cm := OwnColor
-            else
-              cm := EnemyColor;
-            if y > 0 then begin
-              // 2x2 city dot covers two lines
-              PrevMiniPixel.SetX(xm);
-              PrevMiniPixel.Pixel^.B := cm shr 16;
-              PrevMiniPixel.Pixel^.G:= cm shr 8 and $FF;
-              PrevMiniPixel.Pixel^.R := cm and $FF;
-            end;
-          end
-          else if (i = 0) and (Tile and smUnit <> 0) then
-            if Tile and smOwned <> 0 then
-              cm := OwnColor
-            else
-              cm := EnemyColor
-          else
-            cm := MiniColors[Tile and fTerrain, i];
-          MiniPixel.Pixel^.B := cm shr 16;
-          MiniPixel.Pixel^.G:= cm shr 8 and $FF;
-          MiniPixel.Pixel^.R := cm and $FF;
-        end;
-      end;
-      MiniPixel.NextLine;
-      PrevMiniPixel.NextLine;
-    end;
-    Mini.EndUpdate;
+        EditMap(MapFileName, WorldSizes[WorldSize].X, WorldSizes[WorldSize].Y, StartLandMass);
+      end;
   end;
 end;
 
 procedure TStartDlg.PaintInfo;
-var
-  SaveMap: TMapArray;
-  x, y, Dummy, FileLandMass, lxFile, lyFile: integer;
-  LogFile, MapFile: file;
-  s: string[255];
-  MapRow: array [0 .. lxmax - 1] of Cardinal;
 begin
   case Page of
-    pgStartRandom:
-      begin
-        MiniMode := mmPicture;
-        PaintRandomMini(3);
-      end;
-    pgNoLoad:
-      begin
-        MiniWidth := lxpre[DefaultWorldSize];
-        MiniHeight := lypre[DefaultWorldSize];
-        MiniMode := mmNone;
-      end;
-    pgLoad:
-      begin
-        AssignFile(LogFile, DataDir + 'Saved' + DirectorySeparator + List.Items[List.ItemIndex]
-          + CevoExt);
-        try
-          Reset(LogFile, 4);
-          BlockRead(LogFile, s[1], 2); { file id }
-          BlockRead(LogFile, Dummy, 1); { format id }
-          if Dummy >= $000E01 then
-            BlockRead(LogFile, Dummy, 1); { item stored since 0.14.1 }
-          BlockRead(LogFile, MiniWidth, 1);
-          BlockRead(LogFile, MiniHeight, 1);
-          BlockRead(LogFile, FileLandMass, 1);
-          if FileLandMass = 0 then
-            for y := 0 to MiniHeight - 1 do
-              BlockRead(LogFile, MapRow, MiniWidth);
-          BlockRead(LogFile, Dummy, 1);
-          BlockRead(LogFile, Dummy, 1);
-          BlockRead(LogFile, LastTurn, 1);
-          BlockRead(LogFile, SaveMap, 1);
-          if SaveMap[0] = $80 then
-            MiniMode := mmMultiPlayer
-          else
-            MiniMode := mmPicture;
-          if MiniMode = mmPicture then
-            BlockRead(LogFile, SaveMap[4], (MiniWidth * MiniHeight - 1) div 4);
-          CloseFile(LogFile);
-        except
-          CloseFile(LogFile);
-          LastTurn := 0;
-          MiniWidth := lxpre[DefaultWorldSize];
-          MiniHeight := lypre[DefaultWorldSize];
-          MiniMode := mmNone;
-        end;
+    pgStartRandom: begin
+      MiniMap.Mode := mmPicture;
+      MiniMap.PaintRandom(3, StartLandMass, WorldSize);
+    end;
+    pgNoLoad: begin
+      MiniMap.Mode := mmNone;
+      MiniMap.Size := WorldSizes[DefaultWorldSize];
+    end;
+    pgLoad: begin
+        MiniMap.LoadFromLogFile(GetSavedDir + DirectorySeparator +
+          List.Items[List.ItemIndex] + CevoExt, LastTurn);
         // BookDate:=DateToStr(FileDateToDateTime(FileAge(FileName)));
-        PaintFileMini(SaveMap);
-        if not TurnValid then
-        begin
+        if not TurnValid then  begin
           LoadTurn := LastTurn;
           SmartInvalidate(xTurnSlider - 2, y0Mini + 61,
@@ -1190 +1274 @@
         TurnValid := True;
       end;
-    pgEditRandom:
-      begin
-        MapFileName := '';
-        MiniMode := mmPicture;
-        PaintRandomMini(4);
-      end;
+    pgEditRandom: begin
+      MapFileName := '';
+      MiniMap.Mode := mmPicture;
+      MiniMap.PaintRandom(4, StartLandMass, WorldSize);
+    end;
     pgStartMap, pgEditMap:
       begin
-        MiniMode := mmPicture;
         if Page = pgEditMap then
           MapFileName := List.Items[List.ItemIndex] + CevoMapExt;
-        if LoadGraphicFile(Mini, DataDir + 'Maps' + DirectorySeparator + Copy(MapFileName, 1,
-          Length(MapFileName) - 9) + '.png', gfNoError) then
-        begin
-          if Mini.width div 2 > MaxWidthMapLogo then
-            Mini.width := MaxWidthMapLogo * 2;
-          if Mini.height > MaxHeightMapLogo then
-            Mini.height := MaxHeightMapLogo;
-          MiniWidth := Mini.width div 2;
-          MiniHeight := Mini.height;
-        end
-        else
-        begin
-          MiniMode := mmNone;
-          MiniWidth := MaxWidthMapLogo;
-          MiniHeight := MaxHeightMapLogo;
-        end;
-
-        AssignFile(MapFile, DataDir + 'Maps' + DirectorySeparator + MapFileName);
-        try
-          Reset(MapFile, 4);
-          BlockRead(MapFile, s[1], 2); { file id }
-          BlockRead(MapFile, x, 1); { format id }
-          BlockRead(MapFile, x, 1); // MaxTurn
-          BlockRead(MapFile, lxFile, 1);
-          BlockRead(MapFile, lyFile, 1);
-          nMapLandTiles := 0;
-          nMapStartPositions := 0;
-          for y := 0 to lyFile - 1 do
-          begin
-            BlockRead(MapFile, MapRow, lxFile);
-            for x := 0 to lxFile - 1 do
-            begin
-              if (MapRow[x] and fTerrain) in [fGrass, fPrairie, fTundra, fSwamp,
-                fForest, fHills] then
-                inc(nMapLandTiles);
-              if MapRow[x] and (fPrefStartPos or fStartPos) <> 0 then
-                inc(nMapStartPositions);
-            end
-          end;
-          if nMapStartPositions > nPl then
-            nMapStartPositions := nPl;
-          CloseFile(MapFile);
-        except
-          CloseFile(MapFile);
-        end;
+        MiniMap.LoadFromMapFile(GetMapsDir + DirectorySeparator + MapFileName, nMapLandTiles, nMapStartPositions);
         if Page = pgEditMap then
           SmartInvalidate(x0Mini - 112, y0Mini + 61, x0Mini + 112, y0Mini + 91);
@@ -1398 +1436 @@
 begin
   FormerGames.Clear;
-  if FindFirst(DataDir + 'Saved' + DirectorySeparator + '*' + CevoExt, $21, F) = 0 then
+  if FindFirst(GetSavedDir + DirectorySeparator + '*' + CevoExt, $21, F) = 0 then
     repeat
       I := FormerGames.Count;
@@ -1418 +1456 @@
 begin
   Maps.Clear;
-  if FindFirst(DataDir + 'Maps' + DirectorySeparator + '*' + CevoMapExt, $21, f) = 0 then
+  if FindFirst(GetMapsDir + DirectorySeparator + '*' + CevoMapExt, $21, f) = 0 then
     repeat
       Maps.Add(Copy(f.Name, 1, Length(f.Name) - 9));
@@ -1435 +1473 @@
   s: string;
   Reg: TRegistry;
-  invalidateTab0: boolean;
-begin
-  invalidateTab0 := (Page = pgMain) or (NewPage = pgMain);
+  InvalidateTab0: boolean;
+begin
+  InvalidateTab0 := (Page = pgMain) or (NewPage = pgMain);
   Page := NewPage;
   case Page of
@@ -1478 +1516 @@
                       PlayersBrain[p1] := Brains[j];
               end;
-              MultiControl := Reg.ReadInteger('MultiControl');
             finally
               Free;
@@ -1556 +1593 @@
     Controls[i].Visible := Controls[i].Tag and (256 shl Integer(Page)) <> 0;
   if Page = pgLoad then
-    ReplayBtn.Visible := MiniMode <> mmMultiPlayer;
+    ReplayBtn.Visible := MiniMap.Mode <> mmMultiPlayer;
   List.Invalidate;
   SmartInvalidate(0, 0, ClientWidth, ClientHeight, invalidateTab0);
@@ -1616 +1653 @@
           LocaleDlg := TLocaleDlg.Create(nil);
           if LocaleDlg.ShowModal = mrOk then begin
-            LoadPhrases;
+            LoadAssets;
             Invalidate;
+            UpdateInterface;
+            Background.UpdateInterface;
           end;
           FreeAndNil(LocaleDlg);
@@ -1626 +1665 @@
         DirectHelp(cStartCredits);
       maAIDev:
-        OpenDocument(pchar(HomeDir + 'AI Template' + DirectorySeparator + 'AI development manual.html'));
+        OpenDocument(HomeDir + AITemplateFileName);
       maWeb:
-        OpenURL('http://c-evo.org')
+        OpenURL(CevoHomepage);
     end;
   end
@@ -1720 +1759 @@
 procedure TStartDlg.Up1BtnClick(Sender: TObject);
 begin
-  if WorldSize < nWorldSize - 1 then
+  if WorldSize < MaxWorldSize - 1 then
   begin
     Inc(WorldSize);
@@ -1761 +1800 @@
   PaintInfo;
   if Page = pgLoad then
-    ReplayBtn.Visible := MiniMode <> mmMultiPlayer;
+    ReplayBtn.Visible := MiniMap.Mode <> mmMultiPlayer;
 end;
 
@@ -1793 +1832 @@
         end;
       if Page = pgLoad then
-        AssignFile(f, DataDir + 'Saved' + DirectorySeparator + List.Items[List.ItemIndex] + CevoExt)
+        AssignFile(f, GetSavedDir + DirectorySeparator + List.Items[List.ItemIndex] + CevoExt)
       else
-        AssignFile(f, DataDir + 'Maps'+ DirectorySeparator + List.Items[List.ItemIndex] +
+        AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex] +
           CevoMapExt);
       ok := true;
       try
         if Page = pgLoad then
-          Rename(f, DataDir + 'Saved'+ DirectorySeparator + NewName + CevoExt)
+          Rename(f, GetSavedDir + DirectorySeparator + NewName + CevoExt)
         else
-          Rename(f, DataDir + 'Maps'+ DirectorySeparator + NewName + CevoMapExt);
+          Rename(f, GetMapsDir + DirectorySeparator + NewName + CevoMapExt);
       except
         // Play('INVALID');
@@ -1809 +1848 @@
       if Page <> pgLoad then
         try // rename map picture
-          AssignFile(f, DataDir + 'Maps'+ DirectorySeparator + List.Items[List.ItemIndex]
+          AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex]
             + '.png');
-          Rename(f, DataDir + 'Maps'+ DirectorySeparator + NewName + '.png');
+          Rename(f, GetMapsDir + DirectorySeparator + NewName + '.png');
         except
         end;
@@ -1845 +1884 @@
     begin
       if Page = pgLoad then
-        AssignFile(f, DataDir + 'Saved' + DirectorySeparator + List.Items[List.ItemIndex] + CevoExt)
+        AssignFile(f, GetSavedDir + DirectorySeparator + List.Items[List.ItemIndex] + CevoExt)
       else
-        AssignFile(f, DataDir + 'Maps' + DirectorySeparator + List.Items[List.ItemIndex] +
+        AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex] +
           CevoMapExt);
       Erase(f);
@@ -1873 +1912 @@
           PaintInfo;
           if Page = pgLoad then
-            ReplayBtn.Visible := MiniMode <> mmMultiPlayer;
+            ReplayBtn.Visible := MiniMap.Mode <> mmMultiPlayer;
         end;
       end;
@@ -1967 +2006 @@
   x, y: integer);
 var
-  OldLoadTurn, NewSelectedAction: Integer;
+  OldLoadTurn: Integer;
+  NewSelectedAction: TMainAction;
 begin
   if Tracking then
@@ -1998 +2038 @@
       (y >= yAction - 8) and (y < ClientHeight - ActionBottomBorder) then
     begin
-      NewSelectedAction := (y - (yAction - 8)) div ActionPitch;
-      if not(NewSelectedAction in ActionsOffered) then
-        NewSelectedAction := -1;
+      NewSelectedAction := TMainAction((y - (yAction - 8)) div ActionPitch);
+      if not (NewSelectedAction in ActionsOffered) then
+        NewSelectedAction := maNone;
     end
     else
-      NewSelectedAction := -1;
+      NewSelectedAction := maNone;
     if NewSelectedAction <> SelectedAction then
     begin
-      if SelectedAction >= 0 then
-        SmartInvalidate(ActionSideBorder, yAction + SelectedAction * ActionPitch
-          - 8, ClientWidth - ActionSideBorder, yAction + (SelectedAction + 1) *
+      if SelectedAction <> maNone then
+        SmartInvalidate(ActionSideBorder, yAction + Integer(SelectedAction) * ActionPitch
+          - 8, ClientWidth - ActionSideBorder, yAction + (Integer(SelectedAction) + 1) *
           ActionPitch - 8);
       SelectedAction := NewSelectedAction;
-      if SelectedAction >= 0 then
-        SmartInvalidate(ActionSideBorder, yAction + SelectedAction * ActionPitch
-          - 8, ClientWidth - ActionSideBorder, yAction + (SelectedAction + 1) *
+      if SelectedAction <> maNone then
+        SmartInvalidate(ActionSideBorder, yAction + Integer(SelectedAction) * ActionPitch
+          - 8, ClientWidth - ActionSideBorder, yAction + (Integer(SelectedAction) + 1) *
           ActionPitch - 8);
     end;
@@ -2039 +2079 @@
 procedure TStartDlg.ReplayBtnClick(Sender: TObject);
 begin
-  LoadGame(DataDir + 'Saved' + DirectorySeparator, List.Items[List.ItemIndex] + CevoExt,
+  LoadGame(GetSavedDir + DirectorySeparator, List.Items[List.ItemIndex] + CevoExt,
     LastTurn, True);
   SlotAvailable := -1;
 end;
 
+
 end.