Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Panel gizlendiğinde butonların da gizlenmesi
  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.

Panel gizlendiğinde butonların da gizlenmesi
 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: 2 		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: Panel gizlendiğinde butonların da gizlenmesi
    Gönderim Zamanı: 2 Saat 51 Dakika Önce Saat 19:35
var 
MainForm: TclForm;
PersSwchBtn,MngrSwchBtn : TClProButton;

//Personel 
PersMainPnl: TclProPanel;
PersUserLbl,PersPasswordLbl,PersForgotPassword: TClProLabel;
PersUserEdit,PersPasswordEdit: TclProEdit;
PersLoginBtn,PersRegisterBtn: TClProButton;
PersLoginImg: TCLImage;
PersLogo: TClProImage;

//Yönetici
MngrMainPnl: TclProPanel;
MngrUserLbl,MngrPasswordLbl,MngrForgotPassword: TClProLabel;
MngrUserEdit,MngrPasswordEdit: TclProEdit;
MngrLoginBtn,MngrRegisterBtn: TClProButton;
MngrLoginImg: TCLImage;
MngrLogo: TClProImage;

//Prosödürler

    void managerMainPnlShow;
  {
    MngrMainPnl.Visible = True;
    persMainPnl.Visible = False;
    
    PersSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');
    PersSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');
    PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);
    
    MngrSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');
    MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');
    MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);

  }
  
    void personnelMainPnlShow;
  {
    MngrMainPnl.Visible = False;
    persMainPnl.Visible = True;
    
    MngrSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');
    MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');
    MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings); 
    
    PersSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');
    PersSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');
    PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);
  }
  
    void goToPersAnaSayfa;
  {
    if ((PersUserEdit.text=='1') && (PersPasswordEdit.text=='1'))
    { 
      ShowMessage('Giriş Başarılı! Sayfaya yönlendiriliyorsunuz.');
      Clomosy.RunUnit('PersAnaSayfa');
      MainForm.clHide;
    }
   
    else
    {
      ShowMessage('Bilgileri kontrol ediniz.');
    }
  }
  
  void goToKayitSayfasi;
  {
    Clomosy.RunUnit('kayitSayfasi');
    
  }

{


//AnaForm
  MainForm=TclForm.Create(Self);
  //MainForm.clSetWindowState(fwsMaximized);
  MainForm.BtnFormMenu.Visible = False;
  MainForm.BtnGoBack.Visible = False;
  MainForm.clSetCaption('----- Flodola ----- ');
  MainForm.SetFormColor('#075660','',clGNone);
  
//Personel Switch (Button)
  PersSwchBtn = MainForm.AddNewProButton(MainForm, 'PersSwchBtn', 'Personel');
  PersSwchBtn.align=alNone;
  PersSwchBtn.Position.X =(MainForm.clWidth*30)/100;
  PersSwchBtn.Position.y =(MainForm.clHeight*22.5)/100;
  PersSwchBtn.height = (MainForm.clHeight*10)/100;
  PersSwchBtn.Width = (MainForm.clWidth*20)/100;
  PersSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');
  PersSwchBtn.clProSettings.FontSize = 18;
  PersSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');
  PersSwchBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');
  PersSwchBtn.clProSettings.BorderWidth = 1;
  PersSwchBtn.clProSettings.RoundHeight = 8;
  PersSwchBtn.clProSettings.RoundWidth = 8;
  PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);

//Yönetici Switch (Button)
  MngrSwchBtn = MainForm.AddNewProButton(MainForm, 'MngrSwchBtn', 'Yönetici');
  MngrSwchBtn.align=alNone;
  MngrSwchBtn.Position.X =(MainForm.clWidth*50)/100;
  MngrSwchBtn.Position.y =(MainForm.clHeight*22.5)/100;
  MngrSwchBtn.height = (MainForm.clHeight*10)/100;
  MngrSwchBtn.Width = (MainForm.clWidth*20)/100;
  MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');
  MngrSwchBtn.clProSettings.FontSize = 18; 
  MngrSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');
  MngrSwchBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');
  MngrSwchBtn.clProSettings.BorderWidth = 1;
  MngrSwchBtn.clProSettings.RoundHeight = 8;
  MngrSwchBtn.clProSettings.RoundWidth = 8;
  MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);
  
//Personel Panel
  PersMainPnl= MainForm.AddNewProPanel(MainForm, 'PersMainPnl');
  PersMainPnl.align= alCenter;
  PersMainPnl.Height= (MainForm.clHeight* 70)/100;
  PersMainPnl.Width= (MainForm.clWidth*50)/100;
  PersMainPnl.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#F8FAFC');
  PersMainPnl.clProSettings.BorderColor=clAlphaColor.clHexToColor('#000000');
  PersMainPnl.clProSettings.BorderWidth= 1;
  PersMainPnl.clProSettings.RoundHeight= 35;
  PersMainPnl.clProSettings.RoundWidth= 35;
  PersMainPnl.SetclProSettings(PersMainPnl.clProSettings);
  
//Personel Logo - BİTMEDİ
  /*
  Logo= MainForm.AddNewProImage(PersMainPnl, 'Logo');
  Logo.clProSettings.PictureSource = 'https://clomosy.com/demos/computerNetwork.png';
  Logo.align= alNone;
  Logo.Position.y =(PersMainPnl.Height*10)/100;
  Logo.Position.X =(PersMainPnl.Width*5)/100;
  Logo.Height= (PersMainPnl.Height* 20)/100;
  Logo.Width= (PersMainPnl.Width*90)/100;
  Logo.SetclProSettings(Logo.clProSettings);
  */
  
//Personel Kullanıcı Adı Label
  PersUserLbl=MainForm.AddNewProLabel(PersMainPnl, 'PersUserLbl', 'Kullanıcı Adı');
  PersUserLbl.align =alNone;
  PersUserLbl.Position.X =(PersMainPnl.Width*15)/100;
  PersUserLbl.Position.y =(PersMainPnl.Height*25)/100;
  PersUserLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');
  PersUserLbl.clProSettings.FontSize = 12;
  PersUserLbl.SetclProSettings(PersUserLbl.clProSettings);

//Personel Kullanıcı Adı Edit
  PersUserEdit= MainForm.AddNewProEdit(PersMainPnl,'PersUserEdit', 'Kullanıcı adınızı giriniz ');
  PersUserEdit.align= alNone;
  PersUserEdit.Height= (PersMainPnl.Height*12)/100;
  PersUserEdit.Width= (PersMainPnl.Width*75)/100;
  PersUserEdit.Position.X =(PersMainPnl.Width*15)/100;
  PersUserEdit.Position.y =(PersMainPnl.Height*30)/100;
  PersUserEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');
  PersUserEdit.clProSettings.BorderWidth = 1;
  PersUserEdit.clProSettings.RoundHeight = 8;
  PersUserEdit.clProSettings.RoundWidth = 8;
  PersUserEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');
  PersUserEdit.SetclProSettings(PersUserEdit.clProSettings);

//Personel Şifre Label
  PersPasswordLbl=MainForm.AddNewProLabel(PersMainPnl, 'PersPasswordLbl', 'Şifre');
  PersPasswordLbl.align =alNone;
  PersPasswordLbl.Position.X =(PersMainPnl.Width*15)/100;
  PersPasswordLbl.Position.y =(PersMainPnl.Height*45)/100;
  PersPasswordLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');
  PersPasswordLbl.clProSettings.FontSize = 12;
  PersPasswordLbl.SetclProSettings(PersPasswordLbl.clProSettings);
  
//Personel Şifre Edit
  PersPasswordEdit= MainForm.AddNewProEdit(PersMainPnl,'PersPasswordEdit', 'Şifrenizi giriniz ');
  PersPasswordEdit.align= alNone;
  PersPasswordEdit.Height= (PersMainPnl.Height*12)/100;
  PersPasswordEdit.Width= (PersMainPnl.Width*75)/100;
  PersPasswordEdit.Position.X =(PersMainPnl.Width*15)/100;
  PersPasswordEdit.Position.y =(PersMainPnl.Height*50)/100;
  PersPasswordEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');
  PersPasswordEdit.clProSettings.BorderWidth = 1;
  PersPasswordEdit.clProSettings.RoundHeight = 8;
  PersPasswordEdit.clProSettings.RoundWidth = 8;
  PersPasswordEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');
  PersPasswordEdit.SetclProSettings(PersPasswordEdit.clProSettings);
  
//Personel Şifremi Unuttum Label
  PersForgotPassword=MainForm.AddNewProLabel(PersMainPnl, 'PersForgotPassword', 'Şifremi unuttum?');
  PersForgotPassword.align =alNone;
  PersForgotPassword.Position.X =(PersMainPnl.Width*65)/100;
  PersForgotPassword.Position.Y =(PersMainPnl.Height*65)/100;
  PersForgotPassword.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');
  PersForgotPassword.clProSettings.FontSize = 12;
  PersForgotPassword.SetclProSettings(PersForgotPassword.clProSettings);

//Personel Giriş Butonu
  PersLoginBtn = MainForm.AddNewProButton(PersMainPnl, 'PersLoginBtn', 'Giriş Yap');
  PersLoginBtn.align=alNone;
  PersLoginBtn.Position.X =(PersMainPnl.Width*15)/100;
  PersLoginBtn.Position.y =(PersMainPnl.Height*75)/100;
  PersLoginBtn.height = (PersMainPnl.Height*12)/100;
  PersLoginBtn.Width = (PersMainPnl.Width*75)/100;
  PersLoginBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');
  PersLoginBtn.clProSettings.FontSize = 18;
  PersLoginBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');//clAlphacolor.clRed
  PersLoginBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');
  PersLoginBtn.clProSettings.BorderWidth = 1;
  PersLoginBtn.clProSettings.RoundHeight = 8;
  PersLoginBtn.clProSettings.RoundWidth = 8;
  PersLoginBtn.SetclProSettings(PersLoginBtn.clProSettings);
  
//Personel Giriş Butonu Image
  PersLoginImg =MainForm.AddNewImage(PersLoginBtn,'PersLoginImg');
  MainForm.SetImage(PersLoginImg,'LoginIcon');
  PersLoginImg.align =alNone;
  PersLoginImg.Position.X = (PersLoginBtn.Width*80)/100;
  PersLoginImg.Position.Y = (PersLoginBtn.Height*25)/100;
  PersLoginImg.height = (PersLoginBtn.Height*60)/100;
  PersLoginImg.Width = (PersLoginBtn.Height*60)/100;
  
//Personel Kayıt Ol Butonu
  /*
  PersRegisterBtn = MainForm.AddNewProButton(PersMainPnl, 'PersRegisterBtn', 'Kayıt Ol');
  PersRegisterBtn.align=alNone;
  PersRegisterBtn.Position.X =(PersMainPnl.Width*15)/100;
  PersRegisterBtn.Position.y =(PersMainPnl.Height*50)/100;
  PersRegisterBtn.height = (PersMainPnl.Height*7)/100;
  PersRegisterBtn.Width = (PersMainPnl.Width*30)/100;
  PersRegisterBtn.clProSettings.FontColor = clAlphaColor.clblack;
  PersRegisterBtn.clProSettings.FontSize = 12;
  PersRegisterBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#11ac23');//clAlphacolor.clRed
  PersRegisterBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');
  PersRegisterBtn.clProSettings.BorderWidth = 1;
  PersRegisterBtn.clProSettings.RoundHeight = 8;
  PersRegisterBtn.clProSettings.RoundWidth = 8;
  PersRegisterBtn.SetclProSettings(PersRegisterBtn.clProSettings);
  */
  
//Yönetici Panel
  MngrMainPnl= MainForm.AddNewProPanel(MainForm, 'MngrMainPnl');
  MngrMainPnl.align= alCenter;
  MngrMainPnl.Height= (MainForm.clHeight* 70)/100;
  MngrMainPnl.Width= (MainForm.clWidth*50)/100;
  MngrMainPnl.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#F8FAFC');
  MngrMainPnl.clProSettings.BorderColor=clAlphaColor.clHexToColor('#000000');
  MngrMainPnl.clProSettings.BorderWidth= 1;
  MngrMainPnl.clProSettings.RoundHeight= 35;
  MngrMainPnl.clProSettings.RoundWidth= 35;
  MngrMainPnl.SetclProSettings(MngrMainPnl.clProSettings);

//Yönetici Logo - BİTMEDİ

//Yönetici Kullanıcı Adı Label
  MngrUserLbl=MainForm.AddNewProLabel(MngrMainPnl, 'MngrUserLbl', 'Kullanıcı Adı');
  MngrUserLbl.align =alNone;
  MngrUserLbl.Position.X =(MngrMainPnl.Width*15)/100;
  MngrUserLbl.Position.y =(MngrMainPnl.Height*25)/100;
  MngrUserLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');
  MngrUserLbl.clProSettings.FontSize = 12;
  MngrUserLbl.SetclProSettings(MngrUserLbl.clProSettings);

//Yönetici Kullanıcı Adı Edit
  MngrUserEdit= MainForm.AddNewProEdit(MngrMainPnl,'MngrUserEdit', 'Kullanıcı adınızı giriniz ');
  MngrUserEdit.align= alNone;
  MngrUserEdit.Height= (MngrMainPnl.Height*12)/100;
  MngrUserEdit.Width= (MngrMainPnl.Width*75)/100;
  MngrUserEdit.Position.X =(MngrMainPnl.Width*15)/100;
  MngrUserEdit.Position.y =(MngrMainPnl.Height*30)/100;
  MngrUserEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');
  MngrUserEdit.clProSettings.BorderWidth = 1;
  MngrUserEdit.clProSettings.RoundHeight = 8;
  MngrUserEdit.clProSettings.RoundWidth = 8;
  MngrUserEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');
  MngrUserEdit.SetclProSettings(MngrUserEdit.clProSettings);

//Yönetici Şifre Label
  MngrPasswordLbl=MainForm.AddNewProLabel(MngrMainPnl, 'MngrPasswordLbl', 'Şifre');
  MngrPasswordLbl.align =alNone;
  MngrPasswordLbl.Position.X =(MngrMainPnl.Width*15)/100;
  MngrPasswordLbl.Position.y =(MngrMainPnl.Height*45)/100;
  MngrPasswordLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');
  MngrPasswordLbl.clProSettings.FontSize = 12;
  MngrPasswordLbl.SetclProSettings(MngrPasswordLbl.clProSettings);

//Yönetici Şifre Edit
  MngrPasswordEdit= MainForm.AddNewProEdit(MngrMainPnl,'MngrPasswordEdit', 'Şifrenizi giriniz ');
  MngrPasswordEdit.align= alNone;
  MngrPasswordEdit.Height= (MngrMainPnl.Height*12)/100;
  MngrPasswordEdit.Width= (MngrMainPnl.Width*75)/100;
  MngrPasswordEdit.Position.X =(MngrMainPnl.Width*15)/100;
  MngrPasswordEdit.Position.y =(MngrMainPnl.Height*50)/100;
  MngrPasswordEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');
  MngrPasswordEdit.clProSettings.BorderWidth = 1;
  MngrPasswordEdit.clProSettings.RoundHeight = 8;
  MngrPasswordEdit.clProSettings.RoundWidth = 8;
  MngrPasswordEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');
  MngrPasswordEdit.SetclProSettings(MngrPasswordEdit.clProSettings);

//Yönetici Şifremi Unuttum Label
  MngrForgotPassword=MainForm.AddNewProLabel(MngrMainPnl, 'MngrForgotPassword', 'Şifremi unuttum?');
  MngrForgotPassword.align =alNone;
  MngrForgotPassword.Position.X =(MngrMainPnl.Width*65)/100;
  MngrForgotPassword.Position.y =(MngrMainPnl.Height*65)/100;
  MngrForgotPassword.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');
  MngrForgotPassword.clProSettings.FontSize = 12;
  MngrForgotPassword.SetclProSettings(MngrForgotPassword.clProSettings);

//Yönetici Giriş Butonu
  MngrLoginBtn = MainForm.AddNewProButton(MngrMainPnl, 'MngrLoginBtn', 'Giriş Yap');
  MngrLoginBtn.align=alNone;
  MngrLoginBtn.Position.X =(MngrMainPnl.Width*15)/100;
  MngrLoginBtn.Position.y =(MngrMainPnl.Height*75)/100;
  MngrLoginBtn.height = (MngrMainPnl.Height*12)/100;
  MngrLoginBtn.Width = (MngrMainPnl.Width*75)/100;
  MngrLoginBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');
  MngrLoginBtn.clProSettings.FontSize = 18;
  MngrLoginBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');//clAlphacolor.clRed
  MngrLoginBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');
  MngrLoginBtn.clProSettings.BorderWidth = 1;
  MngrLoginBtn.clProSettings.RoundHeight = 8;
  MngrLoginBtn.clProSettings.RoundWidth = 8;
  MngrLoginBtn.SetclProSettings(MngrLoginBtn.clProSettings);

//Yönetici Giriş Butonu Image
  MngrLoginImg =MainForm.AddNewImage(MngrLoginBtn,'MngrLoginImg');
  MainForm.SetImage(PersLoginImg,'LoginIcon');
  MngrLoginImg.align =alNone;
  MngrLoginImg.Position.X = (MngrLoginBtn.Width*80)/100;
  MngrLoginImg.Position.Y = (MngrLoginBtn.Height*25)/100;
  MngrLoginImg.height = (MngrLoginBtn.Height*60)/100;
  MngrLoginImg.Width = (MngrLoginBtn.Height*60)/100;

//Yönetici Kayıt Ol Butonu 
  /*
  PersRegisterBtn = MainForm.AddNewProButton(PersMainPnl, 'PersRegisterBtn', 'Kayıt Ol');
  PersRegisterBtn.align=alNone;
  PersRegisterBtn.Position.X =(PersMainPnl.Width*15)/100;
  PersRegisterBtn.Position.y =(PersMainPnl.Height*50)/100;
  PersRegisterBtn.height = (PersMainPnl.Height*7)/100;
  PersRegisterBtn.Width = (PersMainPnl.Width*30)/100;
  PersRegisterBtn.clProSettings.FontColor = clAlphaColor.clblack;
  PersRegisterBtn.clProSettings.FontSize = 12;
  PersRegisterBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#11ac23');//clAlphacolor.clRed
  PersRegisterBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');
  PersRegisterBtn.clProSettings.BorderWidth = 1;
  PersRegisterBtn.clProSettings.RoundHeight = 8;
  PersRegisterBtn.clProSettings.RoundWidth = 8;
  PersRegisterBtn.SetclProSettings(PersRegisterBtn.clProSettings);
 */
 
//------------
  MngrMainPnl.Visible = False;
  PersSwchBtn.BringToFront;
  MngrSwchBtn.BringToFront;
 
//Eventler
  MainForm.AddNewEvent(PersLoginBtn,tbeOnClick,'goToPersAnaSayfa');
 //MainForm.AddNewEvent(PersRegisterBtn,tbeOnClick,'goToKayitSayfasi');
  MainForm.AddNewEvent(MngrSwchBtn,tbeOnClick,'managerMainPnlShow');
  MainForm.AddNewEvent(persSwchBtn,tbeOnClick,'personnelMainPnlShow');
  MainForm.Run;

}

Kodlar bu şekilde
PersSwchBtn ve MngrSwchBtn main forma bağlı. Tam ekran veya pencereli kullanım arasında geçiş yaparken butonlar kayıyor panele koyduğumda/bağladığımda panel gizlendiğinde swicth butonlar da gizleniyor. 
Nasıl bir çözüm uygulanabilir?  


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
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif
Puanlar: 817 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 9 Dakika Önce Saat 22:17
Merhabalarhttps://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">
 Karşılaştığın bu kayma sorunu mobil ve masaüstü arayüz tasarımlarında en sık yaşanılan sorunlardan biridir. Tam ekran ile pencereli mod arasında geçiş yaptığında formun boyutlarında da değişme meydana geliyor. butonlar da position.x ve position.y değerleri ilk hesaplandığı yerde alıyor
çözüm için kapsayıcı panel mantığını kullanmak daha sağlıklı olur 
güncellenmiş kodu aşağıya bırakıyorum

var 
  MainForm: TclForm;
  CenterWrapperPnl, SwitchContainerPnl: TclProPanel; 
  PersSwchBtn, MngrSwchBtn : TClProButton;

  PersMainPnl: TclProPanel;
  PersUserLbl, PersPasswordLbl, PersForgotPassword: TClProLabel;
  PersUserEdit, PersPasswordEdit: TclProEdit;
  PersLoginBtn: TClProButton;

  MngrMainPnl: TclProPanel;
  MngrUserLbl, MngrPasswordLbl, MngrForgotPassword: TClProLabel;
  MngrUserEdit, MngrPasswordEdit: TclProEdit;
  MngrLoginBtn: TClProButton;

void managerMainPnlShow;
{
  MngrMainPnl.Visible = True;
  PersMainPnl.Visible = False;
  
  PersSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
  PersSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);
  
  MngrSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');
  MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#F8FAFC');
  MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);
}

void personnelMainPnlShow;
{
  MngrMainPnl.Visible = False;
  PersMainPnl.Visible = True;
  
  MngrSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
  MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings); 
  
  PersSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');
  PersSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#F8FAFC');
  PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);
}

void goToPersAnaSayfa;
{
  if ((PersUserEdit.text == '1') && (PersPasswordEdit.text == '1'))
  { 
    ShowMessage('Giriş Başarılı! Sayfaya yönlendiriliyorsunuz.');
    // Clomosy.RunUnit('PersAnaSayfa');
    // MainForm.clHide;
  }
  else
  {
    ShowMessage('Bilgileri kontrol ediniz.');
  }
}

{
  MainForm = TclForm.Create(Self);
  MainForm.BtnFormMenu.Visible = False;
  MainForm.BtnGoBack.Visible = False;
  MainForm.clSetCaption('----- Flodola -----');
  MainForm.SetFormColor('#075660','',clGNone);
  
  CenterWrapperPnl = MainForm.AddNewProPanel(MainForm, 'CenterWrapperPnl');
  CenterWrapperPnl.Align = alCenter;
  CenterWrapperPnl.Width = 350; 
  CenterWrapperPnl.Height = 450;
  CenterWrapperPnl.clProSettings.IsFill = False; 
  CenterWrapperPnl.SetclProSettings(CenterWrapperPnl.clProSettings);

  SwitchContainerPnl = MainForm.AddNewProPanel(CenterWrapperPnl, 'SwitchContainerPnl');
  SwitchContainerPnl.Align = alTop;
  SwitchContainerPnl.Height = 50;
  SwitchContainerPnl.Margins.Bottom = 15; 
  SwitchContainerPnl.clProSettings.IsFill = False;
  SwitchContainerPnl.SetclProSettings(SwitchContainerPnl.clProSettings);

  PersSwchBtn = MainForm.AddNewProButton(SwitchContainerPnl, 'PersSwchBtn', 'Personel');
  PersSwchBtn.Align = alLeft;
  PersSwchBtn.Width = 170;
  PersSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#F8FAFC');
  PersSwchBtn.clProSettings.FontSize = 16;
  PersSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');
  PersSwchBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');
  PersSwchBtn.clProSettings.BorderWidth = 1;
  PersSwchBtn.clProSettings.RoundHeight = 8;
  PersSwchBtn.clProSettings.RoundWidth = 8;
  PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);

  MngrSwchBtn = MainForm.AddNewProButton(SwitchContainerPnl, 'MngrSwchBtn', 'Yönetici');
  MngrSwchBtn.Align = alClient;
  MngrSwchBtn.Margins.Left = 10; 
  MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  MngrSwchBtn.clProSettings.FontSize = 16; 
  MngrSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
  MngrSwchBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');
  MngrSwchBtn.clProSettings.BorderWidth = 1;
  MngrSwchBtn.clProSettings.RoundHeight = 8;
  MngrSwchBtn.clProSettings.RoundWidth = 8;
  MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);

  PersMainPnl = MainForm.AddNewProPanel(CenterWrapperPnl, 'PersMainPnl');
  PersMainPnl.Align = alClient;
  PersMainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
  PersMainPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');
  PersMainPnl.clProSettings.BorderWidth = 1;
  PersMainPnl.clProSettings.RoundHeight = 20;
  PersMainPnl.clProSettings.RoundWidth = 20;
  PersMainPnl.SetclProSettings(PersMainPnl.clProSettings);

  PersUserLbl = MainForm.AddNewProLabel(PersMainPnl, 'PersUserLbl', 'Kullanıcı Adı');
  PersUserLbl.Align = alTop; PersUserLbl.Height = 25;
  PersUserLbl.Margins.Top = 30; PersUserLbl.Margins.Left = 20;
  PersUserLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  PersUserLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  PersUserLbl.SetclProSettings(PersUserLbl.clProSettings);

  PersUserEdit = MainForm.AddNewProEdit(PersMainPnl,'PersUserEdit', 'Kullanıcı adınızı giriniz');
  PersUserEdit.Align = alTop; PersUserEdit.Height = 45;
  PersUserEdit.Margins.Left = 20; PersUserEdit.Margins.Right = 20;
  PersUserEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8e8e8');
  PersUserEdit.clProSettings.RoundHeight = 8; PersUserEdit.clProSettings.RoundWidth = 8;
  PersUserEdit.SetclProSettings(PersUserEdit.clProSettings);

  PersPasswordLbl = MainForm.AddNewProLabel(PersMainPnl, 'PersPasswordLbl', 'Şifre');
  PersPasswordLbl.Align = alTop; PersPasswordLbl.Height = 25;
  PersPasswordLbl.Margins.Top = 20; PersPasswordLbl.Margins.Left = 20;
  PersPasswordLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  PersPasswordLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  PersPasswordLbl.SetclProSettings(PersPasswordLbl.clProSettings);

  PersPasswordEdit = MainForm.AddNewProEdit(PersMainPnl,'PersPasswordEdit', 'Şifrenizi giriniz');
  PersPasswordEdit.Align = alTop; PersPasswordEdit.Height = 45;
  PersPasswordEdit.Margins.Left = 20; PersPasswordEdit.Margins.Right = 20;
  PersPasswordEdit.Password = True;
  PersPasswordEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8e8e8');
  PersPasswordEdit.clProSettings.RoundHeight = 8; PersPasswordEdit.clProSettings.RoundWidth = 8;
  PersPasswordEdit.SetclProSettings(PersPasswordEdit.clProSettings);

  PersForgotPassword = MainForm.AddNewProLabel(PersMainPnl, 'PersForgotPassword', 'Şifremi unuttum?');
  PersForgotPassword.Align = alTop; PersForgotPassword.Height = 25;
  PersForgotPassword.Margins.Top = 10; PersForgotPassword.Margins.Right = 20;
  PersForgotPassword.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  PersForgotPassword.clProSettings.TextSettings.HorzAlign = taTrailing; 
  PersForgotPassword.SetclProSettings(PersForgotPassword.clProSettings);

  PersLoginBtn = MainForm.AddNewProButton(PersMainPnl, 'PersLoginBtn', 'Giriş Yap');
  PersLoginBtn.Align = alBottom; PersLoginBtn.Height = 55;
  PersLoginBtn.Margins.Bottom = 30; PersLoginBtn.Margins.Left = 20; PersLoginBtn.Margins.Right = 20;
  PersLoginBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');
  PersLoginBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#F8FAFC');
  PersLoginBtn.clProSettings.RoundHeight = 10; PersLoginBtn.clProSettings.RoundWidth = 10;
  PersLoginBtn.SetclProSettings(PersLoginBtn.clProSettings);

  MngrMainPnl = MainForm.AddNewProPanel(CenterWrapperPnl, 'MngrMainPnl');
  MngrMainPnl.Align = alClient; 
  MngrMainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');
  MngrMainPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');
  MngrMainPnl.clProSettings.BorderWidth = 1;
  MngrMainPnl.clProSettings.RoundHeight = 20;
  MngrMainPnl.clProSettings.RoundWidth = 20;
  MngrMainPnl.SetclProSettings(MngrMainPnl.clProSettings);

  MngrUserLbl = MainForm.AddNewProLabel(MngrMainPnl, 'MngrUserLbl', 'Yönetici Adı');
  MngrUserLbl.Align = alTop; MngrUserLbl.Height = 25;
  MngrUserLbl.Margins.Top = 30; MngrUserLbl.Margins.Left = 20;
  MngrUserLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  MngrUserLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  MngrUserLbl.SetclProSettings(MngrUserLbl.clProSettings);

  MngrUserEdit = MainForm.AddNewProEdit(MngrMainPnl,'MngrUserEdit', 'Kullanıcı adınızı giriniz');
  MngrUserEdit.Align = alTop; MngrUserEdit.Height = 45;
  MngrUserEdit.Margins.Left = 20; MngrUserEdit.Margins.Right = 20;
  MngrUserEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8e8e8');
  MngrUserEdit.clProSettings.RoundHeight = 8; MngrUserEdit.clProSettings.RoundWidth = 8;
  MngrUserEdit.SetclProSettings(MngrUserEdit.clProSettings);

  MngrPasswordLbl = MainForm.AddNewProLabel(MngrMainPnl, 'MngrPasswordLbl', 'Şifre');
  MngrPasswordLbl.Align = alTop; MngrPasswordLbl.Height = 25;
  MngrPasswordLbl.Margins.Top = 20; MngrPasswordLbl.Margins.Left = 20;
  MngrPasswordLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  MngrPasswordLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  MngrPasswordLbl.SetclProSettings(MngrPasswordLbl.clProSettings);

  MngrPasswordEdit = MainForm.AddNewProEdit(MngrMainPnl,'MngrPasswordEdit', 'Şifrenizi giriniz');
  MngrPasswordEdit.Align = alTop; MngrPasswordEdit.Height = 45;
  MngrPasswordEdit.Margins.Left = 20; MngrPasswordEdit.Margins.Right = 20;
  MngrPasswordEdit.Password = True;
  MngrPasswordEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8e8e8');
  MngrPasswordEdit.clProSettings.RoundHeight = 8; MngrPasswordEdit.clProSettings.RoundWidth = 8;
  MngrPasswordEdit.SetclProSettings(MngrPasswordEdit.clProSettings);

  MngrForgotPassword = MainForm.AddNewProLabel(MngrMainPnl, 'MngrForgotPassword', 'Şifremi unuttum?');
  MngrForgotPassword.Align = alTop; MngrForgotPassword.Height = 25;
  MngrForgotPassword.Margins.Top = 10; MngrForgotPassword.Margins.Right = 20;
  MngrForgotPassword.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');
  MngrForgotPassword.clProSettings.TextSettings.HorzAlign = taTrailing;
  MngrForgotPassword.SetclProSettings(MngrForgotPassword.clProSettings);

  MngrLoginBtn = MainForm.AddNewProButton(MngrMainPnl, 'MngrLoginBtn', 'Yönetici Girişi');
  MngrLoginBtn.Align = alBottom; MngrLoginBtn.Height = 55;
  MngrLoginBtn.Margins.Bottom = 30; MngrLoginBtn.Margins.Left = 20; MngrLoginBtn.Margins.Right = 20;
  MngrLoginBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');
  MngrLoginBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#F8FAFC');
  MngrLoginBtn.clProSettings.RoundHeight = 10; MngrLoginBtn.clProSettings.RoundWidth = 10;
  MngrLoginBtn.SetclProSettings(MngrLoginBtn.clProSettings);

  MngrMainPnl.Visible = False;

  MainForm.AddNewEvent(PersLoginBtn, tbeOnClick, 'goToPersAnaSayfa');
  MainForm.AddNewEvent(MngrSwchBtn, tbeOnClick, 'managerMainPnlShow');
  MainForm.AddNewEvent(PersSwchBtn, tbeOnClick, 'personnelMainPnlShow');
  
  MainForm.Run;
}

Kodu incelemeni isticem.

iyi akşamlar 
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,031 Saniyede Yüklendi.