diff options
| author | Dibo <dibo20@wp.pl> | 2013-05-01 20:50:40 +0200 |
|---|---|---|
| committer | Dibo <dibo20@wp.pl> | 2013-05-01 20:50:40 +0200 |
| commit | 51e554f5d61a3766d1bd00e4440cf9b7cd73b385 (patch) | |
| tree | 3aec45abc169a6599be3a0507eeb722c762ba89e | |
| parent | fe2bea132795d293a57e4ce834c179521858d3b4 (diff) | |
| download | fpGUI-51e554f5d61a3766d1bd00e4440cf9b7cd73b385.tar.xz | |
Added Graeme suggestions
| -rw-r--r-- | src/gui/fpg_animation.pas | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/gui/fpg_animation.pas b/src/gui/fpg_animation.pas index ff58f755..29a80960 100644 --- a/src/gui/fpg_animation.pas +++ b/src/gui/fpg_animation.pas @@ -61,7 +61,7 @@ type constructor Create(AOwner: TComponent); override; destructor Destroy; override; - procedure ImageFromByte(ABmp: Pointer; ASize: longword); + procedure ImageFromByteArray(ABmp: Pointer; ASize: longword; AMaskSample: TPoint); end; @@ -165,7 +165,8 @@ begin Repaint; end; -procedure TfpgBaseImgAnim.ImageFromByte(ABmp: Pointer; ASize: longword); +procedure TfpgBaseImgAnim.ImageFromByteArray(ABmp: Pointer; ASize: longword; + AMaskSample: TPoint); begin if ABmp=nil then Exit; @@ -175,7 +176,7 @@ begin FImage := CreateImage_BMP(ABmp, ASize); if FTransparent then begin - FImage.CreateMaskFromSample(0, 0); + FImage.CreateMaskFromSample(AMaskSample.X, AMaskSample.Y); FImage.UpdateImage; end; FImageFilename := 'byte'; // because handle paint check if file is set |