// renksec

var

  renkForm: TclForm;

  centerLayout: TclLayout;

  btnKirmizi, btnMavi: TclProButton;

  lblInfo: TclProLabel;

  CanliMQTT: TclMQTT;

  MyGUID: String;

  MyName: String;

  renkSecildi: Boolean;

void MQTTMesajGelince

{

  var GelenMesaj: String;

  var Komut: String;

  

  if (CanliMQTT.ReceivedAlright)

  {

    GelenMesaj = CanliMQTT.ReceivedMessage;

    Komut = clGetStringTo(GelenMesaj, '|');

    

    if (Komut == 'YARISMA_BASLADI')

    {

      ShowMessage('Yarisma basliyor! Soru ekranina yonlendiriliyorsunuz...');

    }

  }

}

void MQTTBaglan

{

  CanliMQTT = renkForm.AddNewMQTTConnection(renkForm, 'CanliMQTT');

  CanliMQTT.Channel = 'Yarisma2026_App';

  renkForm.AddNewEvent(CanliMQTT, tbeOnMQTTPublishReceived, 'MQTTMesajGelince');

  CanliMQTT.Connect;

}

void SecKirmizi

{

  if (renkSecildi == True)

  {

    ShowMessage('Zaten renk sectiniz!');

    Exit;

  }

  

  MyGUID = Clomosy.AppUserGUID;

  MyName = Clomosy.AppUserDisplayName;

  CanliMQTT.Send('RENK_SEC|Kirmizi|' + MyGUID + '|' + MyName);

  renkSecildi = True;

  ShowMessage('Sayin ' + MyName + ', Kirmizi sectiniz. Yarisma baslayinca haber verilecek.');

}

void SecMavi

{

  if (renkSecildi == True)

  {

    ShowMessage('Zaten renk sectiniz!');

    Exit;

  }

  

  MyGUID = Clomosy.AppUserGUID;

  MyName = Clomosy.AppUserDisplayName;

  CanliMQTT.Send('RENK_SEC|Mavi|' + MyGUID + '|' + MyName);

  renkSecildi = True;

  ShowMessage('Sayin ' + MyName + ', Mavi sectiniz. Yarisma baslayinca haber verilecek.');

}

{

  renkForm = TclForm.Create(Self);

  renkForm.LytTopBar.Visible = False;

  renkForm.SetFormColor('#FFFF00', '', clGNone);

  

  MQTTBaglan;

  renkSecildi = False;

  

  centerLayout = renkForm.AddNewLayout(renkForm, 'centerLayout');

  centerLayout.Align = alCenter;

  centerLayout.Width = 300;

  centerLayout.Height = 400;

  centerLayout.Margins.Top = 60;

  

  lblInfo = renkForm.AddNewProLabel(centerLayout, 'lblInfo', 'Hosgeldin: ' + Clomosy.AppUserDisplayName);

  lblInfo.Align = alTop;

  lblInfo.Height = 40;

  lblInfo.clProSettings.FontColor = clAlphaColor.clBlack;

  lblInfo.clProSettings.FontSize = 14;

  lblInfo.clProSettings.FontHorzAlign = palCenter;

  lblInfo.SetclProSettings(lblInfo.clProSettings);

  

  btnKirmizi = renkForm.AddNewProButton(centerLayout, 'btnKirmizi', 'KIRMIZI');

  btnKirmizi.Align = alTop;

  btnKirmizi.Height = 110;

  btnKirmizi.Margins.Top = 20;

  btnKirmizi.clProSettings.BackgroundColor = clAlphaColor.clRed;

  btnKirmizi.clProSettings.FontColor = clAlphaColor.clWhite;

  btnKirmizi.clProSettings.BorderColor = clAlphaColor.clBlack;

  btnKirmizi.clProSettings.BorderWidth = 3;

  btnKirmizi.clProSettings.IsRound = True;

  btnKirmizi.clProSettings.RoundHeight = 25;

  btnKirmizi.clProSettings.RoundWidth = 25;

  btnKirmizi.SetclProSettings(btnKirmizi.clProSettings);

  renkForm.AddNewEvent(btnKirmizi, tbeOnClick, 'SecKirmizi');

  

  btnMavi = renkForm.AddNewProButton(centerLayout, 'btnMavi', 'MAVI');

  btnMavi.Align = alTop;

  btnMavi.Height = 110;

  btnMavi.Margins.Top = 25;

  btnMavi.clProSettings.BackgroundColor = clAlphaColor.clBlue;

  btnMavi.clProSettings.FontColor = clAlphaColor.clWhite;

  btnMavi.clProSettings.BorderColor = clAlphaColor.clBlack;

  btnMavi.clProSettings.BorderWidth = 3;

  btnMavi.clProSettings.IsRound = True;

  btnMavi.clProSettings.RoundHeight = 25;

  btnMavi.clProSettings.RoundWidth = 25;

  btnMavi.SetclProSettings(btnMavi.clProSettings);

  renkForm.AddNewEvent(btnMavi, tbeOnClick, 'SecMavi');

  

  renkForm.Run;

}