طريقة لاضافة الصور المتحركة الى برنامجك

[noor.aldeen.sha]

بسم الله الرحمن الرحيم
السلام عليكم
اخواني الاعزاء هذة طريقة لاضافة ملفات GIF الى برنامجك وهي كالتالي :

1-قم بتحميل مكون دلفي الاضافي من هذا الرابط المباشر

http://www.tolderlund.eu/delphi/gifimaged7g.zip

2- قم بنسخ ملف gifimage.pas و الصقهة في المجلد libو الموجود على الاغلب في هذا المسار

C:\Program Files (x86)\Delphi7

3- اضف gifimage الى القسم uses

4- قم باستخدام ملفات gif في الصورة


مثال :

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, gifimage;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Picture.LoadFromFile('c:\a.gif');
end;

end. 


[lamar]

السلام عليكم
لك جزيل الشكر على الموضوع
اذا ممكن اين اجد الى القسم uses
لكي انفذ الخطوة:
اضف gifimage الى القسم uses

[SMP3]

السلام عليكم
لك جزيل الشكر على الموضوع
اذا ممكن اين اجد الى القسم uses
لكي انفذ الخطوة:
اضف gifimage الى القسم uses

اظفها كتابيا :

PHP كود :

uses gifimage ; 


[bassem_43]

السلام عليكم
ما طريقة تشغيلها على اصدارات دالفي xe ؟
وشكرا

[rabihpascal]

لتحريك الصورة عليك ان تضيف

.(image1.picture as tgifimage)
animate:=true