Clomosy | Forum : Clomosy ile değişken kullanımı

Clomosy ile değişken kullanımı : Clomosy TRobject Hatas�

Fri, 31 Jul 2026 16:34:47 +0000

Yazar: kayra22
Konu: Clomosy TRobject Hatas�
G�nderim Zaman�: 31 Temmuz 2026 Saat 16:34

CREATE TABLE Mesajlar (

ID INT IDENTITY(1,1) PRIMARY KEY,

GonderenKullanici VARCHAR(50),

AliciKullanici VARCHAR(50),

MesajMetni VARCHAR(MAX),

Tarih DATETIME

);

Clomosy ile değişken kullanımı : Clomosy TRobject Hatas�

Fri, 31 Jul 2026 16:26:59 +0000

Yazar: kayra22
Konu: Clomosy TRobject Hatas�
G�nderim Zaman�: 31 Temmuz 2026 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">

Clomosy ile değişken kullanımı : Clomosy TRobject Hatas�

Fri, 31 Jul 2026 16:11:35 +0000

Yazar: kayra22
Konu: Clomosy TRobject Hatas�
G�nderim Zaman�: 31 Temmuz 2026 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">

Clomosy ile değişken kullanımı : Clomosy TRobject Hatas�

Fri, 31 Jul 2026 15:35:00 +0000

Yazar: kayra22
Konu: Clomosy TRobject Hatas�
G�nderim Zaman�: 31 Temmuz 2026 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;

}

Clomosy ile değişken kullanımı : Clomosy TRobject Hatas�

Fri, 31 Jul 2026 13:59:57 +0000

Yazar: kayra22
Konu: Clomosy TRobject Hatas�
G�nderim Zaman�: 31 Temmuz 2026 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">

Clomosy ile değişken kullanımı : Clomosy TRobject Hatas�

Fri, 31 Jul 2026 13:54:08 +0000

Yazar: ismet
Konu: Clomosy TRobject Hatas�
G�nderim Zaman�: 31 Temmuz 2026 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;

}

Clomosy ile değişken kullanımı : Clomosy TRobject Hatas�

Fri, 31 Jul 2026 13:49:00 +0000

Yazar: ismet
Konu: Clomosy TRobject Hatas�
G�nderim Zaman�: 31 Temmuz 2026 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

Clomosy ile değişken kullanımı : Hatay� g�remiyorum

Mon, 06 Jul 2026 17:58:37 +0000

Yazar: ardcek
Konu: Hatay� g�remiyorum
G�nderim Zaman�: 06 Temmuz 2026 Saat 17:58

Kodunuzdaki Temel Hatalar:

G�rsel Temizleme Hatas� (Image Clear AV Hatas�):
- Kodunuzda birden fazla yerde ImgUrunFoto.Bitmap = Nil; sat�r�n� kulland�n�z. Clomosy'nin arka plan�ndaki Delphi FMX k�t�phanesinde Bitmap salt okunur bir nesne referans� gibi �al��t��ndan direkt olarak Nil atamas� yap�lamaz ve bu i�lem Access Violation (bellek eri�im hatas�) veya derleme hatas� verir.
- ��z�m: Foto�raf� temizlemek i�in Clomosy standart metodu olan ImgUrunFoto.MultiResBitmap.Clear; kullan�lmal�d�r.
JSON Objelerini Dataset'e D�n��t�rme Hatas� (K��eli Parantez Eksikli�i):
- GoToDuzenle k�sm�nda ClDataSetFromJSON fonksiyonuna REST'ten gelen tek bir JSON nesnesi (getRest.Response ve i�indeki product nesnesi) g�nderiliyor.
- Clomosy'deki ClDataSetFromJSON fonksiyonu JSON Array (yani [...] ile ba�layan k��eli parantezli dizi) bekler. D�z bir JSON objesi ({...}) ald��nda parse edemez ve hata verir.
- ��z�m: Bu JSON string ifadelerini ��z�mlerken ba��na ve sonuna k��eli parantez eklemek gerekir:
  - getDataset = Clomosy.ClDataSetFromJSON('[' + getRest.Response + ']');
  - prodDataset = Clomosy.ClDataSetFromJSON('[' + getDataset.FieldByName('product').AsString + ']');
Ciddi Bellek S�z�nt�lar� (Free Edilmeyen Nesneler):
- Kodda TclRest.Create ve TCLJSONQuery (dataset) gibi nesneler olu�turuluyor ancak hi�bir yerde .Free edilmiyor. Mobil uygulamalarda bu tip i�lemler (�zellikle d�ng� i�indekiler) k�sa s�rede uygulaman�n ��kmesine yol a�ar.
- ��z�m: T�m REST istemcileri ve Dataset sorgular� try...finally bloklar� i�ine al�narak i�leri bitti�inde .Free metoduyla bellekten temizlenmelidir.
Kombobox M�kerrer Ekleme Hatas�:
- KategorileriYukle her �al��t��nda kategorileri ComboBox'a tekrar ekler.
- ��z�m: Metodun ba��na CmbKategori.Clear; eklenmi�tir.

var

AnaForm: TclForm;

PnlAna: TclPanel;

PnlAnaUst: TclProPanel;

LblAnaBaslik: TclProLabel;

BtnQR: TclProButton;

BtnSiparisler: TclProButton;

ScrUrunler: TclVertScrollBox;

PnlAnaAlt: TclProPanel;

BtnUrunEkle: TclProButton;

PnlQRModal: TclProPanel;

PnlQRKart: TclProPanel;

QrKod: TclQRCodeGenerator;

BtnQRKapat: TclProButton;

LblQRBaslik: TclProLabel;

PnlYeniUrun: TclPanel;

PnlYeniUrunUst: TclProPanel;

BtnYeniUrunGeri: TclProButton;

LblYeniUrunBaslik: TclProLabel;

ScrYeniUrunForm: TclVertScrollBox;

PnlForm: TclProPanel;

EdtUrunAdi: TclEdit;

EdtUrunFiyat: TclEdit;

CmbKategori: TclComboBox;

ImgUrunFoto: TclImage;

BtnFotoSec: TclProButton;

LblFotoDurum: TclProLabel;

BtnKaydet: TclProButton;

PnlSiparisler: TclPanel;

PnlSiparislerUst: TclProPanel;

BtnSiparislerGeri: TclProButton;

BtnSiparisYenile: TclProButton;

LblSiparislerBaslik: TclProLabel;

ScrSiparisler: TclVertScrollBox;

BaseURL: String;

IsEditMode: Boolean;

DuzenlenenUrunId: Integer;

FotoSecildi: Boolean;

KategoriSayisi: Integer;

void EkraniGoster(PnlGoster: TclPanel);

{

PnlAna.Visible = False;

PnlYeniUrun.Visible = False;

PnlSiparisler.Visible = False;

PnlGoster.Visible = True;

}

void QRGoster;

{

PnlQRModal.Visible = True;

}

void QRKapat;

{

PnlQRModal.Visible = False;

}

void KategorileriYukle;

var

catRest: TclRest;

catDataset: TCLJSONQuery;

{

KategoriSayisi = 0;

CmbKategori.Clear; // M�kerrer y�klemeleri �nler

catRest = TclRest.Create;

try

catRest.BaseURL = BaseURL + 'api.php?action=get_categories&restaurant_id=1&format=flat';

catRest.Method = rmGET;

try

catRest.Execute;

except

Exit;

}

if (catRest.Response <> '')

{

catDataset = Clomosy.ClDataSetFromJSON(catRest.Response);

try

while (catDataset.Eof == False)

{

CmbKategori.AddItem(catDataset.FieldByName('name').AsString, catDataset.FieldByName('id').AsString);

KategoriSayisi = KategoriSayisi + 1;

catDataset.Next;

}

finally

catDataset.Free;

}

finally

catRest.Free;

}

void KategoriSec(TargetCatId: Integer);

var

i: Integer;

n: Integer;

{

CmbKategori.ItemIndex = -1;

if (TargetCatId == 0)

{ Exit; }

i = 0;

n = KategoriSayisi;

while (i < n)

{

if (CmbKategori.GetValueIndex(i) == IntToStr(TargetCatId))

{

CmbKategori.ItemIndex = i;

i = n;

}

else

{

i = i + 1;

}

void UrunSil;

var

SilRest: TclRest;

reqBody: String;

BtnSil: TclProButton;

P1: TclProPanel;

P2: TclProPanel;

{

BtnSil = TclProButton(AnaForm.clSender);

reqBody = '{"action":"delete_product","id":' + IntToStr(BtnSil.clTagInt) + ',"restaurant_id":1}';

SilRest = TclRest.Create;

try

SilRest.BaseURL = BaseURL + 'api.php';

SilRest.Accept = 'application/json';

SilRest.Method = rmPOST;

SilRest.AddBody(reqBody, 'application/json');

SilRest.Execute;

finally

SilRest.Free;

}

P1 = TclProPanel(BtnSil.Parent);

P2 = TclProPanel(P1.Parent);

TclProPanel(P2.Parent).Visible = False;

}

void UrunleriYukle;

var

clRest: TclRest;

dataset: TCLJSONQuery;

PnlUrunItem: TclProPanel;

PnlUrunSag: TclProPanel;

PnlUrunIkon: TclProPanel;

PnlUrunSol: TclProPanel;

PnlButonlar: TclProPanel;

LblUrunAd: TclProLabel;

LblUrunKat: TclProLabel;

LblUrunFiyat: TclProLabel;

BtnSilItem: TclProButton;

BtnDuzenleItem: TclProButton;

ImgUrunList: TclImage;

GorselUrl: String;

{

ScrUrunler.Free;

ScrUrunler = AnaForm.AddNewVertScrollBox(PnlAna, 'ScrUrunler');

ScrUrunler.Align = alClient;

clRest = TclRest.Create;

try

clRest.BaseURL = BaseURL + 'api.php?action=get_products&restaurant_id=1&format=flat';

clRest.Method = rmGET;

try

clRest.Execute;

except

ShowMessage('Sunucuya baglanamadi!');

Exit;

}

if (clRest.Response <> '')

{

dataset = Clomosy.ClDataSetFromJSON(clRest.Response);

try

while (dataset.Eof == False)

{

PnlUrunItem = AnaForm.AddNewProPanel(ScrUrunler, 'Pnl_' + dataset.FieldByName('id').AsString);

PnlUrunItem.Align = alTop;

PnlUrunItem.Height = 90;

PnlUrunItem.Margins.Top = 8;

PnlUrunItem.Margins.Left = 16;

PnlUrunItem.Margins.Right = 16;

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

PnlUrunItem.clProSettings.BorderColor = clAlphaColor.clHexToColor('#F0F0F0');

PnlUrunItem.clProSettings.BorderWidth = 1;

PnlUrunItem.clProSettings.IsRound = True;

PnlUrunItem.clProSettings.RoundWidth = 16;

PnlUrunItem.clProSettings.RoundHeight = 16;

PnlUrunItem.SetclProSettings(PnlUrunItem.clProSettings);

PnlUrunIkon = AnaForm.AddNewProPanel(PnlUrunItem, 'Ikon_' + dataset.FieldByName('id').AsString);

PnlUrunIkon.Align = alLeft;

PnlUrunIkon.Width = 60;

PnlUrunIkon.Margins.Left = 12;

PnlUrunIkon.Margins.Top = 14;

PnlUrunIkon.Margins.Bottom = 14;

PnlUrunIkon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F5F5F5');

PnlUrunIkon.clProSettings.IsRound = True;

PnlUrunIkon.clProSettings.RoundWidth = 12;

PnlUrunIkon.clProSettings.RoundHeight = 12;

PnlUrunIkon.SetclProSettings(PnlUrunIkon.clProSettings);

ImgUrunList = AnaForm.AddNewImage(PnlUrunIkon, 'Img_' + dataset.FieldByName('id').AsString);

ImgUrunList.Align = alClient;

GorselUrl = dataset.FieldByName('image_url').AsString;

if (Copy(GorselUrl, 1, 7) == 'uploads')

{ GorselUrl = BaseURL + GorselUrl; }

if (GorselUrl <> '')

{ AnaForm.SetImage(ImgUrunList, GorselUrl); }

PnlUrunSag = AnaForm.AddNewProPanel(PnlUrunItem, 'Sag_' + dataset.FieldByName('id').AsString);

PnlUrunSag.Align = alRight;

PnlUrunSag.Width = 115;

PnlUrunSag.Margins.Right = 12;

PnlUrunSag.Margins.Top = 12;

PnlUrunSag.Margins.Bottom = 12;

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

PnlUrunSag.SetclProSettings(PnlUrunSag.clProSettings);

LblUrunFiyat = AnaForm.AddNewProLabel(PnlUrunSag, 'LblF_' + dataset.FieldByName('id').AsString, dataset.FieldByName('price').AsString + ' TL');

LblUrunFiyat.Align = alTop;

LblUrunFiyat.Height = 24;

LblUrunFiyat.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

LblUrunFiyat.clProSettings.FontSize = 14;

LblUrunFiyat.clProSettings.FontHorzAlign = palCenter;

LblUrunFiyat.SetclProSettings(LblUrunFiyat.clProSettings);

PnlButonlar = AnaForm.AddNewProPanel(PnlUrunSag, 'Btns_' + dataset.FieldByName('id').AsString);

PnlButonlar.Align = alBottom;

PnlButonlar.Height = 30;

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

PnlButonlar.SetclProSettings(PnlButonlar.clProSettings);

BtnDuzenleItem = AnaForm.AddNewProButton(PnlButonlar, 'BtnE_' + dataset.FieldByName('id').AsString, 'Duzenle');

BtnDuzenleItem.Align = alLeft;

BtnDuzenleItem.Width = 52;

BtnDuzenleItem.clTagInt = dataset.FieldByName('id').AsInteger;

BtnDuzenleItem.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0FAFA');

BtnDuzenleItem.clProSettings.FontSize = 11;

BtnDuzenleItem.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

BtnDuzenleItem.clProSettings.IsRound = True;

BtnDuzenleItem.clProSettings.RoundWidth = 8;

BtnDuzenleItem.clProSettings.RoundHeight = 8;

BtnDuzenleItem.SetclProSettings(BtnDuzenleItem.clProSettings);

AnaForm.AddNewEvent(BtnDuzenleItem, tbeOnClick, 'GoToDuzenle');

BtnSilItem = AnaForm.AddNewProButton(PnlButonlar, 'BtnS_' + dataset.FieldByName('id').AsString, 'Sil');

BtnSilItem.Align = alRight;

BtnSilItem.Width = 52;

BtnSilItem.clTagInt = dataset.FieldByName('id').AsInteger;

BtnSilItem.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFF0F0');

BtnSilItem.clProSettings.FontColor = clAlphaColor.clHexToColor('#ff3f3f');

BtnSilItem.clProSettings.FontSize = 12;

BtnSilItem.clProSettings.IsRound = True;

BtnSilItem.clProSettings.RoundWidth = 8;

BtnSilItem.clProSettings.RoundHeight = 8;

BtnSilItem.SetclProSettings(BtnSilItem.clProSettings);

AnaForm.AddNewEvent(BtnSilItem, tbeOnClick, 'UrunSil');

PnlUrunSol = AnaForm.AddNewProPanel(PnlUrunItem, 'Sol_' + dataset.FieldByName('id').AsString);

PnlUrunSol.Align = alClient;

PnlUrunSol.Margins.Left = 10;

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

PnlUrunSol.SetclProSettings(PnlUrunSol.clProSettings);

LblUrunAd = AnaForm.AddNewProLabel(PnlUrunSol, 'LblA_' + dataset.FieldByName('id').AsString, dataset.FieldByName('name').AsString);

LblUrunAd.Align = alTop;

LblUrunAd.Height = 32;

LblUrunAd.Margins.Top = 12;

LblUrunAd.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblUrunAd.clProSettings.FontSize = 15;

LblUrunAd.clProSettings.FontVertAlign = palCenter;

LblUrunAd.SetclProSettings(LblUrunAd.clProSettings);

LblUrunKat = AnaForm.AddNewProLabel(PnlUrunSol, 'LblK_' + dataset.FieldByName('id').AsString, dataset.FieldByName('category_name').AsString);

LblUrunKat.Align = alTop;

LblUrunKat.Height = 20;

LblUrunKat.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

LblUrunKat.clProSettings.FontSize = 11;

LblUrunKat.clProSettings.FontVertAlign = palCenter;

LblUrunKat.SetclProSettings(LblUrunKat.clProSettings);

dataset.Next;

}

finally

dataset.Free;

}

finally

clRest.Free;

}

void GoToAna;

{

EkraniGoster(PnlAna);

UrunleriYukle;

}

void GoToDuzenle;

var

BtnDuz: TclProButton;

getRest: TclRest;

getDataset: TCLJSONQuery;

prodDataset: TCLJSONQuery;

imageUrlStr: String;

{

BtnDuz = TclProButton(AnaForm.clSender);

DuzenlenenUrunId = BtnDuz.clTagInt;

IsEditMode = True;

FotoSecildi = False;

LblYeniUrunBaslik.Text = 'Urunu Duzenle';

EdtUrunAdi.Text = '';

EdtUrunFiyat.Text = '';

ImgUrunFoto.MultiResBitmap.Clear; // AV hatas� �nlendi

getRest = TclRest.Create;

try

getRest.BaseURL = BaseURL + 'api.php?action=get_product&restaurant_id=1&id=' + IntToStr(DuzenlenenUrunId);

getRest.Method = rmGET;

try

getRest.Execute;

except

ShowMessage('Urun bilgileri alinamadi.');

Exit;

}

if (getRest.Response <> '')

{

getDataset = Clomosy.ClDataSetFromJSON('[' + getRest.Response + ']'); // Objeyi array yapmak i�in [] sarmaland�

try

if (getDataset.FieldByName('success').AsBoolean)

{

prodDataset = Clomosy.ClDataSetFromJSON('[' + getDataset.FieldByName('product').AsString + ']'); // product objesini parse etmek i�in [] sarmaland�

try

EdtUrunAdi.Text = prodDataset.FieldByName('name').AsString;

EdtUrunFiyat.Text = prodDataset.FieldByName('price').AsString;

KategoriSec(prodDataset.FieldByName('category_id').AsInteger);

imageUrlStr = prodDataset.FieldByName('image_url').AsString;

if (Copy(imageUrlStr, 1, 7) == 'uploads')

{ imageUrlStr = BaseURL + imageUrlStr; }

if (imageUrlStr <> '')

{

AnaForm.SetImage(ImgUrunFoto, imageUrlStr);

LblFotoDurum.Text = 'Mevcut fotograf mevcut';

LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

}

else

{

LblFotoDurum.Text = 'Fotograf yok';

LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#999999');

LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

}

EkraniGoster(PnlYeniUrun);

finally

prodDataset.Free;

}

else

{ ShowMessage('Urun bulunamadi.'); }

finally

getDataset.Free;

}

finally

getRest.Free;

}

void GoToYeniUrun;

{

IsEditMode = False;

DuzenlenenUrunId = 0;

FotoSecildi = False;

LblYeniUrunBaslik.Text = 'Yeni Urun Ekle';

EdtUrunAdi.Text = '';

EdtUrunFiyat.Text = '';

ImgUrunFoto.MultiResBitmap.Clear; // AV hatas� �nlendi

CmbKategori.ItemIndex = -1;

LblFotoDurum.Text = 'Fotograf secilmedi';

LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#999999');

LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

EkraniGoster(PnlYeniUrun);

}

void FotoSec;

{

try

Clomosy.ImageChooser(AnaForm, ImgUrunFoto);

FotoSecildi = True;

LblFotoDurum.Text = 'Fotograf secildi';

LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

except

ShowMessage('Kamera acilamadi.');

}

void YeniUrunKaydet;

var

KaydetRest: TclRest;

reqBody: String;

LBase64Veri: String;

LMemStream: TCLMemoryStream;

selCatId: String;

{

if (EdtUrunAdi.Text == '')

{ ShowMessage('Urun adi giriniz!'); Exit; }

if (EdtUrunFiyat.Text == '')

{ ShowMessage('Fiyat giriniz!'); Exit; }

if (CmbKategori.ItemIndex == -1)

{ ShowMessage('Kategori seciniz!'); Exit; }

if (IsEditMode == False)

{

if (FotoSecildi == False)

{ ShowMessage('Fotograf seciniz!'); Exit; }

}

selCatId = CmbKategori.GetValueIndex(CmbKategori.ItemIndex);

LBase64Veri = '';

if (FotoSecildi)

{

LMemStream = TCLMemoryStream.Create;

try

ImgUrunFoto.Bitmap.SaveToStream(LMemStream);

if (LMemStream.Size == 0)

{

ShowMessage('Fotograf bos!');

Exit;

}

LBase64Veri = LMemStream.AsBase64;

finally

LMemStream.Free;

}

reqBody = '{"restaurant_id":1,"category_id":' + selCatId;

reqBody = reqBody + ',"name":"' + EdtUrunAdi.Text + '"';

reqBody = reqBody + ',"description":"' + EdtUrunAdi.Text + '"';

reqBody = reqBody + ',"price":' + EdtUrunFiyat.Text;

if (IsEditMode)

{ reqBody = reqBody + ',"id":' + IntToStr(DuzenlenenUrunId); }

if (FotoSecildi)

{ reqBody = reqBody + ',"image_base64":"' + LBase64Veri + '"'; }

reqBody = reqBody + '}';

KaydetRest = TclRest.Create;

try

KaydetRest.BaseURL = BaseURL + 'api.php?action=save_product';

KaydetRest.Accept = 'application/json';

KaydetRest.Method = rmPOST;

KaydetRest.AddBody(reqBody, 'application/json');

try

KaydetRest.Execute;

except

ShowMessage('Sunucu baglanti hatasi!');

Exit;

}

if (KaydetRest.Response <> '')

{

ShowMessage('Kaydedildi!');

EdtUrunAdi.Text = '';

EdtUrunFiyat.Text = '';

ImgUrunFoto.MultiResBitmap.Clear; // AV hatas� �nlendi

IsEditMode = False;

DuzenlenenUrunId = 0;

FotoSecildi = False;

GoToAna;

}

else

{ ShowMessage('Sunucudan yanit alinamadi.'); }

finally

KaydetRest.Free;

}

void SiparisTamamla;

var

delRest: TclRest;

reqBody: String;

BtnT: TclProButton;

{

BtnT = TclProButton(AnaForm.clSender);

reqBody = '{"action":"delete_order","id":' + IntToStr(BtnT.clTagInt) + ',"restaurant_id":1}';

delRest = TclRest.Create;

try

delRest.BaseURL = BaseURL + 'api.php';

delRest.Accept = 'application/json';

delRest.Method = rmPOST;

delRest.AddBody(reqBody, 'application/json');

try

delRest.Execute;

TclProPanel(BtnT.Parent).Visible = False;

except

ShowMessage('Hata olustu');

}

finally

delRest.Free;

}

void SiparisleriYukle;

var

ordRest: TclRest;

ordDataset: TCLJSONQuery;

PnlOrdItem: TclProPanel;

LblOrdNo: TclProLabel;

LblOrdDetay: TclProLabel;

LblOrdFiyat: TclProLabel;

BtnTamamla: TclProButton;

{

ScrSiparisler.Free;

ScrSiparisler = AnaForm.AddNewVertScrollBox(PnlSiparisler, 'ScrSiparisler');

ScrSiparisler.Align = alClient;

ordRest = TclRest.Create;

try

ordRest.BaseURL = BaseURL + 'api.php?action=get_orders&restaurant_id=1&format=flat';

ordRest.Method = rmGET;

try

ordRest.Execute;

except

ShowMessage('Siparisler yuklenemedi.');

Exit;

}

if (ordRest.Response <> '')

{

ordDataset = Clomosy.ClDataSetFromJSON(ordRest.Response);

try

while (ordDataset.Eof == False)

{

PnlOrdItem = AnaForm.AddNewProPanel(ScrSiparisler, 'PnlOrd_' + ordDataset.FieldByName('id').AsString);

PnlOrdItem.Align = alTop;

PnlOrdItem.Height = 120;

PnlOrdItem.Margins.Top = 10;

PnlOrdItem.Margins.Left = 16;

PnlOrdItem.Margins.Right = 16;

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

PnlOrdItem.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E8E8E8');

PnlOrdItem.clProSettings.BorderWidth = 1;

PnlOrdItem.clProSettings.IsRound = True;

PnlOrdItem.clProSettings.RoundWidth = 16;

PnlOrdItem.clProSettings.RoundHeight = 16;

PnlOrdItem.SetclProSettings(PnlOrdItem.clProSettings);

LblOrdNo = AnaForm.AddNewProLabel(PnlOrdItem, 'LblON_' + ordDataset.FieldByName('id').AsString, 'Siparis #' + ordDataset.FieldByName('id').AsString);

LblOrdNo.Align = alTop;

LblOrdNo.Height = 30;

LblOrdNo.Margins.Left = 14;

LblOrdNo.Margins.Top = 10;

LblOrdNo.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblOrdNo.clProSettings.FontSize = 14;

LblOrdNo.clProSettings.FontVertAlign = palCenter;

LblOrdNo.SetclProSettings(LblOrdNo.clProSettings);

LblOrdDetay = AnaForm.AddNewProLabel(PnlOrdItem, 'LblOD_' + ordDataset.FieldByName('id').AsString, ordDataset.FieldByName('items_text').AsString);

LblOrdDetay.Align = alTop;

LblOrdDetay.Height = 24;

LblOrdDetay.Margins.Left = 14;

LblOrdDetay.Margins.Right = 14;

LblOrdDetay.clProSettings.FontColor = clAlphaColor.clHexToColor('#666666');

LblOrdDetay.clProSettings.FontSize = 12;

LblOrdDetay.clProSettings.FontVertAlign = palCenter;

LblOrdDetay.SetclProSettings(LblOrdDetay.clProSettings);

LblOrdFiyat = AnaForm.AddNewProLabel(PnlOrdItem, 'LblOP_' + ordDataset.FieldByName('id').AsString, 'Toplam: ' + ordDataset.FieldByName('total_price').AsString + ' TL');

LblOrdFiyat.Align = alTop;

LblOrdFiyat.Height = 22;

LblOrdFiyat.Margins.Left = 14;

LblOrdFiyat.Margins.Top = 2;

LblOrdFiyat.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

LblOrdFiyat.clProSettings.FontSize = 13;

LblOrdFiyat.clProSettings.FontVertAlign = palCenter;

LblOrdFiyat.SetclProSettings(LblOrdFiyat.clProSettings);

BtnTamamla = AnaForm.AddNewProButton(PnlOrdItem, 'BtnT_' + ordDataset.FieldByName('id').AsString, 'Tamamlandi');

BtnTamamla.Align = alBottom;

BtnTamamla.Height = 30;

BtnTamamla.Margins.Left = 14;

BtnTamamla.Margins.Right = 14;

BtnTamamla.Margins.Bottom = 8;

BtnTamamla.clTagInt = ordDataset.FieldByName('id').AsInteger;

BtnTamamla.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EAFBFA');

BtnTamamla.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

BtnTamamla.clProSettings.FontSize = 12;

BtnTamamla.clProSettings.IsRound = True;

BtnTamamla.clProSettings.RoundWidth = 8;

BtnTamamla.clProSettings.RoundHeight = 8;

BtnTamamla.SetclProSettings(BtnTamamla.clProSettings);

AnaForm.AddNewEvent(BtnTamamla, tbeOnClick, 'SiparisTamamla');

ordDataset.Next;

}

finally

ordDataset.Free;

}

finally

ordRest.Free;

}

Clomosy.SendNotifyAllUsers('Yeni Siparis!', 'Bekleyen siparislerinizi kontrol edin.', '');

}

void GoToSiparisler;

{

EkraniGoster(PnlSiparisler);

SiparisleriYukle;

}

{

BaseURL = 'http://192.168.1.43/qrmenu/';

IsEditMode = False;

DuzenlenenUrunId = 0;

FotoSecildi = False;

KategoriSayisi = 0;

AnaForm = TclForm.Create(Self);

AnaForm.SetFormColor('#F8F9FA', '', clGNone);

PnlAna = AnaForm.AddNewPanel(AnaForm, 'PnlAna');

PnlAna.Align = alClient;

PnlAnaUst = AnaForm.AddNewProPanel(PnlAna, 'PnlAnaUst');

PnlAnaUst.Align = alTop;

PnlAnaUst.Height = 64;

PnlAnaUst.Margins.Left = 16;

PnlAnaUst.Margins.Right = 16;

PnlAnaUst.Margins.Top = 8;

PnlAnaUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

PnlAnaUst.SetclProSettings(PnlAnaUst.clProSettings);

LblAnaBaslik = AnaForm.AddNewProLabel(PnlAnaUst, 'LblAna', 'Menu Yonetimi');

LblAnaBaslik.Align = alLeft;

LblAnaBaslik.Width = 160;

LblAnaBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblAnaBaslik.clProSettings.FontSize = 20;

LblAnaBaslik.clProSettings.FontVertAlign = palCenter;

LblAnaBaslik.SetclProSettings(LblAnaBaslik.clProSettings);

BtnQR = AnaForm.AddNewProButton(PnlAnaUst, 'BtnQR', 'QR');

BtnQR.Align = alRight;

BtnQR.Width = 44;

BtnQR.Height = 44;

BtnQR.Margins.Top = 10;

BtnQR.Margins.Bottom = 10;

BtnQR.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');

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

BtnQR.clProSettings.FontSize = 14;

BtnQR.clProSettings.IsRound = True;

BtnQR.clProSettings.RoundWidth = 12;

BtnQR.clProSettings.RoundHeight = 12;

BtnQR.SetclProSettings(BtnQR.clProSettings);

AnaForm.AddNewEvent(BtnQR, tbeOnClick, 'QRGoster');

BtnSiparisler = AnaForm.AddNewProButton(PnlAnaUst, 'BtnSip', 'Sip');

BtnSiparisler.Align = alRight;

BtnSiparisler.Width = 44;

BtnSiparisler.Height = 44;

BtnSiparisler.Margins.Top = 10;

BtnSiparisler.Margins.Bottom = 10;

BtnSiparisler.Margins.Right = 8;

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

BtnSiparisler.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

BtnSiparisler.clProSettings.FontSize = 11;

BtnSiparisler.clProSettings.IsRound = True;

BtnSiparisler.clProSettings.RoundWidth = 12;

BtnSiparisler.clProSettings.RoundHeight = 12;

BtnSiparisler.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

BtnSiparisler.clProSettings.BorderWidth = 1;

BtnSiparisler.SetclProSettings(BtnSiparisler.clProSettings);

AnaForm.AddNewEvent(BtnSiparisler, tbeOnClick, 'GoToSiparisler');

ScrUrunler = AnaForm.AddNewVertScrollBox(PnlAna, 'ScrUrunler');

ScrUrunler.Align = alClient;

PnlAnaAlt = AnaForm.AddNewProPanel(PnlAna, 'PnlAnaAlt');

PnlAnaAlt.Align = alBottom;

PnlAnaAlt.Height = 88;

PnlAnaAlt.Margins.Left = 16;

PnlAnaAlt.Margins.Right = 16;

PnlAnaAlt.Margins.Bottom = 8;

PnlAnaAlt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

PnlAnaAlt.SetclProSettings(PnlAnaAlt.clProSettings);

BtnUrunEkle = AnaForm.AddNewProButton(PnlAnaAlt, 'BtnEkle', '+ Yeni Urun Ekle');

BtnUrunEkle.Align = alClient;

BtnUrunEkle.Margins.Top = 12;

BtnUrunEkle.Margins.Bottom = 12;

BtnUrunEkle.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');

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

BtnUrunEkle.clProSettings.FontSize = 17;

BtnUrunEkle.clProSettings.IsRound = True;

BtnUrunEkle.clProSettings.RoundWidth = 16;

BtnUrunEkle.clProSettings.RoundHeight = 16;

BtnUrunEkle.SetclProSettings(BtnUrunEkle.clProSettings);

AnaForm.AddNewEvent(BtnUrunEkle, tbeOnClick, 'GoToYeniUrun');

PnlQRModal = AnaForm.AddNewProPanel(AnaForm, 'PnlQRModal');

PnlQRModal.Align = alClient;

PnlQRModal.Visible = False;

PnlQRModal.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#CC000000');

PnlQRModal.SetclProSettings(PnlQRModal.clProSettings);

AnaForm.AddNewEvent(PnlQRModal, tbeOnClick, 'QRKapat');

PnlQRKart = AnaForm.AddNewProPanel(PnlQRModal, 'PnlQRKart');

PnlQRKart.Align = alCenter;

PnlQRKart.Width = 280;

PnlQRKart.Height = 360;

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

PnlQRKart.clProSettings.IsRound = True;

PnlQRKart.clProSettings.RoundWidth = 24;

PnlQRKart.clProSettings.RoundHeight = 24;

PnlQRKart.SetclProSettings(PnlQRKart.clProSettings);

LblQRBaslik = AnaForm.AddNewProLabel(PnlQRKart, 'LblQR', 'Menu QR Kodu');

LblQRBaslik.Align = alTop;

LblQRBaslik.Height = 50;

LblQRBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblQRBaslik.clProSettings.FontSize = 18;

LblQRBaslik.clProSettings.FontHorzAlign = palCenter;

LblQRBaslik.clProSettings.FontVertAlign = palCenter;

LblQRBaslik.SetclProSettings(LblQRBaslik.clProSettings);

QrKod = AnaForm.AddNewQRCodeGenerator(PnlQRKart, 'QrKod', BaseURL + 'menu.php?id=1&i=1');

QrKod.Align = alTop;

QrKod.Height = 240;

QrKod.Margins.Left = 20;

QrKod.Margins.Right = 20;

BtnQRKapat = AnaForm.AddNewProButton(PnlQRKart, 'BtnQRKapat', 'Kapat');

BtnQRKapat.Align = alBottom;

BtnQRKapat.Height = 48;

BtnQRKapat.Margins.Left = 20;

BtnQRKapat.Margins.Right = 20;

BtnQRKapat.Margins.Bottom = 16;

BtnQRKapat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

BtnQRKapat.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

BtnQRKapat.clProSettings.FontSize = 15;

BtnQRKapat.clProSettings.IsRound = True;

BtnQRKapat.clProSettings.RoundWidth = 12;

BtnQRKapat.clProSettings.RoundHeight = 12;

BtnQRKapat.SetclProSettings(BtnQRKapat.clProSettings);

AnaForm.AddNewEvent(BtnQRKapat, tbeOnClick, 'QRKapat');

PnlYeniUrun = AnaForm.AddNewPanel(AnaForm, 'PnlYeniUrun');

PnlYeniUrun.Align = alClient;

PnlYeniUrun.Visible = False;

PnlYeniUrunUst = AnaForm.AddNewProPanel(PnlYeniUrun, 'PnlYeniUst');

PnlYeniUrunUst.Align = alTop;

PnlYeniUrunUst.Height = 64;

PnlYeniUrunUst.Margins.Left = 16;

PnlYeniUrunUst.Margins.Right = 16;

PnlYeniUrunUst.Margins.Top = 8;

PnlYeniUrunUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

PnlYeniUrunUst.SetclProSettings(PnlYeniUrunUst.clProSettings);

BtnYeniUrunGeri = AnaForm.AddNewProButton(PnlYeniUrunUst, 'BtnGeri', '<');

BtnYeniUrunGeri.Align = alLeft;

BtnYeniUrunGeri.Width = 44;

BtnYeniUrunGeri.Height = 44;

BtnYeniUrunGeri.Margins.Top = 10;

BtnYeniUrunGeri.Margins.Bottom = 10;

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

BtnYeniUrunGeri.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

BtnYeniUrunGeri.clProSettings.FontSize = 20;

BtnYeniUrunGeri.clProSettings.IsRound = True;

BtnYeniUrunGeri.clProSettings.RoundWidth = 12;

BtnYeniUrunGeri.clProSettings.RoundHeight = 12;

BtnYeniUrunGeri.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

BtnYeniUrunGeri.clProSettings.BorderWidth = 1;

BtnYeniUrunGeri.SetclProSettings(BtnYeniUrunGeri.clProSettings);

AnaForm.AddNewEvent(BtnYeniUrunGeri, tbeOnClick, 'GoToAna');

LblYeniUrunBaslik = AnaForm.AddNewProLabel(PnlYeniUrunUst, 'LblYBaslik', 'Yeni Urun Ekle');

LblYeniUrunBaslik.Align = alClient;

LblYeniUrunBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblYeniUrunBaslik.clProSettings.FontSize = 20;

LblYeniUrunBaslik.clProSettings.FontHorzAlign = palCenter;

LblYeniUrunBaslik.clProSettings.FontVertAlign = palCenter;

LblYeniUrunBaslik.SetclProSettings(LblYeniUrunBaslik.clProSettings);

ScrYeniUrunForm = AnaForm.AddNewVertScrollBox(PnlYeniUrun, 'ScrYeniForm');

ScrYeniUrunForm.Align = alClient;

PnlForm = AnaForm.AddNewProPanel(ScrYeniUrunForm, 'PnlForm');

PnlForm.Align = alTop;

PnlForm.Height = 590;

PnlForm.Margins.Left = 16;

PnlForm.Margins.Right = 16;

PnlForm.Margins.Top = 8;

PnlForm.Margins.Bottom = 16;

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

PnlForm.clProSettings.IsRound = True;

PnlForm.clProSettings.RoundWidth = 20;

PnlForm.clProSettings.RoundHeight = 20;

PnlForm.clProSettings.BorderColor = clAlphaColor.clHexToColor('#F0F0F0');

PnlForm.clProSettings.BorderWidth = 1;

PnlForm.SetclProSettings(PnlForm.clProSettings);

ImgUrunFoto = AnaForm.AddNewImage(PnlForm, 'ImgUrunFoto');

ImgUrunFoto.Align = alTop;

ImgUrunFoto.Height = 180;

ImgUrunFoto.Margins.Left = 20;

ImgUrunFoto.Margins.Right = 20;

ImgUrunFoto.Margins.Top = 20;

BtnFotoSec = AnaForm.AddNewProButton(PnlForm, 'BtnFotoSec', 'Fotograf Sec');

BtnFotoSec.Align = alTop;

BtnFotoSec.Height = 48;

BtnFotoSec.Margins.Left = 20;

BtnFotoSec.Margins.Right = 20;

BtnFotoSec.Margins.Top = 12;

BtnFotoSec.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0FAFA');

BtnFotoSec.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

BtnFotoSec.clProSettings.FontSize = 15;

BtnFotoSec.clProSettings.BorderColor = clAlphaColor.clHexToColor('#2ec4b6');

BtnFotoSec.clProSettings.BorderWidth = 1;

BtnFotoSec.clProSettings.IsRound = True;

BtnFotoSec.clProSettings.RoundWidth = 12;

BtnFotoSec.clProSettings.RoundHeight = 12;

BtnFotoSec.SetclProSettings(BtnFotoSec.clProSettings);

AnaForm.AddNewEvent(BtnFotoSec, tbeOnClick, 'FotoSec');

LblFotoDurum = AnaForm.AddNewProLabel(PnlForm, 'LblFotoDurum', 'Fotograf secilmedi');

LblFotoDurum.Align = alTop;

LblFotoDurum.Height = 24;

LblFotoDurum.Margins.Left = 20;

LblFotoDurum.Margins.Top = 6;

LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#999999');

LblFotoDurum.clProSettings.FontSize = 13;

LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

CmbKategori = AnaForm.AddNewComboBox(PnlForm, 'CmbKategori');

CmbKategori.Align = alTop;

CmbKategori.Height = 48;

CmbKategori.Margins.Left = 20;

CmbKategori.Margins.Right = 20;

CmbKategori.Margins.Top = 12;

EdtUrunAdi = AnaForm.AddNewEdit(PnlForm, 'EdtUrunAdi', 'Urun Adi');

EdtUrunAdi.Align = alTop;

EdtUrunAdi.Height = 48;

EdtUrunAdi.Margins.Left = 20;

EdtUrunAdi.Margins.Right = 20;

EdtUrunAdi.Margins.Top = 12;

EdtUrunFiyat = AnaForm.AddNewEdit(PnlForm, 'EdtUrunFiyat', 'Fiyat (150.00)');

EdtUrunFiyat.Align = alTop;

EdtUrunFiyat.Height = 48;

EdtUrunFiyat.Margins.Left = 20;

EdtUrunFiyat.Margins.Right = 20;

EdtUrunFiyat.Margins.Top = 12;

BtnKaydet = AnaForm.AddNewProButton(PnlForm, 'BtnKaydet', 'Kaydet');

BtnKaydet.Align = alBottom;

BtnKaydet.Height = 52;

BtnKaydet.Margins.Left = 20;

BtnKaydet.Margins.Right = 20;

BtnKaydet.Margins.Bottom = 20;

BtnKaydet.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');

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

BtnKaydet.clProSettings.FontSize = 17;

BtnKaydet.clProSettings.IsRound = True;

BtnKaydet.clProSettings.RoundWidth = 14;

BtnKaydet.clProSettings.RoundHeight = 14;

BtnKaydet.SetclProSettings(BtnKaydet.clProSettings);

AnaForm.AddNewEvent(BtnKaydet, tbeOnClick, 'YeniUrunKaydet');

PnlSiparisler = AnaForm.AddNewPanel(AnaForm, 'PnlSiparisler');

PnlSiparisler.Align = alClient;

PnlSiparisler.Visible = False;

PnlSiparislerUst = AnaForm.AddNewProPanel(PnlSiparisler, 'PnlSipUst');

PnlSiparislerUst.Align = alTop;

PnlSiparislerUst.Height = 64;

PnlSiparislerUst.Margins.Left = 16;

PnlSiparislerUst.Margins.Right = 16;

PnlSiparislerUst.Margins.Top = 8;

PnlSiparislerUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

PnlSiparislerUst.SetclProSettings(PnlSiparislerUst.clProSettings);

BtnSiparislerGeri = AnaForm.AddNewProButton(PnlSiparislerUst, 'BtnSipGeri', '<');

BtnSiparislerGeri.Align = alLeft;

BtnSiparislerGeri.Width = 44;

BtnSiparislerGeri.Height = 44;

BtnSiparislerGeri.Margins.Top = 10;

BtnSiparislerGeri.Margins.Bottom = 10;

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

BtnSiparislerGeri.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

BtnSiparislerGeri.clProSettings.FontSize = 20;

BtnSiparislerGeri.clProSettings.IsRound = True;

BtnSiparislerGeri.clProSettings.RoundWidth = 12;

BtnSiparislerGeri.clProSettings.RoundHeight = 12;

BtnSiparislerGeri.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

BtnSiparislerGeri.clProSettings.BorderWidth = 1;

BtnSiparislerGeri.SetclProSettings(BtnSiparislerGeri.clProSettings);

AnaForm.AddNewEvent(BtnSiparislerGeri, tbeOnClick, 'GoToAna');

BtnSiparisYenile = AnaForm.AddNewProButton(PnlSiparislerUst, 'BtnSipYenile', 'Yenile');

BtnSiparisYenile.Align = alRight;

BtnSiparisYenile.Width = 60;

BtnSiparisYenile.Height = 44;

BtnSiparisYenile.Margins.Top = 10;

BtnSiparisYenile.Margins.Bottom = 10;

BtnSiparisYenile.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EAFBFA');

BtnSiparisYenile.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

BtnSiparisYenile.clProSettings.FontSize = 13;

BtnSiparisYenile.clProSettings.IsRound = True;

BtnSiparisYenile.clProSettings.RoundWidth = 12;

BtnSiparisYenile.clProSettings.RoundHeight = 12;

BtnSiparisYenile.SetclProSettings(BtnSiparisYenile.clProSettings);

AnaForm.AddNewEvent(BtnSiparisYenile, tbeOnClick, 'GoToSiparisler');

LblSiparislerBaslik = AnaForm.AddNewProLabel(PnlSiparislerUst, 'LblSipBaslik', 'Siparisler');

LblSiparislerBaslik.Align = alClient;

LblSiparislerBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblSiparislerBaslik.clProSettings.FontSize = 19;

LblSiparislerBaslik.clProSettings.FontHorzAlign = palCenter;

LblSiparislerBaslik.clProSettings.FontVertAlign = palCenter;

LblSiparislerBaslik.SetclProSettings(LblSiparislerBaslik.clProSettings);

ScrSiparisler = AnaForm.AddNewVertScrollBox(PnlSiparisler, 'ScrSiparisler');

ScrSiparisler.Align = alClient;

KategorileriYukle;

UrunleriYukle;

AnaForm.Run;

}

�yi forumlar

< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">

Clomosy ile değişken kullanımı : Hatay� g�remiyorum

Mon, 06 Jul 2026 16:58:24 +0000

Yazar: H�seyin_Sadik
Konu: Hatay� g�remiyorum
G�nderim Zaman�: 06 Temmuz 2026 Saat 16:58

var

AnaForm: TclForm;

PnlAna: TclPanel;

PnlAnaUst: TclProPanel;

LblAnaBaslik: TclProLabel;

BtnQR: TclProButton;

BtnSiparisler: TclProButton;

ScrUrunler: TclVertScrollBox;

PnlAnaAlt: TclProPanel;

BtnUrunEkle: TclProButton;

PnlQRModal: TclProPanel;

PnlQRKart: TclProPanel;

QrKod: TClQRCodeGenerator;

BtnQRKapat: TclProButton;

LblQRBaslik: TclProLabel;

PnlYeniUrun: TclPanel;

PnlYeniUrunUst: TclProPanel;

BtnYeniUrunGeri: TclProButton;

LblYeniUrunBaslik: TclProLabel;

ScrYeniUrunForm: TclVertScrollBox;

PnlForm: TclProPanel;

EdtUrunAdi: TclEdit;

EdtUrunFiyat: TclEdit;

CmbKategori: TClComboBox;

ImgUrunFoto: TclImage;

BtnFotoSec: TclProButton;

LblFotoDurum: TclProLabel;

BtnKaydet: TclProButton;

PnlSiparisler: TclPanel;

PnlSiparislerUst: TclProPanel;

BtnSiparislerGeri: TclProButton;

BtnSiparisYenile: TclProButton;

LblSiparislerBaslik: TclProLabel;

ScrSiparisler: TclVertScrollBox;

BaseURL: String;

IsEditMode: Boolean;

DuzenlenenUrunId: Integer;

FotoSecildi: Boolean;

KategoriSayisi: Integer;

void EkraniGoster(PnlGoster: TclPanel);

{

PnlAna.Visible = False;

PnlYeniUrun.Visible = False;

PnlSiparisler.Visible = False;

PnlGoster.Visible = True;

}

void QRGoster;

{ PnlQRModal.Visible = True; }

void QRKapat;

{ PnlQRModal.Visible = False; }

void KategorileriYukle;

var

catRest: TclRest;

catDataset: TCLJSONQuery;

{

KategoriSayisi = 0;

catRest = TclRest.Create;

catRest.BaseURL = BaseURL + 'api.php?action=get_categories&restaurant_id=1&format=flat';

catRest.Method = rmGET;

try

catRest.Execute;

except

Exit;

}

if (catRest.Response <> '')

{

catDataset = Clomosy.ClDataSetFromJSON(catRest.Response);

while (catDataset.Eof == False)

{

CmbKategori.AddItem(catDataset.FieldByName('name').AsString, catDataset.FieldByName('id').AsString);

KategoriSayisi = KategoriSayisi + 1;

catDataset.Next;

}

void KategoriSec(TargetCatId: Integer);

var

i: Integer;

n: Integer;

{

CmbKategori.ItemIndex = -1;

if (TargetCatId == 0)

{ Exit; }

i = 0;

n = KategoriSayisi;

while (i < n)

{

if (CmbKategori.GetValueIndex(i) == IntToStr(TargetCatId))

{

CmbKategori.ItemIndex = i;

i = n;

}

else

{

i = i + 1;

}

void UrunSil;

var

SilRest: TclRest;

reqBody: String;

BtnSil: TclProButton;

P1: TclProPanel;

P2: TclProPanel;

{

BtnSil = TclProButton(AnaForm.clSender);

reqBody = '{"action":"delete_product","id":' + IntToStr(BtnSil.clTagInt) + ',"restaurant_id":1}';

SilRest = TclRest.Create;

SilRest.BaseURL = BaseURL + 'api.php';

SilRest.Accept = 'application/json';

SilRest.Method = rmPOST;

SilRest.AddBody(reqBody, 'application/json');

SilRest.Execute;

P1 = TclProPanel(BtnSil.Parent);

P2 = TclProPanel(P1.Parent);

TclProPanel(P2.Parent).Visible = False;

}

void UrunleriYukle;

var

clRest: TclRest;

dataset: TCLJSONQuery;

PnlUrunItem: TclProPanel;

PnlUrunSag: TclProPanel;

PnlUrunIkon: TclProPanel;

PnlUrunSol: TclProPanel;

PnlButonlar: TclProPanel;

LblUrunAd: TclProLabel;

LblUrunKat: TclProLabel;

LblUrunFiyat: TclProLabel;

BtnSilItem: TclProButton;

BtnDuzenleItem: TclProButton;

ImgUrunList: TclImage;

GorselUrl: String;

{

ScrUrunler.Free;

ScrUrunler = AnaForm.AddNewVertScrollBox(PnlAna, 'ScrUrunler');

ScrUrunler.Align = alClient;

clRest = TclRest.Create;

clRest.BaseURL = BaseURL + 'api.php?action=get_products&restaurant_id=1&format=flat';

clRest.Method = rmGET;

try

clRest.Execute;

except

ShowMessage('Sunucuya baglanamadi!');

Exit;

}

if (clRest.Response <> '')

{

dataset = Clomosy.ClDataSetFromJSON(clRest.Response);

while (dataset.Eof == False)

{

PnlUrunItem = AnaForm.AddNewProPanel(ScrUrunler, 'Pnl_' + dataset.FieldByName('id').AsString);

PnlUrunItem.Align = alTop;

PnlUrunItem.Height = 90;

PnlUrunItem.Margins.Top = 8;

PnlUrunItem.Margins.Left = 16;

PnlUrunItem.Margins.Right = 16;

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

PnlUrunItem.clProSettings.BorderColor = clAlphaColor.clHexToColor('#F0F0F0');

PnlUrunItem.clProSettings.BorderWidth = 1;

PnlUrunItem.clProSettings.IsRound = True;

PnlUrunItem.clProSettings.RoundWidth = 16;

PnlUrunItem.clProSettings.RoundHeight = 16;

PnlUrunItem.SetclProSettings(PnlUrunItem.clProSettings);

PnlUrunIkon = AnaForm.AddNewProPanel(PnlUrunItem, 'Ikon_' + dataset.FieldByName('id').AsString);

PnlUrunIkon.Align = alLeft;

PnlUrunIkon.Width = 60;

PnlUrunIkon.Margins.Left = 12;

PnlUrunIkon.Margins.Top = 14;

PnlUrunIkon.Margins.Bottom = 14;

PnlUrunIkon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F5F5F5');

PnlUrunIkon.clProSettings.IsRound = True;

PnlUrunIkon.clProSettings.RoundWidth = 12;

PnlUrunIkon.clProSettings.RoundHeight = 12;

PnlUrunIkon.SetclProSettings(PnlUrunIkon.clProSettings);

ImgUrunList = AnaForm.AddNewImage(PnlUrunIkon, 'Img_' + dataset.FieldByName('id').AsString);

ImgUrunList.Align = alClient;

GorselUrl = dataset.FieldByName('image_url').AsString;

if (Copy(GorselUrl, 1, 7) == 'uploads')

{ GorselUrl = BaseURL + GorselUrl; }

if (GorselUrl <> '')

{ AnaForm.SetImage(ImgUrunList, GorselUrl); }

PnlUrunSag = AnaForm.AddNewProPanel(PnlUrunItem, 'Sag_' + dataset.FieldByName('id').AsString);

PnlUrunSag.Align = alRight;

PnlUrunSag.Width = 115;

PnlUrunSag.Margins.Right = 12;

PnlUrunSag.Margins.Top = 12;

PnlUrunSag.Margins.Bottom = 12;

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

PnlUrunSag.SetclProSettings(PnlUrunSag.clProSettings);

LblUrunFiyat = AnaForm.AddNewProLabel(PnlUrunSag, 'LblF_' + dataset.FieldByName('id').AsString, dataset.FieldByName('price').AsString + ' TL');

LblUrunFiyat.Align = alTop;

LblUrunFiyat.Height = 24;

LblUrunFiyat.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

LblUrunFiyat.clProSettings.FontSize = 14;

LblUrunFiyat.clProSettings.FontHorzAlign = palCenter;

LblUrunFiyat.SetclProSettings(LblUrunFiyat.clProSettings);

PnlButonlar = AnaForm.AddNewProPanel(PnlUrunSag, 'Btns_' + dataset.FieldByName('id').AsString);

PnlButonlar.Align = alBottom;

PnlButonlar.Height = 30;

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

PnlButonlar.SetclProSettings(PnlButonlar.clProSettings);

BtnDuzenleItem = AnaForm.AddNewProButton(PnlButonlar, 'BtnE_' + dataset.FieldByName('id').AsString, 'Duzenle');

BtnDuzenleItem.Align = alLeft;

BtnDuzenleItem.Width = 52;

BtnDuzenleItem.clTagInt = dataset.FieldByName('id').AsInteger;

BtnDuzenleItem.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0FAFA');

BtnDuzenleItem.clProSettings.FontSize = 11;

BtnDuzenleItem.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

BtnDuzenleItem.clProSettings.IsRound = True;

BtnDuzenleItem.clProSettings.RoundWidth = 8;

BtnDuzenleItem.clProSettings.RoundHeight = 8;

BtnDuzenleItem.SetclProSettings(BtnDuzenleItem.clProSettings);

AnaForm.AddNewEvent(BtnDuzenleItem, tbeOnClick, 'GoToDuzenle');

BtnSilItem = AnaForm.AddNewProButton(PnlButonlar, 'BtnS_' + dataset.FieldByName('id').AsString, 'Sil');

BtnSilItem.Align = alRight;

BtnSilItem.Width = 52;

BtnSilItem.clTagInt = dataset.FieldByName('id').AsInteger;

BtnSilItem.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFF0F0');

BtnSilItem.clProSettings.FontColor = clAlphaColor.clHexToColor('#ff3f3f');

BtnSilItem.clProSettings.FontSize = 12;

BtnSilItem.clProSettings.IsRound = True;

BtnSilItem.clProSettings.RoundWidth = 8;

BtnSilItem.clProSettings.RoundHeight = 8;

BtnSilItem.SetclProSettings(BtnSilItem.clProSettings);

AnaForm.AddNewEvent(BtnSilItem, tbeOnClick, 'UrunSil');

PnlUrunSol = AnaForm.AddNewProPanel(PnlUrunItem, 'Sol_' + dataset.FieldByName('id').AsString);

PnlUrunSol.Align = alClient;

PnlUrunSol.Margins.Left = 10;

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

PnlUrunSol.SetclProSettings(PnlUrunSol.clProSettings);

LblUrunAd = AnaForm.AddNewProLabel(PnlUrunSol, 'LblA_' + dataset.FieldByName('id').AsString, dataset.FieldByName('name').AsString);

LblUrunAd.Align = alTop;

LblUrunAd.Height = 32;

LblUrunAd.Margins.Top = 12;

LblUrunAd.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblUrunAd.clProSettings.FontSize = 15;

LblUrunAd.clProSettings.FontVertAlign = palCenter;

LblUrunAd.SetclProSettings(LblUrunAd.clProSettings);

LblUrunKat = AnaForm.AddNewProLabel(PnlUrunSol, 'LblK_' + dataset.FieldByName('id').AsString, dataset.FieldByName('category_name').AsString);

LblUrunKat.Align = alTop;

LblUrunKat.Height = 20;

LblUrunKat.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

LblUrunKat.clProSettings.FontSize = 11;

LblUrunKat.clProSettings.FontVertAlign = palCenter;

LblUrunKat.SetclProSettings(LblUrunKat.clProSettings);

dataset.Next;

}

void GoToAna;

{

EkraniGoster(PnlAna);

UrunleriYukle;

}

void GoToDuzenle;

var

BtnDuz: TclProButton;

getRest: TclRest;

getDataset: TCLJSONQuery;

prodDataset: TCLJSONQuery;

imageUrlStr: String;

{

BtnDuz = TclProButton(AnaForm.clSender);

DuzenlenenUrunId = BtnDuz.clTagInt;

IsEditMode = True;

FotoSecildi = False;

LblYeniUrunBaslik.Text = 'Urunu Duzenle';

EdtUrunAdi.Text = '';

EdtUrunFiyat.Text = '';

ImgUrunFoto.Bitmap = Nil;

getRest = TclRest.Create;

getRest.BaseURL = BaseURL + 'api.php?action=get_product&restaurant_id=1&id=' + IntToStr(DuzenlenenUrunId);

getRest.Method = rmGET;

try

getRest.Execute;

except

ShowMessage('Urun bilgileri alinamadi.');

Exit;

}

if (getRest.Response <> '')

{

getDataset = Clomosy.ClDataSetFromJSON(getRest.Response);

if (getDataset.FieldByName('success').AsBoolean)

{

prodDataset = Clomosy.ClDataSetFromJSON(getDataset.FieldByName('product').AsString);

EdtUrunAdi.Text = prodDataset.FieldByName('name').AsString;

EdtUrunFiyat.Text = prodDataset.FieldByName('price').AsString;

KategoriSec(prodDataset.FieldByName('category_id').AsInteger);

imageUrlStr = prodDataset.FieldByName('image_url').AsString;

if (Copy(imageUrlStr, 1, 7) == 'uploads')

{ imageUrlStr = BaseURL + imageUrlStr; }

if (imageUrlStr <> '')

{

AnaForm.SetImage(ImgUrunFoto, imageUrlStr);

LblFotoDurum.Text = 'Mevcut fotograf mevcut';

LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

}

else

{

LblFotoDurum.Text = 'Fotograf yok';

LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#999999');

LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

}

EkraniGoster(PnlYeniUrun);

}

else

{ ShowMessage('Urun bulunamadi.'); }

}

void GoToYeniUrun;

{

IsEditMode = False;

DuzenlenenUrunId = 0;

FotoSecildi = False;

LblYeniUrunBaslik.Text = 'Yeni Urun Ekle';

EdtUrunAdi.Text = '';

EdtUrunFiyat.Text = '';

ImgUrunFoto.Bitmap = Nil;

CmbKategori.ItemIndex = -1;

LblFotoDurum.Text = 'Fotograf secilmedi';

LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#999999');

LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

EkraniGoster(PnlYeniUrun);

}

void FotoSec;

{

try

Clomosy.ImageChooser(AnaForm, ImgUrunFoto);

FotoSecildi = True;

LblFotoDurum.Text = 'Fotograf secildi';

LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

except

ShowMessage('Kamera acilamadi.');

}

void YeniUrunKaydet;

var

KaydetRest: TclRest;

reqBody: String;

LBase64Veri: String;

LMemStream: TCLMemoryStream;

selCatId: String;

{

if (EdtUrunAdi.Text == '')

{ ShowMessage('Urun adi giriniz!'); Exit; }

if (EdtUrunFiyat.Text == '')

{ ShowMessage('Fiyat giriniz!'); Exit; }

if (CmbKategori.ItemIndex == -1)

{ ShowMessage('Kategori seciniz!'); Exit; }

if (IsEditMode == False)

{

if (FotoSecildi == False)

{ ShowMessage('Fotograf seciniz!'); Exit; }

}

selCatId = CmbKategori.GetValueIndex(CmbKategori.ItemIndex);

LBase64Veri = '';

if (FotoSecildi)

{

LMemStream = TCLMemoryStream.Create;

ImgUrunFoto.Bitmap.SaveToStream(LMemStream);

if (LMemStream.Size == 0)

{

ShowMessage('Fotograf bos!');

LMemStream.Free;

Exit;

}

LBase64Veri = LMemStream.AsBase64;

LMemStream.Free;

}

reqBody = '{"restaurant_id":1,"category_id":' + selCatId;

reqBody = reqBody + ',"name":"' + EdtUrunAdi.Text + '"';

reqBody = reqBody + ',"description":"' + EdtUrunAdi.Text + '"';

reqBody = reqBody + ',"price":' + EdtUrunFiyat.Text;

if (IsEditMode)

{ reqBody = reqBody + ',"id":' + IntToStr(DuzenlenenUrunId); }

if (FotoSecildi)

{ reqBody = reqBody + ',"image_base64":"' + LBase64Veri + '"'; }

reqBody = reqBody + '}';

KaydetRest = TclRest.Create;

KaydetRest.BaseURL = BaseURL + 'api.php?action=save_product';

KaydetRest.Accept = 'application/json';

KaydetRest.Method = rmPOST;

KaydetRest.AddBody(reqBody, 'application/json');

try

KaydetRest.Execute;

except

ShowMessage('Sunucu baglanti hatasi!');

Exit;

}

if (KaydetRest.Response <> '')

{

ShowMessage('Kaydedildi!');

EdtUrunAdi.Text = '';

EdtUrunFiyat.Text = '';

ImgUrunFoto.Bitmap = Nil;

IsEditMode = False;

DuzenlenenUrunId = 0;

FotoSecildi = False;

GoToAna;

}

else

{ ShowMessage('Sunucudan yanit alinamadi.'); }

}

void SiparisTamamla;

var

delRest: TclRest;

reqBody: String;

BtnT: TclProButton;

{

BtnT = TclProButton(AnaForm.clSender);

reqBody = '{"action":"delete_order","id":' + IntToStr(BtnT.clTagInt) + ',"restaurant_id":1}';

delRest = TclRest.Create;

delRest.BaseURL = BaseURL + 'api.php';

delRest.Accept = 'application/json';

delRest.Method = rmPOST;

delRest.AddBody(reqBody, 'application/json');

try

delRest.Execute;

TclProPanel(BtnT.Parent).Visible = False;

except

ShowMessage('Hata olustu');

}

void SiparisleriYukle;

var

ordRest: TclRest;

ordDataset: TCLJSONQuery;

PnlOrdItem: TclProPanel;

LblOrdNo: TclProLabel;

LblOrdDetay: TclProLabel;

LblOrdFiyat: TclProLabel;

BtnTamamla: TclProButton;

{

ScrSiparisler.Free;

ScrSiparisler = AnaForm.AddNewVertScrollBox(PnlSiparisler, 'ScrSiparisler');

ScrSiparisler.Align = alClient;

ordRest = TclRest.Create;

ordRest.BaseURL = BaseURL + 'api.php?action=get_orders&restaurant_id=1&format=flat';

ordRest.Method = rmGET;

try

ordRest.Execute;

except

ShowMessage('Siparisler yuklenemedi.');

Exit;

}

if (ordRest.Response <> '')

{

ordDataset = Clomosy.ClDataSetFromJSON(ordRest.Response);

while (ordDataset.Eof == False)

{

PnlOrdItem = AnaForm.AddNewProPanel(ScrSiparisler, 'PnlOrd_' + ordDataset.FieldByName('id').AsString);

PnlOrdItem.Align = alTop;

PnlOrdItem.Height = 120;

PnlOrdItem.Margins.Top = 10;

PnlOrdItem.Margins.Left = 16;

PnlOrdItem.Margins.Right = 16;

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

PnlOrdItem.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E8E8E8');

PnlOrdItem.clProSettings.BorderWidth = 1;

PnlOrdItem.clProSettings.IsRound = True;

PnlOrdItem.clProSettings.RoundWidth = 16;

PnlOrdItem.clProSettings.RoundHeight = 16;

PnlOrdItem.SetclProSettings(PnlOrdItem.clProSettings);

LblOrdNo = AnaForm.AddNewProLabel(PnlOrdItem, 'LblON_' + ordDataset.FieldByName('id').AsString, 'Siparis #' + ordDataset.FieldByName('id').AsString);

LblOrdNo.Align = alTop;

LblOrdNo.Height = 30;

LblOrdNo.Margins.Left = 14;

LblOrdNo.Margins.Top = 10;

LblOrdNo.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblOrdNo.clProSettings.FontSize = 14;

LblOrdNo.clProSettings.FontVertAlign = palCenter;

LblOrdNo.SetclProSettings(LblOrdNo.clProSettings);

LblOrdDetay = AnaForm.AddNewProLabel(PnlOrdItem, 'LblOD_' + ordDataset.FieldByName('id').AsString, ordDataset.FieldByName('items_text').AsString);

LblOrdDetay.Align = alTop;

LblOrdDetay.Height = 24;

LblOrdDetay.Margins.Left = 14;

LblOrdDetay.Margins.Right = 14;

LblOrdDetay.clProSettings.FontColor = clAlphaColor.clHexToColor('#666666');

LblOrdDetay.clProSettings.FontSize = 12;

LblOrdDetay.clProSettings.FontVertAlign = palCenter;

LblOrdDetay.SetclProSettings(LblOrdDetay.clProSettings);

LblOrdFiyat = AnaForm.AddNewProLabel(PnlOrdItem, 'LblOP_' + ordDataset.FieldByName('id').AsString, 'Toplam: ' + ordDataset.FieldByName('total_price').AsString + ' TL');

LblOrdFiyat.Align = alTop;

LblOrdFiyat.Height = 22;

LblOrdFiyat.Margins.Left = 14;

LblOrdFiyat.Margins.Top = 2;

LblOrdFiyat.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

LblOrdFiyat.clProSettings.FontSize = 13;

LblOrdFiyat.clProSettings.FontVertAlign = palCenter;

LblOrdFiyat.SetclProSettings(LblOrdFiyat.clProSettings);

BtnTamamla = AnaForm.AddNewProButton(PnlOrdItem, 'BtnT_' + ordDataset.FieldByName('id').AsString, 'Tamamlandi');

BtnTamamla.Align = alBottom;

BtnTamamla.Height = 30;

BtnTamamla.Margins.Left = 14;

BtnTamamla.Margins.Right = 14;

BtnTamamla.Margins.Bottom = 8;

BtnTamamla.clTagInt = ordDataset.FieldByName('id').AsInteger;

BtnTamamla.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EAFBFA');

BtnTamamla.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

BtnTamamla.clProSettings.FontSize = 12;

BtnTamamla.clProSettings.IsRound = True;

BtnTamamla.clProSettings.RoundWidth = 8;

BtnTamamla.clProSettings.RoundHeight = 8;

BtnTamamla.SetclProSettings(BtnTamamla.clProSettings);

AnaForm.AddNewEvent(BtnTamamla, tbeOnClick, 'SiparisTamamla');

ordDataset.Next;

}

Clomosy.SendNotifyAllUsers('Yeni Siparis!', 'Bekleyen siparislerinizi kontrol edin.', '');

}

void GoToSiparisler;

{

EkraniGoster(PnlSiparisler);

SiparisleriYukle;

}

{

BaseURL = 'http://192.168.1.43/qrmenu/';

IsEditMode = False;

DuzenlenenUrunId = 0;

FotoSecildi = False;

KategoriSayisi = 0;

AnaForm = TclForm.Create(Self);

AnaForm.SetFormColor('#F8F9FA', '', clGNone);

PnlAna = AnaForm.AddNewPanel(AnaForm, 'PnlAna');

PnlAna.Align = alClient;

PnlAnaUst = AnaForm.AddNewProPanel(PnlAna, 'PnlAnaUst');

PnlAnaUst.Align = alTop;

PnlAnaUst.Height = 64;

PnlAnaUst.Margins.Left = 16;

PnlAnaUst.Margins.Right = 16;

PnlAnaUst.Margins.Top = 8;

PnlAnaUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

PnlAnaUst.SetclProSettings(PnlAnaUst.clProSettings);

LblAnaBaslik = AnaForm.AddNewProLabel(PnlAnaUst, 'LblAna', 'Menu Yonetimi');

LblAnaBaslik.Align = alLeft;

LblAnaBaslik.Width = 160;

LblAnaBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblAnaBaslik.clProSettings.FontSize = 20;

LblAnaBaslik.clProSettings.FontVertAlign = palCenter;

LblAnaBaslik.SetclProSettings(LblAnaBaslik.clProSettings);

BtnQR = AnaForm.AddNewProButton(PnlAnaUst, 'BtnQR', 'QR');

BtnQR.Align = alRight;

BtnQR.Width = 44;

BtnQR.Height = 44;

BtnQR.Margins.Top = 10;

BtnQR.Margins.Bottom = 10;

BtnQR.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');

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

BtnQR.clProSettings.FontSize = 14;

BtnQR.clProSettings.IsRound = True;

BtnQR.clProSettings.RoundWidth = 12;

BtnQR.clProSettings.RoundHeight = 12;

BtnQR.SetclProSettings(BtnQR.clProSettings);

AnaForm.AddNewEvent(BtnQR, tbeOnClick, 'QRGoster');

BtnSiparisler = AnaForm.AddNewProButton(PnlAnaUst, 'BtnSip', 'Sip');

BtnSiparisler.Align = alRight;

BtnSiparisler.Width = 44;

BtnSiparisler.Height = 44;

BtnSiparisler.Margins.Top = 10;

BtnSiparisler.Margins.Bottom = 10;

BtnSiparisler.Margins.Right = 8;

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

BtnSiparisler.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

BtnSiparisler.clProSettings.FontSize = 11;

BtnSiparisler.clProSettings.IsRound = True;

BtnSiparisler.clProSettings.RoundWidth = 12;

BtnSiparisler.clProSettings.RoundHeight = 12;

BtnSiparisler.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

BtnSiparisler.clProSettings.BorderWidth = 1;

BtnSiparisler.SetclProSettings(BtnSiparisler.clProSettings);

AnaForm.AddNewEvent(BtnSiparisler, tbeOnClick, 'GoToSiparisler');

ScrUrunler = AnaForm.AddNewVertScrollBox(PnlAna, 'ScrUrunler');

ScrUrunler.Align = alClient;

PnlAnaAlt = AnaForm.AddNewProPanel(PnlAna, 'PnlAnaAlt');

PnlAnaAlt.Align = alBottom;

PnlAnaAlt.Height = 88;

PnlAnaAlt.Margins.Left = 16;

PnlAnaAlt.Margins.Right = 16;

PnlAnaAlt.Margins.Bottom = 8;

PnlAnaAlt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

PnlAnaAlt.SetclProSettings(PnlAnaAlt.clProSettings);

BtnUrunEkle = AnaForm.AddNewProButton(PnlAnaAlt, 'BtnEkle', '+ Yeni Urun Ekle');

BtnUrunEkle.Align = alClient;

BtnUrunEkle.Margins.Top = 12;

BtnUrunEkle.Margins.Bottom = 12;

BtnUrunEkle.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');

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

BtnUrunEkle.clProSettings.FontSize = 17;

BtnUrunEkle.clProSettings.IsRound = True;

BtnUrunEkle.clProSettings.RoundWidth = 16;

BtnUrunEkle.clProSettings.RoundHeight = 16;

BtnUrunEkle.SetclProSettings(BtnUrunEkle.clProSettings);

AnaForm.AddNewEvent(BtnUrunEkle, tbeOnClick, 'GoToYeniUrun');

PnlQRModal = AnaForm.AddNewProPanel(AnaForm, 'PnlQRModal');

PnlQRModal.Align = alClient;

PnlQRModal.Visible = False;

PnlQRModal.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#CC000000');

PnlQRModal.SetclProSettings(PnlQRModal.clProSettings);

AnaForm.AddNewEvent(PnlQRModal, tbeOnClick, 'QRKapat');

PnlQRKart = AnaForm.AddNewProPanel(PnlQRModal, 'PnlQRKart');

PnlQRKart.Align = alCenter;

PnlQRKart.Width = 280;

PnlQRKart.Height = 360;

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

PnlQRKart.clProSettings.IsRound = True;

PnlQRKart.clProSettings.RoundWidth = 24;

PnlQRKart.clProSettings.RoundHeight = 24;

PnlQRKart.SetclProSettings(PnlQRKart.clProSettings);

LblQRBaslik = AnaForm.AddNewProLabel(PnlQRKart, 'LblQR', 'Menu QR Kodu');

LblQRBaslik.Align = alTop;

LblQRBaslik.Height = 50;

LblQRBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblQRBaslik.clProSettings.FontSize = 18;

LblQRBaslik.clProSettings.FontHorzAlign = palCenter;

LblQRBaslik.clProSettings.FontVertAlign = palCenter;

LblQRBaslik.SetclProSettings(LblQRBaslik.clProSettings);

QrKod = AnaForm.AddNewQRCodeGenerator(PnlQRKart, 'QrKod', BaseURL + 'menu.php?id=1&i=1');

QrKod.Align = alTop;

QrKod.Height = 240;

QrKod.Margins.Left = 20;

QrKod.Margins.Right = 20;

BtnQRKapat = AnaForm.AddNewProButton(PnlQRKart, 'BtnQRKapat', 'Kapat');

BtnQRKapat.Align = alBottom;

BtnQRKapat.Height = 48;

BtnQRKapat.Margins.Left = 20;

BtnQRKapat.Margins.Right = 20;

BtnQRKapat.Margins.Bottom = 16;

BtnQRKapat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

BtnQRKapat.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

BtnQRKapat.clProSettings.FontSize = 15;

BtnQRKapat.clProSettings.IsRound = True;

BtnQRKapat.clProSettings.RoundWidth = 12;

BtnQRKapat.clProSettings.RoundHeight = 12;

BtnQRKapat.SetclProSettings(BtnQRKapat.clProSettings);

AnaForm.AddNewEvent(BtnQRKapat, tbeOnClick, 'QRKapat');

PnlYeniUrun = AnaForm.AddNewPanel(AnaForm, 'PnlYeniUrun');

PnlYeniUrun.Align = alClient;

PnlYeniUrun.Visible = False;

PnlYeniUrunUst = AnaForm.AddNewProPanel(PnlYeniUrun, 'PnlYeniUst');

PnlYeniUrunUst.Align = alTop;

PnlYeniUrunUst.Height = 64;

PnlYeniUrunUst.Margins.Left = 16;

PnlYeniUrunUst.Margins.Right = 16;

PnlYeniUrunUst.Margins.Top = 8;

PnlYeniUrunUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

PnlYeniUrunUst.SetclProSettings(PnlYeniUrunUst.clProSettings);

BtnYeniUrunGeri = AnaForm.AddNewProButton(PnlYeniUrunUst, 'BtnGeri', '<');

BtnYeniUrunGeri.Align = alLeft;

BtnYeniUrunGeri.Width = 44;

BtnYeniUrunGeri.Height = 44;

BtnYeniUrunGeri.Margins.Top = 10;

BtnYeniUrunGeri.Margins.Bottom = 10;

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

BtnYeniUrunGeri.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

BtnYeniUrunGeri.clProSettings.FontSize = 20;

BtnYeniUrunGeri.clProSettings.IsRound = True;

BtnYeniUrunGeri.clProSettings.RoundWidth = 12;

BtnYeniUrunGeri.clProSettings.RoundHeight = 12;

BtnYeniUrunGeri.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

BtnYeniUrunGeri.clProSettings.BorderWidth = 1;

BtnYeniUrunGeri.SetclProSettings(BtnYeniUrunGeri.clProSettings);

AnaForm.AddNewEvent(BtnYeniUrunGeri, tbeOnClick, 'GoToAna');

LblYeniUrunBaslik = AnaForm.AddNewProLabel(PnlYeniUrunUst, 'LblYBaslik', 'Yeni Urun Ekle');

LblYeniUrunBaslik.Align = alClient;

LblYeniUrunBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblYeniUrunBaslik.clProSettings.FontSize = 20;

LblYeniUrunBaslik.clProSettings.FontHorzAlign = palCenter;

LblYeniUrunBaslik.clProSettings.FontVertAlign = palCenter;

LblYeniUrunBaslik.SetclProSettings(LblYeniUrunBaslik.clProSettings);

ScrYeniUrunForm = AnaForm.AddNewVertScrollBox(PnlYeniUrun, 'ScrYeniForm');

ScrYeniUrunForm.Align = alClient;

PnlForm = AnaForm.AddNewProPanel(ScrYeniUrunForm, 'PnlForm');

PnlForm.Align = alTop;

PnlForm.Height = 590;

PnlForm.Margins.Left = 16;

PnlForm.Margins.Right = 16;

PnlForm.Margins.Top = 8;

PnlForm.Margins.Bottom = 16;

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

PnlForm.clProSettings.IsRound = True;

PnlForm.clProSettings.RoundWidth = 20;

PnlForm.clProSettings.RoundHeight = 20;

PnlForm.clProSettings.BorderColor = clAlphaColor.clHexToColor('#F0F0F0');

PnlForm.clProSettings.BorderWidth = 1;

PnlForm.SetclProSettings(PnlForm.clProSettings);

ImgUrunFoto = AnaForm.AddNewImage(PnlForm, 'ImgUrunFoto');

ImgUrunFoto.Align = alTop;

ImgUrunFoto.Height = 180;

ImgUrunFoto.Margins.Left = 20;

ImgUrunFoto.Margins.Right = 20;

ImgUrunFoto.Margins.Top = 20;

BtnFotoSec = AnaForm.AddNewProButton(PnlForm, 'BtnFotoSec', 'Fotograf Sec');

BtnFotoSec.Align = alTop;

BtnFotoSec.Height = 48;

BtnFotoSec.Margins.Left = 20;

BtnFotoSec.Margins.Right = 20;

BtnFotoSec.Margins.Top = 12;

BtnFotoSec.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F0FAFA');

BtnFotoSec.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

BtnFotoSec.clProSettings.FontSize = 15;

BtnFotoSec.clProSettings.BorderColor = clAlphaColor.clHexToColor('#2ec4b6');

BtnFotoSec.clProSettings.BorderWidth = 1;

BtnFotoSec.clProSettings.IsRound = True;

BtnFotoSec.clProSettings.RoundWidth = 12;

BtnFotoSec.clProSettings.RoundHeight = 12;

BtnFotoSec.SetclProSettings(BtnFotoSec.clProSettings);

AnaForm.AddNewEvent(BtnFotoSec, tbeOnClick, 'FotoSec');

LblFotoDurum = AnaForm.AddNewProLabel(PnlForm, 'LblFotoDurum', 'Fotograf secilmedi');

LblFotoDurum.Align = alTop;

LblFotoDurum.Height = 24;

LblFotoDurum.Margins.Left = 20;

LblFotoDurum.Margins.Top = 6;

LblFotoDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#999999');

LblFotoDurum.clProSettings.FontSize = 13;

LblFotoDurum.SetclProSettings(LblFotoDurum.clProSettings);

CmbKategori = AnaForm.AddNewComboBox(PnlForm, 'CmbKategori');

CmbKategori.Align = alTop;

CmbKategori.Height = 48;

CmbKategori.Margins.Left = 20;

CmbKategori.Margins.Right = 20;

CmbKategori.Margins.Top = 12;

EdtUrunAdi = AnaForm.AddNewEdit(PnlForm, 'EdtUrunAdi', 'Urun Adi');

EdtUrunAdi.Align = alTop;

EdtUrunAdi.Height = 48;

EdtUrunAdi.Margins.Left = 20;

EdtUrunAdi.Margins.Right = 20;

EdtUrunAdi.Margins.Top = 12;

EdtUrunFiyat = AnaForm.AddNewEdit(PnlForm, 'EdtUrunFiyat', 'Fiyat (150.00)');

EdtUrunFiyat.Align = alTop;

EdtUrunFiyat.Height = 48;

EdtUrunFiyat.Margins.Left = 20;

EdtUrunFiyat.Margins.Right = 20;

EdtUrunFiyat.Margins.Top = 12;

BtnKaydet = AnaForm.AddNewProButton(PnlForm, 'BtnKaydet', 'Kaydet');

BtnKaydet.Align = alBottom;

BtnKaydet.Height = 52;

BtnKaydet.Margins.Left = 20;

BtnKaydet.Margins.Right = 20;

BtnKaydet.Margins.Bottom = 20;

BtnKaydet.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#111111');

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

BtnKaydet.clProSettings.FontSize = 17;

BtnKaydet.clProSettings.IsRound = True;

BtnKaydet.clProSettings.RoundWidth = 14;

BtnKaydet.clProSettings.RoundHeight = 14;

BtnKaydet.SetclProSettings(BtnKaydet.clProSettings);

AnaForm.AddNewEvent(BtnKaydet, tbeOnClick, 'YeniUrunKaydet');

PnlSiparisler = AnaForm.AddNewPanel(AnaForm, 'PnlSiparisler');

PnlSiparisler.Align = alClient;

PnlSiparisler.Visible = False;

PnlSiparislerUst = AnaForm.AddNewProPanel(PnlSiparisler, 'PnlSipUst');

PnlSiparislerUst.Align = alTop;

PnlSiparislerUst.Height = 64;

PnlSiparislerUst.Margins.Left = 16;

PnlSiparislerUst.Margins.Right = 16;

PnlSiparislerUst.Margins.Top = 8;

PnlSiparislerUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8F9FA');

PnlSiparislerUst.SetclProSettings(PnlSiparislerUst.clProSettings);

BtnSiparislerGeri = AnaForm.AddNewProButton(PnlSiparislerUst, 'BtnSipGeri', '<');

BtnSiparislerGeri.Align = alLeft;

BtnSiparislerGeri.Width = 44;

BtnSiparislerGeri.Height = 44;

BtnSiparislerGeri.Margins.Top = 10;

BtnSiparislerGeri.Margins.Bottom = 10;

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

BtnSiparislerGeri.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

BtnSiparislerGeri.clProSettings.FontSize = 20;

BtnSiparislerGeri.clProSettings.IsRound = True;

BtnSiparislerGeri.clProSettings.RoundWidth = 12;

BtnSiparislerGeri.clProSettings.RoundHeight = 12;

BtnSiparislerGeri.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

BtnSiparislerGeri.clProSettings.BorderWidth = 1;

BtnSiparislerGeri.SetclProSettings(BtnSiparislerGeri.clProSettings);

AnaForm.AddNewEvent(BtnSiparislerGeri, tbeOnClick, 'GoToAna');

BtnSiparisYenile = AnaForm.AddNewProButton(PnlSiparislerUst, 'BtnSipYenile', 'Yenile');

BtnSiparisYenile.Align = alRight;

BtnSiparisYenile.Width = 60;

BtnSiparisYenile.Height = 44;

BtnSiparisYenile.Margins.Top = 10;

BtnSiparisYenile.Margins.Bottom = 10;

BtnSiparisYenile.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EAFBFA');

BtnSiparisYenile.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ec4b6');

BtnSiparisYenile.clProSettings.FontSize = 13;

BtnSiparisYenile.clProSettings.IsRound = True;

BtnSiparisYenile.clProSettings.RoundWidth = 12;

BtnSiparisYenile.clProSettings.RoundHeight = 12;

BtnSiparisYenile.SetclProSettings(BtnSiparisYenile.clProSettings);

AnaForm.AddNewEvent(BtnSiparisYenile, tbeOnClick, 'GoToSiparisler');

LblSiparislerBaslik = AnaForm.AddNewProLabel(PnlSiparislerUst, 'LblSipBaslik', 'Siparisler');

LblSiparislerBaslik.Align = alClient;

LblSiparislerBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#111111');

LblSiparislerBaslik.clProSettings.FontSize = 19;

LblSiparislerBaslik.clProSettings.FontHorzAlign = palCenter;

LblSiparislerBaslik.clProSettings.FontVertAlign = palCenter;

LblSiparislerBaslik.SetclProSettings(LblSiparislerBaslik.clProSettings);

ScrSiparisler = AnaForm.AddNewVertScrollBox(PnlSiparisler, 'ScrSiparisler');

ScrSiparisler.Align = alClient;

KategorileriYukle;

UrunleriYukle;

AnaForm.Run;

}

bu kodun hatas�n� g�remiyorum ve neden hata neden var anlayamad�m

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Clomosy ile değişken kullanımı : kaydetmeme hatas�

Fri, 03 Jul 2026 16:27:25 +0000

Yazar: kayra.55
Konu: kaydetmeme hatas�
G�nderim Zaman�: 03 Temmuz 2026 Saat 16:27

Sorununuz 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,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">