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: 7 		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ı: 20 Saat 16 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
Puanlar: 238 		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ı: 19 Saat 40 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
kaanl0 Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Eylül 2025
Konum: konya
Durum: Aktif Değil
Puanlar: 206 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kaanl0 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 4 Saat 44 Dakika Önce Saat 09:26
Birde bu attığımı denermisin ? 
FlowLayout kullandım ayrıca scaledlayout kullandım platformismobile ile mobil mi bilgisayar mı kontrol edip ona göre scaledlayouta değer verdim.

var
  MainForm: TCLForm;
  ScLayout: TclScaledLayout;
  ScrollBox: TclVertScrollBox;
  FlowLayout: TclProFlowLayout;
  FinansalOzetBtn, StarejikPlnBtn, HammaddeVeUretimBtn, IkBtn, StokBtn, TedarikBtn, PerformansBtn, KarbonAyakiziBtn, CikisBtn: TClProButton;
  MainPnl, UstPnl, MerhabaContainerPnl, TarihPnl, AltBlokPnl, OperasyonelAkisPnl, AjandaPnl, AkisSatirPnl: TclProPanel;
  MerhabaLbl, MerhabaAltBaslikLbl, UstFlodolaLbl, UstModulLbl, TarihLbl, AkisBaslikLbl, AjandaBaslikLbl, DetayLbl: TClProLabel;
  TargetW, TargetH: Single;
  BtnW, BtnH, MarginVal: Integer;
  IsMobile: Boolean;

{
  MainForm = TCLForm.Create(Self);
  //MainForm.clSetWindowState(fwsMaximized);
  MainForm.BtnFormMenu.Visible = False;
  MainForm.BtnGoBack.Visible = False;
  MainForm.SetFormColor('#075660','',clGNone);

// 1. DOĞRUDAN PLATFORM KONTROLÜ İLE CİHAZ TESPİTİ
  IsMobile = Clomosy.PlatformIsMobile; 

  if (IsMobile)
  {
    TargetW = 370;
    TargetH = 750;
    
    // Form penceresini mobil ekrana benzetmek için daraltıyoruz
    clRTSetProperty(MainForm, 'ClientWidth', 370);
    clRTSetProperty(MainForm, 'ClientHeight', 750);
  }
  else
  {
    TargetW = 1024;
    TargetH = 768;
    
    // PC için pencereyi genişletiyoruz (İstersen MainForm.clSetWindowState(fwsMaximized) da kullanabilirsin)
    clRTSetProperty(MainForm, 'ClientWidth', 1024);
    clRTSetProperty(MainForm, 'ClientHeight', 768);
  }

  // SCALED LAYOUT OLUŞTURULUYOR
  ScLayout = MainForm.AddNewScaledLayout(MainForm, 'ScLayout');
  ScLayout.Align = alClient;
  ScLayout.OriginalWidth = TargetW;
  ScLayout.OriginalHeight = TargetH;
  
  // ANA PANEL
  MainPnl = MainForm.AddNewProPanel(ScLayout, 'MainPnl');  
  MainPnl.Align = alClient;
  MainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
  MainPnl.SetclProSettings(MainPnl.clProSettings);
  
  // ---------------------------------------------------------
  // ÜST PANEL (%10 Yükseklik)
  UstPnl = MainForm.AddNewProPanel(MainPnl, 'UstPnl');
  UstPnl.Align = alTop;
  UstPnl.Height = (TargetH * 10) / 100;
  UstPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');
  UstPnl.SetclProSettings(UstPnl.clProSettings);
  
  UstFlodolaLbl = MainForm.AddNewProLabel(UstPnl, 'UstFlodolaLbl', 'FLODOLA CEO');
  UstFlodolaLbl.Align = alLeft;
  UstFlodolaLbl.Margins.Left = (TargetW * 3) / 100;
  UstFlodolaLbl.Margins.Top = (TargetH * 2) / 100;
  UstFlodolaLbl.Width = (TargetW * 30) / 100;
  UstFlodolaLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');
  UstFlodolaLbl.clProSettings.FontSize = 20;
  UstFlodolaLbl.clProSettings.TextSettings.Font.Style =[fsBold];
  UstFlodolaLbl.SetclProSettings(UstFlodolaLbl.clProSettings);
  
  CikisBtn = MainForm.AddNewProButton(UstPnl, 'CikisBtn', 'ÇIKIŞ');
  CikisBtn.Align = alRight;
  CikisBtn.Width = (TargetW * 10) / 100;
  CikisBtn.Margins.Right = (TargetW * 3) / 100;
  CikisBtn.Margins.Top = (TargetH * 2) / 100;
  CikisBtn.Margins.Bottom = (TargetH * 2) / 100;
  CikisBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
  CikisBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  CikisBtn.clProSettings.RoundHeight = 8; CikisBtn.clProSettings.RoundWidth = 8;
  CikisBtn.SetclProSettings(CikisBtn.clProSettings);

  // ---------------------------------------------------------
  // 2. KAYDIRILABİLİR ALAN (SCROLLBOX) EKLENİYOR
  ScrollBox = MainForm.AddNewVertScrollBox(MainPnl, 'ScrollBox');
  ScrollBox.Align = alClient;

  // MERHABA PANELİ (ScrollBox İçinde, %12 Yükseklik)
  MerhabaContainerPnl = MainForm.AddNewProPanel(ScrollBox, 'MerhabaContainerPnl');
  MerhabaContainerPnl.Align = alTop;
  MerhabaContainerPnl.Height = (TargetH * 12) / 100;
  MerhabaContainerPnl.Margins.Left = (TargetW * 3) / 100; 
  MerhabaContainerPnl.Margins.Top = (TargetH * 2) / 100;
  MerhabaContainerPnl.clProSettings.IsFill = False; 
  MerhabaContainerPnl.SetclProSettings(MerhabaContainerPnl.clProSettings);
  
  TarihPnl = MainForm.AddNewProPanel(MerhabaContainerPnl, 'TarihPnl');
  TarihPnl.Align = alRight; 
  TarihPnl.Width = (TargetW * 20) / 100; 
  TarihPnl.Margins.Right = (TargetW * 3) / 100;
  TarihPnl.Margins.Bottom = (TargetH * 5) / 100; 
  TarihPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  TarihPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E2E8F0');
  TarihPnl.clProSettings.BorderWidth = 1;
  TarihPnl.clProSettings.RoundHeight = 15; TarihPnl.clProSettings.RoundWidth = 15;
  TarihPnl.SetclProSettings(TarihPnl.clProSettings);
  
  TarihLbl = MainForm.AddNewProLabel(TarihPnl, 'TarihLbl', '11.05.2026');
  TarihLbl.Align = alClient;
  TarihLbl.clProSettings.TextSettings.HorzAlign = taCenter; 
  TarihLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  TarihLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  TarihLbl.SetclProSettings(TarihLbl.clProSettings);
  
  MerhabaLbl = MainForm.AddNewProLabel(MerhabaContainerPnl, 'MerhabaLbl', 'Merhaba, CEO');
  MerhabaLbl.Align = alTop;
  MerhabaLbl.Height = (TargetH * 5) / 100;
  MerhabaLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  MerhabaLbl.clProSettings.FontSize = 24;
  MerhabaLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  MerhabaLbl.SetclProSettings(MerhabaLbl.clProSettings);

  // ---------------------------------------------------------
  // 3. RESPONSIVE BUTON DİZİLİMİ (FLOWLAYOUT)
  FlowLayout = MainForm.AddNewFlowLayout(ScrollBox, 'FlowLayout');
  FlowLayout.Align = alTop;
  FlowLayout.Margins.Left = (TargetW * 3) / 100;
  FlowLayout.Margins.Right = (TargetW * 3) / 100;


  // Cihaza Göre Buton Boyutlarını Yüzdelik Ayarla
  if (IsMobile) {
    FlowLayout.Height = (TargetH * 65) / 100; // Mobilde satırlar uzayacağı için alan büyük
    BtnW = (TargetW * 44) / 100; // Mobilde yan yana 2 buton (%44 genişlik)
    BtnH = (TargetH * 15) / 100;
  } else {
    FlowLayout.Height = (TargetH * 40) / 100; 
    BtnW = (TargetW * 22) / 100; // PC'de yan yana 4 buton (%22 genişlik)
    BtnH = (TargetH * 18) / 100;
  }
  MarginVal = (TargetW * 2) / 100; // Butonlar arası %2 boşluk

  FinansalOzetBtn = MainForm.AddNewProButton(FlowLayout, 'FinansalOzetBtn', 'Finansal Özet');
  FinansalOzetBtn.Width = BtnW; FinansalOzetBtn.Height = BtnH; FinansalOzetBtn.Margins.Right = MarginVal; FinansalOzetBtn.Margins.Bottom = MarginVal;
  FinansalOzetBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660'); FinansalOzetBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660'); FinansalOzetBtn.clProSettings.BorderWidth = 1;
  FinansalOzetBtn.SetclProSettings(FinansalOzetBtn.clProSettings);

  StarejikPlnBtn = MainForm.AddNewProButton(FlowLayout, 'StarejikPlnBtn', 'Stratejik Planlama');
  StarejikPlnBtn.Width = BtnW; StarejikPlnBtn.Height = BtnH; StarejikPlnBtn.Margins.Right = MarginVal; StarejikPlnBtn.Margins.Bottom = MarginVal;
  StarejikPlnBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660'); StarejikPlnBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660'); StarejikPlnBtn.clProSettings.BorderWidth = 1;
  StarejikPlnBtn.SetclProSettings(StarejikPlnBtn.clProSettings);

  HammaddeVeUretimBtn = MainForm.AddNewProButton(FlowLayout, 'HammaddeVeUretimBtn', 'Hammadde & Üretim');
  HammaddeVeUretimBtn.Width = BtnW; HammaddeVeUretimBtn.Height = BtnH; HammaddeVeUretimBtn.Margins.Right = MarginVal; HammaddeVeUretimBtn.Margins.Bottom = MarginVal;
  HammaddeVeUretimBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660'); HammaddeVeUretimBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660'); HammaddeVeUretimBtn.clProSettings.BorderWidth = 1;
  HammaddeVeUretimBtn.SetclProSettings(HammaddeVeUretimBtn.clProSettings);

  IkBtn = MainForm.AddNewProButton(FlowLayout, 'IkBtn', 'İnsan Kaynakları');
  IkBtn.Width = BtnW; IkBtn.Height = BtnH; IkBtn.Margins.Right = MarginVal; IkBtn.Margins.Bottom = MarginVal;
  IkBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660'); IkBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660'); IkBtn.clProSettings.BorderWidth = 1;
  IkBtn.SetclProSettings(IkBtn.clProSettings);

  StokBtn = MainForm.AddNewProButton(FlowLayout, 'StokBtn', 'Stok Durumu');
  StokBtn.Width = BtnW; StokBtn.Height = BtnH; StokBtn.Margins.Right = MarginVal; StokBtn.Margins.Bottom = MarginVal;
  StokBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660'); StokBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660'); StokBtn.clProSettings.BorderWidth = 1;
  StokBtn.SetclProSettings(StokBtn.clProSettings);

  TedarikBtn = MainForm.AddNewProButton(FlowLayout, 'TedarikBtn', 'Tedarik Zinciri');
  TedarikBtn.Width = BtnW; TedarikBtn.Height = BtnH; TedarikBtn.Margins.Right = MarginVal; TedarikBtn.Margins.Bottom = MarginVal;
  TedarikBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660'); TedarikBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660'); TedarikBtn.clProSettings.BorderWidth = 1;
  TedarikBtn.SetclProSettings(TedarikBtn.clProSettings);

  PerformansBtn = MainForm.AddNewProButton(FlowLayout, 'PerformansBtn', 'Performans Analizi');
  PerformansBtn.Width = BtnW; PerformansBtn.Height = BtnH; PerformansBtn.Margins.Right = MarginVal; PerformansBtn.Margins.Bottom = MarginVal;
  PerformansBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660'); PerformansBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660'); PerformansBtn.clProSettings.BorderWidth = 1;
  PerformansBtn.SetclProSettings(PerformansBtn.clProSettings);

  KarbonAyakiziBtn = MainForm.AddNewProButton(FlowLayout, 'KarbonAyakiziBtn', 'Karbon Ayakizi');
  KarbonAyakiziBtn.Width = BtnW; KarbonAyakiziBtn.Height = BtnH; KarbonAyakiziBtn.Margins.Right = MarginVal; KarbonAyakiziBtn.Margins.Bottom = MarginVal;
  KarbonAyakiziBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660'); KarbonAyakiziBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#075660'); KarbonAyakiziBtn.clProSettings.BorderWidth = 1;
  KarbonAyakiziBtn.SetclProSettings(KarbonAyakiziBtn.clProSettings);

  // ---------------------------------------------------------
  // 4. ALT BLOK: OPERASYONEL AKIŞ VE AJANDA
  AltBlokPnl = MainForm.AddNewProPanel(ScrollBox, 'AltBlokPnl');
  AltBlokPnl.Align = alTop;
  AltBlokPnl.Margins.Left = (TargetW * 3) / 100; 
  AltBlokPnl.Margins.Right = (TargetW * 3) / 100;
  AltBlokPnl.Margins.Top = (TargetH * 2) / 100;
  AltBlokPnl.clProSettings.IsFill = False;
  AltBlokPnl.SetclProSettings(AltBlokPnl.clProSettings);

  OperasyonelAkisPnl = MainForm.AddNewProPanel(AltBlokPnl, 'OperasyonelAkisPnl');
  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);

  AkisBaslikLbl = MainForm.AddNewProLabel(OperasyonelAkisPnl, 'AkisBaslikLbl', 'Operasyonel Akış');
  AkisBaslikLbl.Align = alTop;
  AkisBaslikLbl.Margins.Left = (TargetW * 2) / 100; AkisBaslikLbl.Margins.Top = (TargetH * 2) / 100;
  AkisBaslikLbl.Height = (TargetH * 4) / 100;
  AkisBaslikLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  AkisBaslikLbl.clProSettings.FontSize = 16; AkisBaslikLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  AkisBaslikLbl.SetclProSettings(AkisBaslikLbl.clProSettings);
  
  AkisSatirPnl = MainForm.AddNewProPanel(OperasyonelAkisPnl, 'AkisSatirPnl');
  AkisSatirPnl.Align = alTop;
  AkisSatirPnl.Height = (TargetH * 5) / 100;
  AkisSatirPnl.Margins.Top = (TargetH * 1) / 100; AkisSatirPnl.Margins.Left = (TargetW * 2) / 100; AkisSatirPnl.Margins.Right = (TargetW * 2) / 100;
  AkisSatirPnl.clProSettings.IsFill = False;
  AkisSatirPnl.SetclProSettings(AkisSatirPnl.clProSettings);

  DetayLbl = MainForm.AddNewProLabel(AkisSatirPnl, 'DetayLbl', 'Furkan Ali EREL: Hammadde sevkiyatı ulaştı.');
  DetayLbl.Align = alClient;
  DetayLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#475569');
  DetayLbl.clProSettings.FontSize = 14;
  DetayLbl.SetclProSettings(DetayLbl.clProSettings);

  AjandaPnl = MainForm.AddNewProPanel(AltBlokPnl, 'AjandaPnl');
  AjandaPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');
  AjandaPnl.clProSettings.RoundHeight = 15; AjandaPnl.clProSettings.RoundWidth = 15;
  AjandaPnl.SetclProSettings(AjandaPnl.clProSettings);

  AjandaBaslikLbl = MainForm.AddNewProLabel(AjandaPnl, 'AjandaBaslikLbl', 'Ajanda');
  AjandaBaslikLbl.Align = alTop;
  AjandaBaslikLbl.Margins.Left = (TargetW * 2) / 100; AjandaBaslikLbl.Margins.Top = (TargetH * 2) / 100;
  AjandaBaslikLbl.Height = (TargetH * 4) / 100;
  AjandaBaslikLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  AjandaBaslikLbl.clProSettings.FontSize = 16; AjandaBaslikLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  AjandaBaslikLbl.SetclProSettings(AjandaBaslikLbl.clProSettings);

  // YERLEŞİM (Mobil mi, PC mi?)
  if (IsMobile)
  {
    AltBlokPnl.Height = (TargetH * 50) / 100; 

    OperasyonelAkisPnl.Align = alTop;
    OperasyonelAkisPnl.Height = (TargetH * 22) / 100;
     
    AjandaPnl.Align = alTop;
    AjandaPnl.Height = (TargetH * 22) / 100;
    AjandaPnl.Margins.Top = (TargetH * 2) / 100; 
  }
  else
  {
    AltBlokPnl.Height = (TargetH * 35) / 100;

    OperasyonelAkisPnl.Align = alClient; 
     
    AjandaPnl.Align = alRight;
    AjandaPnl.Width = (TargetW * 30) / 100;
    AjandaPnl.Margins.Left = (TargetW * 2) / 100; 
  }

  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,035 Saniyede Yüklendi.