mORMot and Open Source friends: Check-in [93f8369d36]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	{4789} made SynGdiPlus thread-safe - thanks BugsDigger for the patch!
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	93f8369d36426ed1dcb713f6f2c9b65e20ecd87d
User & Date:	ab 2018-09-06 13:55:07

Context

2018-09-06
17:13		{4790} added some regression tests about RawJSON/RawUTF8 big content check-in: 87b6b2b09e user: ab tags: trunk
13:55		{4789} made SynGdiPlus thread-safe - thanks BugsDigger for the patch! check-in: 93f8369d36 user: ab tags: trunk
13:28		{4788} added sample 36 check-in: 347bf25e69 user: ab tags: trunk

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to SynGdiPlus.pas.

begin
  if not fHasContent then
    result := nil else begin
    result := TBitmap.Create;
    result.PixelFormat := pf24bit; // create as DIB (device-independent bitmap)
    result.Width := Width;
    result.Height := Height;


    result.Canvas.Draw(0,0,self);



  end;
end;

{$ifdef FPC}
function TSynPicture.GetTransparent: Boolean;
begin // not implemented
  result := false;
................................................................................
        // resize to the maximum side specified parameter
        Bmp := TBitmap.Create;
        try
          Bmp.PixelFormat := pf24bit; // create as DIB (device-independent bitmap)
          R := Pic.RectNotBiggerThan(MaxPixelsForBiggestSide);
          Bmp.Width := R.Right;
          Bmp.Height := R.Bottom;


          Pic.Draw(Bmp.Canvas,R);



          SynGdiPlus.SaveAs(Bmp,Stream,Format,CompressionQuality,0,BitmapSetResolution);
        finally
          Bmp.Free;
        end;
      end;
    finally
      if Pic<>Graphic then







>
>
|
>
>
>







 







>
>
|
>
>
>

begin
  if not fHasContent then
    result := nil else begin
    result := TBitmap.Create;
    result.PixelFormat := pf24bit; // create as DIB (device-independent bitmap)
    result.Width := Width;
    result.Height := Height;
    result.Canvas.Lock;
    try
      result.Canvas.Draw(0,0,self);
    finally
      result.Canvas.Unlock;
    end;
  end;
end;

{$ifdef FPC}
function TSynPicture.GetTransparent: Boolean;
begin // not implemented
  result := false;
................................................................................
        // resize to the maximum side specified parameter
        Bmp := TBitmap.Create;
        try
          Bmp.PixelFormat := pf24bit; // create as DIB (device-independent bitmap)
          R := Pic.RectNotBiggerThan(MaxPixelsForBiggestSide);
          Bmp.Width := R.Right;
          Bmp.Height := R.Bottom;
          Bmp.Canvas.Lock;
          try
            Pic.Draw(Bmp.Canvas,R);
          finally
            Bmp.Canvas.Unlock;
          end;
          SynGdiPlus.SaveAs(Bmp,Stream,Format,CompressionQuality,0,BitmapSetResolution);
        finally
          Bmp.Free;
        end;
      end;
    finally
      if Pic<>Graphic then

Changes to SynopseCommit.inc.

'1.18.4788'

'1.18.4789'