Clomosy | Forum : TclForm Oluşturma

TclForm Oluşturma : �dev kodlarda hata

Wed, 13 May 2026 09:26:17 +0000

Yazar: Eren �.
Konu: �dev kodlarda hata
G�nderim Zaman�: 13 May�s 2026 Saat 09:26

Merhaba! Yazm�� oldu�unuz kod eski Clomosy motoruna g�re uyarlanm�� oldu�undan kaynakl� hata al�yordunuz. Yeni Clomosy motorunda "Begin, end", ":=", "procedure" gibi terimleri kullanm�yoruz. Bunlar�n yerine gelenler s�rayla; "{ ... }", "=", "void".

Att��n�z kodlar� d�zeltip olu�turmaya �al��t��n�z �eyleri korumaya �al��t�m;

var

MyForm: TClForm;

beherLayout, scaleLayout, mainArea: TclProPanel;

beherSivisi, phPointer: TclProPanel;

f1, f2, f3, f4, btnReset: TclProButton;

txtPH, txtInfo: TclProLabel;

currentPH: Single;

// pH de�erine g�re rengi belirleyen fonksiyon

function GetColorByPH(val: Single): string;

{

if (val < 6.5) // Asit (K�rm�z� tonlar�)

Result = '#FF' + IntToHex(Round((val/7)*255), 2) + '00';

else if (val > 7.5) // Baz (Mavi tonlar�)

Result = '#00' + IntToHex(Round(((14-val)/7)*255), 2) + 'FF';

else // N�tr

Result = '#00FF00';

}

// UI G�ncelleme

void UpdateLab;

var

pos: Integer;

{

beherSivisi.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(GetColorByPH(currentPH));

beherSivisi.SetclProSettings(beherSivisi.clProSettings);

// �breyi hareket ettir (Basit �l�eklendirme)

pos = Round((currentPH / 14) * (scaleLayout.Width - 30));

phPointer.Margins.Left = pos;

txtPH.Text = 'pH De�eri: ' + FloatToStrF(currentPH, ffFixed, 1, 1);

}

// S�v� Ekleme

void AddLiquid(val: Single);

{

currentPH = currentPH + val;

if (currentPH > 14) currentPH = 14;

if (currentPH < 0) currentPH = 0;

UpdateLab;

txtInfo.Text = 'Tepkime g�zleniyor...';

}

// T�klama Olaylar�

void OnF1; { AddLiquid(-1.5); } // Asit

void OnF2; { AddLiquid(1.5); } // Baz

void OnF3; { AddLiquid(-2.0); } // Kuvvetli Asit

void OnF4; { AddLiquid(2.0); } // Kuvvetli Baz

void ResetLab;

{

currentPH = 7.0;

UpdateLab;

txtInfo.Text = '�i�elerdeki s�v�lar� behere ekleyerek test edin.';

}

{

MyForm = TClForm.Create(Self);

MyForm.SetFormColor('#121212', '', clGNone);

MyForm.SetFormBGImage('https://img.freepik.com/free-vector/science-lab-interior-background_23-2148482390.jpg');

// pH Skalas� Tasar�m�

scaleLayout = MyForm.AddNewProPanel(MyForm, 'scaleLayout');

scaleLayout.Align = alTop;

scaleLayout.Height = 30;

scaleLayout.Margins.Top = 50;

scaleLayout.Margins.Left = 40;

scaleLayout.Margins.Right = 40;

scaleLayout.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');

scaleLayout.clProSettings.BorderWidth = 1;

scaleLayout.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#333333');

scaleLayout.SetclProSettings(scaleLayout.clProSettings);

phPointer = MyForm.AddNewProPanel(scaleLayout, 'phPointer');

phPointer.Align = alLeft;

phPointer.Width = 15;

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

phPointer.clProSettings.RoundHeight = 15;

phPointer.clProSettings.RoundWidth = 15;

phPointer.SetclProSettings(phPointer.clProSettings);

txtPH = MyForm.AddNewProLabel(MyForm, 'txtPH', 'pH De�eri: 7.0');

txtPH.Align = alTop;

txtPH.Height = 40;

txtPH.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFF00');

txtPH.clProSettings.FontHorzAlign = palCenter;

txtPH.SetclProSettings(txtPH.clProSettings);

// Ana Deney Alan�

mainArea = MyForm.AddNewProPanel(MyForm, 'mainArea');

mainArea.Align = alClient;

mainArea.Margins.Top = 20;

mainArea.clProSettings.IsTransparent = True;

mainArea.SetclProSettings(mainArea.clProSettings);

// Beher

beherLayout = MyForm.AddNewProPanel(mainArea, 'beherLayout');

beherLayout.Align = alCenter;

beherLayout.Width = 140;

beherLayout.Height = 180;

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

beherLayout.clProSettings.BorderWidth = 4;

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

beherLayout.SetclProSettings(beherLayout.clProSettings);

beherSivisi = MyForm.AddNewProPanel(beherLayout, 'beherSivisi');

beherSivisi.Align = alBottom;

beherSivisi.Height = 100;

beherSivisi.Margins.Bottom = 5;

beherSivisi.Margins.Left = 5;

beherSivisi.Margins.Right = 5;

beherSivisi.clProSettings.RoundHeight = 10;

beherSivisi.clProSettings.RoundWidth = 10;

beherSivisi.SetclProSettings(beherSivisi.clProSettings);

// Erlenmayerler (Butonlar)

f1 = MyForm.AddNewProButton(mainArea, 'f1', 'S�v� 1');

f1.Align = alLeft; f1.Width = 75; f1.Height = 80;

f1.Margins.Left = 20;

f1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ADD8E6');

f1.SetclProSettings(f1.clProSettings);

MyForm.AddNewEvent(f1, tbeOnClick, 'OnF1');

f2 = MyForm.AddNewProButton(mainArea, 'f2', 'S�v� 2');

f2.Align = alLeft; f2.Width = 75; f2.Height = 80;

f2.Margins.Left = 10;

f2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ADD8E6');

f2.SetclProSettings(f2.clProSettings);

MyForm.AddNewEvent(f2, tbeOnClick, 'OnF2');

f4 = MyForm.AddNewProButton(mainArea, 'f4', 'S�v� 4');

f4.Align = alRight; f4.Width = 75; f4.Height = 80;

f4.Margins.Right = 20;

f4.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ADD8E6');

f4.SetclProSettings(f4.clProSettings);

MyForm.AddNewEvent(f4, tbeOnClick, 'OnF4');

f3 = MyForm.AddNewProButton(mainArea, 'f3', 'S�v� 3');

f3.Align = alRight; f3.Width = 75; f3.Height = 80;

f3.Margins.Right = 10;

f3.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ADD8E6');

f3.SetclProSettings(f3.clProSettings);

MyForm.AddNewEvent(f3, tbeOnClick, 'OnF3');

// Bilgi ve Reset

txtInfo = MyForm.AddNewProLabel(MyForm, 'txtInfo', '�i�elere t�klayarak deneye ba�lay�n.');

txtInfo.Align = alBottom;

txtInfo.Height = 50;

txtInfo.Margins.Bottom = 70;

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

txtInfo.clProSettings.FontHorzAlign = palCenter;

txtInfo.SetclProSettings(txtInfo.clProSettings);

btnReset = MyForm.AddNewProButton(MyForm, 'btnReset', 'TEM�ZLE');

btnReset.Align = alBottom;

btnReset.Height = 45;

btnReset.Margins.Bottom = 20;

btnReset.Margins.Left = 100; btnReset.Margins.Right = 100;

btnReset.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#CC0000');

btnReset.SetclProSettings(btnReset.clProSettings);

MyForm.AddNewEvent(btnReset, tbeOnClick, 'ResetLab');

ResetLab;

MyForm.Run;

}

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

TclForm Oluşturma : �devde hata

Tue, 12 May 2026 21:20:59 +0000

Yazar: Emr.Erkmn
Konu: �devde hata
G�nderim Zaman�: 12 May�s 2026 Saat 21:20

Merhaba

Burada att��n kod tam olarak nedir?
Neyi istediniz?

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

TclForm Oluşturma : �devde hata

Tue, 12 May 2026 20:28:07 +0000

Yazar: Feyzanur
Konu: �devde hata
G�nderim Zaman�: 12 May�s 2026 Saat 20:28

object Atik {

property isim

property tur

}

object BilgiKart {

property mesaj

method goster() {

print("📘 Bilgi Kart�: " + mesaj)

}

object Kutular {

property organik = []

property plastik = []

property cam = []

property metal = []

property kagit = []

method atikEkle(Atik a) {

if a.tur == "organik" then organik.add(a.isim)

else if a.tur == "plastik" then plastik.add(a.isim)

else if a.tur == "cam" then cam.add(a.isim)

else if a.tur == "metal" then metal.add(a.isim)

else if a.tur == "kagit" then kagit.add(a.isim)

else print(a.isim + " yanl�� kutuya at�ld�! ❌")

}

object Oyun {

property skor = 0

property seviye = 1

property kutular = new Kutular()

method atikAt(Atik a) {

kutular.atikEkle(a)

skor = skor + 10

print(a.isim + " do�ru kutuya at�ld�! ✅ Skor: " + skor)

}

method yanlisAtik(Atik a, BilgiKart kart) {

skor = skor - 5

print(a.isim + " yanl�� kutuya at�ld�! ❌ Skor: " + skor)

kart.goster()

}

method seviyeKontrol() {

if skor >= 50 and seviye == 1 then {

seviye = 2

print("🎉 Tebrikler! Seviye 2'ye ge�tiniz.")

}

else if skor >= 100 and seviye == 2 then {

seviye = 3

print("🏆 Harika! Seviye 3'e ge�tiniz.")

}

// --- Oyun Senaryosu ---

Atik elmaK = new Atik(isim="Elma Kabu�u", tur="organik")

Atik petSise = new Atik(isim="Pet �i�e", tur="plastik")

Atik camBardak = new Atik(isim="Cam Bardak", tur="cam")

Atik konserve = new Atik(isim="Konserve Kutusu", tur="metal")

Atik gazete = new Atik(isim="Gazete", tur="kagit")

Atik pil = new Atik(isim="Pil", tur="tehlikeli")

BilgiKart pilKart = new BilgiKart(mesaj="Piller do�rudan ��pe at�lmamal�d�r, �zel kutulara b�rak�lmal�d�r.")

Oyun oyun = new Oyun()

oyun.atikAt(elmaK)

oyun.atikAt(petSise)

oyun.atikAt(camBardak)

oyun.atikAt(konserve)

oyun.atikAt(gazete)

TclForm Oluşturma : �dev kodlarda hata

Mon, 11 May 2026 18:31:55 +0000

Yazar: erenertankef
Konu: �dev kodlarda hata
G�nderim Zaman�: 11 May�s 2026 Saat 18:31

hocam biz �dev i�in konuyu belirledik dedi�iniz yapt�k tasla�� haz�rlad�k kodu yazd�k d�zeltmeye de �al��t�k ama buraya kadar geldik yard�m edebilir misiniz kodu �al��t�rd�k hatal� yerleri de bulduk ama d�zeltmeye �al��t�k olmad� https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

var

MyForm: TClForm;

beherLayout, scaleLayout, mainArea: TClProLayout;

beherSivisi, phPointer: TClProShape;

f1, f2, f3, f4, btnReset: TClProButton;

txtPH, txtInfo: TClProLabel;

currentPH: Single;

// pH de�erine g�re rengi belirleyen fonksiyon

function GetColorByPH(val: Single): string;

begin

if val < 6.5 then // Asit (K�rm�z� tonlar�)

Result := '#FF' + IntToHex(Round((val/7)*255), 2) + '00'

else if val > 7.5 then // Baz (Mavi tonlar�)

Result := '00' + IntToHex(Round(((14-val)/7)*255), 2) + 'FF'

else // N�tr

Result := '#00FF00';

end;

// UI G�ncelleme

procedure UpdateLab;

var

pos: Integer;

begin

beherSivisi.FillColor := clAlphaColor.FromHtml(GetColorByPH(currentPH));

// �breyi hareket ettir (Basit �l�eklendirme)

pos := Round((currentPH / 14) * (scaleLayout.Width - 30));

phPointer.Margins.Left := pos;

txtPH.Text := 'pH De�eri: ' + FloatToStrF(currentPH, ffFixed, 1, 1);

end;

// S�v� Ekleme

procedure AddLiquid(val: Single);

begin

currentPH := currentPH + val;

if currentPH > 14 then currentPH := 14;

if currentPH < 0 then currentPH := 0;

UpdateLab;

txtInfo.Text := 'Tepkime g�zleniyor...';

end;

// T�klama Olaylar�

procedure OnF1; begin AddLiquid(-1.5); end; // Asit

procedure OnF2; begin AddLiquid(1.5); end; // Baz

procedure OnF3; begin AddLiquid(-2.0); end; // Kuvvetli Asit

procedure OnF4; begin AddLiquid(2.0); end; // Kuvvetli Baz

procedure ResetLab;

begin

currentPH := 7.0;

UpdateLab;

txtInfo.Text := '�i�elerdeki s�v�lar� behere ekleyerek test edin.';

end;

begin

MyForm := TClForm.Create(Self);

MyForm.SetFormColor('#121212', '', clGNone);

MyForm.clConfig.BackImage := 'https://img.freepik.com/free-vector/science-lab-interior-background_23-2148482390.jpg';

// pH Skalas� Tasar�m�

scaleLayout := MyForm.AddNewProLayout(MyForm, 'scaleLayout');

scaleLayout.Align := alTop;

scaleLayout.Height := 30;

scaleLayout.Margins.Top := 50;

scaleLayout.Margins.Left := 40;

scaleLayout.Margins.Right := 40;

scaleLayout.clConfig.BorderColor := clAlphaColor.FromHtml('#FFFFFF');

scaleLayout.clConfig.BorderWidth := 1;

scaleLayout.clConfig.BackgroundColor := clAlphaColor.FromHtml('#333333');

phPointer := MyForm.AddNewProShape(scaleLayout, 'phPointer');

phPointer.Align := alLeft;

phPointer.Width := 15;

phPointer.FillColor := clAlphaColor.FromHtml('#FFFFFF');

phPointer.ShapeType := stCircle;

txtPH := MyForm.AddNewProLabel(MyForm, 'txtPH', 'pH De�eri: 7.0');

txtPH.Align := alTop;

txtPH.Height := 40;

txtPH.clTextSettings.FontColor := clAlphaColor.FromHtml('#FFFF00');

txtPH.clTextSettings.HorzAlign := taCenter;

// Ana Deney Alan�

mainArea := MyForm.AddNewProLayout(MyForm, 'mainArea');

mainArea.Align := alClient;

mainArea.Margins.Top := 20;

// Beher

beherLayout := MyForm.AddNewProLayout(mainArea, 'beherLayout');

beherLayout.Align := alCenter;

beherLayout.Width := 140;

beherLayout.Height := 180;

beherLayout.clConfig.BorderColor := clAlphaColor.FromHtml('#E0E0E0');

beherLayout.clConfig.BorderWidth := 4;

beherLayout.clConfig.BackgroundColor := clAlphaColor.FromORGB(40, 255, 255, 255);

beherSivisi := MyForm.AddNewProShape(beherLayout, 'beherSivisi');

beherSivisi.Align := alBottom;

beherSivisi.Height := 100;

beherSivisi.Margins.Bottom := 5;

beherSivisi.Margins.Left := 5;

beherSivisi.Margins.Right := 5;

beherSivisi.ShapeType := stRoundRec;

// Erlenmayerler (Butonlar)

f1 := MyForm.AddNewProButton(mainArea, 'f1', 'S�v� 1');

f1.Align := alLeft; f1.Width := 75; f1.Height := 80;

f1.Margins.Left := 20; f1.clConfig.BackgroundColor := clAlphaColor.FromHtml('#ADD8E6');

MyForm.AddNewEvent(f1, tbeOnClick, 'OnF1');

f2 := MyForm.AddNewProButton(mainArea, 'f2', 'S�v� 2');

f2.Align := alLeft; f2.Width := 75; f2.Height := 80;

f2.Margins.Left := 10; f2.clConfig.BackgroundColor := clAlphaColor.FromHtml('#ADD8E6');

MyForm.AddNewEvent(f2, tbeOnClick, 'OnF2');

f4 := MyForm.AddNewProButton(mainArea, 'f4', 'S�v� 4');

f4.Align := alRight; f4.Width := 75; f4.Height := 80;

f4.Margins.Right := 20; f4.clConfig.BackgroundColor := clAlphaColor.FromHtml('#ADD8E6');

MyForm.AddNewEvent(f4, tbeOnClick, 'OnF4');

f3 := MyForm.AddNewProButton(mainArea, 'f3', 'S�v� 3');

f3.Align := alRight; f3.Width := 75; f3.Height := 80;

f3.Margins.Right := 10; f3.clConfig.BackgroundColor := clAlphaColor.FromHtml('#ADD8E6');

MyForm.AddNewEvent(f3, tbeOnClick, 'OnF3');

// Bilgi ve Reset

txtInfo := MyForm.AddNewProLabel(MyForm, 'txtInfo', '�i�elere t�klayarak deneye ba�lay�n.');

txtInfo.Align := alBottom;

txtInfo.Height := 50;

txtInfo.Margins.Bottom := 70;

txtInfo.clTextSettings.FontColor := clAlphaColor.FromHtml('#FFFFFF');

txtInfo.clTextSettings.HorzAlign := taCenter;

btnReset := MyForm.AddNewProButton(MyForm, 'btnReset', 'TEM�ZLE');

btnReset.Align := alBottom;

btnReset.Height := 45;

btnReset.Margins.Bottom := 20;

btnReset.Margins.Left := 100; btnReset.Margins.Right := 100;

btnReset.clConfig.BackgroundColor := clAlphaColor.FromHtml('#CC0000');

MyForm.AddNewEvent(btnReset, tbeOnClick, 'ResetLab');

ResetLab;

MyForm.Run;

end;

< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -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">< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -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">< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -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">

D�zenleyen Emr.Erkmn - 11 May�s 2026 Saat 19:57

TclForm Oluşturma : admin panel stok, analiz sekmesi aray�z�

Thu, 07 May 2026 10:46:05 +0000

Yazar: Emr.Erkmn
Konu: admin panel stok, analiz sekmesi aray�z�
G�nderim Zaman�: 07 May�s 2026 Saat 10:46

T�m bile�enleri ayn� kayd�rma kutusu i�ine align = altop �eklinde alt alta dizip, aralar�ndan baz�lar�n� gizleyip a�t��nda sistemin hizalama motoru s�ray� kar��t�r�r ve yeni a��lan paneli en �ste veya en alta atarak tasar�m�n�z� bozabilir.

//uses uLib;

var

myform: TclStyleForm;

MainScrollBox: TClVertScrollBox;

HeaderLayout, ContentLayout: TclLayout;

TopLayout, TabsLayout, KPIGridLayout, TopCardsLayout: TclLayout;

MiddleTabsLayout, ListTitleLayout, StokTitleLayout: TclLayout;

pnlRow1, pnlRow2, pnlKPI1, pnlKPI2, pnlKPI3, pnlKPI4: TclProPanel;

lblHello, lblDate: TclProLabel;

pnlAvatar: TclProPanel;

lblAvatar: TclProLabel;

btnTabTemsilci, btnTabYonetici: TclProButton;

lblKPI1Title, lblKPI1Value: TclProLabel;

lblKPI2Title, lblKPI2Value: TclProLabel;

lblKPI3Title, lblKPI3Value: TclProLabel;

lblKPI4Title, lblKPI4Value: TclProLabel;

pnlGelir, pnlMaliyet: TclProPanel;

lblGelirTitle, lblGelirValue, lblGelirDesc: TclProLabel;

lblMaliyetTitle, lblMaliyetValue, lblMaliyetDesc: TclProLabel;

btnMidBekleyen, btnMidAnaliz, btnMidStok: TclProButton;

lblListTitle, lblStokTitle, lblChartTitle: TclProLabel;

pnlHideHeader: TclProPanel;

CardsParentLayout, ChartParentLayout, StokParentLayout: TclLayout;

chartRevenue: TclChart;

void SetView(ViewMode: Integer);

var

c1, c2, c3, t1, t2, t3, b1, b2, b3: String;

{

CardsParentLayout.Visible = False;

ChartParentLayout.Visible = False;

StokParentLayout.Visible = False;

c1='#202020'; c2='#202020'; c3='#202020';

t1='#aaaaaa'; t2='#aaaaaa'; t3='#aaaaaa';

b1='#555555'; b2='#555555'; b3='#555555';

if (ViewMode == 1) { CardsParentLayout.Visible = True; ContentLayout.Height = 600; c1='#333333'; t1='#ffffff'; b1='#777777'; }

if (ViewMode == 2) { ChartParentLayout.Visible = True; ContentLayout.Height = 380; c2='#333333'; t2='#ffffff'; b2='#777777'; }

if (ViewMode == 3) { StokParentLayout.Visible = True; ContentLayout.Height = 700; c3='#333333'; t3='#ffffff'; b3='#777777'; }

clComponent.SetupComponent(btnMidBekleyen, '{"BackgroundColor":"'+c1+'", "TextColor":"'+t1+'", "IsRound":true, "RoundHeight":16, "BorderColor":"'+b1+'", "BorderWidth":1}');

clComponent.SetupComponent(btnMidAnaliz, '{"BackgroundColor":"'+c2+'", "TextColor":"'+t2+'", "IsRound":true, "RoundHeight":16, "BorderColor":"'+b2+'", "BorderWidth":1}');

clComponent.SetupComponent(btnMidStok, '{"BackgroundColor":"'+c3+'", "TextColor":"'+t3+'", "IsRound":true, "RoundHeight":16, "BorderColor":"'+b3+'", "BorderWidth":1}');

}

void NavBekleyenClick; { SetView(1); }

void NavAnalizClick; { SetView(2); }

void NavStokClick; { SetView(3); }

void AddApprovalCard(AId: String; AIconChar: String; AIconBg: String; AIconColor: String; ATitle: String; ASubTitle: String; ADesc: String; AAlertText: String; AAlertColor: String);

var

pnlCard, pnlAlert, pnlContent, pnlIconBox, pnlIcon, pnlText, pnlActions: TclProPanel;

lblAlert, lblIcon, lblTitle, lblSubTitle, lblDesc: TclProLabel;

btnOnayla, btnReddet: TclProButton;

{

pnlCard = myform.AddNewProPanel(CardsParentLayout, 'pnlApprCard_' + AId);

pnlCard.Align = alTop;

if (AAlertText <> '') pnlCard.Height = 155; else pnlCard.Height = 125;

pnlCard.Margins.Top = 15; pnlCard.Margins.Left = 16; pnlCard.Margins.Right = 16;

clComponent.SetupComponent(pnlCard, '{"BackgroundColor":"#252525", "RoundHeight":12, "BorderColor":"#3a3a3a", "BorderWidth":1, "ShadowColor":"#000000", "ShadowRadius":8, "ShadowOpacity":0.4}');

if (AAlertText <> '')

{

pnlAlert = myform.AddNewProPanel(pnlCard, 'pnlApprAlert_' + AId);

pnlAlert.Align = alTop; pnlAlert.Height = 24;

clComponent.SetupComponent(pnlAlert, '{"BackgroundColor":"' + AAlertColor + '", "RoundHeight":8}');

lblAlert = myform.AddNewProLabel(pnlAlert, 'lblApprAlert_' + AId, AAlertText);

lblAlert.Align = alClient; lblAlert.Margins.Left = 10;

clComponent.SetupComponent(lblAlert, '{"TextColor":"#b71c1c", "TextSize":11, "TextBold":true, "TextVerticalAlign":"center"}');

}

pnlContent = myform.AddNewProPanel(pnlCard, 'pnlApprContent_' + AId);

pnlContent.Align = alTop; pnlContent.Height = 70;

pnlIconBox = myform.AddNewProPanel(pnlContent, 'pnlApprIconBox_' + AId);

pnlIconBox.Align = alLeft; pnlIconBox.Width = 60;

pnlIcon = myform.AddNewProPanel(pnlIconBox, 'pnlApprIcon_' + AId);

pnlIcon.Align = alCenter; pnlIcon.Width = 36; pnlIcon.Height = 36;

clComponent.SetupComponent(pnlIcon, '{"BackgroundColor":"' + AIconBg + '", "RoundHeight":18}');

lblIcon = myform.AddNewProLabel(pnlIcon, 'lblApprIconLabel_' + AId, AIconChar);

lblIcon.Align = alClient;

clComponent.SetupComponent(lblIcon, '{"TextColor":"' + AIconColor + '", "TextSize":16, "TextBold":true, "TextHorizontalAlign":"center", "TextVerticalAlign":"center"}');

pnlText = myform.AddNewProPanel(pnlContent, 'pnlApprText_' + AId);

pnlText.Align = alClient; pnlText.Margins.Top = 14;

lblTitle = myform.AddNewProLabel(pnlText, 'lblApprTitle_' + AId, ATitle);

lblTitle.Align = alTop; lblTitle.Height = 18;

clComponent.SetupComponent(lblTitle, '{"TextColor":"#ffffff", "TextSize":13, "TextBold":true}');

lblSubTitle = myform.AddNewProLabel(pnlText, 'lblApprSubTitle_' + AId, ASubTitle);

lblSubTitle.Align = alTop; lblSubTitle.Height = 14;

clComponent.SetupComponent(lblSubTitle, '{"TextColor":"#cccccc", "TextSize":10}');

if (ADesc <> '') {

lblDesc = myform.AddNewProLabel(pnlText, 'lblApprDesc_' + AId, '"' + ADesc + '"');

lblDesc.Align = alTop; lblDesc.Height = 14;

clComponent.SetupComponent(lblDesc, '{"TextColor":"#aaaaaa", "TextSize":10, "TextItalic":true}');

}

pnlActions = myform.AddNewProPanel(pnlCard, 'pnlApprActions_' + AId);

pnlActions.Align = alBottom; pnlActions.Height = 36; pnlActions.Margins.Bottom = 8; pnlActions.Margins.Left = 8; pnlActions.Margins.Right = 8;

btnOnayla = myform.AddNewProButton(pnlActions, 'btnOnayla_' + AId, 'Onayla');

btnOnayla.Align = alLeft; btnOnayla.Width = (myform.clWidth - 55) / 2;

clComponent.SetupComponent(btnOnayla, '{"BackgroundColor":"#1b5e20", "TextColor":"#ffffff", "TextSize":12, "TextBold":true, "RoundHeight":8}');

btnReddet = myform.AddNewProButton(pnlActions, 'btnReddet_' + AId, 'Reddet');

btnReddet.Align = alClient; btnReddet.Margins.Left = 8;

clComponent.SetupComponent(btnReddet, '{"BackgroundColor":"#252525", "TextColor":"#e53935", "TextSize":12, "TextBold":true, "BorderColor":"#e53935", "BorderWidth":1, "RoundHeight":8}');

}

void AddProductCard(AId: String; ALetter: String; AName: String; ADesc: String; ACount: String; AColor: String; AProgress: Integer; IsKritik: Boolean);

var

pnlCard, pnlIcon, pnlCenter, pnlRight, pnlBadge, pnlProgressBg, pnlProgressFg: TclProPanel;

lblIcon, lblName, lblDesc, lblCount, lblCountDesc, lblBadge: TclProLabel;

{

pnlCard = myform.AddNewProPanel(StokParentLayout, 'pnlStokCard_' + AId);

pnlCard.Align = alTop; pnlCard.Height = 100; pnlCard.Margins.Top = 12; pnlCard.Margins.Left = 16; pnlCard.Margins.Right = 16;

clComponent.SetupComponent(pnlCard, '{"BackgroundColor":"#2b2b2b", "RoundHeight":16, "BorderColor":"#555555", "BorderWidth":1, "ShadowColor":"#000000", "ShadowRadius":8, "ShadowOpacity":0.4}');

pnlIcon = myform.AddNewProPanel(pnlCard, 'pnlStokIconBox_' + AId);

pnlIcon.Align = alLeft; pnlIcon.Width = 52; pnlIcon.Height = 52; pnlIcon.Margins.Left = 16; pnlIcon.Margins.Top = 24; pnlIcon.Margins.Bottom = 24;

clComponent.SetupComponent(pnlIcon, '{"BackgroundColor":"#ffffff", "RoundHeight":12}');

lblIcon = myform.AddNewProLabel(pnlIcon, 'lblStokIconLabel_' + AId, ALetter);

lblIcon.Align = alClient;

clComponent.SetupComponent(lblIcon, '{"TextColor":"#111111", "TextSize":18, "TextBold":true, "TextHorizontalAlign":"center", "TextVerticalAlign":"center"}');

pnlRight = myform.AddNewProPanel(pnlCard, 'pnlStokRight_' + AId);

pnlRight.Align = alRight; pnlRight.Width = 70; pnlRight.Margins.Right = 16; pnlRight.Margins.Top = 20;

lblCount = myform.AddNewProLabel(pnlRight, 'lblStokCount_' + AId, ACount);

lblCount.Align = alTop; lblCount.Height = 24;

clComponent.SetupComponent(lblCount, '{"TextColor":"' + AColor + '", "TextSize":20, "TextBold":true, "TextHorizontalAlign":"right"}');

lblCountDesc = myform.AddNewProLabel(pnlRight, 'lblStokCountDesc_' + AId, 'net stok');

lblCountDesc.Align = alTop; lblCountDesc.Height = 15;

clComponent.SetupComponent(lblCountDesc, '{"TextColor":"#cccccc", "TextSize":11, "TextHorizontalAlign":"right"}');

pnlCenter = myform.AddNewProPanel(pnlCard, 'pnlStokCenter_' + AId);

pnlCenter.Align = alClient; pnlCenter.Margins.Left = 16; pnlCenter.Margins.Top = 18;

lblName = myform.AddNewProLabel(pnlCenter, 'lblStokName_' + AId, AName);

lblName.Align = alTop; lblName.Height = 22;

clComponent.SetupComponent(lblName, '{"TextColor":"#ffffff", "TextSize":15, "TextBold":true}');

if (IsKritik) {

pnlBadge = myform.AddNewProPanel(lblName, 'pnlStokBadge_' + AId);

pnlBadge.Align = alRight; pnlBadge.Width = 50; pnlBadge.Margins.Right = 20;

clComponent.SetupComponent(pnlBadge, '{"BackgroundColor":"#ffebee", "RoundHeight":8}');

lblBadge = myform.AddNewProLabel(pnlBadge, 'lblStokBadgeLabel_' + AId, 'Kritik');

lblBadge.Align = alClient;

clComponent.SetupComponent(lblBadge, '{"TextColor":"#c62828", "TextSize":10, "TextBold":true, "TextHorizontalAlign":"center", "TextVerticalAlign":"center"}');

}

lblDesc = myform.AddNewProLabel(pnlCenter, 'lblStokDesc_' + AId, ADesc);

lblDesc.Align = alTop; lblDesc.Height = 18;

clComponent.SetupComponent(lblDesc, '{"TextColor":"#cccccc", "TextSize":11}');

pnlProgressBg = myform.AddNewProPanel(pnlCenter, 'pnlProgressBg_' + AId);

pnlProgressBg.Align = alTop; pnlProgressBg.Height = 4; pnlProgressBg.Margins.Top = 8; pnlProgressBg.Margins.Right = 20;

clComponent.SetupComponent(pnlProgressBg, '{"BackgroundColor":"#444444", "RoundHeight":2}');

pnlProgressFg = myform.AddNewProPanel(pnlProgressBg, 'pnlProgressFg_' + AId);

pnlProgressFg.Align = alLeft; pnlProgressFg.Width = (myform.clWidth * AProgress) / 100;

clComponent.SetupComponent(pnlProgressFg, '{"BackgroundColor":"' + AColor + '", "RoundHeight":2}');

}

{

myform = TclStyleForm.Create(Self);

myform.SetFormColor('#202020', '', clGNone);

pnlHideHeader = myform.AddNewProPanel(myform, 'pnlHideHeader');

pnlHideHeader.Align = alTop; pnlHideHeader.Height = 80; pnlHideHeader.Margins.Top = -80;

clComponent.SetupComponent(pnlHideHeader, '{"BackgroundColor":"#202020"}');

MainScrollBox = myform.AddNewVertScrollBox(myform, 'MainScrollBox');

MainScrollBox.Align = alClient;

HeaderLayout = myform.AddNewLayout(MainScrollBox, 'HeaderLayout');

HeaderLayout.Align = alTop;

HeaderLayout.Height = 470;

TopLayout = myform.AddNewLayout(HeaderLayout, 'TopLayout');

TopLayout.Align = alTop; TopLayout.Height = 75; TopLayout.Margins.Top = 20; TopLayout.Margins.Left = 20; TopLayout.Margins.Right = 20;

pnlAvatar = myform.AddNewProPanel(TopLayout, 'pnlAvatar');

pnlAvatar.Align = alRight; pnlAvatar.Width = 48; pnlAvatar.Height = 48;

clComponent.SetupComponent(pnlAvatar, '{"BackgroundColor":"#1b5e20", "RoundHeight":24}');

lblAvatar = myform.AddNewProLabel(pnlAvatar, 'lblAvatar', 'FD');

lblAvatar.Align = alClient;

clComponent.SetupComponent(lblAvatar, '{"TextColor":"#ffffff", "TextSize":16, "TextBold":true, "TextHorizontalAlign":"center", "TextVerticalAlign":"center"}');

lblHello = myform.AddNewProLabel(TopLayout, 'lblHello', 'Merhaba, Fatma');

lblHello.Align = alTop; lblHello.Height = 28;

clComponent.SetupComponent(lblHello, '{"TextColor":"#ffffff", "TextSize":22, "TextBold":true}');

lblDate = myform.AddNewProLabel(TopLayout, 'lblDate', 'Yonetici - Nisan 2025');

lblDate.Align = alTop; lblDate.Height = 20;

clComponent.SetupComponent(lblDate, '{"TextColor":"#cccccc", "TextSize":12}');

KPIGridLayout = myform.AddNewLayout(HeaderLayout, 'KPIGridLayout');

KPIGridLayout.Align = alTop; KPIGridLayout.Height = 160; KPIGridLayout.Margins.Top = 20;

pnlRow1 = myform.AddNewProPanel(KPIGridLayout, 'pnlRow1');

pnlRow1.Align = alTop; pnlRow1.Height = 65; pnlRow1.Margins.Left = 20; pnlRow1.Margins.Right = 20; pnlRow1.Margins.Bottom = 10;

pnlKPI1 = myform.AddNewProPanel(pnlRow1, 'pnlKPI1');

pnlKPI1.Align = alLeft; pnlKPI1.Width = (myform.clWidth - 55) / 2;

clComponent.SetupComponent(pnlKPI1, '{"BackgroundColor":"#2a2a2a", "RoundHeight":12}');

lblKPI1Title = myform.AddNewProLabel(pnlKPI1, 'lblKPI1Title', 'Bekleyen onay');

lblKPI1Title.Align = alTop; lblKPI1Title.Height = 22; lblKPI1Title.Margins.Left = 12; lblKPI1Title.Margins.Top = 10;

clComponent.SetupComponent(lblKPI1Title, '{"TextColor":"#e2b13c", "TextSize":12, "TextBold":true}');

lblKPI1Value = myform.AddNewProLabel(pnlKPI1, 'lblKPI1Value', '1');

lblKPI1Value.Align = alTop; lblKPI1Value.Height = 24; lblKPI1Value.Margins.Left = 12;

clComponent.SetupComponent(lblKPI1Value, '{"TextColor":"#ff9800", "TextSize":20, "TextBold":true}');

pnlKPI2 = myform.AddNewProPanel(pnlRow1, 'pnlKPI2');

pnlKPI2.Align = alRight; pnlKPI2.Width = (myform.clWidth - 55) / 2;

clComponent.SetupComponent(pnlKPI2, '{"BackgroundColor":"#2a2a2a", "RoundHeight":12}');

lblKPI2Title = myform.AddNewProLabel(pnlKPI2, 'lblKPI2Title', 'Onaylanan');

lblKPI2Title.Align = alTop; lblKPI2Title.Height = 22; lblKPI2Title.Margins.Left = 12; lblKPI2Title.Margins.Top = 10;

clComponent.SetupComponent(lblKPI2Title, '{"TextColor":"#e2b13c", "TextSize":12, "TextBold":true}');

lblKPI2Value = myform.AddNewProLabel(pnlKPI2, 'lblKPI2Value', '6');

lblKPI2Value.Align = alTop; lblKPI2Value.Height = 24; lblKPI2Value.Margins.Left = 12;

clComponent.SetupComponent(lblKPI2Value, '{"TextColor":"#4CAF50", "TextSize":20, "TextBold":true}');

pnlRow2 = myform.AddNewProPanel(KPIGridLayout, 'pnlRow2');

pnlRow2.Align = alTop; pnlRow2.Height = 65; pnlRow2.Margins.Left = 20; pnlRow2.Margins.Right = 20;

pnlKPI3 = myform.AddNewProPanel(pnlRow2, 'pnlKPI3');

pnlKPI3.Align = alLeft; pnlKPI3.Width = (myform.clWidth - 55) / 2;

clComponent.SetupComponent(pnlKPI3, '{"BackgroundColor":"#2a2a2a", "RoundHeight":12}');

lblKPI3Title = myform.AddNewProLabel(pnlKPI3, 'lblKPI3Title', 'Kritik stok');

lblKPI3Title.Align = alTop; lblKPI3Title.Height = 22; lblKPI3Title.Margins.Left = 12; lblKPI3Title.Margins.Top = 10;

clComponent.SetupComponent(lblKPI3Title, '{"TextColor":"#cccccc", "TextSize":12, "TextBold":true}');

lblKPI3Value = myform.AddNewProLabel(pnlKPI3, 'lblKPI3Value', '2 urun');

lblKPI3Value.Align = alTop; lblKPI3Value.Height = 24; lblKPI3Value.Margins.Left = 12;

clComponent.SetupComponent(lblKPI3Value, '{"TextColor":"#f44336", "TextSize":20, "TextBold":true}');

pnlKPI4 = myform.AddNewProPanel(pnlRow2, 'pnlKPI4');

pnlKPI4.Align = alRight; pnlKPI4.Width = (myform.clWidth - 55) / 2;

clComponent.SetupComponent(pnlKPI4, '{"BackgroundColor":"#2a2a2a", "RoundHeight":12}');

lblKPI4Title = myform.AddNewProLabel(pnlKPI4, 'lblKPI4Title', 'Rezerve adet');

lblKPI4Title.Align = alTop; lblKPI4Title.Height = 22; lblKPI4Title.Margins.Left = 12; lblKPI4Title.Margins.Top = 10;

clComponent.SetupComponent(lblKPI4Title, '{"TextColor":"#cccccc", "TextSize":12, "TextBold":true}');

lblKPI4Value = myform.AddNewProLabel(pnlKPI4, 'lblKPI4Value', '18');

lblKPI4Value.Align = alTop; lblKPI4Value.Height = 24; lblKPI4Value.Margins.Left = 12;

clComponent.SetupComponent(lblKPI4Value, '{"TextColor":"#2196F3", "TextSize":20, "TextBold":true}');

TopCardsLayout = myform.AddNewLayout(HeaderLayout, 'TopCardsLayout');

TopCardsLayout.Align = alTop; TopCardsLayout.Height = 110; TopCardsLayout.Margins.Left = 20; TopCardsLayout.Margins.Right = 20; TopCardsLayout.Margins.Top = 10;

pnlGelir = myform.AddNewProPanel(TopCardsLayout, 'pnlGelir');

pnlGelir.Align = alLeft; pnlGelir.Width = (myform.clWidth - 55) / 2;

clComponent.SetupComponent(pnlGelir, '{"BackgroundColor":"#e8f5e9", "RoundHeight":12}');

lblGelirTitle = myform.AddNewProLabel(pnlGelir, 'lblGelirTitle', 'Net Gelir');

lblGelirTitle.Align = alTop; lblGelirTitle.Height = 20; lblGelirTitle.Margins.Left = 16; lblGelirTitle.Margins.Top = 14;

clComponent.SetupComponent(lblGelirTitle, '{"TextColor":"#2e7d32", "TextSize":12, "TextBold":true}');

lblGelirValue = myform.AddNewProLabel(pnlGelir, 'lblGelirValue', '63.300 TL');

lblGelirValue.Align = alTop; lblGelirValue.Height = 30; lblGelirValue.Margins.Left = 16;

clComponent.SetupComponent(lblGelirValue, '{"TextColor":"#1b5e20", "TextSize":22, "TextBold":true}');

lblGelirDesc = myform.AddNewProLabel(pnlGelir, 'lblGelirDesc', 'iade dusuldu');

lblGelirDesc.Align = alTop; lblGelirDesc.Height = 18; lblGelirDesc.Margins.Left = 16;

clComponent.SetupComponent(lblGelirDesc, '{"TextColor":"#388e3c", "TextSize":10}');

pnlMaliyet = myform.AddNewProPanel(TopCardsLayout, 'pnlMaliyet');

pnlMaliyet.Align = alRight; pnlMaliyet.Width = (myform.clWidth - 55) / 2;

clComponent.SetupComponent(pnlMaliyet, '{"BackgroundColor":"#ffebee", "RoundHeight":12}');

lblMaliyetTitle = myform.AddNewProLabel(pnlMaliyet, 'lblMaliyetTitle', 'Net Kar');

lblMaliyetTitle.Align = alTop; lblMaliyetTitle.Height = 20; lblMaliyetTitle.Margins.Left = 16; lblMaliyetTitle.Margins.Top = 14;

clComponent.SetupComponent(lblMaliyetTitle, '{"TextColor":"#c62828", "TextSize":12, "TextBold":true}');

lblMaliyetValue = myform.AddNewProLabel(pnlMaliyet, 'lblMaliyetValue', '+3.900 TL');

lblMaliyetValue.Align = alTop; lblMaliyetValue.Height = 30; lblMaliyetValue.Margins.Left = 16;

clComponent.SetupComponent(lblMaliyetValue, '{"TextColor":"#b71c1c", "TextSize":22, "TextBold":true}');

lblMaliyetDesc = myform.AddNewProLabel(pnlMaliyet, 'lblMaliyetDesc', 'marj %6');

lblMaliyetDesc.Align = alTop; lblMaliyetDesc.Height = 18; lblMaliyetDesc.Margins.Left = 16;

clComponent.SetupComponent(lblMaliyetDesc, '{"TextColor":"#d32f2f", "TextSize":10}');

MiddleTabsLayout = myform.AddNewLayout(HeaderLayout, 'MiddleTabsLayout');

MiddleTabsLayout.Align = alTop; MiddleTabsLayout.Height = 45; MiddleTabsLayout.Margins.Top = 20; MiddleTabsLayout.Margins.Left = 20; MiddleTabsLayout.Margins.Right = 20;

btnMidBekleyen = myform.AddNewProButton(MiddleTabsLayout, 'btnMidBekleyen', 'Bekleyen');

btnMidBekleyen.Align = alLeft; btnMidBekleyen.Width = (myform.clWidth - 40) / 3;

clComponent.SetupComponent(btnMidBekleyen, '{"BackgroundColor":"#333333", "TextColor":"#ffffff", "TextSize":13, "IsRound":true, "RoundHeight":16, "BorderColor":"#777777", "BorderWidth":1}');

myform.AddNewEvent(btnMidBekleyen, tbeOnClick, 'NavBekleyenClick');

btnMidAnaliz = myform.AddNewProButton(MiddleTabsLayout, 'btnMidAnaliz', 'Analiz');

btnMidAnaliz.Align = alLeft; btnMidAnaliz.Width = (myform.clWidth - 40) / 3; btnMidAnaliz.Margins.Left = 5;

clComponent.SetupComponent(btnMidAnaliz, '{"BackgroundColor":"#202020", "TextColor":"#aaaaaa", "TextSize":13, "IsRound":true, "RoundHeight":16, "BorderColor":"#555555", "BorderWidth":1}');

myform.AddNewEvent(btnMidAnaliz, tbeOnClick, 'NavAnalizClick');

btnMidStok = myform.AddNewProButton(MiddleTabsLayout, 'btnMidStok', 'Stok');

btnMidStok.Align = alLeft; btnMidStok.Width = (myform.clWidth - 40) / 3; btnMidStok.Margins.Left = 5;

clComponent.SetupComponent(btnMidStok, '{"BackgroundColor":"#202020", "TextColor":"#aaaaaa", "TextSize":13, "IsRound":true, "RoundHeight":16, "BorderColor":"#555555", "BorderWidth":1}');

myform.AddNewEvent(btnMidStok, tbeOnClick, 'NavStokClick');

ContentLayout = myform.AddNewLayout(MainScrollBox, 'ContentLayout');

ContentLayout.Align = alTop;

ContentLayout.Height = 600;

CardsParentLayout = myform.AddNewLayout(ContentLayout, 'CardsParentLayout');

CardsParentLayout.Align = alClient;

CardsParentLayout.Visible = True;

ListTitleLayout = myform.AddNewLayout(CardsParentLayout, 'ListTitleLayout');

ListTitleLayout.Align = alTop; ListTitleLayout.Height = 35; ListTitleLayout.Margins.Top = 20; ListTitleLayout.Margins.Left = 20;

lblListTitle = myform.AddNewProLabel(ListTitleLayout, 'lblListTitle', 'ONAY BEKLEYEN TALEPLER');

lblListTitle.Align = alLeft; lblListTitle.Width = 300;

clComponent.SetupComponent(lblListTitle, '{"TextColor":"#cccccc", "TextSize":12, "TextBold":true}');

AddApprovalCard('1', 'U', '#fff3e0', '#e65100', 'USB-C Hub', 'Yeni Satis - 5 adet - 3.250 TL - Ahmet Y.', 'Toplu alim', 'Stok yetersiz! Net stok: 3 adet', '#ffebee');

AddApprovalCard('2', 'K', '#e8f5e9', '#2e7d32', 'Mekanik Klavye', 'Stok Guncelleme - 10 adet - Zeynep K.', 'Depodan transfer', '', '');

AddApprovalCard('3', 'W', '#f3e5f5', '#6a1b9a', 'Web Kamera HD', 'Yeni Satis - 4 adet - 4.800 TL - Ahmet Y.', '', '', '');

ChartParentLayout = myform.AddNewLayout(ContentLayout, 'ChartParentLayout');

ChartParentLayout.Align = alClient;

ChartParentLayout.Visible = False;

lblChartTitle = myform.AddNewProLabel(ChartParentLayout, 'lblChartTitle', 'GEL�R / G�DER GRAF��');

lblChartTitle.Align = alTop; lblChartTitle.Height = 50; lblChartTitle.Margins.Left = 20; lblChartTitle.Margins.Top = 20;

clComponent.SetupComponent(lblChartTitle, '{"TextColor":"#ffffff", "TextSize":18, "TextBold":true}');

chartRevenue = myform.AddNewChart(ChartParentLayout, 'chartRevenue', '');

chartRevenue.Align = alTop; chartRevenue.Height = 280; chartRevenue.Margins.Left = 20; chartRevenue.Margins.Right = 20;

chartRevenue.Charttype = clCBar;

chartRevenue.XAxisText = 'Gun';

chartRevenue.ChartItemText = 'Tip';

chartRevenue.ChartItemsValue = 'Tutar';

chartRevenue.clLoadDataFromJSONStr('[' +

'{"Gun":"Pzt","Tutar":55,"Tip":"Gelir","color":"#aed581"},{"Gun":"Pzt","Tutar":42,"Tip":"Maliyet","color":"#ef9a9a"},' +

'{"Gun":"Sal","Tutar":38,"Tip":"Gelir","color":"#aed581"},{"Gun":"Sal","Tutar":28,"Tip":"Maliyet","color":"#ef9a9a"},' +

'{"Gun":"Car","Tutar":18,"Tip":"Gelir","color":"#aed581"},{"Gun":"Car","Tutar":14,"Tip":"Maliyet","color":"#ef9a9a"},' +

'{"Gun":"Per","Tutar":22,"Tip":"Gelir","color":"#aed581"},{"Gun":"Per","Tutar":17,"Tip":"Maliyet","color":"#ef9a9a"},' +

'{"Gun":"Cum","Tutar":19,"Tip":"Gelir","color":"#aed581"},{"Gun":"Cum","Tutar":15,"Tip":"Maliyet","color":"#ef9a9a"}]');

StokParentLayout = myform.AddNewLayout(ContentLayout, 'StokParentLayout');

StokParentLayout.Align = alClient;

StokParentLayout.Visible = False;

StokTitleLayout = myform.AddNewLayout(StokParentLayout, 'StokTitleLayout');

StokTitleLayout.Align = alTop; StokTitleLayout.Height = 35; StokTitleLayout.Margins.Top = 20; StokTitleLayout.Margins.Left = 20;

lblStokTitle = myform.AddNewProLabel(StokTitleLayout, 'lblStokTitle', 'T�M �R�NLER');

lblStokTitle.Align = alLeft; lblStokTitle.Width = 200;

clComponent.SetupComponent(lblStokTitle, '{"TextColor":"#e2b13c", "TextSize":12, "TextBold":true}');

AddProductCard('1', 'L', 'Laptop Pro X1', 'Rezerve: 8 - 18.500 TL', '37', '#4CAF50', 70, False);

AddProductCard('2', 'K', 'Mekanik Klavye', 'Rezerve: 3 - 1.850 TL', '9', '#FF9800', 40, False);

AddProductCard('3', 'U', 'USB-C Hub', 'Rezerve: 5 - 650 TL', '3', '#f44336', 15, True);

AddProductCard('4', 'M', 'Monitor 27"', 'Rezerve: 2 - 8.900 TL', '4', '#f44336', 20, True);

AddProductCard('5', 'W', 'Web Kamera HD', 'Rezerve: 0 - 1.200 TL', '26', '#4CAF50', 55, False);

myform.Run;

}

TclForm Oluşturma : admin panel stok, analiz sekmesi aray�z�

Thu, 07 May 2026 10:18:26 +0000

Yazar: M-Guney
Konu: admin panel stok, analiz sekmesi aray�z�
G�nderim Zaman�: 07 May�s 2026 Saat 10:18

�lk ba�ta att��n�z kodda sadece layoutlar�n visible false olmas�ndan kaynakl� yerle�tirmede problem meydana gelmekte

E�er ki bu k�s�mlar� main blok k�sm�ndan kald�r�rsan problem ��z�lecektir.
//StokParentLayout.Visible = False;

//uses uLib;

var

myform: TclStyleForm;

MainScrollBox: TClVertScrollBox;

TopLayout, TabsLayout, KPIGridLayout, TopCardsLayout: TclLayout;

MiddleTabsLayout, ListTitleLayout, StokTitleLayout: TclLayout;

pnlRow1, pnlRow2, pnlKPI1, pnlKPI2, pnlKPI3, pnlKPI4: TclProPanel;

lblHello, lblDate: TclProLabel;

pnlAvatar: TclProPanel;

lblAvatar: TclProLabel;

btnTabTemsilci, btnTabYonetici: TclProButton;

lblKPI1Title, lblKPI1Value: TclProLabel;

lblKPI2Title, lblKPI2Value: TclProLabel;

lblKPI3Title, lblKPI3Value: TclProLabel;

lblKPI4Title, lblKPI4Value: TclProLabel;

pnlGelir, pnlMaliyet: TclProPanel;

lblGelirTitle, lblGelirValue, lblGelirDesc: TclProLabel;

lblMaliyetTitle, lblMaliyetValue, lblMaliyetDesc: TclProLabel;

btnMidBekleyen, btnMidAnaliz, btnMidStok: TclProButton;

lblListTitle, lblStokTitle, lblChartTitle: TclProLabel;

pnlHideHeader: TclProPanel;

CardsParentLayout, ChartParentLayout, StokParentLayout: TclLayout;

chartRevenue: TclChart;

// G�R�N�RL�K AYARLAYICI (D�zeltildi)

void SetView(ViewMode: Integer);

var

c1, c2, c3, t1, t2, t3, b1, b2, b3: String;

{

CardsParentLayout.Visible = False;

ChartParentLayout.Visible = False;

StokParentLayout.Visible = False;

c1='#202020'; c2='#202020'; c3='#202020';

t1='#aaaaaa'; t2='#aaaaaa'; t3='#aaaaaa';

b1='#555555'; b2='#555555'; b3='#555555';

if (ViewMode == 1) { CardsParentLayout.Visible = True; c1='#333333'; t1='#ffffff'; b1='#777777'; }

if (ViewMode == 2) { ChartParentLayout.Visible = True; c2='#333333'; t2='#ffffff'; b2='#777777'; ChartParentLayout.Height = 380;}

if (ViewMode == 3) { StokParentLayout.Visible = True; c3='#333333'; t3='#ffffff'; b3='#777777'; StokParentLayout.Height = 700;}

clComponent.SetupComponent(btnMidBekleyen, '{"BackgroundColor":"'+c1+'", "TextColor":"'+t1+'", "IsRound":true, "RoundHeight":16, "BorderColor":"'+b1+'", "BorderWidth":1}');

clComponent.SetupComponent(btnMidAnaliz, '{"BackgroundColor":"'+c2+'", "TextColor":"'+t2+'", "IsRound":true, "RoundHeight":16, "BorderColor":"'+b2+'", "BorderWidth":1}');

clComponent.SetupComponent(btnMidStok, '{"BackgroundColor":"'+c3+'", "TextColor":"'+t3+'", "IsRound":true, "RoundHeight":16, "BorderColor":"'+b3+'", "BorderWidth":1}');

//MainScrollBox.ScrollTo(0,-410); // T�klan�ld��nda a��lan k�sma scrollu kayd�r�r

}

void NavBekleyenClick; { SetView(1); }

void NavAnalizClick; { SetView(2); }

void NavStokClick; { SetView(3); }

void AddApprovalCard(AId: String; AIconChar: String; AIconBg: String; AIconColor: String; ATitle: String; ASubTitle: String; ADesc: String; AAlertText: String; AAlertColor: String);

var

pnlCard, pnlAlert, pnlContent, pnlIconBox, pnlIcon, pnlText, pnlActions: TclProPanel;

lblAlert, lblIcon, lblTitle, lblSubTitle, lblDesc: TclProLabel;

btnOnayla, btnReddet: TclProButton;

{

pnlCard = myform.AddNewProPanel(CardsParentLayout, 'pnlApprCard_' + AId);

pnlCard.Align = alTop;

if (AAlertText <> '') pnlCard.Height = 155; else pnlCard.Height = 125;

pnlCard.Margins.Top = 15; pnlCard.Margins.Left = 16; pnlCard.Margins.Right = 16;

clComponent.SetupComponent(pnlCard, '{"BackgroundColor":"#252525", "RoundHeight":12, "BorderColor":"#3a3a3a", "BorderWidth":1, "ShadowColor":"#000000", "ShadowRadius":8, "ShadowOpacity":0.4}');

if (AAlertText <> '')

{

pnlAlert = myform.AddNewProPanel(pnlCard, 'pnlApprAlert_' + AId);

pnlAlert.Align = alTop; pnlAlert.Height = 24;

clComponent.SetupComponent(pnlAlert, '{"BackgroundColor":"' + AAlertColor + '", "RoundHeight":8}');

lblAlert = myform.AddNewProLabel(pnlAlert, 'lblApprAlert_' + AId, AAlertText);

lblAlert.Align = alClient; lblAlert.Margins.Left = 10;

clComponent.SetupComponent(lblAlert, '{"TextColor":"#b71c1c", "TextSize":11, "TextBold":true, "TextVerticalAlign":"center"}');

}

pnlContent = myform.AddNewProPanel(pnlCard, 'pnlApprContent_' + AId);

pnlContent.Align = alTop; pnlContent.Height = 70;

pnlIconBox = myform.AddNewProPanel(pnlContent, 'pnlApprIconBox_' + AId);

pnlIconBox.Align = alLeft; pnlIconBox.Width = 60;

pnlIcon = myform.AddNewProPanel(pnlIconBox, 'pnlApprIcon_' + AId);

pnlIcon.Align = alCenter; pnlIcon.Width = 36; pnlIcon.Height = 36;

clComponent.SetupComponent(pnlIcon, '{"BackgroundColor":"' + AIconBg + '", "RoundHeight":18}');

lblIcon = myform.AddNewProLabel(pnlIcon, 'lblApprIconLabel_' + AId, AIconChar);

lblIcon.Align = alClient;

clComponent.SetupComponent(lblIcon, '{"TextColor":"' + AIconColor + '", "TextSize":16, "TextBold":true, "TextHorizontalAlign":"center", "TextVerticalAlign":"center"}');

pnlText = myform.AddNewProPanel(pnlContent, 'pnlApprText_' + AId);

pnlText.Align = alClient; pnlText.Margins.Top = 14;

lblTitle = myform.AddNewProLabel(pnlText, 'lblApprTitle_' + AId, ATitle);

lblTitle.Align = alTop; lblTitle.Height = 18;

clComponent.SetupComponent(lblTitle, '{"TextColor":"#ffffff", "TextSize":13, "TextBold":true}');

lblSubTitle = myform.AddNewProLabel(pnlText, 'lblApprSubTitle_' + AId, ASubTitle);

lblSubTitle.Align = alTop; lblSubTitle.Height = 14;

clComponent.SetupComponent(lblSubTitle, '{"TextColor":"#cccccc", "TextSize":10}');

if (ADesc <> '') {

lblDesc = myform.AddNewProLabel(pnlText, 'lblApprDesc_' + AId, '"' + ADesc + '"');

lblDesc.Align = alTop; lblDesc.Height = 14;

clComponent.SetupComponent(lblDesc, '{"TextColor":"#aaaaaa", "TextSize":10, "TextItalic":true}');

}

pnlActions = myform.AddNewProPanel(pnlCard, 'pnlApprActions_' + AId);

pnlActions.Align = alBottom; pnlActions.Height = 36; pnlActions.Margins.Bottom = 8; pnlActions.Margins.Left = 8; pnlActions.Margins.Right = 8;

btnOnayla = myform.AddNewProButton(pnlActions, 'btnOnayla_' + AId, 'Onayla');

btnOnayla.Align = alLeft; btnOnayla.Width = (myform.clWidth - 55) / 2;

clComponent.SetupComponent(btnOnayla, '{"BackgroundColor":"#1b5e20", "TextColor":"#ffffff", "TextSize":12, "TextBold":true, "RoundHeight":8}');

btnReddet = myform.AddNewProButton(pnlActions, 'btnReddet_' + AId, 'Reddet');

btnReddet.Align = alClient; btnReddet.Margins.Left = 8;

clComponent.SetupComponent(btnReddet, '{"BackgroundColor":"#252525", "TextColor":"#e53935", "TextSize":12, "TextBold":true, "BorderColor":"#e53935", "BorderWidth":1, "RoundHeight":8}');

}

void AddProductCard(AId: String; ALetter: String; AName: String; ADesc: String; ACount: String; AColor: String; AProgress: Integer; IsKritik: Boolean);

var

pnlCard, pnlIcon, pnlCenter, pnlRight, pnlBadge, pnlProgressBg, pnlProgressFg: TclProPanel;

lblIcon, lblName, lblDesc, lblCount, lblCountDesc, lblBadge: TclProLabel;

{

pnlCard = myform.AddNewProPanel(StokParentLayout, 'pnlStokCard_' + AId);

pnlCard.Align = alTop; pnlCard.Height = 100; pnlCard.Margins.Top = 12; pnlCard.Margins.Left = 16; pnlCard.Margins.Right = 16;

clComponent.SetupComponent(pnlCard, '{"BackgroundColor":"#2b2b2b", "RoundHeight":16, "BorderColor":"#555555", "BorderWidth":1, "ShadowColor":"#000000", "ShadowRadius":8, "ShadowOpacity":0.4}');

pnlIcon = myform.AddNewProPanel(pnlCard, 'pnlStokIconBox_' + AId);

pnlIcon.Align = alLeft; pnlIcon.Width = 52; pnlIcon.Height = 52; pnlIcon.Margins.Left = 16; pnlIcon.Margins.Top = 24; pnlIcon.Margins.Bottom = 24;

clComponent.SetupComponent(pnlIcon, '{"BackgroundColor":"#ffffff", "RoundHeight":12}');

lblIcon = myform.AddNewProLabel(pnlIcon, 'lblStokIconLabel_' + AId, ALetter);

lblIcon.Align = alClient;

clComponent.SetupComponent(lblIcon, '{"TextColor":"#111111", "TextSize":18, "TextBold":true, "TextHorizontalAlign":"center", "TextVerticalAlign":"center"}');

pnlRight = myform.AddNewProPanel(pnlCard, 'pnlStokRight_' + AId);

pnlRight.Align = alRight; pnlRight.Width = 70; pnlRight.Margins.Right = 16; pnlRight.Margins.Top = 20;

lblCount = myform.AddNewProLabel(pnlRight, 'lblStokCount_' + AId, ACount);

lblCount.Align = alTop; lblCount.Height = 24;

clComponent.SetupComponent(lblCount, '{"TextColor":"' + AColor + '", "TextSize":20, "TextBold":true, "TextHorizontalAlign":"right"}');

lblCountDesc = myform.AddNewProLabel(pnlRight, 'lblStokCountDesc_' + AId, 'net stok');

lblCountDesc.Align = alTop; lblCountDesc.Height = 15;

clComponent.SetupComponent(lblCountDesc, '{"TextColor":"#cccccc", "TextSize":11, "TextHorizontalAlign":"right"}');

pnlCenter = myform.AddNewProPanel(pnlCard, 'pnlStokCenter_' + AId);

pnlCenter.Align = alClient; pnlCenter.Margins.Left = 16; pnlCenter.Margins.Top = 18;

lblName = myform.AddNewProLabel(pnlCenter, 'lblStokName_' + AId, AName);

lblName.Align = alTop; lblName.Height = 22;

clComponent.SetupComponent(lblName, '{"TextColor":"#ffffff", "TextSize":15, "TextBold":true}');

if (IsKritik) {

pnlBadge = myform.AddNewProPanel(lblName, 'pnlStokBadge_' + AId);

pnlBadge.Align = alRight; pnlBadge.Width = 50; pnlBadge.Margins.Right = 20;

clComponent.SetupComponent(pnlBadge, '{"BackgroundColor":"#ffebee", "RoundHeight":8}');

lblBadge = myform.AddNewProLabel(pnlBadge, 'lblStokBadgeLabel_' + AId, 'Kritik');

lblBadge.Align = alClient;

clComponent.SetupComponent(lblBadge, '{"TextColor":"#c62828", "TextSize":10, "TextBold":true, "TextHorizontalAlign":"center", "TextVerticalAlign":"center"}');

}

lblDesc = myform.AddNewProLabel(pnlCenter, 'lblStokDesc_' + AId, ADesc);

lblDesc.Align = alTop; lblDesc.Height = 18;

clComponent.SetupComponent(lblDesc, '{"TextColor":"#cccccc", "TextSize":11}');

pnlProgressBg = myform.AddNewProPanel(pnlCenter, 'pnlProgressBg_' + AId);

pnlProgressBg.Align = alTop; pnlProgressBg.Height = 4; pnlProgressBg.Margins.Top = 8; pnlProgressBg.Margins.Right = 20;

clComponent.SetupComponent(pnlProgressBg, '{"BackgroundColor":"#444444", "RoundHeight":2}');

pnlProgressFg = myform.AddNewProPanel(pnlProgressBg, 'pnlProgressFg_' + AId);

pnlProgressFg.Align = alLeft; pnlProgressFg.Width = (myform.clWidth * AProgress) / 100;

clComponent.SetupComponent(pnlProgressFg, '{"BackgroundColor":"' + AColor + '", "RoundHeight":2}');

}

{

myform = TclStyleForm.Create(Self);

myform.SetFormColor('#202020', '', clGNone);

pnlHideHeader = myform.AddNewProPanel(myform, 'pnlHideHeader');

pnlHideHeader.Align = alTop; pnlHideHeader.Height = 80; pnlHideHeader.Margins.Top = -80;

clComponent.SetupComponent(pnlHideHeader, '{"BackgroundColor":"#202020"}');

MainScrollBox = myform.AddNewVertScrollBox(myform, 'MainScrollBox');

MainScrollBox.Align = alClient;

TopLayout = myform.AddNewLayout(MainScrollBox, 'TopLayout');

TopLayout.Align = alTop; TopLayout.Height = 75; TopLayout.Margins.Top = 20; TopLayout.Margins.Left = 20; TopLayout.Margins.Right = 20;

pnlAvatar = myform.AddNewProPanel(TopLayout, 'pnlAvatar');

pnlAvatar.Align = alRight; pnlAvatar.Width = 48; pnlAvatar.Height = 48;

clComponent.SetupComponent(pnlAvatar, '{"BackgroundColor":"#1b5e20", "RoundHeight":24}');

lblAvatar = myform.AddNewProLabel(pnlAvatar, 'lblAvatar', 'FD');

lblAvatar.Align = alClient;

clComponent.SetupComponent(lblAvatar, '{"TextColor":"#ffffff", "TextSize":16, "TextBold":true, "TextHorizontalAlign":"center", "TextVerticalAlign":"center"}');

lblHello = myform.AddNewProLabel(TopLayout, 'lblHello', 'Merhaba, Fatma');

lblHello.Align = alTop; lblHello.Height = 28;

clComponent.SetupComponent(lblHello, '{"TextColor":"#ffffff", "TextSize":22, "TextBold":true}');

lblDate = myform.AddNewProLabel(TopLayout, 'lblDate', 'Yonetici - Nisan 2025');

lblDate.Align = alTop; lblDate.Height = 20;

clComponent.SetupComponent(lblDate, '{"TextColor":"#cccccc", "TextSize":12}');

KPIGridLayout = myform.AddNewLayout(MainScrollBox, 'KPIGridLayout');