Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
Graphics and Multimedia
»
Graphics
(Moderator:
Ask
) »
Tweening of 2 Coloured Images: Now Saving Animated Gif (Yay)
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
Secondary Installation fo...
by
Thaddy
[
Today
at 06:42:19 pm]
Error when attempting to ...
by
cdbc
[
Today
at 06:39:49 pm]
Problem with Hints
by
Handoko
[
Today
at 04:43:03 pm]
Developing a Kernel Modul...
by
MarkMLl
[
Today
at 03:53:56 pm]
ZDataset.Locate + loParti...
by
tintinux
[
Today
at 03:19:10 pm]
The Form cannot be resize...
by
daxnet
[
Today
at 02:51:42 pm]
AVRPascal – free code edi...
by
Dzandaa
[
Today
at 02:50:47 pm]
Api/component pack for Ra...
by
MarkMLl
[
Today
at 02:15:57 pm]
kernel 6.8 and checking s...
by
MarkMLl
[
Today
at 02:13:41 pm]
storing string
by
Thaddy
[
Today
at 09:38:41 am]
Random SnowFlakes:
by
zamtmn
[
Today
at 09:23:12 am]
OverLapping Snowflake Fra...
by
Boleeman
[
Today
at 09:04:01 am]
[SOLVED] StringGrid color...
by
Vodnik
[
Today
at 08:26:44 am]
YM Player
by
TRon
[
Today
at 02:32:16 am]
How single procedure ends...
by
Marion
[
Today
at 01:57:43 am]
Python4Lazarus Undefined ...
by
Grew
[
Today
at 01:57:41 am]
ct2laz - convertor betwee...
by
Sharfik
[
Today
at 01:26:03 am]
Amigo programming languag...
by
maurog
[December 02, 2024, 11:19:44 pm]
[SOLVED] How to document ...
by
korba812
[December 02, 2024, 10:49:39 pm]
How do you know wich vers...
by
Warfley
[December 02, 2024, 08:32:11 pm]
Unable to find file "date...
by
Cumberland
[December 02, 2024, 08:27:29 pm]
Common File Dialogs Have ...
by
rvk
[December 02, 2024, 07:33:14 pm]
LazMapView - adding a sca...
by
alpine
[December 02, 2024, 05:26:28 pm]
[SOLVED] Howto use a DEFI...
by
tintinux
[December 02, 2024, 04:55:13 pm]
Strange memory allocation...
by
MathMan
[December 02, 2024, 03:40:40 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: Tweening of 2 Coloured Images: Now Saving Animated Gif (Yay) (Read 801 times)
Boleeman
Hero Member
Posts: 714
Tweening of 2 Coloured Images: Now Saving Animated Gif (Yay)
«
on:
September 01, 2024, 08:44:18 am »
Converted some Delphi code and
added Endless Play back animation features
.
Loads only bmp and needs to be 24bit and same sized.
Transparent pngs would be nice and make it so it can load other formats and make images same sized if loaded with different sizes.
Also
would like an export to animated gif or avi.
Might need to be convert from TImage to bgrabmp.
Just added a save the displayed tween frame to png.
«
Last Edit: September 03, 2024, 01:04:27 pm by Boleeman
»
Logged
paweld
Hero Member
Posts: 1268
Re: Tweening of 2 Coloured Images: extra features needed.
«
Reply #1 on:
September 01, 2024, 11:01:09 am »
Added BGRABitmap support:
- support formats: bmp, png, jpg, gif
- support for transparency
- auto resizing second image
Edited few minutes later: removed memory leaks
«
Last Edit: September 01, 2024, 11:16:12 am by paweld
»
Logged
Best regards / Pozdrawiam
paweld
Boleeman
Hero Member
Posts: 714
Re: Tweening of 2 Coloured Images: extra features needed.
«
Reply #2 on:
September 01, 2024, 11:36:51 am »
Thanks for helping out Paweld.
Ah I see you did some fixes.
Was getting these errors.
List out of bounds.
Also not Tweening midway on some occassions.
Also Reset not working.
I will test your new update.
I appreciate your help. Thanks.
What I noticed after testing your fix:
After loading the images and moving the trackbar I get the Tweening happening.
If I click Create Sequence and then click either
Show Tween
or
Show Seq Fwd Back Buttons
the the tweening stops working until the very end.
If I then click Reset and move the trackbar I get the Tweening happening again, but then I get a List Index (0) out of bounds error when I click either
Show Tween
or
Show Seq Fwd Back Buttons
.
«
Last Edit: September 01, 2024, 11:58:00 am by Boleeman
»
Logged
paweld
Hero Member
Posts: 1268
Re: Tweening of 2 Coloured Images: extra features needed.
«
Reply #3 on:
September 01, 2024, 12:16:22 pm »
fixed
Logged
Best regards / Pozdrawiam
paweld
Boleeman
Hero Member
Posts: 714
Re: Tweening of 2 Coloured Images: extra features needed.
«
Reply #4 on:
September 01, 2024, 12:31:50 pm »
Wow Paweld that last update works well.
I tried fixing the errors but was going round in circles.
Like how you made the frame number for the saved png.
That is a good feature for saving to an animation.
Paweld, I also tested two transparent pngs of 2 different sizes.
The saved png was also saved transparently.
Worked well. Success. Hooray !
Thanks Paweld for those great additions.
«
Last Edit: September 01, 2024, 12:53:33 pm by Boleeman
»
Logged
Boleeman
Hero Member
Posts: 714
Re: Tweening of 2 Coloured Images: Extra features added by Paweld. Thanks.
«
Reply #5 on:
September 01, 2024, 01:06:33 pm »
Sorry to bother again.
Was getting a Heap trace message after ending the program.
Also the release version file size seems unusually large. Not sure why?
Logged
paweld
Hero Member
Posts: 1268
Re: Tweening of 2 Coloured Images: Extra features added by Paweld. Thanks.
«
Reply #6 on:
September 01, 2024, 01:11:46 pm »
Menu:
Project > Project options
, on options tree
Compiler options > Debugging
uncheck
Use Heaptrc unit
and
Trash variables
. I enabled this options to check mem leaks.
Logged
Best regards / Pozdrawiam
paweld
Boleeman
Hero Member
Posts: 714
Re: Tweening of 2 Coloured Images: Extra features added by Paweld. Thanks.
«
Reply #7 on:
September 02, 2024, 09:35:28 am »
Paweld, Yes that was it. Turn of Heap Trc and Trash Variable. Release exe file back to normal size and message gone.
Thanks for your great help on this Tween program. Much appreciated Paweld.
Logged
Boleeman
Hero Member
Posts: 714
Re: Tweening of 2 Coloured Images: Extra features added by Paweld. Thanks.
«
Reply #8 on:
September 02, 2024, 10:10:44 am »
I tried saving to animated gif with this code but I get an access violation:
Code: Pascal
[Select]
[+]
[-]
procedure
TFormTween
.
btbMakeAnigifClick
(
Sender
:
TObject
)
;
var
GifImage
:
TBGRAAnimatedGif
;
i
:
Integer
;
Speed
:
Integer
;
bmp
:
TBGRABitmap
;
ResizedBmp
:
TBGRABitmap
;
png
:
TPortableNetworkGraphic
;
ms
:
TMemoryStream
;
begin
Speed
:
=
SpinEditDelay
.
Value
;
GifImage
:
=
TBGRAAnimatedGif
.
Create
;
try
GifImage
.
SetSize
(
ImageTween
.
Width
,
ImageTween
.
Height
)
;
GifImage
.
LoopCount
:
=
0
;
for
i
:
=
0
to
ImageSequence
.
Count
-
1
do
begin
png
:
=
ImageSequence
[
i
]
as TPortableNetworkGraphic
;
bmp
:
=
TBGRABitmap
.
Create
;
try
ms
:
=
TMemoryStream
.
Create
;
try
png
.
SaveToStream
(
ms
)
;
// Save PNG to memory stream
ms
.
Position
:
=
0
;
bmp
.
LoadFromStream
(
ms
)
;
// Load from memory stream to TBGRABitmap
// Resize bitmap if necessary
if
(
bmp
.
Width
<> GifImage
.
Width
)
or
(
bmp
.
Height
<> GifImage
.
Height
)
then
begin
ResizedBmp
:
=
bmp
.
Resample
(
GifImage
.
Width
,
GifImage
.
Height
)
;
try
GifImage
.
AddFullFrame
(
ResizedBmp
,
Speed
)
;
finally
ResizedBmp
.
Free
;
end
;
end
else
begin
GifImage
.
AddFullFrame
(
bmp
,
Speed
)
;
end
;
finally
ms
.
Free
;
end
;
finally
bmp
.
Free
;
end
;
end
;
GifImage
.
OptimizeFrames
;
if
SaveDialog1
.
Execute
then
begin
if
SaveDialog1
.
FileName
<>
''
then
begin
GifImage
.
SaveToFile
(
ChangeFileExt
(
SaveDialog1
.
FileName
,
'.gif'
)
)
;
end
else
begin
ShowMessage
(
'No file name specified.'
)
;
end
;
end
;
finally
GifImage
.
Free
;
end
;
end
;
«
Last Edit: September 02, 2024, 04:16:10 pm by Boleeman
»
Logged
circular
Hero Member
Posts: 4356
Re: Tweening of 2 Coloured Images: Save Animated Gif Problems.
«
Reply #9 on:
September 02, 2024, 07:23:56 pm »
Hmm not sure why you would get an error. If you enabled debug info, what is the stack trace?
Logged
Conscience is the debugger of the mind
Boleeman
Hero Member
Posts: 714
Re: Tweening of 2 Coloured Images: Save Animated Gif Problems.
«
Reply #10 on:
September 03, 2024, 01:03:44 pm »
Circular, Access violation solved: Missing BGRAColorQuantizerFactory := TBGRAColorQuantizer;
Cannot believe it. I remembered from
https://forum.lazarus.freepascal.org/index.php/topic,68394.0.html
that I needed to add it because I was getting a similar Acess Violation error.
The animated gif gets quite large if there are a lot of tween frames.
I made a sample animated gif with only 3 frames (slowed down) due to file size limit of attachments.
Takes a while to render the animated gif. Not sure why. Maybe TBGRAColorQuantizer ?
«
Last Edit: September 03, 2024, 01:11:29 pm by Boleeman
»
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
Graphics and Multimedia
»
Graphics
(Moderator:
Ask
) »
Tweening of 2 Coloured Images: Now Saving Animated Gif (Yay)
TinyPortal
© 2005-2018