Changeset 35 for trunk/ScreenTools.pas

Timestamp:

Jan 9, 2017, 12:56:03 AM (8 years ago)

Author:

chronos

Message:

• Fixed: Black terrain tiles due new bitmap initialized as transparent.

File:

• trunk/ScreenTools.pas (modified) (2 diffs)

trunk/ScreenTools.pas

@@ -549 +549 @@
     GrExt[nGrExt].Mask := TBitmap.create;
     GrExt[nGrExt].Mask.PixelFormat := pf24bit;
-    GrExt[nGrExt].Mask.Width := Source.Width;
-    GrExt[nGrExt].Mask.Height := Source.Height;
+    GrExt[nGrExt].Mask.SetSize(Source.Width, Source.Height);
 
     GrExt[nGrExt].Data.BeginUpdate;
@@ -583 +582 @@
     FillChar(GrExt[nGrExt].pixUsed, GrExt[nGrExt].Data.Height div 49 * 10, 0);
     inc(nGrExt);
-  end
+  end;
 end;