var

  GlobalForm       : TclForm;

  MainPanel        : TclProPanel;

  AnaScroll        : TclVertScrollBox;

  TopBanner        : TclProPanel;

  GeriBtn          : TclProButton;

  BaslikLbl        : TclProLabel;

  BosDurumPanel    : TclProPanel;

  BosIkonLbl       : TclProLabel;

  BosBaslikLbl     : TclProLabel;

  Kart1Panel       : TclProPanel;

  Kart1GonderenLbl : TclProLabel;

  Kart1MesajLbl    : TclProLabel;

  Kart1TarihLbl    : TclProLabel;

  Kart2Panel       : TclProPanel;

  Kart2GonderenLbl : TclProLabel;

  Kart2MesajLbl    : TclProLabel;

  Kart2TarihLbl    : TclProLabel;

  Kart3Panel       : TclProPanel;

  Kart3GonderenLbl : TclProLabel;

  Kart3MesajLbl    : TclProLabel;

  Kart3TarihLbl    : TclProLabel;

  Kart4Panel       : TclProPanel;

  Kart4GonderenLbl : TclProLabel;

  Kart4MesajLbl    : TclProLabel;

  Kart4TarihLbl    : TclProLabel;

  Kart5Panel       : TclProPanel;

  Kart5GonderenLbl : TclProLabel;

  Kart5MesajLbl    : TclProLabel;

  Kart5TarihLbl    : TclProLabel;

  BottomNav        : TclProPanel;

  BtnNavAnaSayfa   : TclProButton;

  BtnNavIlanlar    : TclProButton;

  BtnNavBildirim   : TclProButton;

  BtnNavMesaj      : TclProButton;

  BtnNavProfil     : TclProButton;

  Qry              : TClSqlQuery;

  KayitSayisi      : Integer;

  Kart1ID : Integer;

Kart2ID : Integer;

Kart3ID : Integer;

Kart4ID : Integer;

Kart5ID : Integer;

Kart1Durum : String;

Kart2Durum : String;

Kart3Durum : String;

Kart4Durum : String;

Kart5Durum : String;

Kart1OnaylaBtn : TclProButton;

Kart1ReddetBtn : TclProButton;

Kart1MesajBtn : TclProButton;

Kart2OnaylaBtn : TclProButton;

Kart2ReddetBtn : TclProButton;

Kart2MesajBtn : TclProButton;

Kart3OnaylaBtn : TclProButton;

Kart3ReddetBtn : TclProButton;

Kart3MesajBtn : TclProButton;

Kart4OnaylaBtn : TclProButton;

Kart4ReddetBtn : TclProButton;

Kart4MesajBtn : TclProButton;

Kart5OnaylaBtn : TclProButton;

Kart5ReddetBtn : TclProButton;

Kart5MesajBtn : TclProButton;

void GitAnaSayfa;

{

  Clomosy.RunUnit('03_uAnaSayfa');

}

void GitIlanlar;

{

  Clomosy.RunUnit('04_uIlanlar');

}

void GitMesajlar;

{

  Clomosy.RunUnit('08_uMesajlar');

}

void GitProfil;

{

  Clomosy.RunUnit('02_uProfil');

}

void TumKartlariGizle;

{

  Kart1Panel.Visible = False;

  Kart2Panel.Visible = False;

  Kart3Panel.Visible = False;

  Kart4Panel.Visible = False;

  Kart5Panel.Visible = False;

}

void BildirimleriYukle;

var

  SqlMetni : String;

{

  if (Clomosy.GlobalVariableString == '')

  {

    BosDurumPanel.Visible = True;

    BosBaslikLbl.Text = 'Bildirimleri görmek için giriş yapmalısınız.';

    Exit;

  }

SqlMetni =

'SELECT TOP 5 BildirimID,GonderenKullanici,Mesaj,Durum,'+

'CONVERT(VARCHAR,Tarih,120) AS TarihStr '+

'FROM Bildirimler '+

'WHERE AliciKullanici='+

QuotedStr(Clomosy.GlobalVariableString)+

' ORDER BY Tarih DESC';

  KayitSayisi = 0;

  TumKartlariGizle;

  while (NOT Qry.Eof)

  {

    KayitSayisi = KayitSayisi + 1;

    if (KayitSayisi == 1)

    {

      Kart1Panel.Visible = True;

      Kart1ID = Qry.FieldByName('BildirimID').AsInteger;

      Kart1Durum = Qry.FieldByName('Durum').AsString;

      Kart1GonderenLbl.Text = 'Gönderen: ' + Qry.FieldByName('GonderenKullanici').AsString;

      Kart1MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart1TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

      if (Kart1Durum=='Beklemede')

  {

    Kart1OnaylaBtn.Visible=True;

    Kart1ReddetBtn.Visible=True;

    Kart1MesajBtn.Visible=False;

 }

else if (Kart1Durum=='Onaylandi')

{

    Kart1OnaylaBtn.Visible=False;

    Kart1ReddetBtn.Visible=False;

    Kart1MesajBtn.Visible=True;

}

else

{

    Kart1OnaylaBtn.Visible=False;

    Kart1ReddetBtn.Visible=False;

    Kart1MesajBtn.Visible=False;

}

      

    }

    if (KayitSayisi == 2)

    {

      Kart2Panel.Visible = True;

      Kart2GonderenLbl.Text = 'Gönderen: ' + Qry.FieldByName('GonderenKullanici').AsString;

      Kart2MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart2TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

    }

    if (KayitSayisi == 3)

    {

      Kart3Panel.Visible = True;

      Kart3GonderenLbl.Text = 'Gönderen: ' + Qry.FieldByName('GonderenKullanici').AsString;

      Kart3MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart3TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

    }

    if (KayitSayisi == 4)

    {

      Kart4Panel.Visible = True;

      Kart4GonderenLbl.Text = 'Gönderen: ' + Qry.FieldByName('GonderenKullanici').AsString;

      Kart4MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart4TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

    }

    if (KayitSayisi == 5)

    {

      Kart5Panel.Visible = True;

      Kart5GonderenLbl.Text = 'Gönderen: ' + Qry.FieldByName('GonderenKullanici').AsString;

      Kart5MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart5TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

    }

    Qry.Next;

  }

  Qry.Close;

  Qry.Free;

  if (KayitSayisi == 0)

  {

    BosDurumPanel.Visible = True;

  }

  else

  {

    BosDurumPanel.Visible = False;

  }

}

void CreatePage;

{

  GlobalForm = TclForm.Create(Self);

  MainPanel = GlobalForm.AddNewProPanel(GlobalForm, 'MainPanel');

  MainPanel.Align = alClient;

  MainPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0FDF4');

  MainPanel.SetclProSettings(MainPanel.clProSettings);

  AnaScroll = GlobalForm.AddNewVertScrollBox(MainPanel, 'AnaScroll');

  AnaScroll.Align = alClient;

  TopBanner = GlobalForm.AddNewProPanel(AnaScroll, 'TopBanner');

  TopBanner.Align = alTop;

  TopBanner.Width = GlobalForm.clWidth;

  TopBanner.Height = 90;

  TopBanner.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#166534');

  TopBanner.SetclProSettings(TopBanner.clProSettings);

  GeriBtn = GlobalForm.AddNewProButton(TopBanner, 'GeriBtn', '< Geri');

  GeriBtn.Align = alNone;

  GeriBtn.Width = 80;

  GeriBtn.Height = 30;

  GeriBtn.Position.X = 10;

  GeriBtn.Position.Y = 15;

  GeriBtn.clProSettings.BackgroundColor = clAlphaColor.clNull;

  GeriBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  GeriBtn.clProSettings.FontSize = 12;

  GeriBtn.SetclProSettings(GeriBtn.clProSettings);

  GlobalForm.AddNewEvent(GeriBtn, tbeOnClick, 'GitAnaSayfa');

  BaslikLbl = GlobalForm.AddNewProLabel(TopBanner, 'BaslikLbl', Chr($D83D) + Chr($DD14) + ' BİLDİRİMLER');

  BaslikLbl.Align = alNone;

  BaslikLbl.Width = GlobalForm.clWidth;

  BaslikLbl.Height = 30;

  BaslikLbl.Position.X = 0;

  BaslikLbl.Position.Y = 48;

  BaslikLbl.clProSettings.FontSize = 18;

  BaslikLbl.clProSettings.FontColor = clAlphaColor.clWhite;

  BaslikLbl.clProSettings.FontHorzAlign = palCenter;

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

  BaslikLbl.SetclProSettings(BaslikLbl.clProSettings);

  BosDurumPanel = GlobalForm.AddNewProPanel(AnaScroll, 'BosDurumPanel');

  BosDurumPanel.Align = alTop;

  BosDurumPanel.Width = GlobalForm.clWidth - 30;

  BosDurumPanel.Height = 120;

  BosDurumPanel.Position.X = 15;

  BosDurumPanel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  BosDurumPanel.clProSettings.RoundWidth = 12;

  BosDurumPanel.clProSettings.RoundHeight = 12;

  BosDurumPanel.SetclProSettings(BosDurumPanel.clProSettings);

  BosIkonLbl = GlobalForm.AddNewProLabel(BosDurumPanel, 'BosIkonLbl', Chr($D83D) + Chr($DD14));

  BosIkonLbl.Align = alNone;

  BosIkonLbl.Width = GlobalForm.clWidth - 30;

  BosIkonLbl.Height = 30;

  BosIkonLbl.Position.X = 0;

  BosIkonLbl.Position.Y = 20;

  BosIkonLbl.clProSettings.FontSize = 24;

  BosIkonLbl.clProSettings.FontHorzAlign = palCenter;

  BosIkonLbl.SetclProSettings(BosIkonLbl.clProSettings);

  BosBaslikLbl = GlobalForm.AddNewProLabel(BosDurumPanel, 'BosBaslikLbl', 'Henüz yeni bir bildiriminiz yok.');

  BosBaslikLbl.Align = alNone;

  BosBaslikLbl.Width = GlobalForm.clWidth - 30;

  BosBaslikLbl.Height = 20;

  BosBaslikLbl.Position.X = 0;

  BosBaslikLbl.Position.Y = 60;

  BosBaslikLbl.clProSettings.FontSize = 13;

  BosBaslikLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#4B5563');

  BosBaslikLbl.clProSettings.FontHorzAlign = palCenter;

  BosBaslikLbl.SetclProSettings(BosBaslikLbl.clProSettings);

  // KART 1

  Kart1Panel = GlobalForm.AddNewProPanel(AnaScroll, 'Kart1Panel');

  Kart1Panel.Align = alTop;

  Kart1Panel.Width = GlobalForm.clWidth - 30;

  Kart1Panel.Height = 90;

  Kart1Panel.Position.X = 15;

  Kart1Panel.Visible = False;

  Kart1Panel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  Kart1Panel.clProSettings.RoundWidth = 10;

  Kart1Panel.clProSettings.RoundHeight = 10;

  Kart1Panel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB');

  Kart1Panel.clProSettings.BorderWidth = 1;

  Kart1Panel.SetclProSettings(Kart1Panel.clProSettings);

  Kart1GonderenLbl = GlobalForm.AddNewProLabel(Kart1Panel, 'Kart1GonderenLbl', '');

  Kart1GonderenLbl.Align = alNone;

  Kart1GonderenLbl.Width = GlobalForm.clWidth - 60;

  Kart1GonderenLbl.Height = 18;

  Kart1GonderenLbl.Position.X = 14;

  Kart1GonderenLbl.Position.Y = 10;

  Kart1GonderenLbl.clProSettings.FontSize = 12;

  Kart1GonderenLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#166534');

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

  Kart1GonderenLbl.SetclProSettings(Kart1GonderenLbl.clProSettings);

  Kart1MesajLbl = GlobalForm.AddNewProLabel(Kart1Panel, 'Kart1MesajLbl', '');

  Kart1MesajLbl.Align = alNone;

  Kart1MesajLbl.Width = GlobalForm.clWidth - 60;

  Kart1MesajLbl.Height = 36;

  Kart1MesajLbl.Position.X = 14;

  Kart1MesajLbl.Position.Y = 30;

  Kart1MesajLbl.clProSettings.FontSize = 11;

  Kart1MesajLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#374151');

  Kart1MesajLbl.SetclProSettings(Kart1MesajLbl.clProSettings);

  Kart1TarihLbl = GlobalForm.AddNewProLabel(Kart1Panel, 'Kart1TarihLbl', '');

  Kart1TarihLbl.Align = alNone;

  Kart1TarihLbl.Width = GlobalForm.clWidth - 60;

  Kart1TarihLbl.Height = 16;

  Kart1TarihLbl.Position.X = 14;

  Kart1TarihLbl.Position.Y = 68;

  Kart1TarihLbl.clProSettings.FontSize = 9;

  Kart1TarihLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#9CA3AF');

  Kart1TarihLbl.SetclProSettings(Kart1TarihLbl.clProSettings);

  

  Kart1OnaylaBtn=GlobalForm.AddNewProButton(Kart1Panel,'Kart1OnaylaBtn','Onayla');

Kart1OnaylaBtn.Position.X=15;

Kart1OnaylaBtn.Position.Y=65;

Kart1OnaylaBtn.Width=70;

Kart1OnaylaBtn.Height=22;

Kart1OnaylaBtn.Visible=False;

Kart1ReddetBtn=GlobalForm.AddNewProButton(Kart1Panel,'Kart1ReddetBtn','Reddet');

Kart1ReddetBtn.Position.X=90;

Kart1ReddetBtn.Position.Y=65;

Kart1ReddetBtn.Width=70;

Kart1ReddetBtn.Height=22;

Kart1ReddetBtn.Visible=False;

Kart1MesajBtn=GlobalForm.AddNewProButton(Kart1Panel,'Kart1MesajBtn','Mesaj');

Kart1MesajBtn.Position.X=15;

Kart1MesajBtn.Position.Y=65;

Kart1MesajBtn.Width=100;

Kart1MesajBtn.Height=22;

Kart1MesajBtn.Visible=False;

  

  // KART 2

  Kart2Panel = GlobalForm.AddNewProPanel(AnaScroll, 'Kart2Panel');

  Kart2Panel.Align = alTop;

  Kart2Panel.Width = GlobalForm.clWidth - 30;

  Kart2Panel.Height = 90;

  Kart2Panel.Position.X = 15;

  Kart2Panel.Visible = False;

  Kart2Panel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  Kart2Panel.clProSettings.RoundWidth = 10;

  Kart2Panel.clProSettings.RoundHeight = 10;

  Kart2Panel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB');

  Kart2Panel.clProSettings.BorderWidth = 1;

  Kart2Panel.SetclProSettings(Kart2Panel.clProSettings);

  Kart2GonderenLbl = GlobalForm.AddNewProLabel(Kart2Panel, 'Kart2GonderenLbl', '');

  Kart2GonderenLbl.Align = alNone;

  Kart2GonderenLbl.Width = GlobalForm.clWidth - 60;

  Kart2GonderenLbl.Height = 18;

  Kart2GonderenLbl.Position.X = 14;

  Kart2GonderenLbl.Position.Y = 10;

  Kart2GonderenLbl.clProSettings.FontSize = 12;

  Kart2GonderenLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#166534');

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

  Kart2GonderenLbl.SetclProSettings(Kart2GonderenLbl.clProSettings);

  Kart2MesajLbl = GlobalForm.AddNewProLabel(Kart2Panel, 'Kart2MesajLbl', '');

  Kart2MesajLbl.Align = alNone;

  Kart2MesajLbl.Width = GlobalForm.clWidth - 60;

  Kart2MesajLbl.Height = 36;

  Kart2MesajLbl.Position.X = 14;

  Kart2MesajLbl.Position.Y = 30;

  Kart2MesajLbl.clProSettings.FontSize = 11;

  Kart2MesajLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#374151');

  Kart2MesajLbl.SetclProSettings(Kart2MesajLbl.clProSettings);

  Kart2TarihLbl = GlobalForm.AddNewProLabel(Kart2Panel, 'Kart2TarihLbl', '');

  Kart2TarihLbl.Align = alNone;

  Kart2TarihLbl.Width = GlobalForm.clWidth - 60;

  Kart2TarihLbl.Height = 16;

  Kart2TarihLbl.Position.X = 14;

  Kart2TarihLbl.Position.Y = 68;

  Kart2TarihLbl.clProSettings.FontSize = 9;

  Kart2TarihLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#9CA3AF');

  Kart2TarihLbl.SetclProSettings(Kart2TarihLbl.clProSettings);

  // KART 3

  Kart3Panel = GlobalForm.AddNewProPanel(AnaScroll, 'Kart3Panel');

  Kart3Panel.Align = alTop;

  Kart3Panel.Width = GlobalForm.clWidth - 30;

  Kart3Panel.Height = 90;

  Kart3Panel.Position.X = 15;

  Kart3Panel.Visible = False;

  Kart3Panel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  Kart3Panel.clProSettings.RoundWidth = 10;

  Kart3Panel.clProSettings.RoundHeight = 10;

  Kart3Panel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB');

  Kart3Panel.clProSettings.BorderWidth = 1;

  Kart3Panel.SetclProSettings(Kart3Panel.clProSettings);

  Kart3GonderenLbl = GlobalForm.AddNewProLabel(Kart3Panel, 'Kart3GonderenLbl', '');

  Kart3GonderenLbl.Align = alNone;

  Kart3GonderenLbl.Width = GlobalForm.clWidth - 60;

  Kart3GonderenLbl.Height = 18;

  Kart3GonderenLbl.Position.X = 14;

  Kart3GonderenLbl.Position.Y = 10;

  Kart3GonderenLbl.clProSettings.FontSize = 12;

  Kart3GonderenLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#166534');

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

  Kart3GonderenLbl.SetclProSettings(Kart3GonderenLbl.clProSettings);

  Kart3MesajLbl = GlobalForm.AddNewProLabel(Kart3Panel, 'Kart3MesajLbl', '');

  Kart3MesajLbl.Align = alNone;

  Kart3MesajLbl.Width = GlobalForm.clWidth - 60;

  Kart3MesajLbl.Height = 36;

  Kart3MesajLbl.Position.X = 14;

  Kart3MesajLbl.Position.Y = 30;

  Kart3MesajLbl.clProSettings.FontSize = 11;

  Kart3MesajLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#374151');

  Kart3MesajLbl.SetclProSettings(Kart3MesajLbl.clProSettings);

  Kart3TarihLbl = GlobalForm.AddNewProLabel(Kart3Panel, 'Kart3TarihLbl', '');

  Kart3TarihLbl.Align = alNone;

  Kart3TarihLbl.Width = GlobalForm.clWidth - 60;

  Kart3TarihLbl.Height = 16;

  Kart3TarihLbl.Position.X = 14;

  Kart3TarihLbl.Position.Y = 68;

  Kart3TarihLbl.clProSettings.FontSize = 9;

  Kart3TarihLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#9CA3AF');

  Kart3TarihLbl.SetclProSettings(Kart3TarihLbl.clProSettings);

  // KART 4

  Kart4Panel = GlobalForm.AddNewProPanel(AnaScroll, 'Kart4Panel');

  Kart4Panel.Align = alTop;

  Kart4Panel.Width = GlobalForm.clWidth - 30;

  Kart4Panel.Height = 90;

  Kart4Panel.Position.X = 15;

  Kart4Panel.Visible = False;

  Kart4Panel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  Kart4Panel.clProSettings.RoundWidth = 10;

  Kart4Panel.clProSettings.RoundHeight = 10;

  Kart4Panel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB');

  Kart4Panel.clProSettings.BorderWidth = 1;

  Kart4Panel.SetclProSettings(Kart4Panel.clProSettings);

  Kart4GonderenLbl = GlobalForm.AddNewProLabel(Kart4Panel, 'Kart4GonderenLbl', '');

  Kart4GonderenLbl.Align = alNone;

  Kart4GonderenLbl.Width = GlobalForm.clWidth - 60;

  Kart4GonderenLbl.Height = 18;

  Kart4GonderenLbl.Position.X = 14;

  Kart4GonderenLbl.Position.Y = 10;

  Kart4GonderenLbl.clProSettings.FontSize = 12;

  Kart4GonderenLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#166534');

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

  Kart4GonderenLbl.SetclProSettings(Kart4GonderenLbl.clProSettings);

  Kart4MesajLbl = GlobalForm.AddNewProLabel(Kart4Panel, 'Kart4MesajLbl', '');

  Kart4MesajLbl.Align = alNone;

  Kart4MesajLbl.Width = GlobalForm.clWidth - 60;

  Kart4MesajLbl.Height = 36;

  Kart4MesajLbl.Position.X = 14;

  Kart4MesajLbl.Position.Y = 30;

  Kart4MesajLbl.clProSettings.FontSize = 11;

  Kart4MesajLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#374151');

  Kart4MesajLbl.SetclProSettings(Kart4MesajLbl.clProSettings);

  Kart4TarihLbl = GlobalForm.AddNewProLabel(Kart4Panel, 'Kart4TarihLbl', '');

  Kart4TarihLbl.Align = alNone;

  Kart4TarihLbl.Width = GlobalForm.clWidth - 60;

  Kart4TarihLbl.Height = 16;

  Kart4TarihLbl.Position.X = 14;

  Kart4TarihLbl.Position.Y = 68;

  Kart4TarihLbl.clProSettings.FontSize = 9;

  Kart4TarihLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#9CA3AF');

  Kart4TarihLbl.SetclProSettings(Kart4TarihLbl.clProSettings);

  // KART 5

  Kart5Panel = GlobalForm.AddNewProPanel(AnaScroll, 'Kart5Panel');

  Kart5Panel.Align = alTop;

  Kart5Panel.Width = GlobalForm.clWidth - 30;

  Kart5Panel.Height = 90;

  Kart5Panel.Position.X = 15;

  Kart5Panel.Visible = False;

  Kart5Panel.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  Kart5Panel.clProSettings.RoundWidth = 10;

  Kart5Panel.clProSettings.RoundHeight = 10;

  Kart5Panel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB');

  Kart5Panel.clProSettings.BorderWidth = 1;

  Kart5Panel.SetclProSettings(Kart5Panel.clProSettings);

  Kart5GonderenLbl = GlobalForm.AddNewProLabel(Kart5Panel, 'Kart5GonderenLbl', '');

  Kart5GonderenLbl.Align = alNone;

  Kart5GonderenLbl.Width = GlobalForm.clWidth - 60;

  Kart5GonderenLbl.Height = 18;

  Kart5GonderenLbl.Position.X = 14;

  Kart5GonderenLbl.Position.Y = 10;

  Kart5GonderenLbl.clProSettings.FontSize = 12;

  Kart5GonderenLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#166534');

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

  Kart5GonderenLbl.SetclProSettings(Kart5GonderenLbl.clProSettings);

  Kart5MesajLbl = GlobalForm.AddNewProLabel(Kart5Panel, 'Kart5MesajLbl', '');

  Kart5MesajLbl.Align = alNone;

  Kart5MesajLbl.Width = GlobalForm.clWidth - 60;

  Kart5MesajLbl.Height = 36;

  Kart5MesajLbl.Position.X = 14;

  Kart5MesajLbl.Position.Y = 30;

  Kart5MesajLbl.clProSettings.FontSize = 11;

  Kart5MesajLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#374151');

  Kart5MesajLbl.SetclProSettings(Kart5MesajLbl.clProSettings);

  Kart5TarihLbl = GlobalForm.AddNewProLabel(Kart5Panel, 'Kart5TarihLbl', '');

  Kart5TarihLbl.Align = alNone;

  Kart5TarihLbl.Width = GlobalForm.clWidth - 60;

  Kart5TarihLbl.Height = 16;

  Kart5TarihLbl.Position.X = 14;

  Kart5TarihLbl.Position.Y = 68;

  Kart5TarihLbl.clProSettings.FontSize = 9;

  Kart5TarihLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#9CA3AF');

  Kart5TarihLbl.SetclProSettings(Kart5TarihLbl.clProSettings);

  BottomNav = GlobalForm.AddNewProPanel(GlobalForm, 'BottomNav');

  BottomNav.Align = alBottom;

  BottomNav.Height = 65;

  BottomNav.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  BottomNav.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB');

  BottomNav.clProSettings.BorderWidth = 1;

  BottomNav.SetclProSettings(BottomNav.clProSettings);

  BtnNavAnaSayfa = GlobalForm.AddNewProButton(BottomNav, 'BtnNavAnaSayfa', Chr($D83C) + Chr($DFE0) + ' Ana Sayfa');

  BtnNavAnaSayfa.Align = alNone;

  BtnNavAnaSayfa.Width = GlobalForm.clWidth / 5;

  BtnNavAnaSayfa.Height = 60;

  BtnNavAnaSayfa.Position.X = 0;

  BtnNavAnaSayfa.Position.Y = 3;

  BtnNavAnaSayfa.clProSettings.BackgroundColor = clAlphaColor.clNull;

  BtnNavAnaSayfa.clProSettings.FontColor = clAlphaColor.clHexToColor('#6B7280');

  BtnNavAnaSayfa.clProSettings.FontSize = 10;

  BtnNavAnaSayfa.SetclProSettings(BtnNavAnaSayfa.clProSettings);

  GlobalForm.AddNewEvent(BtnNavAnaSayfa, tbeOnClick, 'GitAnaSayfa');

  BtnNavIlanlar = GlobalForm.AddNewProButton(BottomNav, 'BtnNavIlanlar', Chr($D83D) + Chr($DCCB) + ' İlanlar');

  BtnNavIlanlar.Align = alNone;

  BtnNavIlanlar.Width = GlobalForm.clWidth / 5;

  BtnNavIlanlar.Height = 60;

  BtnNavIlanlar.Position.X = GlobalForm.clWidth / 5;

  BtnNavIlanlar.Position.Y = 3;

  BtnNavIlanlar.clProSettings.BackgroundColor = clAlphaColor.clNull;

  BtnNavIlanlar.clProSettings.FontColor = clAlphaColor.clHexToColor('#6B7280');

  BtnNavIlanlar.clProSettings.FontSize = 10;

  BtnNavIlanlar.SetclProSettings(BtnNavIlanlar.clProSettings);

  GlobalForm.AddNewEvent(BtnNavIlanlar, tbeOnClick, 'GitIlanlar');

  BtnNavBildirim = GlobalForm.AddNewProButton(BottomNav, 'BtnNavBildirim', Chr($D83D) + Chr($DD14) + ' Bildirim');

  BtnNavBildirim.Align = alNone;

  BtnNavBildirim.Width = GlobalForm.clWidth / 5;

  BtnNavBildirim.Height = 60;

  BtnNavBildirim.Position.X = (GlobalForm.clWidth / 5) * 2;

  BtnNavBildirim.Position.Y = 3;

  BtnNavBildirim.clProSettings.BackgroundColor = clAlphaColor.clNull;

  BtnNavBildirim.clProSettings.FontColor = clAlphaColor.clHexToColor('#16A34A');

  BtnNavBildirim.clProSettings.FontSize = 10;

  BtnNavBildirim.SetclProSettings(BtnNavBildirim.clProSettings);

  BtnNavMesaj = GlobalForm.AddNewProButton(BottomNav, 'BtnNavMesaj', Chr($D83D) + Chr($DCAC) + ' Mesaj');

  BtnNavMesaj.Align = alNone;

  BtnNavMesaj.Width = GlobalForm.clWidth / 5;

  BtnNavMesaj.Height = 60;

  BtnNavMesaj.Position.X = (GlobalForm.clWidth / 5) * 3;

  BtnNavMesaj.Position.Y = 3;

  BtnNavMesaj.clProSettings.BackgroundColor = clAlphaColor.clNull;

  BtnNavMesaj.clProSettings.FontColor = clAlphaColor.clHexToColor('#6B7280');

  BtnNavMesaj.clProSettings.FontSize = 10;

  BtnNavMesaj.SetclProSettings(BtnNavMesaj.clProSettings);

  GlobalForm.AddNewEvent(BtnNavMesaj, tbeOnClick, 'GitMesajlar');

  BtnNavProfil = GlobalForm.AddNewProButton(BottomNav, 'BtnNavProfil', Chr($D83D) + Chr($DC64) + ' Profil');

  BtnNavProfil.Align = alNone;

  BtnNavProfil.Width = GlobalForm.clWidth / 5;

  BtnNavProfil.Height = 60;

  BtnNavProfil.Position.X = (GlobalForm.clWidth / 5) * 4;

  BtnNavProfil.Position.Y = 3;

  BtnNavProfil.clProSettings.BackgroundColor = clAlphaColor.clNull;

  BtnNavProfil.clProSettings.FontColor = clAlphaColor.clHexToColor('#6B7280');

  BtnNavProfil.clProSettings.FontSize = 10;

  BtnNavProfil.SetclProSettings(BtnNavProfil.clProSettings);

  GlobalForm.AddNewEvent(BtnNavProfil, tbeOnClick, 'GitProfil');

}

{

  CreatePage;

  BildirimleriYukle;

  GlobalForm.Run;

}

void BildirimleriYukle;

var

  SqlMetni : String;

{

  if (Clomosy.GlobalVariableString == '')

  {

    BosDurumPanel.Visible = True;

    BosBaslikLbl.Text = 'Bildirimleri görmek için giriş yapmalısınız.';

    Exit;

  }

SqlMetni =

'SELECT TOP 5 BildirimID,GonderenKullanici,Mesaj,Durum,'+

'CONVERT(VARCHAR,Tarih,120) AS TarihStr '+

'FROM Bildirimler '+

'WHERE AliciKullanici='+

QuotedStr(Clomosy.GlobalVariableString)+

' ORDER BY Tarih DESC';

  KayitSayisi = 0;

  TumKartlariGizle;

  {

    KayitSayisi = KayitSayisi + 1;

    if (KayitSayisi == 1)

    {

      Kart1Panel.Visible = True;

      Kart1ID = Qry.FieldByName('BildirimID').AsInteger;

      Kart1Durum = Qry.FieldByName('Durum').AsString;

      Kart1GonderenLbl.Text = 'Gönderen: ' + Qry.FieldByName('GonderenKullanici').AsString;

      Kart1MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart1TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

      if (Kart1Durum=='Beklemede')

  {

    Kart1OnaylaBtn.Visible=True;

    Kart1ReddetBtn.Visible=True;

    Kart1MesajBtn.Visible=False;

 }

else if (Kart1Durum=='Onaylandi')

{

    Kart1OnaylaBtn.Visible=False;

    Kart1ReddetBtn.Visible=False;

    Kart1MesajBtn.Visible=True;

}

else

{

    Kart1OnaylaBtn.Visible=False;

    Kart1ReddetBtn.Visible=False;

    Kart1MesajBtn.Visible=False;

}

      

    }

    if (KayitSayisi == 2)

    {

      Kart2Panel.Visible = True;

      Kart2GonderenLbl.Text = 'Gönderen: ' + Qry.FieldByName('GonderenKullanici').AsString;

      Kart2MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart2TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

    }

    if (KayitSayisi == 3)

    {

      Kart3Panel.Visible = True;

      Kart3GonderenLbl.Text = 'Gönderen: ' + Qry.FieldByName('GonderenKullanici').AsString;

      Kart3MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart3TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

    }

    if (KayitSayisi == 4)

    {

      Kart4Panel.Visible = True;

      Kart4GonderenLbl.Text = 'Gönderen: ' + Qry.FieldByName('GonderenKullanici').AsString;

      Kart4MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart4TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

    }

    if (KayitSayisi == 5)

    {

      Kart5Panel.Visible = True;

      Kart5GonderenLbl.Text = 'Gönderen: ' + Qry.FieldByName('GonderenKullanici').AsString;

      Kart5MesajLbl.Text = Qry.FieldByName('Mesaj').AsString;

      Kart5TarihLbl.Text = Qry.FieldByName('TarihStr').AsString;

    }

    Qry.Next;

  }

  Qry.Close;

  Qry.Free;

  if (KayitSayisi == 0)

  {

    BosDurumPanel.Visible = True;

  }

  else

  {

    BosDurumPanel.Visible = False;

  }

}

RUNTIME ERROR

File library 07_uBildirimler: Access violation at address 00F5A5A4 in module "ClomosyLearn.exe" (offset A5A4). Read of address 00000000 when evaluating instruction CallProc ($FFFFFFFF,$0,$1ADD808,$6C2E850,"Eof").

Stack content is: [Null,Null,Null,Null...].

Source position: 131,21

Position: 131, 21 bu hatayı veriyor 131 satır altı çizili kısım hatanın nedenini anlamadım