because this was hard for me I'll go ahead and post the code
1st png's with transparent backgrounds are supported just not directly by a timage why? I don't know. First you've got to define a TCustomBitmap and create a TPortableNetworkGraphic then assign this to a timage.
2nd timagelists hold array's of images of the same height and width. The default height and width of
timagelist is 16 x 16 if you load a bigger image into it without setting timagelist height
and width it will overload the timagelist and it will do weird stuff.
below is code that throws 4 animating sprites on the screen
useing timage timagelist and a timer.
if I could post the project I would the timiagelist is loaded with 0-8 images or 9 images. It's a rotating snowflake broken down from a free animted gif and converted to transparent png's
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
ImageList1: TImageList;
Timer1: TTimer;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
Img: TCustomBitmap;
count: integer;
implementation
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
img:=TPortableNetworkGraphic.Create;
end;
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
img.Free;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
count:=count + 1;
if count > 8 then count :=0;
ImageList1.GetBitmap(count, img);
Image1.Picture.Assign(img);
Image2.Picture.Assign(img);
Image3.Picture.Assign(img);
Image4.Picture.Assign(img);
end;
initialization
{$I unit1.lrs}
end.
Recent
