+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : خلفيات ملونة لصور 'tgifimage' (/showthread.php?tid=5175)
خلفيات ملونة لصور 'tgifimage' - rabihpascal - 29-04-2013
السلام عليكم
اسأل عن كيفية اضافة خلفيات ملونة gifimage
فقد قمت بعدة محاولات ولكن عند حفظها يختفي لون الخلفية
خلفيات ملونة لصور 'tgifimage' - SMP3 - 05-05-2013
هذا حل على السريع
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;
خلفيات ملونة لصور 'tgifimage' - SMP3 - 05-05-2013
ان كنت تقصد عمل أنيميشن للصور (جعل الصورة تتحرك) و تغير ألوانها :
كود :
http://im40.gulfup.com/64tvR.gifPHP كود :
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;
بالتوفيــــــق