Changeset 117

Timestamp:

Feb 3, 2018, 3:20:56 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Wrong drawing of map preview for saved books.

Location:

trunk

Files:

• Integrated.lpr (modified) (2 diffs)
• Protocol.pas (modified) (1 diff)
• Start.lfm (modified) (2 diffs)
• Start.pas (modified) (2 diffs)

trunk/Integrated.lpr

@@ -44 +44 @@
 {$R cevo.res}
 
-{$IFDEF DEBUG}
+{$if declared(UseHeapTrace)}
 const
   HeapTraceLog = 'heaptrclog.trc';
@@ -52 +52 @@
 
 begin
-  {$IFDEF DEBUG}
+  {$if declared(UseHeapTrace)}
   // Heap trace
   DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);

trunk/Protocol.pas

@@ -1752 +1752 @@
 procedure InitUnit;
 begin
-  { TODO
-  Assert(sizeof(TPlayerContext) = 2048);
-  Assert(sizeof(TModel) - 2 * sizeof(LongInt) - 4 * sizeof(word)
+  Assert(SizeOf(TPlayerContext) = 1936 + 28 * SizeOf(Pointer));
+  Assert(SizeOf(TModel) - 2 * SizeOf(LongInt) - 4 * SizeOf(Word)
   = sIntSetDevModel and $F * 4);
-  }
 end;
 

trunk/Start.lfm

@@ -10 +10 @@
   ClientWidth = 556
   Color = clBtnFace
-  DesignTimePPI = 125
+  DesignTimePPI = 144
   Font.Color = clWindowText
   Font.Height = -13
@@ -199 +199 @@
     TabOrder = 0
     TabStop = False
-    TopIndex = -1
     Visible = False
   end

trunk/Start.pas

@@ -1019 +1019 @@
     EnemyColor := GrExt[HGrSystem].Data.Canvas.Pixels[96, 67];
     Mini.PixelFormat := pf24bit;
-    Mini.width := MiniWidth * 2;
-    Mini.height := MiniHeight;
+    Mini.SetSize(MiniWidth * 2, MiniHeight);
     if MiniMode = mmPicture then
     begin
@@ -1060 +1059 @@
           end;
         end;
+        MiniPixel.NextLine;
+        PrevMiniPixel.NextLine;
       end;
       Mini.EndUpdate;