// Personel bugun ise basladi

    var LAyrac1: Integer;

    var LAyrac2: Integer;

    var LSimdiSaat: Integer;

    var LSimdiDakika: Integer;

    var LGirisSaat: Integer;

    var LGirisDakika: Integer;

    var LSimdiToplamDakika: Integer;

    var LGirisToplamDakika: Integer;

bunları tek bir var altına kod satırının en başında değişkenleri tanımlaman gerekiyor

Syntax error hatası alıyorum. yardımcı olabilirmisiniz.

uses udatalib;

var

  AnaForm: TCLForm;

  OlcekliYerlesim: TclScaledLayout;

  

  ArkaPlanPnl: TclProPanel;

  UstBeyazAlanPnl: TclProPanel;

  UstBaslikPnl: TclProPanel;

  OzetKapsayiciPnl: TclProPanel;

  

  IseBaslaKapsayiciPnl: TclProPanel;

  

  BaslaBtnPnl: TclProPanel;

  BtnIseBasla: TclProButton;

  

  MesaiDurumPnl: TclProPanel;

  DurumIkonDisPnl: TclProPanel;

  DurumIkonImg: TclProImage;

  DurumMetinPnl: TclProPanel;

  LblDurumBaslik: TclProLabel;

  MesaiPillPnl: TclProPanel;

  LblMesaiSaat: TclProLabel;

  LblGirisSaat: TclProLabel;

  BtnCikisYap: TclProButton;

  MesaiBittiPnl: TclProPanel;

  BittiIkonDisPnl: TclProPanel;

  BittiIkonImg: TclProImage;

  BittiMetinAnaPnl: TclProPanel;

  BittiUstMetinPnl: TclProPanel;

  LblBittiBaslik: TclProLabel;

  BittiPillPnl: TclProPanel;

  LblBittiMesaiSaat: TclProLabel;

  LblBittiGirisCikis: TclProLabel;

  AltMenuPnl: TclProPanel;

  IcerikKaydirici: TclVertScrollBox;

  

  TarihLbi: TclProLabel;

  SelamlamaLbi: TclProLabel;

  ZilIkon: TclProImage;

  BtnYeniGunTest: TclProButton;

  

  BekliyorKartPnl: TclProPanel;

  BekleyenSayiLbi: TclProLabel;

  BekleyenYaziLbi: TclProLabel;

  

  TamamlananKartPnl: TclProPanel;

  TamamlananSayiLbi: TclProLabel;

  TamamlananYaziLbi: TclProLabel;

  

  NavPnlGorevler: TclProPanel;

  NavPnlGecmis: TclProPanel;

  NavPnlProfil: TclProPanel;

  NavBtnGorevler: TclProButton;

  NavBtnGecmis: TclProButton;

  NavBtnProfil: TclProButton;

  GorevlerCizgiPnl: TclProPanel;

  GGirisSaati: String;

  GMesaiSaati: String;

  GZamanindaMi: Boolean;

  GPersonelID: Integer;

  GPersonelAd: String;

  QrAnaPnl: TclProPanel;

  QrUstMenuPnl: TclProPanel;

  QrKapatLbi: TclProLabel;

  QrBaslikKapsayiciPnl: TclProPanel;

  QrBaslikLbi: TclProLabel;

  QrLokasyonLbi: TclProLabel;

  QrKartPnl: TclProPanel;

  QrKameraCercevePnl: TclProPanel;

  QrKameraIkonImg: TclProImage;

  QrKameraAktifLbi: TclProLabel;

  QrKodaYoneltLbi: TclProLabel;

  QrAltBilgi1Lbi: TclProLabel;

  QrAltBilgi2Lbi: TclProLabel;

  BtnQrKoduOku: TclProButton;

  EdtGizliQrSonuc: TclProEdit;

  GSeciliGorevID: Integer;

  LQryAd: TClSQLiteQuery;

void OnMenuTikla;

{

  ShowMessage('Menuye tiklandi: ' + TclProButton(AnaForm.clSender).clTagStr);

}

void OzetKartlariniGuncelle;

var

  LQry: TClSQLiteQuery;

  LBekliyor: Integer;

  LTamamlanan: Integer;

{

  LBekliyor = 0;

  LTamamlanan = 0;

  try

    LQry = Clomosy.DBSQLiteQueryWith(

      'SELECT COUNT(*) AS Sayi FROM TblGorevler WHERE AtananPersonelID=' +

      IntToStr(GPersonelID) +

      ' AND Tarih=' + QuotedStr(FormatDateTime('yyyy-mm-dd', Now)) +

      ' AND Durum=' + QuotedStr('Bekliyor')

    );

    LQry.OpenOrExecute;

    if (LQry.Found)

    {

      LBekliyor = LQry.FieldByName('Sayi').AsInteger;

    }

    LQry.Free;

    LQry = Clomosy.DBSQLiteQueryWith(

      'SELECT COUNT(*) AS Sayi FROM TblGorevler WHERE AtananPersonelID=' +

      IntToStr(GPersonelID) +

      ' AND Tarih=' + QuotedStr(FormatDateTime('yyyy-mm-dd', Now)) +

      ' AND Durum=' + QuotedStr('Tamamlandi')

    );

    LQry.OpenOrExecute;

    if (LQry.Found)

    {

      LTamamlanan = LQry.FieldByName('Sayi').AsInteger;

    }

    LQry.Free;

    BekleyenSayiLbi.Text = IntToStr(LBekliyor);

    TamamlananSayiLbi.Text = IntToStr(LTamamlanan);

  except

    ShowMessage('Ozet guncelleme hatasi: ' + LastExceptionMessage);

  }

}

void OnQrModalKapatClick;

{

  QrAnaPnl.Visible = False;

}

void OnQrKamerayiAc;

{

  AnaForm.CallBarcodeReader(EdtGizliQrSonuc);

}

void OnQrSonucAlindi;

var

  LQrKodu: String;

  LLokasyon: String;

  LQry: TClSQLiteQuery;

{

  LQrKodu = EdtGizliQrSonuc.Text;

  if (LQrKodu <> '')

  {

    try

      LQry = Clomosy.DBSQLiteQueryWith(

        'SELECT Lokasyon FROM TblQRKodlar WHERE QRKodu=' + QuotedStr(LQrKodu)

      );

      LQry.OpenOrExecute;

      if (LQry.Found)

      {

        LLokasyon = LQry.FieldByName('Lokasyon').AsString;

        LQry.Free;

        if (LLokasyon == QrLokasyonLbi.Text)

        {

          GorevBaslat(GSeciliGorevID);

          ShowMessage('Gorev baslatildi: ' + LLokasyon);

          OzetKartlariniGuncelle;

          QrAnaPnl.Visible = False;

          EdtGizliQrSonuc.Text = '';

        }

        else

        {

          ShowMessage('Yanlis QR kodu! Beklenen: ' + QrLokasyonLbi.Text);

          EdtGizliQrSonuc.Text = '';

        }

      }

      else

      {

        LQry.Free;

        ShowMessage('Bu QR kodu sistemde tanimli degil!');

        EdtGizliQrSonuc.Text = '';

      }

    except

      ShowMessage('QR dogrulama hatasi: ' + LastExceptionMessage);

    }

  }

}

void OnQrOkutClick;

var

  TiklananBtn: TclProButton;

  LTag: String;

  LAyrac: Integer;

  LGorevIDStr: String;

{

  TiklananBtn = TclProButton(AnaForm.clSender);

  LTag = TiklananBtn.clTagStr;

  LAyrac = Pos('|', LTag);

  QrLokasyonLbi.Text = Copy(LTag, 1, LAyrac - 1);

  LGorevIDStr = Copy(LTag, LAyrac + 1, Length(LTag));

  GSeciliGorevID = StrToIntDef(LGorevIDStr, 0);

  QrAnaPnl.Visible = True;

  AnaForm.CallBarcodeReader(EdtGizliQrSonuc);

}

void OnIseBaslaClick;

var

  LSimdikiSaat: String;

  LQry: TClSQLiteQuery;

  LAyrac1: Integer;

  LAyrac2: Integer;

  LSimdiSaat: Integer;

  LSimdiDakika: Integer;

  LGirisSaat: Integer;

  LGirisDakika: Integer;

  LSimdiToplamDakika: Integer;

  LGirisToplamDakika: Integer;

{

  LSimdikiSaat = FormatDateTime('hh:nn', Now);

  try

    LQry = Clomosy.DBSQLiteQueryWith(

      'SELECT GirisSaati FROM TblPersonel WHERE ID=' + IntToStr(GPersonelID)

    );

    LQry.OpenOrExecute;

    if (LQry.Found)

    {

      GMesaiSaati = LQry.FieldByName('GirisSaati').AsString;

    }

    LQry.Free;

    GGirisSaati = LSimdikiSaat;

    GZamanindaMi = False;

    LAyrac1 = Pos(':', LSimdikiSaat);

    LSimdiSaat = StrToIntDef(Copy(LSimdikiSaat, 1, LAyrac1 - 1), 0);

    LSimdiDakika = StrToIntDef(Copy(LSimdikiSaat, LAyrac1 + 1, Length(LSimdikiSaat)), 0);

    LSimdiToplamDakika = (LSimdiSaat * 60) + LSimdiDakika;

    LAyrac2 = Pos(':', GMesaiSaati);

    LGirisSaat = StrToIntDef(Copy(GMesaiSaati, 1, LAyrac2 - 1), 0);

    LGirisDakika = StrToIntDef(Copy(GMesaiSaati, LAyrac2 + 1, Length(GMesaiSaati)), 0);

    LGirisToplamDakika = (LGirisSaat * 60) + LGirisDakika;

    if (LSimdiToplamDakika <= LGirisToplamDakika)

    {

      GZamanindaMi = True;

    }

    Clomosy.DBSQLiteQuery.Sql.Text =

      'UPDATE TblPersonel SET BugunkuGiris=' + QuotedStr(LSimdikiSaat) +

      ', Durum=' + QuotedStr('Gorevde') +

      ' WHERE ID=' + IntToStr(GPersonelID);

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    if (not GZamanindaMi)

    {

      Clomosy.DBSQLiteQuery.Sql.Text =

        'UPDATE TblPersonel SET Durum=' + QuotedStr('Gecikti') +

        ' WHERE ID=' + IntToStr(GPersonelID);

      Clomosy.DBSQLiteQuery.OpenOrExecute;

    }

    LblGirisSaat.Text = 'Giris: ' + GGirisSaati;

    LblMesaiSaat.Text = 'Mesai: ' + GMesaiSaati;

    if (GZamanindaMi)

    {

      MesaiDurumPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#D1FAE5');

      MesaiDurumPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#10B981');

      DurumIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');

      MesaiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');

      LblDurumBaslik.Text = 'Hos Geldiniz';

      LblDurumBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#065F46');

    }

    else

    {

      MesaiDurumPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FEE2E2');

      MesaiDurumPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#B91C1C');

      DurumIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');

      MesaiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');

      LblDurumBaslik.Text = 'Gec Geldi';

      LblDurumBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#991B1B');

    }

    MesaiDurumPnl.SetclProSettings(MesaiDurumPnl.clProSettings);

    DurumIkonDisPnl.SetclProSettings(DurumIkonDisPnl.clProSettings);

    MesaiPillPnl.SetclProSettings(MesaiPillPnl.clProSettings);

    LblDurumBaslik.SetclProSettings(LblDurumBaslik.clProSettings);

    BaslaBtnPnl.Visible = False;

    MesaiBittiPnl.Visible = False;

    MesaiDurumPnl.Visible = True;

  except

    ShowMessage('Ise baslama hatasi: ' + LastExceptionMessage);

  }

}

void OnCikisYapClick;

var

  LCikisSaati: String;

{

  LCikisSaati = FormatDateTime('hh:nn', Now);

  try

    Clomosy.DBSQLiteQuery.Sql.Text =

      'UPDATE TblPersonel SET BugunkuCikis=' + QuotedStr(LCikisSaati) +

      ' WHERE ID=' + IntToStr(GPersonelID);

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    LblBittiGirisCikis.Text = 'Giris: ' + GGirisSaati + ' - Cikis: ' + LCikisSaati;

    LblBittiMesaiSaat.Text = 'Mesai: ' + GMesaiSaati;

    if (GZamanindaMi)

    {

      MesaiBittiPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#D1FAE5');

      MesaiBittiPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#10B981');

      BittiIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');

      BittiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');

      LblBittiBaslik.Text = 'Gule Gule';

      LblBittiBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#065F46');

    }

    else

    {

      MesaiBittiPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FEE2E2');

      MesaiBittiPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#B91C1C');

      BittiIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');

      BittiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');

      LblBittiBaslik.Text = 'Gule Gule';

      LblBittiBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#991B1B');

    }

    MesaiBittiPnl.SetclProSettings(MesaiBittiPnl.clProSettings);

    BittiIkonDisPnl.SetclProSettings(BittiIkonDisPnl.clProSettings);

    BittiPillPnl.SetclProSettings(BittiPillPnl.clProSettings);

    LblBittiBaslik.SetclProSettings(LblBittiBaslik.clProSettings);

    BaslaBtnPnl.Visible = False;

    MesaiDurumPnl.Visible = False;

    MesaiBittiPnl.Visible = True;

  except

    ShowMessage('Cikis hatasi: ' + LastExceptionMessage);

  }

}

void OnYeniGunClick;

{

  MesaiDurumPnl.Visible = False;

  MesaiBittiPnl.Visible = False;

  BaslaBtnPnl.Visible = True;

  ShowMessage('Sistem yeni gune sifirlandı.');

}

void GorevSatiriOlustur(AParent: TclVertScrollBox; AIsim, ABaslik, ASaat, AIconUrl, AGorevID: String);

var

  SatirPnl: TclProPanel;

  IkonDisPnl: TclProPanel;

  IkonImg: TclProImage;

  BilgiPnl: TclProPanel;

  BaslikLbi: TclProLabel;

  SaatLbi: TclProLabel;

  BtnQrOkut: TclProButton;

{

  SatirPnl = AnaForm.AddNewProPanel(AParent, AIsim);

  SatirPnl.Align = alTop;

  SatirPnl.Height = 85;

  SatirPnl.Margins.Top = 10;

  SatirPnl.Margins.Left = 15;

  SatirPnl.Margins.Right = 15;

  SatirPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FFFFFF');

  SatirPnl.clProSettings.RoundHeight = 15;

  SatirPnl.clProSettings.RoundWidth = 15;

  SatirPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#E2E8F0');

  SatirPnl.clProSettings.BorderWidth = 1;

  SatirPnl.SetclProSettings(SatirPnl.clProSettings);

  IkonDisPnl = AnaForm.AddNewProPanel(SatirPnl, AIsim + 'IkonDis');

  IkonDisPnl.Align = alLeft;

  IkonDisPnl.Width = 50;

  IkonDisPnl.Margins.Left = 15;

  IkonDisPnl.Margins.Top = 17;

  IkonDisPnl.Margins.Bottom = 17;

  IkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F1F5F9');

  IkonDisPnl.clProSettings.RoundHeight = 15;

  IkonDisPnl.clProSettings.RoundWidth = 15;

  IkonDisPnl.SetclProSettings(IkonDisPnl.clProSettings);

  IkonImg = AnaForm.AddNewProImage(IkonDisPnl, AIsim + 'IkonImg');

  IkonImg.Align = alClient;

  IkonImg.Margins.Left = 10;

  IkonImg.Margins.Right = 10;

  IkonImg.Margins.Top = 10;

  IkonImg.Margins.Bottom = 10;

  AnaForm.SetImage(IkonImg, AIconUrl);

  BtnQrOkut = AnaForm.AddNewProButton(SatirPnl, AIsim + 'BtnQr', 'QR OKUT');

  BtnQrOkut.Align = alRight;

  BtnQrOkut.Width = 95;

  BtnQrOkut.Margins.Right = 15;

  BtnQrOkut.Margins.Top = 22;

  BtnQrOkut.Margins.Bottom = 22;

  BtnQrOkut.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');

  BtnQrOkut.clProSettings.FontColor = clalphacolor.clHexToColor('#FFFFFF');

  BtnQrOkut.clProSettings.FontSize = 11;

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

  BtnQrOkut.clTagStr = ABaslik + '|' + AGorevID;

  BtnQrOkut.clProSettings.RoundHeight = 10;

  BtnQrOkut.clProSettings.RoundWidth = 10;

  BtnQrOkut.SetclProSettings(BtnQrOkut.clProSettings);

  AnaForm.AddNewEvent(BtnQrOkut, tbeOnClick, 'OnQrOkutClick');

  BilgiPnl = AnaForm.AddNewProPanel(SatirPnl, AIsim + 'BilgiPnl');

  BilgiPnl.Align = alClient;

  BilgiPnl.Margins.Left = 15;

  BilgiPnl.Margins.Top = 20;

  BilgiPnl.clProSettings.IsTransparent = True;

  BilgiPnl.SetclProSettings(BilgiPnl.clProSettings);

  BaslikLbi = AnaForm.AddNewProLabel(BilgiPnl, AIsim + 'Baslik', ABaslik);

  BaslikLbi.Align = alTop;

  BaslikLbi.Height = 20;

  BaslikLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

  BaslikLbi.clProSettings.FontSize = 13;

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

  BaslikLbi.SetclProSettings(BaslikLbi.clProSettings);

  SaatLbi = AnaForm.AddNewProLabel(BilgiPnl, AIsim + 'Saat', ASaat);

  SaatLbi.Align = alTop;

  SaatLbi.Height = 18;

  SaatLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');

  SaatLbi.clProSettings.FontSize = 11;

  SaatLbi.SetclProSettings(SaatLbi.clProSettings);

}

void GorevListesiniDoldur;

var

  LQry: TClSQLiteQuery;

  LIsim: String;

  LSayac: Integer;

  LIkonUrl: String;

{

  try

    LQry = PersonelGorevleriGetir(GPersonelID);

    LSayac = 1;

    while (not LQry.Eof)

    {

      LIsim = 'Gorev' + IntToStr(LSayac);

      if (LQry.FieldByName('Durum').AsString == 'Tamamlandi')

      {

        LIkonUrl = 'https://cdn-icons-png.flaticon.com/128/190/190411.png';

      }

      else

      {

        LIkonUrl = 'https://cdn-icons-png.flaticon.com/128/995/995053.png';

      }

      GorevSatiriOlustur(

        IcerikKaydirici,

        LIsim,

        LQry.FieldByName('Lokasyon').AsString,

        LQry.FieldByName('PlanlananSaat').AsString,

        LIkonUrl,

        IntToStr(LQry.FieldByName('ID').AsInteger)

      );

      LSayac = LSayac + 1;

      LQry.Next;

    }

    LQry.Free;

  except

    ShowMessage('Gorev listesi yuklenemedi: ' + LastExceptionMessage);

  }

}

void EkraniKur;

{

  ArkaPlanPnl = AnaForm.AddNewProPanel(OlcekliYerlesim, 'ArkaPlanPnl');

  ArkaPlanPnl.Align = alClient;

  ArkaPlanPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F4F6F9');

  ArkaPlanPnl.SetclProSettings(ArkaPlanPnl.clProSettings);

  UstBeyazAlanPnl = AnaForm.AddNewProPanel(ArkaPlanPnl, 'UstBeyazAlanPnl');

  UstBeyazAlanPnl.Align = alTop;

  UstBeyazAlanPnl.Height = 270;

  UstBeyazAlanPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FFFFFF');

  UstBeyazAlanPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#E2E8F0');

  UstBeyazAlanPnl.clProSettings.BorderWidth = 1;

  UstBeyazAlanPnl.SetclProSettings(UstBeyazAlanPnl.clProSettings);

  UstBaslikPnl = AnaForm.AddNewProPanel(UstBeyazAlanPnl, 'UstBaslikPnl');

  UstBaslikPnl.Align = alTop;

  UstBaslikPnl.Height = 70;

  UstBaslikPnl.clProSettings.IsTransparent = True;

  UstBaslikPnl.SetclProSettings(UstBaslikPnl.clProSettings);

  ZilIkon = AnaForm.AddNewProImage(UstBaslikPnl, 'ZilIkon');

  ZilIkon.Align = alRight;

  ZilIkon.Width = 25;

  ZilIkon.Margins.Right = 20;

  ZilIkon.Margins.Top = 20;

  ZilIkon.Margins.Bottom = 25;

  AnaForm.SetImage(ZilIkon, 'https://cdn-icons-png.flaticon.com/128/3119/3119338.png');

  BtnYeniGunTest = AnaForm.AddNewProButton(UstBaslikPnl, 'BtnYeniGunTest', 'Yeni Gun');

  BtnYeniGunTest.Align = alRight;

  BtnYeniGunTest.Width = 75;

  BtnYeniGunTest.Margins.Right = 10;

  BtnYeniGunTest.Margins.Top = 20;

  BtnYeniGunTest.Margins.Bottom = 20;

  BtnYeniGunTest.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F1F5F9');

  BtnYeniGunTest.clProSettings.FontColor = clalphacolor.clHexToColor('#475569');

  BtnYeniGunTest.clProSettings.FontSize = 10;

  BtnYeniGunTest.clProSettings.RoundHeight = 8;

  BtnYeniGunTest.clProSettings.RoundWidth = 8;

  BtnYeniGunTest.SetclProSettings(BtnYeniGunTest.clProSettings);

  AnaForm.AddNewEvent(BtnYeniGunTest, tbeOnClick, 'OnYeniGunClick');

  TarihLbi = AnaForm.AddNewProLabel(UstBaslikPnl, 'TarihLbi', FormatDateTime('dd mmmm yyyy, dddd', Now));

  TarihLbi.Align = alTop;

  TarihLbi.Height = 20;

  TarihLbi.Margins.Left = 20;

  TarihLbi.Margins.Top = 15;

  TarihLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#64748B');

  TarihLbi.clProSettings.FontSize = 10;

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

  TarihLbi.SetclProSettings(TarihLbi.clProSettings);

  SelamlamaLbi = AnaForm.AddNewProLabel(UstBaslikPnl, 'SelamlamaLbi', 'Kolay Gelsin, ' + GPersonelAd);

  SelamlamaLbi.Align = alTop;

  SelamlamaLbi.Height = 25;

  SelamlamaLbi.Margins.Left = 20;

  SelamlamaLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

  SelamlamaLbi.clProSettings.FontSize = 18;

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

  SelamlamaLbi.SetclProSettings(SelamlamaLbi.clProSettings);

  OzetKapsayiciPnl = AnaForm.AddNewProPanel(UstBeyazAlanPnl, 'OzetKapsayiciPnl');

  OzetKapsayiciPnl.Align = alTop;

  OzetKapsayiciPnl.Height = 85;

  OzetKapsayiciPnl.Margins.Top = 5;

  OzetKapsayiciPnl.clProSettings.IsTransparent = True;

  OzetKapsayiciPnl.SetclProSettings(OzetKapsayiciPnl.clProSettings);

  BekliyorKartPnl = AnaForm.AddNewProPanel(OzetKapsayiciPnl, 'BekliyorKartPnl');

  BekliyorKartPnl.Align = alLeft;

  BekliyorKartPnl.Width = Trunc((OlcekliYerlesim.Width / 2) - 25);

  BekliyorKartPnl.Margins.Left = 20;

  BekliyorKartPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F1F5F9');

  BekliyorKartPnl.clProSettings.RoundHeight = 15;

  BekliyorKartPnl.clProSettings.RoundWidth = 15;

  BekliyorKartPnl.SetclProSettings(BekliyorKartPnl.clProSettings);

  BekleyenSayiLbi = AnaForm.AddNewProLabel(BekliyorKartPnl, 'BekleyenSayiLbi', '0');

  BekleyenSayiLbi.Align = alTop;

  BekleyenSayiLbi.Height = 40;

  BekleyenSayiLbi.Margins.Top = 10;

  BekleyenSayiLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

  BekleyenSayiLbi.clProSettings.FontSize = 24;

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

  BekleyenSayiLbi.clProSettings.FontHorzAlign = palcenter;

  BekleyenSayiLbi.SetclProSettings(BekleyenSayiLbi.clProSettings);

  BekleyenYaziLbi = AnaForm.AddNewProLabel(BekliyorKartPnl, 'BekleyenYaziLbi', 'Bekliyor');

  BekleyenYaziLbi.Align = alTop;

  BekleyenYaziLbi.Height = 20;

  BekleyenYaziLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#64748B');

  BekleyenYaziLbi.clProSettings.FontSize = 11;

  BekleyenYaziLbi.clProSettings.FontHorzAlign = palcenter;

  BekleyenYaziLbi.SetclProSettings(BekleyenYaziLbi.clProSettings);

  TamamlananKartPnl = AnaForm.AddNewProPanel(OzetKapsayiciPnl, 'TamamlananKartPnl');

  TamamlananKartPnl.Align = alRight;

  TamamlananKartPnl.Width = Trunc((OlcekliYerlesim.Width / 2) - 25);

  TamamlananKartPnl.Margins.Right = 20;

  TamamlananKartPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#D1FAE5');

  TamamlananKartPnl.clProSettings.RoundHeight = 15;

  TamamlananKartPnl.clProSettings.RoundWidth = 15;

  TamamlananKartPnl.SetclProSettings(TamamlananKartPnl.clProSettings);

  TamamlananSayiLbi = AnaForm.AddNewProLabel(TamamlananKartPnl, 'TamamlananSayiLbi', '0');

  TamamlananSayiLbi.Align = alTop;

  TamamlananSayiLbi.Height = 40;

  TamamlananSayiLbi.Margins.Top = 10;

  TamamlananSayiLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#059669');

  TamamlananSayiLbi.clProSettings.FontSize = 24;

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

  TamamlananSayiLbi.clProSettings.FontHorzAlign = palcenter;

  TamamlananSayiLbi.SetclProSettings(TamamlananSayiLbi.clProSettings);

  TamamlananYaziLbi = AnaForm.AddNewProLabel(TamamlananKartPnl, 'TamamlananYaziLbi', 'Tamamlandi');

  TamamlananYaziLbi.Align = alTop;

  TamamlananYaziLbi.Height = 20;

  TamamlananYaziLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#059669');

  TamamlananYaziLbi.clProSettings.FontSize = 11;

  TamamlananYaziLbi.clProSettings.FontHorzAlign = palcenter;

  TamamlananYaziLbi.SetclProSettings(TamamlananYaziLbi.clProSettings);

  IseBaslaKapsayiciPnl = AnaForm.AddNewProPanel(UstBeyazAlanPnl, 'IseBaslaKapsayiciPnl');

  IseBaslaKapsayiciPnl.Align = alTop;

  IseBaslaKapsayiciPnl.Height = 90;

  IseBaslaKapsayiciPnl.clProSettings.IsTransparent = True;

  IseBaslaKapsayiciPnl.SetclProSettings(IseBaslaKapsayiciPnl.clProSettings);

  BaslaBtnPnl = AnaForm.AddNewProPanel(IseBaslaKapsayiciPnl, 'BaslaBtnPnl');

  BaslaBtnPnl.Align = alClient;

  BaslaBtnPnl.clProSettings.IsTransparent = True;

  BaslaBtnPnl.SetclProSettings(BaslaBtnPnl.clProSettings);

  BtnIseBasla = AnaForm.AddNewProButton(BaslaBtnPnl, 'BtnIseBasla', 'ISE BASLA');

  BtnIseBasla.Align = alClient;

  BtnIseBasla.Margins.Left = 20;

  BtnIseBasla.Margins.Right = 20;

  BtnIseBasla.Margins.Top = 15;

  BtnIseBasla.Margins.Bottom = 15;

  BtnIseBasla.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');

  BtnIseBasla.clProSettings.FontColor = clalphacolor.clHexToColor('#FFFFFF');

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

  BtnIseBasla.clProSettings.RoundHeight = 15;

  BtnIseBasla.clProSettings.RoundWidth = 15;

  BtnIseBasla.SetclProSettings(BtnIseBasla.clProSettings);

  AnaForm.AddNewEvent(BtnIseBasla, tbeOnClick, 'OnIseBaslaClick');

  MesaiDurumPnl = AnaForm.AddNewProPanel(IseBaslaKapsayiciPnl, 'MesaiDurumPnl');

  MesaiDurumPnl.Align = alClient;

  MesaiDurumPnl.Visible = False;

  MesaiDurumPnl.Margins.Left = 20;

  MesaiDurumPnl.Margins.Right = 20;

  MesaiDurumPnl.Margins.Top = 10;

  MesaiDurumPnl.Margins.Bottom = 10;

  MesaiDurumPnl.clProSettings.BorderWidth = 1;

  MesaiDurumPnl.clProSettings.RoundHeight = 25;

  MesaiDurumPnl.clProSettings.RoundWidth = 25;

  MesaiDurumPnl.SetclProSettings(MesaiDurumPnl.clProSettings);

  DurumIkonDisPnl = AnaForm.AddNewProPanel(MesaiDurumPnl, 'DurumIkonDisPnl');

  DurumIkonDisPnl.Align = alLeft;

  DurumIkonDisPnl.Width = 45;

  DurumIkonDisPnl.Margins.Left = 15;

  DurumIkonDisPnl.Margins.Top = 12;

  DurumIkonDisPnl.Margins.Bottom = 12;

  DurumIkonDisPnl.clProSettings.RoundHeight = 15;

  DurumIkonDisPnl.clProSettings.RoundWidth = 15;

  DurumIkonDisPnl.SetclProSettings(DurumIkonDisPnl.clProSettings);

  DurumIkonImg = AnaForm.AddNewProImage(DurumIkonDisPnl, 'DurumIkonImg');

  DurumIkonImg.Align = alClient;

  DurumIkonImg.Margins.Left = 10;

  DurumIkonImg.Margins.Right = 10;

  DurumIkonImg.Margins.Top = 10;

  DurumIkonImg.Margins.Bottom = 10;

  AnaForm.SetImage(DurumIkonImg, 'https://cdn-icons-png.flaticon.com/128/223/223408.png');

  DurumMetinPnl = AnaForm.AddNewProPanel(MesaiDurumPnl, 'DurumMetinPnl');

  DurumMetinPnl.Align = alLeft;

  DurumMetinPnl.Width = 120;

  DurumMetinPnl.Margins.Left = 10;

  DurumMetinPnl.clProSettings.IsTransparent = True;

  DurumMetinPnl.SetclProSettings(DurumMetinPnl.clProSettings);

  LblDurumBaslik = AnaForm.AddNewProLabel(DurumMetinPnl, 'LblDurumBaslik', 'Gec Geldi');

  LblDurumBaslik.Align = alTop;

  LblDurumBaslik.Height = 20;

  LblDurumBaslik.Margins.Top = 10;

  LblDurumBaslik.clProSettings.FontSize = 13;

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

  LblDurumBaslik.SetclProSettings(LblDurumBaslik.clProSettings);

  MesaiPillPnl = AnaForm.AddNewProPanel(DurumMetinPnl, 'MesaiPillPnl');

  MesaiPillPnl.Align = alTop;

  MesaiPillPnl.Height = 18;

  MesaiPillPnl.Width = 90;

  MesaiPillPnl.clProSettings.RoundHeight = 8;

  MesaiPillPnl.clProSettings.RoundWidth = 8;

  MesaiPillPnl.SetclProSettings(MesaiPillPnl.clProSettings);

  LblMesaiSaat = AnaForm.AddNewProLabel(MesaiPillPnl, 'LblMesaiSaat', 'Mesai: 08:00');

  LblMesaiSaat.Align = alClient;

  LblMesaiSaat.clProSettings.FontColor = clalphacolor.clWhite;

  LblMesaiSaat.clProSettings.FontSize = 10;

  LblMesaiSaat.clProSettings.FontHorzAlign = palcenter;

  LblMesaiSaat.SetclProSettings(LblMesaiSaat.clProSettings);

  LblGirisSaat = AnaForm.AddNewProLabel(DurumMetinPnl, 'LblGirisSaat', 'Giris: --');

  LblGirisSaat.Align = alTop;

  LblGirisSaat.Height = 15;

  LblGirisSaat.Margins.Top = 2;

  LblGirisSaat.clProSettings.FontColor = clalphacolor.clHexToColor('#475569');

  LblGirisSaat.clProSettings.FontSize = 10;

  LblGirisSaat.SetclProSettings(LblGirisSaat.clProSettings);

  BtnCikisYap = AnaForm.AddNewProButton(MesaiDurumPnl, 'BtnCikisYap', 'Cikis');

  BtnCikisYap.Align = alRight;

  BtnCikisYap.Width = 70;

  BtnCikisYap.Margins.Right = 15;

  BtnCikisYap.Margins.Top = 18;

  BtnCikisYap.Margins.Bottom = 18;

  BtnCikisYap.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');

  BtnCikisYap.clProSettings.FontColor = clalphacolor.clWhite;

  BtnCikisYap.clProSettings.FontSize = 11;

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

  BtnCikisYap.clProSettings.RoundHeight = 15;

  BtnCikisYap.clProSettings.RoundWidth = 15;

  BtnCikisYap.SetclProSettings(BtnCikisYap.clProSettings);

  AnaForm.AddNewEvent(BtnCikisYap, tbeOnClick, 'OnCikisYapClick');

  MesaiBittiPnl = AnaForm.AddNewProPanel(IseBaslaKapsayiciPnl, 'MesaiBittiPnl');

  MesaiBittiPnl.Align = alClient;

  MesaiBittiPnl.Visible = False;

  MesaiBittiPnl.Margins.Left = 20;

  MesaiBittiPnl.Margins.Right = 20;

  MesaiBittiPnl.Margins.Top = 10;

  MesaiBittiPnl.Margins.Bottom = 10;

  MesaiBittiPnl.clProSettings.BorderWidth = 1;

  MesaiBittiPnl.clProSettings.RoundHeight = 25;

  MesaiBittiPnl.clProSettings.RoundWidth = 25;

  MesaiBittiPnl.SetclProSettings(MesaiBittiPnl.clProSettings);

  BittiIkonDisPnl = AnaForm.AddNewProPanel(MesaiBittiPnl, 'BittiIkonDisPnl');

  BittiIkonDisPnl.Align = alLeft;

  BittiIkonDisPnl.Width = 45;

  BittiIkonDisPnl.Margins.Left = 15;

  BittiIkonDisPnl.Margins.Top = 12;

  BittiIkonDisPnl.Margins.Bottom = 12;

  BittiIkonDisPnl.clProSettings.RoundHeight = 15;

  BittiIkonDisPnl.clProSettings.RoundWidth = 15;

  BittiIkonDisPnl.SetclProSettings(BittiIkonDisPnl.clProSettings);

  BittiIkonImg = AnaForm.AddNewProImage(BittiIkonDisPnl, 'BittiIkonImg');

  BittiIkonImg.Align = alClient;

  BittiIkonImg.Margins.Left = 10;

  BittiIkonImg.Margins.Right = 10;

  BittiIkonImg.Margins.Top = 10;

  BittiIkonImg.Margins.Bottom = 10;

  AnaForm.SetImage(BittiIkonImg, 'https://cdn-icons-png.flaticon.com/128/223/223408.png');

  BittiMetinAnaPnl = AnaForm.AddNewProPanel(MesaiBittiPnl, 'BittiMetinAnaPnl');

  BittiMetinAnaPnl.Align = alClient;

  BittiMetinAnaPnl.Margins.Left = 10;

  BittiMetinAnaPnl.Margins.Top = 15;

  BittiMetinAnaPnl.clProSettings.IsTransparent = True;

  BittiMetinAnaPnl.SetclProSettings(BittiMetinAnaPnl.clProSettings);

  BittiUstMetinPnl = AnaForm.AddNewProPanel(BittiMetinAnaPnl, 'BittiUstMetinPnl');

  BittiUstMetinPnl.Align = alTop;

  BittiUstMetinPnl.Height = 20;

  BittiUstMetinPnl.clProSettings.IsTransparent = True;

  BittiUstMetinPnl.SetclProSettings(BittiUstMetinPnl.clProSettings);

  LblBittiBaslik = AnaForm.AddNewProLabel(BittiUstMetinPnl, 'LblBittiBaslik', 'Gule Gule');

  LblBittiBaslik.Align = alLeft;

  LblBittiBaslik.Width = 85;

  LblBittiBaslik.clProSettings.FontSize = 13;

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

  LblBittiBaslik.SetclProSettings(LblBittiBaslik.clProSettings);

  BittiPillPnl = AnaForm.AddNewProPanel(BittiUstMetinPnl, 'BittiPillPnl');

  BittiPillPnl.Align = alLeft;

  BittiPillPnl.Width = 80;

  BittiPillPnl.clProSettings.RoundHeight = 8;

  BittiPillPnl.clProSettings.RoundWidth = 8;

  BittiPillPnl.SetclProSettings(BittiPillPnl.clProSettings);

  LblBittiMesaiSaat = AnaForm.AddNewProLabel(BittiPillPnl, 'LblBittiMesaiSaat', 'Mesai: 08:00');

  LblBittiMesaiSaat.Align = alClient;

  LblBittiMesaiSaat.clProSettings.FontColor = clalphacolor.clWhite;

  LblBittiMesaiSaat.clProSettings.FontSize = 10;

  LblBittiMesaiSaat.clProSettings.FontHorzAlign = palcenter;

  LblBittiMesaiSaat.SetclProSettings(LblBittiMesaiSaat.clProSettings);

  LblBittiGirisCikis = AnaForm.AddNewProLabel(BittiMetinAnaPnl, 'LblBittiGirisCikis', 'Giris: -- - Cikis: --');

  LblBittiGirisCikis.Align = alTop;

  LblBittiGirisCikis.Height = 15;

  LblBittiGirisCikis.Margins.Top = 5;

  LblBittiGirisCikis.clProSettings.FontColor = clalphacolor.clHexToColor('#475569');

  LblBittiGirisCikis.clProSettings.FontSize = 11;

  LblBittiGirisCikis.SetclProSettings(LblBittiGirisCikis.clProSettings);

  AltMenuPnl = AnaForm.AddNewProPanel(ArkaPlanPnl, 'AltMenuPnl');

  AltMenuPnl.Align = alBottom;

  AltMenuPnl.Height = 65;

  AltMenuPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FFFFFF');

  AltMenuPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#E2E8F0');

  AltMenuPnl.clProSettings.BorderWidth = 1;

  AltMenuPnl.SetclProSettings(AltMenuPnl.clProSettings);

  NavPnlGorevler = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlGorevler');

  NavPnlGorevler.Align = alLeft;

  NavPnlGorevler.Width = AltMenuPnl.Width / 3;

  NavBtnGorevler = AnaForm.AddNewProButton(NavPnlGorevler, 'NavBtnGorevler', 'Gorevler');

  NavBtnGorevler.Align = alClient;

  NavBtnGorevler.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

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

  NavBtnGorevler.clProSettings.FontHorzAlign = palcenter;

  NavBtnGorevler.clTagStr = 'Gorevler';

  NavBtnGorevler.SetclProSettings(NavBtnGorevler.clProSettings);

  AnaForm.AddNewEvent(NavBtnGorevler, tbeOnClick, 'OnMenuTikla');

  GorevlerCizgiPnl = AnaForm.AddNewProPanel(NavPnlGorevler, 'GorevlerCizgiPnl');

  GorevlerCizgiPnl.Align = alBottom;

  GorevlerCizgiPnl.Height = 3;

  GorevlerCizgiPnl.Margins.Left = 30;

  GorevlerCizgiPnl.Margins.Right = 30;

  GorevlerCizgiPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');

  GorevlerCizgiPnl.SetclProSettings(GorevlerCizgiPnl.clProSettings);

  NavPnlGecmis = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlGecmis');

  NavPnlGecmis.Align = alLeft;

  NavPnlGecmis.Width = AltMenuPnl.Width / 3;

  NavBtnGecmis = AnaForm.AddNewProButton(NavPnlGecmis, 'NavBtnGecmis', 'Gecmis');

  NavBtnGecmis.Align = alClient;

  NavBtnGecmis.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');

  NavBtnGecmis.clProSettings.FontHorzAlign = palcenter;

  NavBtnGecmis.clTagStr = 'Gecmis';

  NavBtnGecmis.SetclProSettings(NavBtnGecmis.clProSettings);

  AnaForm.AddNewEvent(NavBtnGecmis, tbeOnClick, 'OnMenuTikla');

  NavPnlProfil = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlProfil');

  NavPnlProfil.Align = alLeft;

  NavPnlProfil.Width = AltMenuPnl.Width / 3;

  NavBtnProfil = AnaForm.AddNewProButton(NavPnlProfil, 'NavBtnProfil', 'Profil');

  NavBtnProfil.Align = alClient;

  NavBtnProfil.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');

  NavBtnProfil.clProSettings.FontHorzAlign = palcenter;

  NavBtnProfil.clTagStr = 'Profil';

  NavBtnProfil.SetclProSettings(NavBtnProfil.clProSettings);

  AnaForm.AddNewEvent(NavBtnProfil, tbeOnClick, 'OnMenuTikla');

  IcerikKaydirici = AnaForm.AddNewVertScrollBox(ArkaPlanPnl, 'IcerikKaydirici');

  IcerikKaydirici.Align = alClient;

  IcerikKaydirici.Margins.Bottom = 10;

  IcerikKaydirici.Margins.Top = 10;

  GorevListesiniDoldur;

  QrAnaPnl = AnaForm.AddNewProPanel(OlcekliYerlesim, 'QrAnaPnl');

  QrAnaPnl.Align = alClient;

  QrAnaPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F4F6F9');

  QrAnaPnl.SetclProSettings(QrAnaPnl.clProSettings);

  QrAnaPnl.Visible = False;

  QrUstMenuPnl = AnaForm.AddNewProPanel(QrAnaPnl, 'QrUstMenuPnl');

  QrUstMenuPnl.Align = alTop;

  QrUstMenuPnl.Height = 70;

  QrUstMenuPnl.clProSettings.IsTransparent = True;

  QrUstMenuPnl.SetclProSettings(QrUstMenuPnl.clProSettings);

  QrKapatLbi = AnaForm.AddNewProLabel(QrUstMenuPnl, 'QrKapatLbi', 'X');

  QrKapatLbi.Align = alLeft;

  QrKapatLbi.Width = 50;

  QrKapatLbi.Margins.Top = 15;

  QrKapatLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

  QrKapatLbi.clProSettings.FontSize = 20;

  QrKapatLbi.clProSettings.FontHorzAlign = palcenter;

  QrKapatLbi.SetclProSettings(QrKapatLbi.clProSettings);

  QrKapatLbi.HitTest = True;

  AnaForm.AddNewEvent(QrKapatLbi, tbeOnClick, 'OnQrModalKapatClick');

  QrBaslikKapsayiciPnl = AnaForm.AddNewProPanel(QrUstMenuPnl, 'QrBaslikKapsayiciPnl');

  QrBaslikKapsayiciPnl.Align = alClient;

  QrBaslikKapsayiciPnl.Margins.Top = 15;

  QrBaslikKapsayiciPnl.clProSettings.IsTransparent = True;

  QrBaslikKapsayiciPnl.SetclProSettings(QrBaslikKapsayiciPnl.clProSettings);

  QrBaslikLbi = AnaForm.AddNewProLabel(QrBaslikKapsayiciPnl, 'QrBaslikLbi', 'QR Dogrulama');

  QrBaslikLbi.Align = alTop;

  QrBaslikLbi.Height = 22;

  QrBaslikLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

  QrBaslikLbi.clProSettings.FontSize = 16;

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

  QrBaslikLbi.SetclProSettings(QrBaslikLbi.clProSettings);

  QrLokasyonLbi = AnaForm.AddNewProLabel(QrBaslikKapsayiciPnl, 'QrLokasyonLbi', 'Lokasyon Secilmedi');

  QrLokasyonLbi.Align = alTop;

  QrLokasyonLbi.Height = 20;

  QrLokasyonLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');

  QrLokasyonLbi.clProSettings.FontSize = 12;

  QrLokasyonLbi.SetclProSettings(QrLokasyonLbi.clProSettings);

  QrKartPnl = AnaForm.AddNewProPanel(QrAnaPnl, 'QrKartPnl');

  QrKartPnl.Align = alTop;

  QrKartPnl.Height = 320;

  QrKartPnl.Margins.Left = 20;

  QrKartPnl.Margins.Right = 20;

  QrKartPnl.Margins.Top = 20;

  QrKartPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FFFFFF');

  QrKartPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#E2E8F0');

  QrKartPnl.clProSettings.BorderWidth = 1;

  QrKartPnl.clProSettings.RoundHeight = 15;

  QrKartPnl.clProSettings.RoundWidth = 15;

  QrKartPnl.SetclProSettings(QrKartPnl.clProSettings);

  QrKameraCercevePnl = AnaForm.AddNewProPanel(QrKartPnl, 'QrKameraCercevePnl');

  QrKameraCercevePnl.Align = alTop;

  QrKameraCercevePnl.Height = 210;

  QrKameraCercevePnl.Margins.Left = 25;

  QrKameraCercevePnl.Margins.Right = 25;

  QrKameraCercevePnl.Margins.Top = 25;

  QrKameraCercevePnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F8FAFC');

  QrKameraCercevePnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#CBD5E1');

  QrKameraCercevePnl.clProSettings.BorderWidth = 2;

  QrKameraCercevePnl.clProSettings.RoundHeight = 20;

  QrKameraCercevePnl.clProSettings.RoundWidth = 20;

  QrKameraCercevePnl.SetclProSettings(QrKameraCercevePnl.clProSettings);

  QrKameraCercevePnl.HitTest = True;

  AnaForm.AddNewEvent(QrKameraCercevePnl, tbeOnClick, 'OnQrKamerayiAc');

  QrKameraIkonImg = AnaForm.AddNewProImage(QrKameraCercevePnl, 'QrKameraIkonImg');

  QrKameraIkonImg.Align = alClient;

  QrKameraIkonImg.Margins.Left = 60;

  QrKameraIkonImg.Margins.Right = 60;

  QrKameraIkonImg.Margins.Top = 30;

  QrKameraIkonImg.Margins.Bottom = 60;

  AnaForm.SetImage(QrKameraIkonImg, 'https://cdn-icons-png.flaticon.com/128/3074/3074768.png');

  QrKameraIkonImg.HitTest = False;

  QrKodaYoneltLbi = AnaForm.AddNewProLabel(QrKameraCercevePnl, 'QrKodaYoneltLbi', 'Buraya dokunun');

  QrKodaYoneltLbi.Align = alBottom;

  QrKodaYoneltLbi.Height = 25;

  QrKodaYoneltLbi.Margins.Bottom = 15;

  QrKodaYoneltLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');

  QrKodaYoneltLbi.clProSettings.FontSize = 12;

  QrKodaYoneltLbi.clProSettings.FontHorzAlign = palcenter;

  QrKodaYoneltLbi.SetclProSettings(QrKodaYoneltLbi.clProSettings);

  QrKodaYoneltLbi.HitTest = False;

  QrKameraAktifLbi = AnaForm.AddNewProLabel(QrKameraCercevePnl, 'QrKameraAktifLbi', 'Kamerayi Ac');

  QrKameraAktifLbi.Align = alBottom;

  QrKameraAktifLbi.Height = 20;

  QrKameraAktifLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');

  QrKameraAktifLbi.clProSettings.FontSize = 13;

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

  QrKameraAktifLbi.clProSettings.FontHorzAlign = palcenter;

  QrKameraAktifLbi.SetclProSettings(QrKameraAktifLbi.clProSettings);

  QrKameraAktifLbi.HitTest = False;

  QrAltBilgi1Lbi = AnaForm.AddNewProLabel(QrKartPnl, 'QrAltBilgi1Lbi', 'Odadaki QR kodu okutun');

  QrAltBilgi1Lbi.Align = alTop;

  QrAltBilgi1Lbi.Height = 20;

  QrAltBilgi1Lbi.Margins.Top = 20;

  QrAltBilgi1Lbi.clProSettings.FontColor = clalphacolor.clHexToColor('#64748B');

  QrAltBilgi1Lbi.clProSettings.FontSize = 12;

  QrAltBilgi1Lbi.clProSettings.FontHorzAlign = palcenter;

  QrAltBilgi1Lbi.SetclProSettings(QrAltBilgi1Lbi.clProSettings);

  QrAltBilgi2Lbi = AnaForm.AddNewProLabel(QrKartPnl, 'QrAltBilgi2Lbi', 'Galeriden fotograf secilemez');

  QrAltBilgi2Lbi.Align = alTop;

  QrAltBilgi2Lbi.Height = 20;

  QrAltBilgi2Lbi.Margins.Top = 5;

  QrAltBilgi2Lbi.clProSettings.FontColor = clalphacolor.clHexToColor('#DC2626');

  QrAltBilgi2Lbi.clProSettings.FontSize = 11;

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

  QrAltBilgi2Lbi.clProSettings.FontHorzAlign = palcenter;

  QrAltBilgi2Lbi.SetclProSettings(QrAltBilgi2Lbi.clProSettings);

  BtnQrKoduOku = AnaForm.AddNewProButton(QrAnaPnl, 'BtnQrKoduOku', 'QR KODU OKU');

  BtnQrKoduOku.Align = alTop;

  BtnQrKoduOku.Height = 55;

  BtnQrKoduOku.Margins.Left = 20;

  BtnQrKoduOku.Margins.Right = 20;

  BtnQrKoduOku.Margins.Top = 20;

  BtnQrKoduOku.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');

  BtnQrKoduOku.clProSettings.FontColor = clalphacolor.clHexToColor('#FFFFFF');

  BtnQrKoduOku.clProSettings.FontSize = 13;

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

  BtnQrKoduOku.clProSettings.RoundHeight = 15;

  BtnQrKoduOku.clProSettings.RoundWidth = 15;

  BtnQrKoduOku.SetclProSettings(BtnQrKoduOku.clProSettings);

  AnaForm.AddNewEvent(BtnQrKoduOku, tbeOnClick, 'OnQrKamerayiAc');

  EdtGizliQrSonuc = AnaForm.AddNewProEdit(QrAnaPnl, 'EdtGizliQrSonuc', '');

  EdtGizliQrSonuc.Visible = False;

  AnaForm.AddNewEvent(EdtGizliQrSonuc, tbeOnChange, 'OnQrSonucAlindi');

}

{

  AnaForm = TCLForm.Create(Self);

  OlcekliYerlesim = AnaForm.AddNewScaledLayout(AnaForm, 'OlcekliYerlesim');

  OlcekliYerlesim.Align = alClient;

  OlcekliYerlesim.OriginalHeight = 750;

  OlcekliYerlesim.OriginalWidth = 350;

  OlcekliYerlesim.Margins.Top = -50;

  GPersonelID = StrToIntDef(Clomosy.GlobalVariableString, 0);

  LQryAd = Clomosy.DBSQLiteQueryWith(

    'SELECT AdSoyad, GirisSaati, BugunkuGiris, BugunkuCikis, Durum FROM TblPersonel WHERE ID=' + IntToStr(GPersonelID)

  );

  LQryAd.OpenOrExecute;

  if (LQryAd.Found)

  {

    GPersonelAd = LQryAd.FieldByName('AdSoyad').AsString;

    GMesaiSaati = LQryAd.FieldByName('GirisSaati').AsString;

    GGirisSaati = LQryAd.FieldByName('BugunkuGiris').AsString;

  }

  else

  {

    GPersonelAd = 'Personel';

    GMesaiSaati = '08:00';

    GGirisSaati = '-';

  }

  LQryAd.Free;

  GSeciliGorevID = 0;

  GZamanindaMi = False;

  EkraniKur;

  OzetKartlariniGuncelle;

  // Uygulama acilinca DB'den durumu kontrol et

  if (GGirisSaati <> '-')

  {

    // Personel bugun ise basladi

    var LAyrac1: Integer;

    var LAyrac2: Integer;

    var LSimdiSaat: Integer;

    var LSimdiDakika: Integer;

    var LGirisSaat: Integer;

    var LGirisDakika: Integer;

    var LSimdiToplamDakika: Integer;

    var LGirisToplamDakika: Integer;

    LAyrac1 = Pos(':', GGirisSaati);

    LSimdiSaat = StrToIntDef(Copy(GGirisSaati, 1, LAyrac1 - 1), 0);

    LSimdiDakika = StrToIntDef(Copy(GGirisSaati, LAyrac1 + 1, Length(GGirisSaati)), 0);

    LSimdiToplamDakika = (LSimdiSaat * 60) + LSimdiDakika;

    LAyrac2 = Pos(':', GMesaiSaati);

    LGirisSaat = StrToIntDef(Copy(GMesaiSaati, 1, LAyrac2 - 1), 0);

    LGirisDakika = StrToIntDef(Copy(GMesaiSaati, LAyrac2 + 1, Length(GMesaiSaati)), 0);

    LGirisToplamDakika = (LGirisSaat * 60) + LGirisDakika;

    if (LSimdiToplamDakika <= LGirisToplamDakika)

    {

      GZamanindaMi = True;

    }

    LblGirisSaat.Text = 'Giris: ' + GGirisSaati;

    LblMesaiSaat.Text = 'Mesai: ' + GMesaiSaati;

    // BugunkuCikis doluysa mesai bitti paneli goster

    var LQryCikis: TClSQLiteQuery;

    LQryCikis = Clomosy.DBSQLiteQueryWith(

      'SELECT BugunkuCikis FROM TblPersonel WHERE ID=' + IntToStr(GPersonelID)

    );

    LQryCikis.OpenOrExecute;

    if (LQryCikis.Found)

    {

      if (LQryCikis.FieldByName('BugunkuCikis').AsString <> '-')

      {

        // Cikis yapmis — MesaiBittiPnl goster

        var LCikisSaati: String;

        LCikisSaati = LQryCikis.FieldByName('BugunkuCikis').AsString;

        if (GZamanindaMi)

        {

          MesaiBittiPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#D1FAE5');

          MesaiBittiPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#10B981');

          BittiIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');

          BittiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');

          LblBittiBaslik.Text = 'Gule Gule';

          LblBittiBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#065F46');

        }

        else

        {

          MesaiBittiPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FEE2E2');

          MesaiBittiPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#B91C1C');

          BittiIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');

          BittiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');

          LblBittiBaslik.Text = 'Gule Gule';

          LblBittiBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#991B1B');

        }

        LblBittiGirisCikis.Text = 'Giris: ' + GGirisSaati + ' - Cikis: ' + LCikisSaati;

        LblBittiMesaiSaat.Text = 'Mesai: ' + GMesaiSaati;

        MesaiBittiPnl.SetclProSettings(MesaiBittiPnl.clProSettings);

        BittiIkonDisPnl.SetclProSettings(BittiIkonDisPnl.clProSettings);

        BittiPillPnl.SetclProSettings(BittiPillPnl.clProSettings);

        LblBittiBaslik.SetclProSettings(LblBittiBaslik.clProSettings);

        BaslaBtnPnl.Visible = False;

        MesaiDurumPnl.Visible = False;

        MesaiBittiPnl.Visible = True;

      }

      else

      {

        // Cikis yapmamis — MesaiDurumPnl goster

        if (GZamanindaMi)

        {

          MesaiDurumPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#D1FAE5');

          MesaiDurumPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#10B981');

          DurumIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');

          MesaiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');

          LblDurumBaslik.Text = 'Hos Geldiniz';

          LblDurumBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#065F46');

        }

        else

        {

          MesaiDurumPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FEE2E2');

          MesaiDurumPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#B91C1C');

          DurumIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');

          MesaiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');

          LblDurumBaslik.Text = 'Gec Geldi';

          LblDurumBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#991B1B');

        }

        MesaiDurumPnl.SetclProSettings(MesaiDurumPnl.clProSettings);

        DurumIkonDisPnl.SetclProSettings(DurumIkonDisPnl.clProSettings);

        MesaiPillPnl.SetclProSettings(MesaiPillPnl.clProSettings);

        LblDurumBaslik.SetclProSettings(LblDurumBaslik.clProSettings);

        BaslaBtnPnl.Visible = False;

        MesaiBittiPnl.Visible = False;

        MesaiDurumPnl.Visible = True;

      }

    }

    LQryCikis.Free;

  }

  AnaForm.FormWaiting.Visible = False;

  AnaForm.BtnFormMenu.Visible = False;

  AnaForm.BtnGoBack.Visible = False;

  AnaForm.Run;

}