var

  AnaForm: TclForm;

  UstBaslikLbl: TclProLabel;

  ScrollKapsayici: TclVertScrollBox;

  HaritaBtn, WhatsappBtn, InstagramBtn, SmsBtn, EpostaBtn, TelefonBtn, WebBtn: TclProButton;

void OnHaritaAc;

{

  TClomosyOS.OpenURL('https://maps.google.com/?q=41.0082,28.9784');

}

void OnWhatsappAc;

{

  TClomosyOS.OpenURL('https://wa.me/905551112233');

}

void OnInstagramAc;

{

  TClomosyOS.OpenURL('https://instagram.com/clomosy');

}

void OnSmsGonder;

{

  TClomosyOS.OpenSMS('905551112233', 'Clomosy uygulamasından harika bir mesaj!');

}

void OnEpostaGonder;

{

  TClomosyOS.OpenEmail('contact@clomosy.com', 'Destek Talebi', 'Merhaba, otomasyon projemiz hakkında teknik yardıma ihtiyacım var.');

}

void OnTelefonAra;

{

  TClomosyOS.Dial('905551112233');

}

void OnWebSitesiAc;

{

  TClomosyOS.OpenURL('https://clomosy.com');

}

{

  AnaForm = TclForm.Create(Self);

  AnaForm.clSetCaption('Cihaz Sistem Servisleri');

  AnaForm.SetFormColor('#1e1e2e', '#1e1e2e', clGNone);

  UstBaslikLbl = AnaForm.AddNewProLabel(AnaForm, 'UstBaslikLbl', '📱 SİSTEM AKSİYONLARI');

  UstBaslikLbl.Align = alTop;

  UstBaslikLbl.Margins.Top = 25;

  UstBaslikLbl.clProSettings.FontSize = 18;

  UstBaslikLbl.clProSettings.FontColor = clAlphaColor.clWhite;

  UstBaslikLbl.clProSettings.FontHorzAlign = palCenter;

  UstBaslikLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  UstBaslikLbl.SetclProSettings(UstBaslikLbl.clProSettings);

  ScrollKapsayici = AnaForm.AddNewVertScrollBox(AnaForm, 'ScrollKapsayici');

  ScrollKapsayici.Align = alClient;

  ScrollKapsayici.Margins.Top = 20;

  ScrollKapsayici.Margins.Left = 20;

  ScrollKapsayici.Margins.Right = 20;

  ScrollKapsayici.Margins.Bottom = 20;

  HaritaBtn = AnaForm.AddNewProButton(ScrollKapsayici, 'HaritaBtn', '🗺️ Haritada Konum Göster');

  HaritaBtn.Align = alTop; HaritaBtn.Height = 50; HaritaBtn.Margins.Top = 10;

  HaritaBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');

  HaritaBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  HaritaBtn.clProSettings.RoundHeight = 10; HaritaBtn.clProSettings.RoundWidth = 10;

  HaritaBtn.SetclProSettings(HaritaBtn.clProSettings);

  AnaForm.AddNewEvent(HaritaBtn, tbeOnClick, 'OnHaritaAc');

  WhatsappBtn = AnaForm.AddNewProButton(ScrollKapsayici, 'WhatsappBtn', '💬 WhatsApp Sohbeti Başlat');

  WhatsappBtn.Align = alTop; WhatsappBtn.Height = 50; WhatsappBtn.Margins.Top = 15;

  WhatsappBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#25D366');

  WhatsappBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  WhatsappBtn.clProSettings.RoundHeight = 10; WhatsappBtn.clProSettings.RoundWidth = 10;

  WhatsappBtn.SetclProSettings(WhatsappBtn.clProSettings);

  AnaForm.AddNewEvent(WhatsappBtn, tbeOnClick, 'OnWhatsappAc');

  InstagramBtn = AnaForm.AddNewProButton(ScrollKapsayici, 'InstagramBtn', '📸 Instagram Profilini Aç');

  InstagramBtn.Align = alTop; InstagramBtn.Height = 50; InstagramBtn.Margins.Top = 15;

  InstagramBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E1306C');

  InstagramBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  InstagramBtn.clProSettings.RoundHeight = 10; InstagramBtn.clProSettings.RoundWidth = 10;

  InstagramBtn.SetclProSettings(InstagramBtn.clProSettings);

  AnaForm.AddNewEvent(InstagramBtn, tbeOnClick, 'OnInstagramAc');

  SmsBtn = AnaForm.AddNewProButton(ScrollKapsayici, 'SmsBtn', '✉️ Hızlı SMS Gönder');

  SmsBtn.Align = alTop; SmsBtn.Height = 50; SmsBtn.Margins.Top = 15;

  SmsBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF9800');

  SmsBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  SmsBtn.clProSettings.RoundHeight = 10; SmsBtn.clProSettings.RoundWidth = 10;

  SmsBtn.SetclProSettings(SmsBtn.clProSettings);

  AnaForm.AddNewEvent(SmsBtn, tbeOnClick, 'OnSmsGonder');

  EpostaBtn = AnaForm.AddNewProButton(ScrollKapsayici, 'EpostaBtn', '📧 Destek E-Postası Tasla');

  EpostaBtn.Align = alTop; EpostaBtn.Height = 50; EpostaBtn.Margins.Top = 15;

  EpostaBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2196F3');

  EpostaBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  EpostaBtn.clProSettings.RoundHeight = 10; EpostaBtn.clProSettings.RoundWidth = 10;

  EpostaBtn.SetclProSettings(EpostaBtn.clProSettings);

  AnaForm.AddNewEvent(EpostaBtn, tbeOnClick, 'OnEpostaGonder');

  TelefonBtn = AnaForm.AddNewProButton(ScrollKapsayici, 'TelefonBtn', '📞 Telefon ile Doğrudan Ara');

  TelefonBtn.Align = alTop; TelefonBtn.Height = 50; TelefonBtn.Margins.Top = 15;

  TelefonBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#9C27B0');

  TelefonBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  TelefonBtn.clProSettings.RoundHeight = 10; TelefonBtn.clProSettings.RoundWidth = 10;

  TelefonBtn.SetclProSettings(TelefonBtn.clProSettings);

  AnaForm.AddNewEvent(TelefonBtn, tbeOnClick, 'OnTelefonAra');

  WebBtn = AnaForm.AddNewProButton(ScrollKapsayici, 'WebBtn', '🌐 Clomosy Web Sitesini Ziyaret Et');

  WebBtn.Align = alTop; WebBtn.Height = 50; WebBtn.Margins.Top = 15;

  WebBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#607D8B');

  WebBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  WebBtn.clProSettings.RoundHeight = 10; WebBtn.clProSettings.RoundWidth = 10;

  WebBtn.SetclProSettings(WebBtn.clProSettings);

  AnaForm.AddNewEvent(WebBtn, tbeOnClick, 'OnWebSitesiAc');

  AnaForm.FormWaiting.Visible = False;

  AnaForm.BtnFormMenu.Visible = False;

  AnaForm.BtnGoBack.Visible = False;

  AnaForm.Run;

}