Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Clomosy ile değişken kullanımı
  Aktif Konular Aktif Konular RSS - Clomosy TRobject Hatası
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Clomosy TRobject Hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
ismet Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 10 Temmuz 2026
Durum: Aktif Değil
Puanlar: 7 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ismet Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Clomosy TRobject Hatası
    Gönderim Zamanı: 4 Saat 50 Dakika Önce Saat 13:49
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;
  }
}

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

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">
Yukarı Dön
ismet Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 10 Temmuz 2026
Durum: Aktif Değil
Puanlar: 7 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ismet Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 4 Saat 45 Dakika Önce Saat 13:54
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;
}

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">
Yukarı Dön
kayra22 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20 Temmuz 2026
Durum: Aktif Değil
Puanlar: 43 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı kayra22 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 4 Saat 40 Dakika Önce Saat 13:59
hata devam ediyor mu?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">
Yukarı Dön
kayra22 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20 Temmuz 2026
Durum: Aktif Değil
Puanlar: 43 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı kayra22 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 3 Saat 4 Dakika Önce Saat 15:35
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;
}
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">
Yukarı Dön
kayra22 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20 Temmuz 2026
Durum: Aktif Değil
Puanlar: 43 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı kayra22 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 28 Dakika Önce Saat 16:11
uploads/480/Project_49.zip iyi çalışmalar dilerim < ="module" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1" crossorigin="anonymous">
Yukarı Dön
kayra22 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20 Temmuz 2026
Durum: Aktif Değil
Puanlar: 43 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı kayra22 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 13 Dakika Önce Saat 16:26
uploads/480/Project_50_2026-07-31_16-26-49.zip iyi çalışmalar < ="module" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1" crossorigin="anonymous">
Yukarı Dön
kayra22 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20 Temmuz 2026
Durum: Aktif Değil
Puanlar: 43 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı kayra22 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 5 Dakika Önce Saat 16:34
CREATE TABLE Mesajlar (
    ID INT IDENTITY(1,1) PRIMARY KEY,
    GonderenKullanici VARCHAR(50),
    AliciKullanici VARCHAR(50),
    MesajMetni VARCHAR(MAX),
    Tarih DATETIME
);
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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,078 Saniyede Yüklendi.