CREATE TABLE Mesajlar (

    ID INT IDENTITY(1,1) PRIMARY KEY,

    GonderenKullanici VARCHAR(50),

    AliciKullanici VARCHAR(50),

    MesajMetni VARCHAR(MAX),

    Tarih DATETIME

);

ListView'da AddPanelObject(lbl, clCaption) yazdığında, dataset'te MAIN_TEXT alanını arar. AddPanelObject(lbl, clText) ise SUB_TEXT alanını arar. Sen JSON'da clText ve clCaption yazmışsın ama olması gereken MAIN_TEXT ve SUB_TEXT.

bir diğeri de bağlantıdan sonra selectQuery.First eksikti

var

  ListForm : TclForm;

  MainPnl : TclProPanel;

  btnTest : TClProButton;

  

  // ListView yerine garantili render panelleri

  MainVertScroll : TclVertScrollBox;

  ListContainerPnl : TclProPanel;

  selectQuery : TclSqlQuery;

void ConnectToDatabase;

{

  try

    if (Clomosy.DBSQLServerConnection == nil)

    {

      Clomosy.DBSQLServerConnect('SQL Server', '192.168.5.227\ACARPLUS', 'AcarPlus', '1234', 'Odeme_App', 1433);

    }

    selectQuery.Connection = Clomosy.DBSQLServerConnection;

  except

    ShowMessage('Veritabanı bağlantısı kurulamadı: ' + LastExceptionMessage);

  }

}

void SelectAndRenderData;

var

  ItemIndex : Integer;

  CardPanel : TclProPanel;

  TextLayout : TclLayout;

  LblFullName, LblCompany : TclProLabel;

  CustName, CustComp, UniqueID : String;

{

  try

    selectQuery.Sql.Text = 

      'SELECT CAST(CustomerID AS VARCHAR(50)) AS CustID, ' +

      'ISNULL(CustomerFullName, '''') AS CustName, ' +

      'ISNULL(CustomerCompany, '''') AS CustCompany ' +

      'FROM Odeme_App.dbo.Customers WITH (NOLOCK) WHERE CustomerIsActive = 1';

    selectQuery.Open;

    

    if (not selectQuery.Eof)

    {

      if (ListContainerPnl <> nil) { ListContainerPnl.Visible = False; }

      UniqueID = IntToStr(Random(999999));

      ListContainerPnl = ListForm.AddNewProPanel(MainVertScroll, 'ListPnl_' + UniqueID);

      ListContainerPnl.Align = alTop;

      ListContainerPnl.clProSettings.IsTransparent = True;

      ListContainerPnl.SetclProSettings(ListContainerPnl.clProSettings);

      ItemIndex = 0;

      while (not selectQuery.Eof)

      {

        CustName = selectQuery.FieldByName('CustName').AsString;

        CustComp = selectQuery.FieldByName('CustCompany').AsString;

        // Her Müşteri İçin Kart Paneli

        CardPanel = ListForm.AddNewProPanel(ListContainerPnl, 'Card_' + UniqueID + '_' + IntToStr(ItemIndex));

        CardPanel.Align = alTop;

        CardPanel.Height = 65;

        CardPanel.Margins.Top = 8;

        CardPanel.Margins.Left = 8;

        CardPanel.Margins.Right = 8;

        CardPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

        CardPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');

        CardPanel.clProSettings.BorderWidth = 1;

        CardPanel.clProSettings.IsRound = True;

        CardPanel.clProSettings.RoundHeight = 10;

        CardPanel.clProSettings.RoundWidth = 10;

        CardPanel.clProSettings.IsFill = True;

        CardPanel.SetclProSettings(CardPanel.clProSettings);

        // Metin Yerleşimi

        TextLayout = ListForm.AddNewLayout(CardPanel, 'TLay_' + UniqueID + '_' + IntToStr(ItemIndex));

        TextLayout.Align = alClient;

        TextLayout.Margins.Left = 12;

        TextLayout.Margins.Top = 8;

        TextLayout.Margins.Right = 12;

        // Müşteri Adı (Koyu Renk Bold)

        LblFullName = ListForm.AddNewProLabel(TextLayout, 'LblName_' + UniqueID + '_' + IntToStr(ItemIndex), CustName);

        LblFullName.Align = alTop;

        LblFullName.Height = 24;

        LblFullName.clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A');

        LblFullName.clProSettings.FontSize = 12;

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

        LblFullName.SetclProSettings(LblFullName.clProSettings);

        // Şirket Adı

        LblCompany = ListForm.AddNewProLabel(TextLayout, 'LblComp_' + UniqueID + '_' + IntToStr(ItemIndex), 'Şirket: ' + CustComp);

        LblCompany.Align = alTop;

        LblCompany.Height = 20;

        LblCompany.clProSettings.FontColor = clAlphaColor.clHexToColor('#475569');

        LblCompany.clProSettings.FontSize = 10;

        LblCompany.SetclProSettings(LblCompany.clProSettings);

        ItemIndex = ItemIndex + 1;

        selectQuery.Next;

      }

      ListContainerPnl.Height = (ItemIndex * 75) + 20;

    }

    else

    {

      ShowMessage('Kayıtlı aktif müşteri bulunamadı.');

    }

  except

    ShowMessage('Hata Oluştu: ' + LastExceptionMessage);

  }

}

{

  ListForm = TclForm.Create(Self);

  ListForm.SetFormColor('#F8FAFC', '', clGNone);

  selectQuery = TclSqlQuery.Create(nil);

  MainPnl = ListForm.AddNewProPanel(ListForm, 'MainPnl');

  MainPnl.Align = alClient;

  MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');

  MainPnl.clProSettings.IsFill = True;

  MainPnl.SetclProSettings(MainPnl.clProSettings);

  // Üst Buton

  btnTest = ListForm.AddNewProButton(MainPnl, 'btnTest', 'MÜŞTERİ LİSTESİ');

  btnTest.Align = alTop;

  btnTest.Height = 42;

  btnTest.Margins.Left = 12;

  btnTest.Margins.Right = 12;

  btnTest.Margins.Top = 10;

  btnTest.Margins.Bottom = 6;

  btnTest.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  btnTest.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  btnTest.clProSettings.IsRound = True;

  btnTest.clProSettings.RoundHeight = 8;

  btnTest.clProSettings.RoundWidth = 8;

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

  btnTest.clProSettings.FontSize = 12;

  btnTest.clProSettings.IsFill = True;

  btnTest.SetclProSettings(btnTest.clProSettings);

  // Dikey Scroll Alanı

  MainVertScroll = ListForm.AddNewVertScrollBox(MainPnl, 'MainVertScroll');

  MainVertScroll.Align = alClient;

  MainVertScroll.Margins.Left = 10;

  MainVertScroll.Margins.Right = 10;

  MainVertScroll.Margins.Bottom = 10;

  ListContainerPnl = nil;

  ConnectToDatabase;

  SelectAndRenderData;

  ListForm.Run;

}

Merhaba ismet kodun çalışan hali aşağıda verilmiştir iyi çalışmalar dilerim                                                                                                                                                        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;

  Kart1DurumLbl    : TclProLabel;

  Kart2Panel       : TclProPanel;

  Kart2GonderenLbl : TclProLabel;

  Kart2MesajLbl    : TclProLabel;

  Kart2TarihLbl    : TclProLabel;

  Kart2DurumLbl    : TclProLabel;

  Kart3Panel       : TclProPanel;

  Kart3GonderenLbl : TclProLabel;

  Kart3MesajLbl    : TclProLabel;

  Kart3TarihLbl    : TclProLabel;

  Kart3DurumLbl    : TclProLabel;

  Kart4Panel       : TclProPanel;

  Kart4GonderenLbl : TclProLabel;

  Kart4MesajLbl    : TclProLabel;

  Kart4TarihLbl    : TclProLabel;

  Kart4DurumLbl    : TclProLabel;

  Kart5Panel       : TclProPanel;

  Kart5GonderenLbl : TclProLabel;

  Kart5MesajLbl    : TclProLabel;

  Kart5TarihLbl    : TclProLabel;

  Kart5DurumLbl    : TclProLabel;

  BottomNav        : TclProPanel;

  BtnNavAnaSayfa   : TclProButton;

  BtnNavIlanlar    : TclProButton;

  BtnNavBildirim   : TclProButton;

  BtnNavMesaj      : TclProButton;

  BtnNavProfil     : TclProButton;

  Qry              : TClSqlQuery;

  KayitSayisi      : Integer;

  SeciliKart       : Integer; 

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;

}

// İSTEK KABUL EDİLDİĞİNDE ÇALIŞACAK KISIM

void ProcYes;

var

  DurumMetni : String;

{

  ShowMessage('İstek onaylandı!'); // Ekrana popup mesajı çıkar

  

  DurumMetni = 'Kabul Edildi ' + Chr($D83D) + Chr($DCAC); 

  

  if (SeciliKart == 1) Kart1DurumLbl.Text = DurumMetni;

  if (SeciliKart == 2) Kart2DurumLbl.Text = DurumMetni;

  if (SeciliKart == 3) Kart3DurumLbl.Text = DurumMetni;

  if (SeciliKart == 4) Kart4DurumLbl.Text = DurumMetni;

  if (SeciliKart == 5) Kart5DurumLbl.Text = DurumMetni;

}

// İSTEK REDDEDİLDİĞİNDE ÇALIŞACAK KISIM

void ProcNo;

{

  ShowMessage('İstek reddedildi.'); // Ekrana popup mesajı çıkar

}

void Kart1Tiklandi;

{

  SeciliKart = 1;

  Clomosy.AskAndCall('Kullanıcının takıma katılma isteğini onaylıyor musunuz?','ProcYes','ProcNo');

}

void Kart2Tiklandi;

{

  SeciliKart = 2;

  Clomosy.AskAndCall('Kullanıcının takıma katılma isteğini onaylıyor musunuz?','ProcYes','ProcNo');

}

void Kart3Tiklandi;

{

  SeciliKart = 3;

  Clomosy.AskAndCall('Kullanıcının takıma katılma isteğini onaylıyor musunuz?','ProcYes','ProcNo');

}

void Kart4Tiklandi;

{

  SeciliKart = 4;

  Clomosy.AskAndCall('Kullanıcının takıma katılma isteğini onaylıyor musunuz?','ProcYes','ProcNo');

}

void Kart5Tiklandi;

{

  SeciliKart = 5;

  Clomosy.AskAndCall('Kullanıcının takıma katılma isteğini onaylıyor musunuz?','ProcYes','ProcNo');

}

void BildirimleriYukle;

var

  SqlMetni : String;

{

  if (Clomosy.GlobalVariableString == '')

  {

    BosDurumPanel.Visible = True;

    BosBaslikLbl.Text = 'Bildirimleri görmek için giris yapmalisiniz.';

    Exit;

  }

  SqlMetni = 'SELECT TOP 5 GonderenKullanici, Mesaj, CONVERT(VARCHAR, Tarih, 120) AS TarihStr FROM Bildirimler WHERE AliciKullanici = ' + QuotedStr(Clomosy.GlobalVariableString) + ' ORDER BY Tarih DESC';

  Qry = TClSqlQuery.Create(nil);

  Qry.Connection = Clomosy.DBSQLServerConnection;

  Qry.SQL.Text = SqlMetni;

  Qry.Open;

  KayitSayisi = 0;

  TumKartlariGizle;

  

  Kart1DurumLbl.Text = '';

  Kart2DurumLbl.Text = '';

  Kart3DurumLbl.Text = '';

  Kart4DurumLbl.Text = '';

  Kart5DurumLbl.Text = '';

  while (NOT Qry.Eof)

  {

    KayitSayisi = KayitSayisi + 1;

    if (KayitSayisi == 1)

    {

      Kart1Panel.Visible = True;

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

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

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

    }

    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) + ' BILDIRIMLER');

  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);

  GlobalForm.AddNewEvent(Kart1Panel, tbeOnClick, 'Kart1Tiklandi');

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

  Kart1GonderenLbl.Align = alNone;

  Kart1GonderenLbl.Width = GlobalForm.clWidth - 150;

  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);

  GlobalForm.AddNewEvent(Kart1GonderenLbl, tbeOnClick, 'Kart1Tiklandi'); // Yazıya tıklamayı algılar

  

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

  Kart1DurumLbl.Align = alNone;

  Kart1DurumLbl.Width = 120;

  Kart1DurumLbl.Height = 20;

  Kart1DurumLbl.Position.X = GlobalForm.clWidth - 170; 

  Kart1DurumLbl.Position.Y = 10;

  Kart1DurumLbl.clProSettings.FontSize = 11;

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

  Kart1DurumLbl.clProSettings.FontHorzAlign = palTrailing; 

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

  Kart1DurumLbl.SetclProSettings(Kart1DurumLbl.clProSettings);

  GlobalForm.AddNewEvent(Kart1DurumLbl, tbeOnClick, 'Kart1Tiklandi'); // Yazıya tıklamayı algılar

  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);

  GlobalForm.AddNewEvent(Kart1MesajLbl, tbeOnClick, 'Kart1Tiklandi'); // Yazıya tıklamayı algılar

  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);

  GlobalForm.AddNewEvent(Kart1TarihLbl, tbeOnClick, 'Kart1Tiklandi'); // Yazıya tıklamayı algılar

  // ==========================================

  // 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);

  GlobalForm.AddNewEvent(Kart2Panel, tbeOnClick, 'Kart2Tiklandi');

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

  Kart2GonderenLbl.Align = alNone;

  Kart2GonderenLbl.Width = GlobalForm.clWidth - 150;

  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);

  GlobalForm.AddNewEvent(Kart2GonderenLbl, tbeOnClick, 'Kart2Tiklandi');

  

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

  Kart2DurumLbl.Align = alNone;

  Kart2DurumLbl.Width = 120;

  Kart2DurumLbl.Height = 20;

  Kart2DurumLbl.Position.X = GlobalForm.clWidth - 170;

  Kart2DurumLbl.Position.Y = 10;

  Kart2DurumLbl.clProSettings.FontSize = 11;

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

  Kart2DurumLbl.clProSettings.FontHorzAlign = palTrailing; 

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

  Kart2DurumLbl.SetclProSettings(Kart2DurumLbl.clProSettings);

  GlobalForm.AddNewEvent(Kart2DurumLbl, tbeOnClick, 'Kart2Tiklandi');

  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);

  GlobalForm.AddNewEvent(Kart2MesajLbl, tbeOnClick, 'Kart2Tiklandi');

  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);

  GlobalForm.AddNewEvent(Kart2TarihLbl, tbeOnClick, 'Kart2Tiklandi');

  // ==========================================

  // 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);

  GlobalForm.AddNewEvent(Kart3Panel, tbeOnClick, 'Kart3Tiklandi');

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

  Kart3GonderenLbl.Align = alNone;

  Kart3GonderenLbl.Width = GlobalForm.clWidth - 150;

  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);

  GlobalForm.AddNewEvent(Kart3GonderenLbl, tbeOnClick, 'Kart3Tiklandi');

  

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

  Kart3DurumLbl.Align = alNone;

  Kart3DurumLbl.Width = 120;

  Kart3DurumLbl.Height = 20;

  Kart3DurumLbl.Position.X = GlobalForm.clWidth - 170;

  Kart3DurumLbl.Position.Y = 10;

  Kart3DurumLbl.clProSettings.FontSize = 11;

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

  Kart3DurumLbl.clProSettings.FontHorzAlign = palTrailing; 

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

  Kart3DurumLbl.SetclProSettings(Kart3DurumLbl.clProSettings);

  GlobalForm.AddNewEvent(Kart3DurumLbl, tbeOnClick, 'Kart3Tiklandi');

  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);

  GlobalForm.AddNewEvent(Kart3MesajLbl, tbeOnClick, 'Kart3Tiklandi');

  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);

  GlobalForm.AddNewEvent(Kart3TarihLbl, tbeOnClick, 'Kart3Tiklandi');

  // ==========================================

  // 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);

  GlobalForm.AddNewEvent(Kart4Panel, tbeOnClick, 'Kart4Tiklandi');

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

  Kart4GonderenLbl.Align = alNone;

  Kart4GonderenLbl.Width = GlobalForm.clWidth - 150;

  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);

  GlobalForm.AddNewEvent(Kart4GonderenLbl, tbeOnClick, 'Kart4Tiklandi');

  

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

  Kart4DurumLbl.Align = alNone;

  Kart4DurumLbl.Width = 120;

  Kart4DurumLbl.Height = 20;

  Kart4DurumLbl.Position.X = GlobalForm.clWidth - 170;

  Kart4DurumLbl.Position.Y = 10;

  Kart4DurumLbl.clProSettings.FontSize = 11;

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

  Kart4DurumLbl.clProSettings.FontHorzAlign = palTrailing; 

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

  Kart4DurumLbl.SetclProSettings(Kart4DurumLbl.clProSettings);

  GlobalForm.AddNewEvent(Kart4DurumLbl, tbeOnClick, 'Kart4Tiklandi');

  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);

  GlobalForm.AddNewEvent(Kart4MesajLbl, tbeOnClick, 'Kart4Tiklandi');

  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);

  GlobalForm.AddNewEvent(Kart4TarihLbl, tbeOnClick, 'Kart4Tiklandi');

  // ==========================================

  // 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);

  GlobalForm.AddNewEvent(Kart5Panel, tbeOnClick, 'Kart5Tiklandi');

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

  Kart5GonderenLbl.Align = alNone;

  Kart5GonderenLbl.Width = GlobalForm.clWidth - 150;

  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);

  GlobalForm.AddNewEvent(Kart5GonderenLbl, tbeOnClick, 'Kart5Tiklandi');

  

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

  Kart5DurumLbl.Align = alNone;

  Kart5DurumLbl.Width = 120;

  Kart5DurumLbl.Height = 20;

  Kart5DurumLbl.Position.X = GlobalForm.clWidth - 170;

  Kart5DurumLbl.Position.Y = 10;

  Kart5DurumLbl.clProSettings.FontSize = 11;

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

  Kart5DurumLbl.clProSettings.FontHorzAlign = palTrailing; 

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

  Kart5DurumLbl.SetclProSettings(Kart5DurumLbl.clProSettings);

  GlobalForm.AddNewEvent(Kart5DurumLbl, tbeOnClick, 'Kart5Tiklandi');

  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);

  GlobalForm.AddNewEvent(Kart5MesajLbl, tbeOnClick, 'Kart5Tiklandi');

  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);

  GlobalForm.AddNewEvent(Kart5TarihLbl, tbeOnClick, 'Kart5Tiklandi');

  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) + ' Ilanlar');

  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;

}

var

  ListForm : TclForm;

  MainPnl : TclProPanel;

  listviewShow : TclProListView;

  DesignerPanel1 : TClProListViewDesignerPanel;

  lblFullName, lblCompany : TClProLabel;

  selectQuery : TclSqlQuery;

  CustomerViewer : TclUnit;

  btnTest : TClProButton;

  

void CreateListView;

{

  btnTest = ListForm.AddNewButton(MainPnl,'btnTest', 'test buton');

  listviewShow = ListForm.AddNewProListView(MainPnl, 'listviewShow');

  listviewShow.Align = alClient;

  listviewShow.Margins.Left = 20;

  listviewShow.Margins.Right = 20;

  listviewShow.Margins.Top = 20;

  listviewShow.Margins.Bottom = 20;

  listviewShow.Width = 340;

  listviewShow.Height = 400;

  listviewShow.clProSettings.ColCount = 1;

  listviewShow.clProSettings.ItemHeight = 60;

  listviewShow.clProSettings.ViewType = lvList;

  listviewShow.SetclProSettings(listviewShow.clProSettings);

  listviewShow.Visible = True;

}

void CreateDesignerPanel;

{

  DesignerPanel1 = ListForm.AddNewProListViewDesignerPanel(listviewShow, 'DesignerPanel1');

  DesignerPanel1.Height = 60;

  DesignerPanel1.Width = 300;

  listviewShow.SetDesignerPanel(DesignerPanel1);

}

void CreateDesignerFields;

{

  lblFullName = ListForm.AddNewProLabel(DesignerPanel1, 'lblFullName', 'test');

  lblFullName.Align = alTop;

  lblFullName.Height = 25;

  DesignerPanel1.AddPanelObject(lblFullName, clText);

  lblCompany = ListForm.AddNewProLabel(DesignerPanel1, 'lblCompany', 'test');

  lblCompany.Align = alTop;

  lblCompany.Height = 25;

  DesignerPanel1.AddPanelObject(lblCompany, clCaption);

}

void ConnectToDatabase;

{

  try

    if (Clomosy.DBSQLServerConnection == nil)

    {

      Clomosy.DBSQLServerConnect('SQL Server', '192.168.5.227\ACARPLUS', 'AcarPlus', '1234', 'Odeme_App', 1433);

    }

    selectQuery.Connection = Clomosy.DBSQLServerConnection;

  except

    ShowMessage('Veritabanı bağlantısı kurulamadı ' + LastExceptionMessage);

  }

}

void selectToDatabase;

{

  try

    selectQuery.Sql.Text = 'SELECT CAST(CustomerID as FLOAT) as clRecord_GUID, CustomerFullName as clText, CustomerCompany as clCaption FROM Customers WHERE CustomerIsActive = 1';

    selectQuery.Open;

    

    if (not selectQuery.Eof)

    {

      listviewShow.clearList;

      listviewShow.clLoadProListViewDataFromDataset(selectQuery);

    }

    else

    {

      ShowMessage('Kayıtlı müşteri bulunamadı.');

    }

  except

    ShowMessage('Hata: ' + LastExceptionMessage);

  }

}

{

  ListForm = TclForm.Create(Self);

  ListForm.SetFormColor('#121214', '', clGNone);

  selectQuery = TclSqlQuery.Create(nil);

  MainPnl = ListForm.AddNewProPanel(ListForm, 'MainPnl');

  MainPnl.Align = alClient;

  MainPnl.Width = 380;

  MainPnl.Height = 650;

  MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1A1A1E');

  MainPnl.clProSettings.IsTransparent = False;

  MainPnl.SetclProSettings(MainPnl.clProSettings);

  CreateListView;

  CreateDesignerPanel;

  CreateDesignerFields;

  ConnectToDatabase;

  selectToDatabase;

  ListForm.Run;

}

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

Birimler arasında geçişler yapmak için TclUnit https://www.docs.clomosy.com/TclUnit kullanmanı tavsiye ederim. 

////////////////ANAKOD//////////////////

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">