خلفيات ملونة لصور 'tgifimage'

[rabihpascal]

السلام عليكم
اسأل عن كيفية اضافة خلفيات ملونة gifimage
فقد قمت بعدة محاولات ولكن عند حفظها يختفي لون الخلفية

[SMP3]

هذا حل على السريع

PHP كود :

var gif : TGifImage ;
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.SetSize(50,50);
bmp.Canvas.Brush.Color:=clRed;
bmp.Canvas.FillRect(Rect(0,0,50,50));

gif :=TGifImage.Create ;
gif.SetSize(50,50);
gif.Assign(bmp);
bmp.Free;
gif.SaveToFile('MyFile.gif');
gif.Free;
end; 


[SMP3]

ان كنت تقصد عمل أنيميشن للصور (جعل الصورة تتحرك) و تغير ألوانها :

كود :

http://im40.gulfup.com/64tvR.gif

PHP كود :

var gif : TGifImage ;
bmp:TBitmap;
i:integer;
begin
bmp:=TBitmap.Create;
bmp.SetSize(50,50);
bmp.Canvas.Brush.Color:=clRed;
bmp.Canvas.FillRect(Rect(0,0,50,50));

gif :=TGifImage.Create ;
for I := 0 to 5 do
gif.Add(bmp);

bmp.Canvas.Brush.Color:=clYellow;
bmp.Canvas.FillRect(Rect(0,0,50,50));
for I := 0 to 5 do
gif.Add(bmp);

bmp.Canvas.Brush.Color:=clBlue;
bmp.Canvas.FillRect(Rect(0,0,50,50));
for I := 0 to 5 do
gif.Add(bmp);

bmp.Free;
for I := 0 to gif.Images.Count -1  do begin

TGIFAppExtNSLoop.Create(Gif.Images.Frames[i]).Loops := 0;
//TGIFAppExtNSLoop.Create(Gif.Images.Frames[1]).Loops := 10;

end;
Gif.Pack;
gif.SaveToFile('D:\MyFile.gif');
gif.Free;
end; 


قم بتغيير ال Loops للتحكم في عدد مرات العرض .
بالتوفيــــــق