Clomosy | Forum : Responsive Design

Clomosy | Forum : Responsive Design https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 11 May 2026 20:50:02 +0000 Mon, 11 May 2026 18:30:21 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1514 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Responsive Design : varMainForm:TCLForm;MainScaled...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1514&PID=3486#3486 Yazar: M-Guney
Konu: 1514
Gönderim Zamanı: 11 Mayıs 2026 Saat 18:30

var

MainForm:TCLForm;

MainScaledLayout:TclScaledLayout;

FlowLayout:TclProFlowLayout;

FinansalOzetBtn,StarejikPlnBtn,HammaddeVeUretimBtn,IkBtn,StokBtn,TedarikBtn,PerformansBtn,KarbonAyakiziBtn,AcilDurumVeArizaBtn,CikisBtn:TClProButton;

MainPnl,UstPnl,MerhabaContainerPnl,TarihPnl,MenuGridPnl,AltBlokPnl,OperasyonelAkisPnl,AjandaPnl,AkisSatirPnl,FAIkonPnl: TclProPanel;

MerhabaLbl,MerhabaAltBaslikLbl UstFlodolaLbl,UstModulLbl,TarihLbl,AkisBaslikLbl,AjandaBaslikLbl,FALbl,DetayLbl: TClProLabel;

CikisIcon:TCLImage;

{

//AnaForm

MainForm = TCLForm.Create(Self);

MainForm.clSetWindowState(fwsMaximized);// Tam ekran

MainForm.BtnFormMenu.Visible = False;

MainForm.BtnGoBack.Visible = False;

MainForm.clSetCaption('----- CEO PANEL ----- ');

MainForm.SetFormColor('#075660','',clGNone);

//Scaled Layout

MainScaledLayout = MainForm.AddNewScaledLayout(MainForm, 'MainScaledLayout');

MainScaledLayout.Align = alClient;

if (Clomosy.PlatformIsMobile) // PlatformIsMobile

{

MainScaledLayout.OriginalWidth = 1000;

MainScaledLayout.OriginalHeight = 1200;

}

else

{

MainScaledLayout.OriginalWidth = 1500;

MainScaledLayout.OriginalHeight = 740;

}

//Main Panel

MainPnl=MainForm.AddNewProPanel(MainScaledLayout, 'MainPnl');

MainPnl.Align= alClient;

MainPnl.Margins.Top =(MainForm.clHeight*10)/100;

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

MainPnl.SetclProSettings(MainPnl.clProSettings);

//Üst Panel

UstPnl=MainForm.AddNewProPanel(MainScaledLayout, 'UstPnl');

UstPnl.Align= alTop;

UstPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');

UstPnl.SetclProSettings(UstPnl.clProSettings);

//Üst Flodola label

UstFlodolaLbl=MainForm.AddNewProLabel(UstPnl, 'UstFlodolaLbl', 'FLODOLA');

UstFlodolaLbl.Align= alNone;

UstFlodolaLbl.Position.X =(UstPnl.Width*2)/100;

UstFlodolaLbl.Position.y =(UstPnl.Height*20)/100;

UstFlodolaLbl.clProSettings.AutoSize = True;

UstFlodolaLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');

UstFlodolaLbl.clProSettings.FontSize = 20;

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

UstFlodolaLbl.SetclProSettings(UstFlodolaLbl.clProSettings);

//Üst Modül Label

UstModulLbl=MainForm.AddNewProLabel(UstPnl, 'UstModulLbl', 'Ceo Modülü');

UstModulLbl.Align= alNone;

UstModulLbl.Position.X =(UstPnl.Width*2)/100;

UstModulLbl.Position.y =(UstPnl.Height*98)/100;

UstModulLbl.clProSettings.AutoSize = True;

UstModulLbl.clProSettings.FontSize = 11;

UstModulLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');

UstModulLbl.SetclProSettings(UstModulLbl.clProSettings);

//Çıkış Buton

CikisBtn=MainForm.AddNewProButton(UstPnl, 'CikisBtn', '');

CikisBtn.Align=alNone;

CikisBtn.height = (UstPnl.Height*150)/100;

CikisBtn.Width = (UstPnl.Height*150)/100;

CikisBtn.Position.X =(UstPnl.Width*92)/100;

CikisBtn.Position.y =(UstPnl.Height*30)/100;

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

CikisBtn.clProSettings.BorderWidth = 1;

CikisBtn.clProSettings.RoundHeight = 8;

CikisBtn.clProSettings.RoundWidth = 8;

CikisBtn.SetclProSettings(CikisBtn.clProSettings);

//Çıkış Buton İcon bitmedi

CikisIcon =MainForm.AddNewImage(CikisBtn,'CikisIcon');

MainForm.SetImage(CikisBtn,'LogoutIcon');

CikisIcon.align =alNone;

PersLoginImg =MainForm.AddNewImage(PersLoginBtn,'PersLoginImg');

MainForm.SetImage(PersLoginImg,'LoginIcon');

PersLoginImg.align =alNone;

//Merhaba Panel

MerhabaContainerPnl = MainForm.AddNewProPanel(MainPnl, 'MerhabaContainerPnl');

MerhabaContainerPnl.Align = alTop;

MerhabaContainerPnl.Height = 100; // İki yazı için yeterli yükseklik

MerhabaContainerPnl.Margins.Left = 20;

MerhabaContainerPnl.Margins.Top = 20;

MerhabaContainerPnl.clProSettings.IsFill = False; // Arka plan şeffaf

MerhabaContainerPnl.SetclProSettings(MerhabaContainerPnl.clProSettings);

//Merhaba label

MerhabaLbl = MainForm.AddNewProLabel(MerhabaContainerPnl, 'MerhabaLbl', 'Merhaba, CEO');

MerhabaLbl.Align = alTop;

MerhabaLbl.Height = 35;

MerhabaLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');

MerhabaLbl.clProSettings.FontSize = 24;

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

MerhabaLbl.clProSettings.TextSettings.HorzAlign = taLeading;

MerhabaLbl.SetclProSettings(MerhabaLbl.clProSettings);

//Merhaba Alt Başlık Label

MerhabaAltBaslikLbl = MainForm.AddNewProLabel(MerhabaContainerPnl, 'MerhabaAltBaslikLbl', 'Şirket genelindeki son aktiviteler ve görevlerin.');

MerhabaAltBaslikLbl.Align = alTop;

MerhabaAltBaslikLbl.Height = 25;

MerhabaAltBaslikLbl.Margins.Top = 3;

MerhabaAltBaslikLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');

MerhabaAltBaslikLbl.clProSettings.FontSize = 12;

MerhabaAltBaslikLbl.clProSettings.TextSettings.HorzAlign = taLeading;

MerhabaAltBaslikLbl.SetclProSettings(MerhabaAltBaslikLbl.clProSettings);

//Tarih Kutusu

TarihPnl = MainForm.AddNewProPanel(MainPnl, 'TarihPnl');

TarihPnl.Align = alNone;

TarihPnl.Width = 140;

TarihPnl.Height = 45;

TarihPnl.Position.X = 1050 - TarihPnl.Width - 40; // ScaledLayout OriginalWidth değerine göre sabitlendi

TarihPnl.Position.Y = 25;

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

TarihPnl.clProSettings.RoundHeight = 15;

TarihPnl.clProSettings.RoundWidth = 15;

TarihPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2E8F0');

TarihPnl.clProSettings.BorderWidth = 1;

TarihPnl.SetclProSettings(TarihPnl.clProSettings);

//Tarih Label

TarihLbl = MainForm.AddNewProLabel(TarihPnl, 'TarihLbl', '11.05.2026');

TarihLbl.Align = alCenter;

TarihLbl.clProSettings.TextSettings.HorzAlign = taCenter;

TarihLbl.clProSettings.TextSettings.VertAlign = taCenter;

TarihLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');

TarihLbl.clProSettings.FontSize = 11;

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

TarihLbl.SetclProSettings(TarihLbl.clProSettings);

//Menu Grid Panel

MenuGridPnl = MainForm.AddNewProPanel(MainPnl, 'MenuGridPnl');

MenuGridPnl.Align = alTop;

MenuGridPnl.Height = 380;

MenuGridPnl.Margins.Top = 10; MenuGridPnl.Margins.Left = 20; MenuGridPnl.Margins.Right = 20;

MenuGridPnl.clProSettings.IsFill = False;

MenuGridPnl.SetclProSettings(MenuGridPnl.clProSettings);

// Finansal Özet

FinansalOzetBtn = MainForm.AddNewProButton(MenuGridPnl, 'FinansalOzetBtn', 'Finansal Özet');

FinansalOzetBtn.Align = alNone;

FinansalOzetBtn.Width = 230;

FinansalOzetBtn.Height = 160;

FinansalOzetBtn.Position.X = 20;

FinansalOzetBtn.Position.Y = 10;

FinansalOzetBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

FinansalOzetBtn.clProSettings.FontSize = 20;

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

FinansalOzetBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

FinansalOzetBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

FinansalOzetBtn.clProSettings.BorderWidth = 1;

FinansalOzetBtn.clProSettings.RoundHeight = 8;

FinansalOzetBtn.clProSettings.RoundWidth = 8;

FinansalOzetBtn.SetclProSettings(FinansalOzetBtn.clProSettings);

// Stratejik Planlama

StarejikPlnBtn = MainForm.AddNewProButton(MenuGridPnl, 'StarejikPlnBtn', 'Stratejik Planlama');

StarejikPlnBtn.Align = alNone;

StarejikPlnBtn.Width = 230;

StarejikPlnBtn.Height = 160;

StarejikPlnBtn.Position.X = 270;

StarejikPlnBtn.Position.Y = 10;

StarejikPlnBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

StarejikPlnBtn.clProSettings.FontSize = 20;

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

StarejikPlnBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

StarejikPlnBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

StarejikPlnBtn.clProSettings.BorderWidth = 1;

StarejikPlnBtn.clProSettings.RoundHeight = 8;

StarejikPlnBtn.clProSettings.RoundWidth = 8;

StarejikPlnBtn.SetclProSettings(StarejikPlnBtn.clProSettings);

// Hammadde ve Üretim

HammaddeVeUretimBtn = MainForm.AddNewProButton(MenuGridPnl, 'HammaddeVeUretimBtn', 'Hammadde & Üretim');

HammaddeVeUretimBtn.Align = alNone;

HammaddeVeUretimBtn.Width = 230;

HammaddeVeUretimBtn.Height = 160;

HammaddeVeUretimBtn.Position.X = 520;

HammaddeVeUretimBtn.Position.Y = 10;

HammaddeVeUretimBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

HammaddeVeUretimBtn.clProSettings.FontSize = 20;

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

HammaddeVeUretimBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

HammaddeVeUretimBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

HammaddeVeUretimBtn.clProSettings.BorderWidth = 1;

HammaddeVeUretimBtn.clProSettings.RoundHeight = 8;

HammaddeVeUretimBtn.clProSettings.RoundWidth = 8;

HammaddeVeUretimBtn.SetclProSettings(HammaddeVeUretimBtn.clProSettings);

// İnsan Kaynakları

IkBtn = MainForm.AddNewProButton(MenuGridPnl, 'IkBtn', 'İnsan Kaynakları');

IkBtn.Align = alNone;

IkBtn.Width = 230;

IkBtn.Height = 160;

IkBtn.Position.X = 770;

IkBtn.Position.Y = 10;

IkBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

IkBtn.clProSettings.FontSize = 20;

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

IkBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

IkBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

IkBtn.clProSettings.BorderWidth = 1;

IkBtn.clProSettings.RoundHeight = 8;

IkBtn.clProSettings.RoundWidth = 8;

IkBtn.SetclProSettings(IkBtn.clProSettings);

// Stok Durumu

StokBtn = MainForm.AddNewProButton(MenuGridPnl, 'StokBtn', 'Stok Durumu');

StokBtn.Align = alNone;

StokBtn.Width = 230;

StokBtn.Height = 160;

StokBtn.Position.X = 20;

StokBtn.Position.Y = 190;

StokBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

StokBtn.clProSettings.FontSize = 20;

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

StokBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

StokBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

StokBtn.clProSettings.BorderWidth = 1;

StokBtn.clProSettings.RoundHeight = 8;

StokBtn.clProSettings.RoundWidth = 8;

StokBtn.SetclProSettings(StokBtn.clProSettings);

// Tedarik Zinciri

TedarikBtn = MainForm.AddNewProButton(MenuGridPnl, 'TedarikBtn', 'Tedarik Zinciri');

TedarikBtn.Align = alNone;

TedarikBtn.Width = 230;

TedarikBtn.Height = 160;

TedarikBtn.Position.X = 270;

TedarikBtn.Position.Y = 190;

TedarikBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

TedarikBtn.clProSettings.FontSize = 20;

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

TedarikBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

TedarikBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

TedarikBtn.clProSettings.BorderWidth = 1;

TedarikBtn.clProSettings.RoundHeight = 8;

TedarikBtn.clProSettings.RoundWidth = 8;

TedarikBtn.SetclProSettings(TedarikBtn.clProSettings);

// Performans Analizi

PerformansBtn = MainForm.AddNewProButton(MenuGridPnl, 'PerformansBtn', 'Performans Analizi');

PerformansBtn.Align = alNone;

PerformansBtn.Width = 230;

PerformansBtn.Height = 160;

PerformansBtn.Position.X = 520;

PerformansBtn.Position.Y = 190;

PerformansBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

PerformansBtn.clProSettings.FontSize = 20;

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

PerformansBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

PerformansBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

PerformansBtn.clProSettings.BorderWidth = 1;

PerformansBtn.clProSettings.RoundHeight = 8;

PerformansBtn.clProSettings.RoundWidth = 8;

PerformansBtn.SetclProSettings(PerformansBtn.clProSettings);

// Karbon Ayakizi

KarbonAyakiziBtn = MainForm.AddNewProButton(MenuGridPnl, 'KarbonAyakiziBtn', 'Karbon Ayakizi');

KarbonAyakiziBtn.Align = alNone;

KarbonAyakiziBtn.Width = 230;

KarbonAyakiziBtn.Height = 160;

KarbonAyakiziBtn.Position.X = 770;

KarbonAyakiziBtn.Position.Y = 190;

KarbonAyakiziBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

KarbonAyakiziBtn.clProSettings.FontSize = 20;

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

KarbonAyakiziBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

KarbonAyakiziBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

KarbonAyakiziBtn.clProSettings.BorderWidth = 1;

KarbonAyakiziBtn.clProSettings.RoundHeight = 8;

KarbonAyakiziBtn.clProSettings.RoundWidth = 8;

KarbonAyakiziBtn.SetclProSettings(KarbonAyakiziBtn.clProSettings);

//Alt Blok Panel

AltBlokPnl = MainForm.AddNewProPanel(MainPnl, 'AltBlokPnl');

AltBlokPnl.Align = alTop;

AltBlokPnl.Height = 400;

AltBlokPnl.Margins.Top = 10; AltBlokPnl.Margins.Left = 20; AltBlokPnl.Margins.Right = 20;

AltBlokPnl.clProSettings.IsFill = False;

AltBlokPnl.SetclProSettings(AltBlokPnl.clProSettings);

//Operasyonel Akış Panel

OperasyonelAkisPnl = MainForm.AddNewProPanel(AltBlokPnl, 'OperasyonelAkisPnl');

OperasyonelAkisPnl.Align = alLeft;

OperasyonelAkisPnl.Width = 750;

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

OperasyonelAkisPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#075660');

OperasyonelAkisPnl.clProSettings.BorderWidth = 1;

OperasyonelAkisPnl.clProSettings.RoundHeight = 8;

OperasyonelAkisPnl.clProSettings.RoundWidth = 8;

OperasyonelAkisPnl.SetclProSettings(OperasyonelAkisPnl.clProSettings);

//Akış Başlık Label

AkisBaslikLbl = MainForm.AddNewProLabel(OperasyonelAkisPnl, 'AkisBaslikLbl', 'Operasyonel Akış');

AkisBaslikLbl.Align = alTop;

AkisBaslikLbl.Margins.Left = 25; AkisBaslikLbl.Margins.Top = 20;

AkisBaslikLbl.Height = 30;

AkisBaslikLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');

AkisBaslikLbl.clProSettings.FontSize = 16;

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

AkisBaslikLbl.SetclProSettings(AkisBaslikLbl.clProSettings);

//Ajanda Panel

AjandaPnl = MainForm.AddNewProPanel(AltBlokPnl, 'AjandaPnl');

AjandaPnl.Align = alRight;

AjandaPnl.Width = 320;

AjandaPnl.Margins.Left = 20;

AjandaPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');

AjandaPnl.clProSettings.RoundHeight = 30; AjandaPnl.clProSettings.RoundWidth = 30;

AjandaPnl.SetclProSettings(AjandaPnl.clProSettings);

//Ajanda Başlık Label

AjandaBaslikLbl = MainForm.AddNewProLabel(AjandaPnl, 'AjandaBaslikLbl', 'Ajanda');

AjandaBaslikLbl.Align = alTop;

AjandaBaslikLbl.Margins.Left = 25; AjandaBaslikLbl.Margins.Top = 20;

AjandaBaslikLbl.Height = 30;

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

AjandaBaslikLbl.clProSettings.FontSize = 16;

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

AjandaBaslikLbl.SetclProSettings(AjandaBaslikLbl.clProSettings);

// Operasyonel Akış Başlığının Altına Satır Ekleme

AkisSatirPnl = MainForm.AddNewProPanel(OperasyonelAkisPnl, 'AkisSatirPnl');

AkisSatirPnl.Align = alTop;

AkisSatirPnl.Height = 60;

AkisSatirPnl.Margins.Top = 10; AkisSatirPnl.Margins.Left = 20; AkisSatirPnl.Margins.Right = 20;

AkisSatirPnl.clProSettings.IsFill = False;

AkisSatirPnl.SetclProSettings(AkisSatirPnl.clProSettings);

// Yanındaki Metin

DetayLbl = MainForm.AddNewProLabel(AkisSatirPnl, 'DetayLbl', 'Furkan Ali EREL: Hammadde sevkiyatı ulaştı.');

DetayLbl.Align = alClient;

DetayLbl.Margins.Left = 15;

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

DetayLbl.clProSettings.FontSize = 11;

DetayLbl.SetclProSettings(DetayLbl.clProSettings);

MainForm.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">]]> Mon, 11 May 2026 18:30:21 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1514&PID=3486#3486 <![CDATA[Responsive Design : varMainForm:TCLForm;FlowLayout...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1514&PID=3485#3485 Yazar: Zitdoyz
Konu: 1514
Gönderim Zamanı: 11 Mayıs 2026 Saat 17:54

var

MainForm:TCLForm;

FlowLayout:TclProFlowLayout;

FinansalOzetBtn,StarejikPlnBtn,HammaddeVeUretimBtn,IkBtn,StokBtn,TedarikBtn,PerformansBtn,KarbonAyakiziBtn,AcilDurumVeArizaBtn,CikisBtn:TClProButton;

MainPnl,UstPnl,MerhabaContainerPnl,TarihPnl,MenuGridPnl,AltBlokPnl,OperasyonelAkisPnl,AjandaPnl,AkisSatirPnl,FAIkonPnl: TclProPanel;

MerhabaLbl,MerhabaAltBaslikLbl UstFlodolaLbl,UstModulLbl,TarihLbl,AkisBaslikLbl,AjandaBaslikLbl,FALbl,DetayLbl: TClProLabel;

CikisIcon:TCLImage;

{

//AnaForm

MainForm = TCLForm.Create(Self);

//MainForm.clSetWindowState(fwsMaximized);

MainForm.BtnFormMenu.Visible = False;

MainForm.BtnGoBack.Visible = False;

MainForm.clSetCaption('----- CEO PANEL ----- ');

MainForm.SetFormColor('#075660','',clGNone);

//Main Panel

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

MainPnl.Align= alClient;

MainPnl.Margins.Top =(MainForm.clHeight*10)/100;

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

MainPnl.SetclProSettings(MainPnl.clProSettings);

//Üst Panel

UstPnl=MainForm.AddNewProPanel(MainForm, 'UstPnl');

UstPnl.Align= alTop;

UstPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');

UstPnl.SetclProSettings(UstPnl.clProSettings);

//Üst Flodola label

UstFlodolaLbl=MainForm.AddNewProLabel(UstPnl, 'UstFlodolaLbl', 'FLODOLA');

UstFlodolaLbl.Align= alNone;

UstFlodolaLbl.Position.X =(UstPnl.Width*2)/100;

UstFlodolaLbl.Position.y =(UstPnl.Height*20)/100;

UstFlodolaLbl.clProSettings.AutoSize = True;

UstFlodolaLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');

UstFlodolaLbl.clProSettings.FontSize = 20;

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

UstFlodolaLbl.SetclProSettings(UstFlodolaLbl.clProSettings);

//Üst Modül Label

UstModulLbl=MainForm.AddNewProLabel(UstPnl, 'UstModulLbl', 'Ceo Modülü');

UstModulLbl.Align= alNone;

UstModulLbl.Position.X =(UstPnl.Width*2)/100;

UstModulLbl.Position.y =(UstPnl.Height*98)/100;

UstModulLbl.clProSettings.AutoSize = True;

UstModulLbl.clProSettings.FontSize = 11;

UstModulLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');

UstModulLbl.SetclProSettings(UstModulLbl.clProSettings);

//Çıkış Buton

CikisBtn=MainForm.AddNewProButton(UstPnl, 'CikisBtn', '');

CikisBtn.Align=alNone;

CikisBtn.height = (UstPnl.Height*150)/100;

CikisBtn.Width = (UstPnl.Height*150)/100;

CikisBtn.Position.X =(UstPnl.Width*92)/100;

CikisBtn.Position.y =(UstPnl.Height*30)/100;

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

CikisBtn.clProSettings.BorderWidth = 1;

CikisBtn.clProSettings.RoundHeight = 8;

CikisBtn.clProSettings.RoundWidth = 8;

CikisBtn.SetclProSettings(CikisBtn.clProSettings);

//Çıkış Buton İcon bitmedi

CikisIcon =MainForm.AddNewImage(CikisBtn,'CikisIcon');

MainForm.SetImage(CikisBtn,'LogoutIcon');

CikisIcon.align =alNone;

PersLoginImg =MainForm.AddNewImage(PersLoginBtn,'PersLoginImg');

MainForm.SetImage(PersLoginImg,'LoginIcon');

PersLoginImg.align =alNone;

//Merhaba Panel

MerhabaContainerPnl = MainForm.AddNewProPanel(MainPnl, 'MerhabaContainerPnl');

MerhabaContainerPnl.Align = alTop;

MerhabaContainerPnl.Height = 100; // İki yazı için yeterli yükseklik

MerhabaContainerPnl.Margins.Left = 20;

MerhabaContainerPnl.Margins.Top = 20;

MerhabaContainerPnl.clProSettings.IsFill = False; // Arka plan şeffaf

MerhabaContainerPnl.SetclProSettings(MerhabaContainerPnl.clProSettings);

//Merhaba label

MerhabaLbl = MainForm.AddNewProLabel(MerhabaContainerPnl, 'MerhabaLbl', 'Merhaba, CEO');

MerhabaLbl.Align = alTop;

MerhabaLbl.Height = 35;

MerhabaLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');

MerhabaLbl.clProSettings.FontSize = 24;

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

MerhabaLbl.clProSettings.TextSettings.HorzAlign = taLeading;

MerhabaLbl.SetclProSettings(MerhabaLbl.clProSettings);

//Merhaba Alt Başlık Label

MerhabaAltBaslikLbl = MainForm.AddNewProLabel(MerhabaContainerPnl, 'MerhabaAltBaslikLbl', 'Şirket genelindeki son aktiviteler ve görevlerin.');

MerhabaAltBaslikLbl.Align = alTop;

MerhabaAltBaslikLbl.Height = 25;

MerhabaAltBaslikLbl.Margins.Top = 3;

MerhabaAltBaslikLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');

MerhabaAltBaslikLbl.clProSettings.FontSize = 12;

MerhabaAltBaslikLbl.clProSettings.TextSettings.HorzAlign = taLeading;

MerhabaAltBaslikLbl.SetclProSettings(MerhabaAltBaslikLbl.clProSettings);

//Tarih Kutusu

TarihPnl = MainForm.AddNewProPanel(MainPnl, 'TarihPnl');

TarihPnl.Align = alNone;

TarihPnl.Width = 140;

TarihPnl.Height = 45;

TarihPnl.Position.X = MainForm.clWidth - TarihPnl.Width - 40;

TarihPnl.Position.Y = 25;

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

TarihPnl.clProSettings.RoundHeight = 15;

TarihPnl.clProSettings.RoundWidth = 15;

TarihPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2E8F0');

TarihPnl.clProSettings.BorderWidth = 1;

TarihPnl.SetclProSettings(TarihPnl.clProSettings);

//Tarih Label

TarihLbl = MainForm.AddNewProLabel(TarihPnl, 'TarihLbl', '11.05.2026');

TarihLbl.Align = alCenter;

TarihLbl.clProSettings.TextSettings.HorzAlign = taCenter;

TarihLbl.clProSettings.TextSettings.VertAlign = taCenter;

TarihLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');

TarihLbl.clProSettings.FontSize = 11;

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

TarihLbl.SetclProSettings(TarihLbl.clProSettings);

//Menu Grid Panel

MenuGridPnl = MainForm.AddNewProPanel(MainPnl, 'MenuGridPnl');

MenuGridPnl.Align = alTop;

MenuGridPnl.Height = 380;

MenuGridPnl.Margins.Top = 10; MenuGridPnl.Margins.Left = 20; MenuGridPnl.Margins.Right = 20;

MenuGridPnl.clProSettings.IsFill = False;

MenuGridPnl.SetclProSettings(MenuGridPnl.clProSettings);

// Finansal Özet

FinansalOzetBtn = MainForm.AddNewProButton(MenuGridPnl, 'FinansalOzetBtn', 'Finansal Özet');

FinansalOzetBtn.Align = alNone;

FinansalOzetBtn.Width = 230;

FinansalOzetBtn.Height = 160;

FinansalOzetBtn.Position.X = 20;

FinansalOzetBtn.Position.Y = 10;

FinansalOzetBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

FinansalOzetBtn.clProSettings.FontSize = 20;

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

FinansalOzetBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

FinansalOzetBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

FinansalOzetBtn.clProSettings.BorderWidth = 1;

FinansalOzetBtn.clProSettings.RoundHeight = 8;

FinansalOzetBtn.clProSettings.RoundWidth = 8;

FinansalOzetBtn.SetclProSettings(FinansalOzetBtn.clProSettings);

// Stratejik Planlama

StarejikPlnBtn = MainForm.AddNewProButton(MenuGridPnl, 'StarejikPlnBtn', 'Stratejik Planlama');

StarejikPlnBtn.Align = alNone;

StarejikPlnBtn.Width = 230;

StarejikPlnBtn.Height = 160;

StarejikPlnBtn.Position.X = 270;

StarejikPlnBtn.Position.Y = 10;

StarejikPlnBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

StarejikPlnBtn.clProSettings.FontSize = 20;

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

StarejikPlnBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

StarejikPlnBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

StarejikPlnBtn.clProSettings.BorderWidth = 1;

StarejikPlnBtn.clProSettings.RoundHeight = 8;

StarejikPlnBtn.clProSettings.RoundWidth = 8;

StarejikPlnBtn.SetclProSettings(StarejikPlnBtn.clProSettings);

// Hammadde ve Üretim

HammaddeVeUretimBtn = MainForm.AddNewProButton(MenuGridPnl, 'HammaddeVeUretimBtn', 'Hammadde & Üretim');

HammaddeVeUretimBtn.Align = alNone;

HammaddeVeUretimBtn.Width = 230;

HammaddeVeUretimBtn.Height = 160;

HammaddeVeUretimBtn.Position.X = 520;

HammaddeVeUretimBtn.Position.Y = 10

HammaddeVeUretimBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

HammaddeVeUretimBtn.clProSettings.FontSize = 20;

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

HammaddeVeUretimBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

HammaddeVeUretimBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

HammaddeVeUretimBtn.clProSettings.BorderWidth = 1;

HammaddeVeUretimBtn.clProSettings.RoundHeight = 8;

HammaddeVeUretimBtn.clProSettings.RoundWidth = 8;

HammaddeVeUretimBtn.SetclProSettings(HammaddeVeUretimBtn.clProSettings);

// İnsan Kaynakları

IkBtn = MainForm.AddNewProButton(MenuGridPnl, 'IkBtn', 'İnsan Kaynakları');

IkBtn.Align = alNone;

IkBtn.Width = 230;

IkBtn.Height = 160;

IkBtn.Position.X = 770;

IkBtn.Position.Y = 10;

IkBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

IkBtn.clProSettings.FontSize = 20;

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

IkBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

IkBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

IkBtn.clProSettings.BorderWidth = 1;

IkBtn.clProSettings.RoundHeight = 8;

IkBtn.clProSettings.RoundWidth = 8;

IkBtn.SetclProSettings(IkBtn.clProSettings);

// Stok Durumu

StokBtn = MainForm.AddNewProButton(MenuGridPnl, 'StokBtn', 'Stok Durumu');

StokBtn.Align = alNone;

StokBtn.Width = 230;

StokBtn.Height = 160;

StokBtn.Position.X = 20;

StokBtn.Position.Y = 190;

StokBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

StokBtn.clProSettings.FontSize = 20;

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

StokBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

StokBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

StokBtn.clProSettings.BorderWidth = 1;

StokBtn.clProSettings.RoundHeight = 8;

StokBtn.clProSettings.RoundWidth = 8;

StokBtn.SetclProSettings(StokBtn.clProSettings);

// Tedarik Zinciri

TedarikBtn = MainForm.AddNewProButton(MenuGridPnl, 'TedarikBtn', 'Tedarik Zinciri');

TedarikBtn.Align = alNone;

TedarikBtn.Width = 230;

TedarikBtn.Height = 160;

TedarikBtn.Position.X = 270;

TedarikBtn.Position.Y = 190;

TedarikBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

TedarikBtn.clProSettings.FontSize = 20;

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

TedarikBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

TedarikBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

TedarikBtn.clProSettings.BorderWidth = 1;

TedarikBtn.clProSettings.RoundHeight = 8;

TedarikBtn.clProSettings.RoundWidth = 8;

TedarikBtn.SetclProSettings(TedarikBtn.clProSettings);

// Performans Analizi

PerformansBtn = MainForm.AddNewProButton(MenuGridPnl, 'PerformansBtn', 'Performans Analizi');

PerformansBtn.Align = alNone;

PerformansBtn.Width = 230;

PerformansBtn.Height = 160;

PerformansBtn.Position.X = 520;

PerformansBtn.Position.Y = 190;

PerformansBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

PerformansBtn.clProSettings.FontSize = 20;

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

PerformansBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

PerformansBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

PerformansBtn.clProSettings.BorderWidth = 1;

PerformansBtn.clProSettings.RoundHeight = 8;

PerformansBtn.clProSettings.RoundWidth = 8;

PerformansBtn.SetclProSettings(PerformansBtn.clProSettings);

// Karbon Ayakizi

KarbonAyakiziBtn = MainForm.AddNewProButton(MenuGridPnl, 'KarbonAyakiziBtn', 'Karbon Ayakizi');

KarbonAyakiziBtn.Align = alNone;

KarbonAyakiziBtn.Width = 230;

KarbonAyakiziBtn.Height = 160;

KarbonAyakiziBtn.Position.X = 770;

KarbonAyakiziBtn.Position.Y = 190;

KarbonAyakiziBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');

KarbonAyakiziBtn.clProSettings.FontSize = 20;

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

KarbonAyakiziBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');

KarbonAyakiziBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660');

KarbonAyakiziBtn.clProSettings.BorderWidth = 1;

KarbonAyakiziBtn.clProSettings.RoundHeight = 8;

KarbonAyakiziBtn.clProSettings.RoundWidth = 8;

KarbonAyakiziBtn.SetclProSettings(KarbonAyakiziBtn.clProSettings);

//Alt Blok Panel

AltBlokPnl = MainForm.AddNewProPanel(MainPnl, 'AltBlokPnl');

AltBlokPnl.Align = alTop;

AltBlokPnl.Height = 400;

AltBlokPnl.Margins.Top = 10; AltBlokPnl.Margins.Left = 20; AltBlokPnl.Margins.Right = 20;

AltBlokPnl.clProSettings.IsFill = False;

AltBlokPnl.SetclProSettings(AltBlokPnl.clProSettings);

//Operasyonel Akış Panel

OperasyonelAkisPnl = MainForm.AddNewProPanel(AltBlokPnl, 'OperasyonelAkisPnl');

OperasyonelAkisPnl.Align = alLeft;

OperasyonelAkisPnl.Width = 750;

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

OperasyonelAkisPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#075660');

OperasyonelAkisPnl.clProSettings.BorderWidth = 1;

OperasyonelAkisPnl.clProSettings.RoundHeight = 8;

OperasyonelAkisPnl.clProSettings.RoundWidth = 8;

OperasyonelAkisPnl.SetclProSettings(OperasyonelAkisPnl.clProSettings);

//Akış Başlık Label

AkisBaslikLbl = MainForm.AddNewProLabel(OperasyonelAkisPnl, 'AkisBaslikLbl', 'Operasyonel Akış');

AkisBaslikLbl.Align = alTop;

AkisBaslikLbl.Margins.Left = 25; AkisBaslikLbl.Margins.Top = 20;

AkisBaslikLbl.Height = 30;

AkisBaslikLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');

AkisBaslikLbl.clProSettings.FontSize = 16;

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

AkisBaslikLbl.SetclProSettings(AkisBaslikLbl.clProSettings);

//Ajanda Panel

AjandaPnl = MainForm.AddNewProPanel(AltBlokPnl, 'AjandaPnl');

AjandaPnl.Align = alRight;

AjandaPnl.Width = 320;

AjandaPnl.Margins.Left = 20;

AjandaPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');

AjandaPnl.clProSettings.RoundHeight = 30; AjandaPnl.clProSettings.RoundWidth = 30;

AjandaPnl.SetclProSettings(AjandaPnl.clProSettings);

//Ajanda Başlık Label

AjandaBaslikLbl = MainForm.AddNewProLabel(AjandaPnl, 'AjandaBaslikLbl', 'Ajanda');

AjandaBaslikLbl.Align = alTop;

AjandaBaslikLbl.Margins.Left = 25; AjandaBaslikLbl.Margins.Top = 20;

AjandaBaslikLbl.Height = 30;

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

AjandaBaslikLbl.clProSettings.FontSize = 16;

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

AjandaBaslikLbl.SetclProSettings(AjandaBaslikLbl.clProSettings);

// Operasyonel Akış Başlığının Altına Satır Ekleme

AkisSatirPnl = MainForm.AddNewProPanel(OperasyonelAkisPnl, 'AkisSatirPnl');

AkisSatirPnl.Align = alTop;

AkisSatirPnl.Height = 60;

AkisSatirPnl.Margins.Top = 10; AkisSatirPnl.Margins.Left = 20; AkisSatirPnl.Margins.Right = 20;

AkisSatirPnl.clProSettings.IsFill = False;

AkisSatirPnl.SetclProSettings(AkisSatirPnl.clProSettings);

// Yanındaki Metin

DetayLbl = MainForm.AddNewProLabel(AkisSatirPnl, 'DetayLbl', 'Furkan Ali EREL: Hammadde sevkiyatı ulaştı.');

DetayLbl.Align = alClient;

DetayLbl.Margins.Left = 15;

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

DetayLbl.clProSettings.FontSize = 11;

DetayLbl.SetclProSettings(DetayLbl.clProSettings);

MainForm.Run;

}

Hocam ne yaptıysam başa çıkamadım yardımcı olabilir misiniz

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" style="display: none !important;">]]> Mon, 11 May 2026 17:54:48 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1514&PID=3485#3485