![]() |
| 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
|
| Yazar | |
Zitdoyz
Yeni Üye
Kayıt Tarihi: 15 Nisan 2026 Durum: Aktif Değil Puanlar: 2 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Konu: Panel gizlendiğinde butonların da gizlenmesiGönderim Zamanı: 1 saat 60 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; } 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;">
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? |
|
![]() |
|
Yanıt Yaz
|
|
| Tweet |
| Forum Atla | Forum İzinleri ![]() Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |