Datakent Forum : Delphi 7 Animasyon (Gif) Oynatma & Form Kesme http://forum.datakent.com/ XML içerik linki; Datakent Forum : Borland Delphi : Delphi 7 Animasyon (Gif) Oynatma & Form Kesme Tue, 28 Apr 2026 05:27:16 +0000 Sun, 20 Mar 2011 17:16:13 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.54 360 forum.datakent.com/RSS_post_feed.asp?TID=2052 Datakent Forum http://forum.datakent.com/forum_images/datakent.com_forums.png http://forum.datakent.com/ Delphi 7 Animasyon (Gif) Oynatma & Form Kesme : Merhaba,Eğer kullandığınız derleyici... http://forum.datakent.com/forum_posts.asp?TID=2052&PID=4519#4519 Yazar: Recep Turan
Konu: 2052
Gönderim Zamanı: 20.Mart.2011 Saat 17:16

Merhaba,
Eğer kullandığınız derleyici Borland Delphi 7 ise gif componentini yükledikten sonra sorunsuz bir şekilde haraketli giflerinizi oynatması gerek. Eğer farklı bir derleyici kullanıyorsanız ve bilgi verirseniz yardımcı olmaya çalışırım.
]]> Sun, 20 Mar 2011 17:16:13 +0000 http://forum.datakent.com/forum_posts.asp?TID=2052&PID=4519#4519 Delphi 7 Animasyon (Gif) Oynatma & Form Kesme : Merhaba Arkadaşım,GifComponentini... http://forum.datakent.com/forum_posts.asp?TID=2052&PID=4518#4518 Yazar: AnGryHun
Konu: 2052
Gönderim Zamanı: 20.Mart.2011 Saat 02:23

Merhaba Arkadaşım,

GifComponentini yükledim fakat yüklediğim gif hareket etmiyor ? Bunla ilgilide bir kaç bilgi yazar mısın ?
]]> Sun, 20 Mar 2011 02:23:05 +0000 http://forum.datakent.com/forum_posts.asp?TID=2052&PID=4518#4518 Delphi 7 Animasyon (Gif) Oynatma & Form Kesme : Borland Delphi 7 gif desteklemiyor... http://forum.datakent.com/forum_posts.asp?TID=2052&PID=4508#4508 Yazar: Recep Turan
Konu: 2052
Gönderim Zamanı: 12.Mart.2011 Saat 18:24

Borland Delphi 7 gif desteklemiyor ve uzun bir süre önce gif çalıştırmaya uğraşırken basit yoldan form kesmeyide keşfetmiştim.

Şimdi Yapılması gerekenleri sırası ile anlatacağım.

1. Öncelikle gif componentini indirip delphiye ekliyoruz.  Bu componenti yükledikten sonra delphi gif imageleri desteklemeye başlayacaktır. Test için yükledikten sonra a form'a bir tane image nesnesi atın sonra picture kısmından load yapın eğer dosya türlerinde gif yazısıda çıkıyorsa olmuş demektir.

2. Şimdi Form kesme olayına geçiyoruz. Öncelikle keseceğiniz formu seçip formun ''transparentcolor'' özelliğini ''true'' yapın. ''Transparentcolorvalue'' ise formda keseceğemiz renk değeridir.  Siyah olarak kalsın. Sonra formunuzun ''borderstyle'' özelliğini ''bsNone'' ve image nesnenizin ''align'' özelliğini ''alclient''  olarak ayarlayın.   Gifinizi image nesnesine yükleyin. imagenizin ''transparent'' özelliğini ''true'' yapınız.

3. Formun create yordamına girip şu kodu ekleyin =      Brush.Style := bsClear;

4. Eğer imagenizi mause ile sürüklemek istiyorsanız imagenizin MouseDown yordamına şu kod satırlarını ekleyiniz =      releasecapture;     form1.Perform(wm_syscommand,$f012,0);

5.  Ve Çalıştırın. Kesilmiş formunuz hayırlı olsun :)


== Uygulanan Kodlama ==

form1.BorderStyle := bsNone;
form1.TransparentColor:= True;
Image1.Transparent := true;
 image1.Align := alClient;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Brush.Style := bsClear;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
releasecapture;
form1.Perform(wm_syscommand,$f012,0);
end;

* Hayal gücünüze bağlı olarak bu kodları şekillendirerek çok değişik şeyler elde edebilirsiniz.  *Yüklediğiniz gif illa hareketli olması gerekmez isterseniz farklı formatta olan bir resmi gif'e çeviripte kullanabilirsiniz.


Örnek için : http://www.speedyshare.com/files/27354807/_Anime_Form.rar
]]> Sat, 12 Mar 2011 18:24:08 +0000 http://forum.datakent.com/forum_posts.asp?TID=2052&PID=4508#4508