|
var Form1: TCLForm; LayoutKutu: TclLayout; BtnBasla, BtnBilgi : TClProButton; ImgBilgi : TClProImage; MediaPlayer : TclMediaPlayer;
void BtnBaslaClick; { MediaPlayer.Stop; MediaPlayer.Play; Clomosy.RunUnit('Ugiris'); }
void BtnBilgiClick; { MediaPlayer.Stop; MediaPlayer.Play;
ImgBilgi.Visible = True; ImgBilgi.BringToFront; }
void ImgBilgiClick; { ImgBilgi.Visible = False; }
{ Form1 = TCLForm.Create(Self);
Form1.SetFormBGImage(' https://resmim.net/cdn/2026/01/21/wigtJn.png" rel="nofollow - https://resmim.net/cdn/2026/01/21/wigtJn.png ');
MediaPlayer = TclMediaPlayer.Create(Form1); MediaPlayer.clProSettings.AutoPlay = False; MediaPlayer.clProSettings.FileSource =(' https://raw.githubusercontent.com/ozkkyra167-hue/Clomosy_Application/main/siginak_metal_click.wav" rel="nofollow - https://raw.githubusercontent.com/ozkkyra167-hue/Clomosy_Application/main/siginak_metal_click.wav '; MediaPlayer.SetclProSettings(MediaPlayer.clProSettings);
LayoutKutu = Form1.AddNewLayout(Form1, 'LayoutKutu'); LayoutKutu.Align = alBottom; LayoutKutu.Height = 140; LayoutKutu.Width = 320; LayoutKutu.Margins.Bottom = 40;
BtnBasla = Form1.AddNewProButton(LayoutKutu, 'BtnBasla', ''); BtnBasla.Align = alLeft; BtnBasla.Width = 150; BtnBasla.Height = 100;
BtnBasla.clProSettings.BackgroundColor = clAlphaColor.clNull; BtnBasla.clProSettings.BorderColor = clAlphaColor.clNull; BtnBasla.clProSettings.FontColor = clAlphaColor.clNull; BtnBasla.SetclProSettings(BtnBasla.clProSettings);
Form1.AddNewEvent(BtnBasla, tbeOnClick, 'BtnBaslaClick');
BtnBilgi = Form1.AddNewProButton(LayoutKutu, 'BtnBilgi', ''); BtnBilgi.Align = alRight; BtnBilgi.Width = 150; BtnBilgi.Height = 100;
BtnBilgi.clProSettings.BackgroundColor = clAlphaColor.clNull; BtnBilgi.clProSettings.BorderColor = clAlphaColor.clNull; BtnBilgi.clProSettings.FontColor = clAlphaColor.clNull; BtnBilgi.SetclProSettings(BtnBilgi.clProSettings);
Form1.AddNewEvent(BtnBilgi, tbeOnClick, 'BtnBilgiClick');
ImgBilgi = Form1.AddNewProImage(Form1, 'ImgBilgi'); ImgBilgi.Align = alClient; ImgBilgi.Visible = False; ImgBilgi.clProSettings.PictureSource =(' https://raw.githubusercontent.com/kayra12oztruk-byte/oyun-/main/button.png" rel="nofollow - https://raw.githubusercontent.com/kayra12oztruk-byte/oyun-/main/button.png '); ImgBilgi.clProSettings.IsFill = True; ImgBilgi.SetclProSettings(ImgBilgi.clProSettings);
Form1.AddNewEvent(ImgBilgi, tbeOnClick, 'ImgBilgiClick');
Form1.Run; } ses dosyasında hata alıyorum https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" 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">
|