Merhaba Alper,
İlk hata Event satırında yer alıyor ProBtn olarak değil oluşturduğun form üzerinde event eklemesi yapmak gerekiyor
Prosedür içerisinde de animasyonu başlatmak için bir start komutu var
Animasyon başlangıçta durdurduk, butona basınca aktif hale geldi
İşte çalışan kod;
var Form1:TclForm; animation1:TclBitmapListAnimation; circle1: TclCircle; ProBtn : TClProButton;
void anim1; { animation1.Start; }
{ Form1 = TclForm.Create(Self); Form1.AddAssetFromUrl(' https://resmim.net/cdn/2026/02/23/wczbPq.png" rel="nofollow - https://resmim.net/cdn/2026/02/23/wczbPq.png '); ProBtn = Form1.AddNewProButton(Form1,'ProBtn', 'Animasyonu Başlat'); ProBtn.Align = alBottom; ProBtn.Width = 150; ProBtn.Height = 100; circle1 = Form1.AddNewCircle(Form1, 'circle1'); circle1.Fill.Kind = fbkBitmap; circle1.Fill.Bitmap.WrapMode = fbwmTileStretch; circle1.Width = 300; circle1.Height = 300; circle1.Stroke.Thickness = 1; animation1 = Form1.AddNewBitmapListAnimation(circle1,'animation1'); animation1.AnimationBitmap.LoadFromFile(clomosy.appfilespath + 'wczbPq.png'); animation1.AnimationCount = 18; animation1.AnimationRowCount = 4; animation1.Delay = 3; animation1.Duration = 0.75; animation1.AutoReverse = True; animation1.Loop = True; // Animasyonu başlangıçta durdur animation1.Stop; Form1.AddNewEvent(ProBtn , tbeOnClick , 'anim1'); Form1.Run; }
https://static.cloudflareinsights.com/beacon.min.js/v67327c56f0bb4ef8b305cae61679db8f1769101564043" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v67327c56f0bb4ef8b305cae61679db8f1769101564043" integrity="sha512-rdcWY47ByXd76cbCFzznIcEaCN71jqkWBBqlwhF1SY7KubdLKZiEGeP7AyieKZlGP9hbY/MhGrwXzJC/HulNyg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
|