Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Responsive Design
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

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

Responsive Design
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Zitdoyz Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 15 Nisan 2026
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Zitdoyz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Responsive Design
    Gönderim Zamanı: 2 Saat 5 Dakika Önce 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;">
Yukarı Dön
M-Guney Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 16 Eylül 2025
Konum: Konya, Meram, K
Durum: Aktif Değil
Puanlar: 237 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı M-Guney Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 1 saat 29 Dakika Önce 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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

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

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

Bu Sayfa 0,055 Saniyede Yüklendi.