Changeset 42


Ignore:
Timestamp:
Apr 18, 2019, 5:07:00 PM (6 years ago)
Author:
chronos
Message:
  • Fixed: Use 32-bit pixel format under Windows.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UMainForm.pas

    r41 r42  
    6060    ScreenBounds: TRect;
    6161    StartTime: TDateTime;
    62     DrawDuration: TDateTime;
    6362    Drawing: Boolean;
    6463    procedure LoadConfig;

  • trunk/UCore.pas

    r41 r42  
    13971397    Lock.Acquire;
    13981398    Bitmap.BeginUpdate;
     1399    {$IFDEF WINDOWS}
     1400    Bitmap.PixelFormat := pf32bit;
     1401    {$ENDIF}
    13991402    RawImage := Bitmap.RawImage;
    14001403    BytePerPixel := RawImage.Description.BitsPerPixel div 8;
Note: See TracChangeset for help on using the changeset viewer.