Changeset 19 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 21, 2018, 11:33:15 PM (6 years ago)

Author:

chronos

Message:

• Added: Locking of video memory because it is accessed by main thread and also application threads.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -200 +200 @@
   SizeY: Integer;
 begin
-{  var
-    X, Y: Integer;
-    PixelPtr: PInteger;
-    PixelRowPtr: PInteger;
-    RawImage: TRawImage;
-    BytePerPixel: Integer;
-    SourcePixelPtr: Integer;
-  begin
-    try
-      Bitmap.BeginUpdate;
-      RawImage := Bitmap.RawImage;
-      PixelRowPtr := PInteger(RawImage.Data);
-      BytePerPixel := RawImage.Description.BitsPerPixel div 8;
-      for Y := 0 to Bitmap.Height - 1 do begin
-        PixelPtr := PixelRowPtr;
-        for X := 0 to Bitmap.Width - 1 do begin
-          SourcePixelPtr := TMatter(Matter[Surface.ItemsXY[Trunc(X / Bitmap.Width * Surface.Count.X),
-              Trunc(Y / Bitmap.Height * Surface.Count.Y)]]).Color;
-          PixelPtr^ := SwapBRComponent(SourcePixelPtr);
-          Inc(PByte(PixelPtr), BytePerPixel);
-        end;
-        Inc(PByte(PixelRowPtr), RawImage.Description.BytesPerLine);
-      end;
-    finally
-      Bitmap.EndUpdate;
-    end;
-}
   try
     TempBitmap.SetSize(VideoDevice.VideoMode.Size.X, VideoDevice.VideoMode.Size.Y);
@@ -234 +207 @@
     DestBytePerPixel := RawImage.Description.BitsPerPixel div 8;
     DestBytePerLine := RawImage.Description.BytesPerLine;
+    VideoDevice.Lock.Acquire;
     if Assigned(VideoDevice.VideoMemory) then begin
       SourceBytePerPixel := VideoDevice.VideoMode.GetBytesPerPixel;
@@ -252 +226 @@
       end;
     end;
+    VideoDevice.Lock.Release;
   finally
     TempBitmap.EndUpdate;
@@ -266 +241 @@
   VideoMode.Size := TPoint.Create(Width, Height);
   VideoDevice.VideoMode := VideoMode;
+  VideoMode.Free;
 end;