|
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" rel="nofollow - 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">
|