pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix transparency issue of TJvAnimatedImage in Linux

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6732 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-11-20 23:07:58 +00:00
parent fda7b5211c
commit 11fc7ff5b9
2 changed files with 27 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/jvcllaz/run/JvMM/jvanimatedimage.pas
View File

@ -111,13 +111,13 @@ type
function CanAutoSize(var NewWidth, NewHeight: Integer): Boolean; override;
function GetPalette: HPALETTE; override;
procedure AdjustSize; override;
procedure Loaded; override;
procedure BufferedPaint; override;
procedure DefineProperties(Filer: TFiler); override;
procedure DoPaintImage; override;
procedure FrameChanged; dynamic;
procedure Loaded; override;
procedure Start; dynamic;
procedure Stop; dynamic;
procedure DefineProperties(Filer: TFiler); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -646,12 +646,14 @@ begin
else
DstRect := Rect(0, 0, FImageWidth, FImageHeight);
{$IFDEF WINDOWS}
// {$IFDEF WINDOWS}
StretchBitmapRectTransparent(Canvas, DstRect.Left, DstRect.Top, DstRect.Right - DstRect.Left,
DstRect.Bottom - DstRect.Top, SrcRect, FGlyph, FTransparentColor);
(*
{$ELSE}
Canvas.CopyRect(DstRect, FGlyph.Canvas, SrcRect);
{$ENDIF}
*)
end;
end;