burada da yer alıyor değişken adlandırmalarını düzeltmen gerekiyor.
Kodun çalışır hali;
var
MyForm : TclForm;
TestBtn : TclProButton
animation1:TclBitmapListAnimation;
circle1: TclCircle;
void buton;
{
circle1 = MyForm.AddNewCircle(MyForm, 'circle1');
circle1.Fill.Kind = fbkBitmap;
circle1.Fill.Bitmap.WrapMode = fbwmTileStretch;
circle1.Width = 500;
circle1.Height = 500;
circle1.Stroke.Thickness = 10;
animation1 = MyForm.AddNewBitmapListAnimation(circle1,'animation1');
animation1.AnimationBitmap.LoadFromFile(clomosy.appfilespath + 'wqhd77.png');
animation1.Stop;
animation1.AnimationCount = 31;
animation1.AnimationRowCount = 9;
animation1.Delay = 0;
animation1.Duration = 1.75;
animation1.AutoReverse = True;
animation1.Enabled = True;
animation1.Loop = True;
animation1.Start;
}
{
MyForm=TclForm.Create(Self)
MyForm.AddAssetFromUrl('https://resmim.net/cdn/2026/03/02/wqhd77.png');
TestBtn=MyForm.AddNewProButton(MyForm,'TestBtn','rakun');
TestBtn.Align = albottom; // butonun yerini belirler altop yukarıda demek albottom aşağıda altclient hepsi ekranın
TestBtn.height = 120;
TestBtn.margins.left = 100;
TestBtn.margins.right = 100;
TestBtn.clProSettings.BorderColor=clalphacolor.clhextocolor('#aecbc5')
TestBtn.clProSettings.BackGRoundColor=clalphacolor.clhextocolor('#aeb7cb')
TestBtn.clProSettings.FontColor=clalphacolor.clhextocolor('#623737')
TestBtn.clProSettings.FontSize=100
TestBtn.clProSettings.TextSettings.Font.Style = [fsBold]
//TestBtn.clProSettings.PictureSretch = True;
//TestBtn.clProSettings.PictureAutofit = True;
TestBtn.clProSettings.BorderWidth = 8
TestBtn.SetclProsettings(TestBtn.clProSettings)
MyForm.AddNewEvent(TestBtn,tbeOnClick,'buton'); // butona basınca void ile rengin değişmesi
MyForm.Run;
}