<?xml version="1.0" encoding="iso-8859-9" ?>
<?xml-stylesheet type="text/xsl" href="RSS_xslt_style.asp" version="1.0" ?>
<rss version="2.0" xmlns:WebWizForums="https://syndication.webwiz.net/rss_namespace/">
 <channel>
  <title>Clomosy | Forum : Panel gizlendiğinde butonların da gizlenmesi</title>
  <link>https://forum.clomosy.com.tr/</link>
  <description><![CDATA[XML içerik linki; Clomosy | Forum : Genel &#304;&#351;lemler : Panel gizlendiğinde butonların da gizlenmesi]]></description>
  <copyright>Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved.</copyright>
  <pubDate>Fri, 01 May 2026 22:44:20 +0000</pubDate>
  <lastBuildDate>Fri, 01 May 2026 22:17:30 +0000</lastBuildDate>
  <docs>http://blogs.law.harvard.edu/tech/rss</docs>
  <generator>Web Wiz Forums 12.07</generator>
  <ttl>30</ttl>
  <WebWizForums:feedURL>https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1458</WebWizForums:feedURL>
  <image>
   <title><![CDATA[Clomosy | Forum]]></title>
   <url>https://forum.clomosy.com.tr/forum_images/logo.png</url>
   <link>https://forum.clomosy.com.tr/</link>
  </image>
  <item>
   <title><![CDATA[Panel gizlendiğinde butonların da gizlenmesi : Merhabalarhttps://static.cloud...]]></title>
   <link>https://forum.clomosy.com.tr/forum_posts.asp?TID=1458&amp;PID=3324#3324</link>
   <description>
    <![CDATA[<strong>Yazar:</strong> <a href="https://forum.clomosy.com.tr/member_profile.asp?PF=257">Emr.Erkmn</a><br /><strong>Konu:</strong> 1458<br /><strong>Gönderim Zamanı:</strong> 01&nbsp;Mayıs&nbsp;2026 Saat 22:17<br /><br />Merhabalar<a href="https://static.cloudflareinsights.com/beac&#111;n.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" target="_blank" rel="nofollow">https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516"</a> integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{&quot;version&quot;:&quot;2024.11.0&quot;,&quot;token&quot;:&quot;439455f3e46c40b98dbd42a2f1a954d8&quot;,&quot;r&quot;:1,&quot;server_timing&quot;:{&quot;name&quot;:{&quot;cfCacheStatus&quot;:true,&quot;cfEdge&quot;:true,&quot;cfExtPri&quot;:true,&quot;cfL4&quot;:true,&quot;cfOrigin&quot;:true,&quot;cfSpeedBrain&quot;:true},&quot;location_startswith&quot;:null}}" crossorigin="anonymous"><div>&nbsp;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<br>çözüm için kapsayıcı panel mantığını kullanmak daha sağlıklı olur&nbsp;<br>güncellenmiş kodu aşağıya bırakıyorum<br><br><div>var&nbsp;</div><div>&nbsp; MainForm: TclForm;</div><div>&nbsp; CenterWrapperPnl, SwitchContainerPnl: TclProPanel;&nbsp;</div><div>&nbsp; PersSwchBtn, MngrSwchBtn : TClProButton;</div><div><br></div><div>&nbsp; PersMainPnl: TclProPanel;</div><div>&nbsp; PersUserLbl, PersPasswordLbl, PersForgotPassword: TClProLabel;</div><div>&nbsp; PersUserEdit, PersPasswordEdit: TclProEdit;</div><div>&nbsp; PersLoginBtn: TClProButton;</div><div><br></div><div>&nbsp; MngrMainPnl: TclProPanel;</div><div>&nbsp; MngrUserLbl, MngrPasswordLbl, MngrForgotPassword: TClProLabel;</div><div>&nbsp; MngrUserEdit, MngrPasswordEdit: TclProEdit;</div><div>&nbsp; MngrLoginBtn: TClProButton;</div><div><br></div><div>void managerMainPnlShow;</div><div>{</div><div>&nbsp; MngrMainPnl.Visible = True;</div><div>&nbsp; PersMainPnl.Visible = False;</div><div>&nbsp;&nbsp;</div><div>&nbsp; PersSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; PersSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);</div><div>&nbsp;&nbsp;</div><div>&nbsp; MngrSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);</div><div>}</div><div><br></div><div>void personnelMainPnlShow;</div><div>{</div><div>&nbsp; MngrMainPnl.Visible = False;</div><div>&nbsp; PersMainPnl.Visible = True;</div><div>&nbsp;&nbsp;</div><div>&nbsp; MngrSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);&nbsp;</div><div>&nbsp;&nbsp;</div><div>&nbsp; PersSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; PersSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);</div><div>}</div><div><br></div><div>void goToPersAnaSayfa;</div><div>{</div><div>&nbsp; if ((PersUserEdit.text == '1') &amp;&amp; (PersPasswordEdit.text == '1'))</div><div>&nbsp; {&nbsp;</div><div>&nbsp; &nbsp; ShowMessage('Giriş Başarılı! Sayfaya yönlendiriliyorsunuz.');</div><div>&nbsp; &nbsp; // Clomosy.RunUnit('PersAnaSayfa');</div><div>&nbsp; &nbsp; // MainForm.clHide;</div><div>&nbsp; }</div><div>&nbsp; else</div><div>&nbsp; {</div><div>&nbsp; &nbsp; ShowMessage('Bilgileri kontrol ediniz.');</div><div>&nbsp; }</div><div>}</div><div><br></div><div>{</div><div>&nbsp; MainForm = TclForm.Create(Self);</div><div>&nbsp; MainForm.BtnFormMenu.Visible = False;</div><div>&nbsp; MainForm.BtnGoBack.Visible = False;</div><div>&nbsp; MainForm.clSetCaption('----- Flodola -----');</div><div>&nbsp; MainForm.SetFormColor('#075660','',clGNone);</div><div>&nbsp;&nbsp;</div><div>&nbsp; CenterWrapperPnl = MainForm.AddNewProPanel(MainForm, 'CenterWrapperPnl');</div><div>&nbsp; CenterWrapperPnl.Align = alCenter;</div><div>&nbsp; CenterWrapperPnl.Width = 350;&nbsp;</div><div>&nbsp; CenterWrapperPnl.Height = 450;</div><div>&nbsp; CenterWrapperPnl.clProSettings.IsFill = False;&nbsp;</div><div>&nbsp; CenterWrapperPnl.SetclProSettings(CenterWrapperPnl.clProSettings);</div><div><br></div><div>&nbsp; SwitchContainerPnl = MainForm.AddNewProPanel(CenterWrapperPnl, 'SwitchContainerPnl');</div><div>&nbsp; SwitchContainerPnl.Align = alTop;</div><div>&nbsp; SwitchContainerPnl.Height = 50;</div><div>&nbsp; SwitchContainerPnl.Margins.Bottom = 15;&nbsp;</div><div>&nbsp; SwitchContainerPnl.clProSettings.IsFill = False;</div><div>&nbsp; SwitchContainerPnl.SetclProSettings(SwitchContainerPnl.clProSettings);</div><div><br></div><div>&nbsp; PersSwchBtn = MainForm.AddNewProButton(SwitchContainerPnl, 'PersSwchBtn', 'Personel');</div><div>&nbsp; PersSwchBtn.Align = alLeft;</div><div>&nbsp; PersSwchBtn.Width = 170;</div><div>&nbsp; PersSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; PersSwchBtn.clProSettings.FontSize = 16;</div><div>&nbsp; PersSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; PersSwchBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; PersSwchBtn.clProSettings.BorderWidth = 1;</div><div>&nbsp; PersSwchBtn.clProSettings.RoundHeight = 8;</div><div>&nbsp; PersSwchBtn.clProSettings.RoundWidth = 8;</div><div>&nbsp; PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);</div><div><br></div><div>&nbsp; MngrSwchBtn = MainForm.AddNewProButton(SwitchContainerPnl, 'MngrSwchBtn', 'Yönetici');</div><div>&nbsp; MngrSwchBtn.Align = alClient;</div><div>&nbsp; MngrSwchBtn.Margins.Left = 10;&nbsp;</div><div>&nbsp; MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; MngrSwchBtn.clProSettings.FontSize = 16;&nbsp;</div><div>&nbsp; MngrSwchBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; MngrSwchBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; MngrSwchBtn.clProSettings.BorderWidth = 1;</div><div>&nbsp; MngrSwchBtn.clProSettings.RoundHeight = 8;</div><div>&nbsp; MngrSwchBtn.clProSettings.RoundWidth = 8;</div><div>&nbsp; MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);</div><div><br></div><div>&nbsp; PersMainPnl = MainForm.AddNewProPanel(CenterWrapperPnl, 'PersMainPnl');</div><div>&nbsp; PersMainPnl.Align = alClient;</div><div>&nbsp; PersMainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; PersMainPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; PersMainPnl.clProSettings.BorderWidth = 1;</div><div>&nbsp; PersMainPnl.clProSettings.RoundHeight = 20;</div><div>&nbsp; PersMainPnl.clProSettings.RoundWidth = 20;</div><div>&nbsp; PersMainPnl.SetclProSettings(PersMainPnl.clProSettings);</div><div><br></div><div>&nbsp; PersUserLbl = MainForm.AddNewProLabel(PersMainPnl, 'PersUserLbl', 'Kullanıcı Adı');</div><div>&nbsp; PersUserLbl.Align = alTop; PersUserLbl.Height = 25;</div><div>&nbsp; PersUserLbl.Margins.Top = 30; PersUserLbl.Margins.Left = 20;</div><div>&nbsp; PersUserLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; PersUserLbl.clProSettings.TextSettings.Font.Style = &#091;fsBold&#093;;</div><div>&nbsp; PersUserLbl.SetclProSettings(PersUserLbl.clProSettings);</div><div><br></div><div>&nbsp; PersUserEdit = MainForm.AddNewProEdit(PersMainPnl,'PersUserEdit', 'Kullanıcı adınızı giriniz');</div><div>&nbsp; PersUserEdit.Align = alTop; PersUserEdit.Height = 45;</div><div>&nbsp; PersUserEdit.Margins.Left = 20; PersUserEdit.Margins.Right = 20;</div><div>&nbsp; PersUserEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8e8e8');</div><div>&nbsp; PersUserEdit.clProSettings.RoundHeight = 8; PersUserEdit.clProSettings.RoundWidth = 8;</div><div>&nbsp; PersUserEdit.SetclProSettings(PersUserEdit.clProSettings);</div><div><br></div><div>&nbsp; PersPasswordLbl = MainForm.AddNewProLabel(PersMainPnl, 'PersPasswordLbl', 'Şifre');</div><div>&nbsp; PersPasswordLbl.Align = alTop; PersPasswordLbl.Height = 25;</div><div>&nbsp; PersPasswordLbl.Margins.Top = 20; PersPasswordLbl.Margins.Left = 20;</div><div>&nbsp; PersPasswordLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; PersPasswordLbl.clProSettings.TextSettings.Font.Style = &#091;fsBold&#093;;</div><div>&nbsp; PersPasswordLbl.SetclProSettings(PersPasswordLbl.clProSettings);</div><div><br></div><div>&nbsp; PersPasswordEdit = MainForm.AddNewProEdit(PersMainPnl,'PersPasswordEdit', 'Şifrenizi giriniz');</div><div>&nbsp; PersPasswordEdit.Align = alTop; PersPasswordEdit.Height = 45;</div><div>&nbsp; PersPasswordEdit.Margins.Left = 20; PersPasswordEdit.Margins.Right = 20;</div><div>&nbsp; PersPasswordEdit.Password = True;</div><div>&nbsp; PersPasswordEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8e8e8');</div><div>&nbsp; PersPasswordEdit.clProSettings.RoundHeight = 8; PersPasswordEdit.clProSettings.RoundWidth = 8;</div><div>&nbsp; PersPasswordEdit.SetclProSettings(PersPasswordEdit.clProSettings);</div><div><br></div><div>&nbsp; PersForgotPassword = MainForm.AddNewProLabel(PersMainPnl, 'PersForgotPassword', 'Şifremi unuttum?');</div><div>&nbsp; PersForgotPassword.Align = alTop; PersForgotPassword.Height = 25;</div><div>&nbsp; PersForgotPassword.Margins.Top = 10; PersForgotPassword.Margins.Right = 20;</div><div>&nbsp; PersForgotPassword.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; PersForgotPassword.clProSettings.TextSettings.HorzAlign = taTrailing;&nbsp;</div><div>&nbsp; PersForgotPassword.SetclProSettings(PersForgotPassword.clProSettings);</div><div><br></div><div>&nbsp; PersLoginBtn = MainForm.AddNewProButton(PersMainPnl, 'PersLoginBtn', 'Giriş Yap');</div><div>&nbsp; PersLoginBtn.Align = alBottom; PersLoginBtn.Height = 55;</div><div>&nbsp; PersLoginBtn.Margins.Bottom = 30; PersLoginBtn.Margins.Left = 20; PersLoginBtn.Margins.Right = 20;</div><div>&nbsp; PersLoginBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; PersLoginBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; PersLoginBtn.clProSettings.RoundHeight = 10; PersLoginBtn.clProSettings.RoundWidth = 10;</div><div>&nbsp; PersLoginBtn.SetclProSettings(PersLoginBtn.clProSettings);</div><div><br></div><div>&nbsp; MngrMainPnl = MainForm.AddNewProPanel(CenterWrapperPnl, 'MngrMainPnl');</div><div>&nbsp; MngrMainPnl.Align = alClient;&nbsp;</div><div>&nbsp; MngrMainPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; MngrMainPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; MngrMainPnl.clProSettings.BorderWidth = 1;</div><div>&nbsp; MngrMainPnl.clProSettings.RoundHeight = 20;</div><div>&nbsp; MngrMainPnl.clProSettings.RoundWidth = 20;</div><div>&nbsp; MngrMainPnl.SetclProSettings(MngrMainPnl.clProSettings);</div><div><br></div><div>&nbsp; MngrUserLbl = MainForm.AddNewProLabel(MngrMainPnl, 'MngrUserLbl', 'Yönetici Adı');</div><div>&nbsp; MngrUserLbl.Align = alTop; MngrUserLbl.Height = 25;</div><div>&nbsp; MngrUserLbl.Margins.Top = 30; MngrUserLbl.Margins.Left = 20;</div><div>&nbsp; MngrUserLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; MngrUserLbl.clProSettings.TextSettings.Font.Style = &#091;fsBold&#093;;</div><div>&nbsp; MngrUserLbl.SetclProSettings(MngrUserLbl.clProSettings);</div><div><br></div><div>&nbsp; MngrUserEdit = MainForm.AddNewProEdit(MngrMainPnl,'MngrUserEdit', 'Kullanıcı adınızı giriniz');</div><div>&nbsp; MngrUserEdit.Align = alTop; MngrUserEdit.Height = 45;</div><div>&nbsp; MngrUserEdit.Margins.Left = 20; MngrUserEdit.Margins.Right = 20;</div><div>&nbsp; MngrUserEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8e8e8');</div><div>&nbsp; MngrUserEdit.clProSettings.RoundHeight = 8; MngrUserEdit.clProSettings.RoundWidth = 8;</div><div>&nbsp; MngrUserEdit.SetclProSettings(MngrUserEdit.clProSettings);</div><div><br></div><div>&nbsp; MngrPasswordLbl = MainForm.AddNewProLabel(MngrMainPnl, 'MngrPasswordLbl', 'Şifre');</div><div>&nbsp; MngrPasswordLbl.Align = alTop; MngrPasswordLbl.Height = 25;</div><div>&nbsp; MngrPasswordLbl.Margins.Top = 20; MngrPasswordLbl.Margins.Left = 20;</div><div>&nbsp; MngrPasswordLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; MngrPasswordLbl.clProSettings.TextSettings.Font.Style = &#091;fsBold&#093;;</div><div>&nbsp; MngrPasswordLbl.SetclProSettings(MngrPasswordLbl.clProSettings);</div><div><br></div><div>&nbsp; MngrPasswordEdit = MainForm.AddNewProEdit(MngrMainPnl,'MngrPasswordEdit', 'Şifrenizi giriniz');</div><div>&nbsp; MngrPasswordEdit.Align = alTop; MngrPasswordEdit.Height = 45;</div><div>&nbsp; MngrPasswordEdit.Margins.Left = 20; MngrPasswordEdit.Margins.Right = 20;</div><div>&nbsp; MngrPasswordEdit.Password = True;</div><div>&nbsp; MngrPasswordEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e8e8e8');</div><div>&nbsp; MngrPasswordEdit.clProSettings.RoundHeight = 8; MngrPasswordEdit.clProSettings.RoundWidth = 8;</div><div>&nbsp; MngrPasswordEdit.SetclProSettings(MngrPasswordEdit.clProSettings);</div><div><br></div><div>&nbsp; MngrForgotPassword = MainForm.AddNewProLabel(MngrMainPnl, 'MngrForgotPassword', 'Şifremi unuttum?');</div><div>&nbsp; MngrForgotPassword.Align = alTop; MngrForgotPassword.Height = 25;</div><div>&nbsp; MngrForgotPassword.Margins.Top = 10; MngrForgotPassword.Margins.Right = 20;</div><div>&nbsp; MngrForgotPassword.clProSettings.FontColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; MngrForgotPassword.clProSettings.TextSettings.HorzAlign = taTrailing;</div><div>&nbsp; MngrForgotPassword.SetclProSettings(MngrForgotPassword.clProSettings);</div><div><br></div><div>&nbsp; MngrLoginBtn = MainForm.AddNewProButton(MngrMainPnl, 'MngrLoginBtn', 'Yönetici Girişi');</div><div>&nbsp; MngrLoginBtn.Align = alBottom; MngrLoginBtn.Height = 55;</div><div>&nbsp; MngrLoginBtn.Margins.Bottom = 30; MngrLoginBtn.Margins.Left = 20; MngrLoginBtn.Margins.Right = 20;</div><div>&nbsp; MngrLoginBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#075660');</div><div>&nbsp; MngrLoginBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; MngrLoginBtn.clProSettings.RoundHeight = 10; MngrLoginBtn.clProSettings.RoundWidth = 10;</div><div>&nbsp; MngrLoginBtn.SetclProSettings(MngrLoginBtn.clProSettings);</div><div><br></div><div>&nbsp; MngrMainPnl.Visible = False;</div><div><br></div><div>&nbsp; MainForm.AddNewEvent(PersLoginBtn, tbeOnClick, 'goToPersAnaSayfa');</div><div>&nbsp; MainForm.AddNewEvent(MngrSwchBtn, tbeOnClick, 'managerMainPnlShow');</div><div>&nbsp; MainForm.AddNewEvent(PersSwchBtn, tbeOnClick, 'personnelMainPnlShow');</div><div>&nbsp;&nbsp;</div><div>&nbsp; MainForm.Run;</div><div>}<br><br>Kodu incelemeni isticem.<br><br>iyi akşamlar&nbsp;</div><br></div>]]>
   </description>
   <pubDate>Fri, 01 May 2026 22:17:30 +0000</pubDate>
   <guid isPermaLink="true">https://forum.clomosy.com.tr/forum_posts.asp?TID=1458&amp;PID=3324#3324</guid>
  </item> 
  <item>
   <title><![CDATA[Panel gizlendiğinde butonların da gizlenmesi : varMainForm: TclForm;PersSwchBtn,MngrSwchBtn...]]></title>
   <link>https://forum.clomosy.com.tr/forum_posts.asp?TID=1458&amp;PID=3323#3323</link>
   <description>
    <![CDATA[<strong>Yazar:</strong> <a href="https://forum.clomosy.com.tr/member_profile.asp?PF=397">Zitdoyz</a><br /><strong>Konu:</strong> 1458<br /><strong>Gönderim Zamanı:</strong> 01&nbsp;Mayıs&nbsp;2026 Saat 19:35<br /><br /><div>var&nbsp;</div><div>MainForm: TclForm;</div><div>PersSwchBtn,MngrSwchBtn : TClProButton;</div><div><br></div><div>//Personel&nbsp;</div><div>PersMainPnl: TclProPanel;</div><div>PersUserLbl,PersPasswordLbl,PersForgotPassword: TClProLabel;</div><div>PersUserEdit,PersPasswordEdit: TclProEdit;</div><div>PersLoginBtn,PersRegisterBtn: TClProButton;</div><div>PersLoginImg: TCLImage;</div><div>PersLogo: TClProImage;</div><div><br></div><div>//Yönetici</div><div>MngrMainPnl: TclProPanel;</div><div>MngrUserLbl,MngrPasswordLbl,MngrForgotPassword: TClProLabel;</div><div>MngrUserEdit,MngrPasswordEdit: TclProEdit;</div><div>MngrLoginBtn,MngrRegisterBtn: TClProButton;</div><div>MngrLoginImg: TCLImage;</div><div>MngrLogo: TClProImage;</div><div><br></div><div>//Prosödürler</div><div><br></div><div>&nbsp; &nbsp; void managerMainPnlShow;</div><div>&nbsp; {</div><div>&nbsp; &nbsp; MngrMainPnl.Visible = True;</div><div>&nbsp; &nbsp; persMainPnl.Visible = False;</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; &nbsp; PersSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');</div><div>&nbsp; &nbsp; PersSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');</div><div>&nbsp; &nbsp; PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; &nbsp; MngrSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');</div><div>&nbsp; &nbsp; MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');</div><div>&nbsp; &nbsp; MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);</div><div><br></div><div>&nbsp; }</div><div>&nbsp;&nbsp;</div><div>&nbsp; &nbsp; void personnelMainPnlShow;</div><div>&nbsp; {</div><div>&nbsp; &nbsp; MngrMainPnl.Visible = False;</div><div>&nbsp; &nbsp; persMainPnl.Visible = True;</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; &nbsp; MngrSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');</div><div>&nbsp; &nbsp; MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');</div><div>&nbsp; &nbsp; MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);&nbsp;</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; &nbsp; PersSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');</div><div>&nbsp; &nbsp; PersSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');</div><div>&nbsp; &nbsp; PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);</div><div>&nbsp; }</div><div>&nbsp;&nbsp;</div><div>&nbsp; &nbsp; void goToPersAnaSayfa;</div><div>&nbsp; {</div><div>&nbsp; &nbsp; if ((PersUserEdit.text=='1') &amp;&amp; (PersPasswordEdit.text=='1'))</div><div>&nbsp; &nbsp; {&nbsp;</div><div>&nbsp; &nbsp; &nbsp; ShowMessage('Giriş Başarılı! Sayfaya yönlendiriliyorsunuz.');</div><div>&nbsp; &nbsp; &nbsp; Clomosy.RunUnit('PersAnaSayfa');</div><div>&nbsp; &nbsp; &nbsp; MainForm.clHide;</div><div>&nbsp; &nbsp; }</div><div>&nbsp; &nbsp;</div><div>&nbsp; &nbsp; else</div><div>&nbsp; &nbsp; {</div><div>&nbsp; &nbsp; &nbsp; ShowMessage('Bilgileri kontrol ediniz.');</div><div>&nbsp; &nbsp; }</div><div>&nbsp; }</div><div>&nbsp;&nbsp;</div><div>&nbsp; void goToKayitSayfasi;</div><div>&nbsp; {</div><div>&nbsp; &nbsp; Clomosy.RunUnit('kayitSayfasi');</div><div>&nbsp; &nbsp;&nbsp;</div><div>&nbsp; }</div><div><br></div><div>{</div><div><br></div><div><br></div><div>//AnaForm</div><div>&nbsp; MainForm=TclForm.Create(Self);</div><div>&nbsp; //MainForm.clSetWindowState(fwsMaximized);</div><div>&nbsp; MainForm.BtnFormMenu.Visible = False;</div><div>&nbsp; MainForm.BtnGoBack.Visible = False;</div><div>&nbsp; MainForm.clSetCaption('----- Flodola ----- ');</div><div>&nbsp; MainForm.SetFormColor('#075660','',clGNone);</div><div>&nbsp;&nbsp;</div><div>//Personel Switch (Button)</div><div>&nbsp; PersSwchBtn = MainForm.AddNewProButton(MainForm, 'PersSwchBtn', 'Personel');</div><div>&nbsp; PersSwchBtn.align=alNone;</div><div>&nbsp; PersSwchBtn.Position.X =(MainForm.clWidth*30)/100;</div><div>&nbsp; PersSwchBtn.Position.y =(MainForm.clHeight*22.5)/100;</div><div>&nbsp; PersSwchBtn.height = (MainForm.clHeight*10)/100;</div><div>&nbsp; PersSwchBtn.Width = (MainForm.clWidth*20)/100;</div><div>&nbsp; PersSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');</div><div>&nbsp; PersSwchBtn.clProSettings.FontSize = 18;</div><div>&nbsp; PersSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');</div><div>&nbsp; PersSwchBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');</div><div>&nbsp; PersSwchBtn.clProSettings.BorderWidth = 1;</div><div>&nbsp; PersSwchBtn.clProSettings.RoundHeight = 8;</div><div>&nbsp; PersSwchBtn.clProSettings.RoundWidth = 8;</div><div>&nbsp; PersSwchBtn.SetclProSettings(PersSwchBtn.clProSettings);</div><div><br></div><div>//Yönetici Switch (Button)</div><div>&nbsp; MngrSwchBtn = MainForm.AddNewProButton(MainForm, 'MngrSwchBtn', 'Yönetici');</div><div>&nbsp; MngrSwchBtn.align=alNone;</div><div>&nbsp; MngrSwchBtn.Position.X =(MainForm.clWidth*50)/100;</div><div>&nbsp; MngrSwchBtn.Position.y =(MainForm.clHeight*22.5)/100;</div><div>&nbsp; MngrSwchBtn.height = (MainForm.clHeight*10)/100;</div><div>&nbsp; MngrSwchBtn.Width = (MainForm.clWidth*20)/100;</div><div>&nbsp; MngrSwchBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');</div><div>&nbsp; MngrSwchBtn.clProSettings.FontSize = 18;&nbsp;</div><div>&nbsp; MngrSwchBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#F8FAFC');</div><div>&nbsp; MngrSwchBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');</div><div>&nbsp; MngrSwchBtn.clProSettings.BorderWidth = 1;</div><div>&nbsp; MngrSwchBtn.clProSettings.RoundHeight = 8;</div><div>&nbsp; MngrSwchBtn.clProSettings.RoundWidth = 8;</div><div>&nbsp; MngrSwchBtn.SetclProSettings(MngrSwchBtn.clProSettings);</div><div>&nbsp;&nbsp;</div><div>//Personel Panel</div><div>&nbsp; PersMainPnl= MainForm.AddNewProPanel(MainForm, 'PersMainPnl');</div><div>&nbsp; PersMainPnl.align= alCenter;</div><div>&nbsp; PersMainPnl.Height= (MainForm.clHeight* 70)/100;</div><div>&nbsp; PersMainPnl.Width= (MainForm.clWidth*50)/100;</div><div>&nbsp; PersMainPnl.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; PersMainPnl.clProSettings.BorderColor=clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; PersMainPnl.clProSettings.BorderWidth= 1;</div><div>&nbsp; PersMainPnl.clProSettings.RoundHeight= 35;</div><div>&nbsp; PersMainPnl.clProSettings.RoundWidth= 35;</div><div>&nbsp; PersMainPnl.SetclProSettings(PersMainPnl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>//Personel Logo - BİTMEDİ</div><div>&nbsp; /*</div><div>&nbsp; Logo= MainForm.AddNewProImage(PersMainPnl, 'Logo');</div><div>&nbsp; Logo.clProSettings.PictureSource = '<a href="https://clomosy.com/demos/computerNetwork.png" target="_blank" rel="nofollow">https://clomosy.com/demos/computerNetwork.png</a>';</div><div>&nbsp; Logo.align= alNone;</div><div>&nbsp; Logo.Position.y =(PersMainPnl.Height*10)/100;</div><div>&nbsp; Logo.Position.X =(PersMainPnl.Width*5)/100;</div><div>&nbsp; Logo.Height= (PersMainPnl.Height* 20)/100;</div><div>&nbsp; Logo.Width= (PersMainPnl.Width*90)/100;</div><div>&nbsp; Logo.SetclProSettings(Logo.clProSettings);</div><div>&nbsp; */</div><div>&nbsp;&nbsp;</div><div>//Personel Kullanıcı Adı Label</div><div>&nbsp; PersUserLbl=MainForm.AddNewProLabel(PersMainPnl, 'PersUserLbl', 'Kullanıcı Adı');</div><div>&nbsp; PersUserLbl.align =alNone;</div><div>&nbsp; PersUserLbl.Position.X =(PersMainPnl.Width*15)/100;</div><div>&nbsp; PersUserLbl.Position.y =(PersMainPnl.Height*25)/100;</div><div>&nbsp; PersUserLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');</div><div>&nbsp; PersUserLbl.clProSettings.FontSize = 12;</div><div>&nbsp; PersUserLbl.SetclProSettings(PersUserLbl.clProSettings);</div><div><br></div><div>//Personel Kullanıcı Adı Edit</div><div>&nbsp; PersUserEdit= MainForm.AddNewProEdit(PersMainPnl,'PersUserEdit', 'Kullanıcı adınızı giriniz ');</div><div>&nbsp; PersUserEdit.align= alNone;</div><div>&nbsp; PersUserEdit.Height= (PersMainPnl.Height*12)/100;</div><div>&nbsp; PersUserEdit.Width= (PersMainPnl.Width*75)/100;</div><div>&nbsp; PersUserEdit.Position.X =(PersMainPnl.Width*15)/100;</div><div>&nbsp; PersUserEdit.Position.y =(PersMainPnl.Height*30)/100;</div><div>&nbsp; PersUserEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');</div><div>&nbsp; PersUserEdit.clProSettings.BorderWidth = 1;</div><div>&nbsp; PersUserEdit.clProSettings.RoundHeight = 8;</div><div>&nbsp; PersUserEdit.clProSettings.RoundWidth = 8;</div><div>&nbsp; PersUserEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');</div><div>&nbsp; PersUserEdit.SetclProSettings(PersUserEdit.clProSettings);</div><div><br></div><div>//Personel Şifre Label</div><div>&nbsp; PersPasswordLbl=MainForm.AddNewProLabel(PersMainPnl, 'PersPasswordLbl', 'Şifre');</div><div>&nbsp; PersPasswordLbl.align =alNone;</div><div>&nbsp; PersPasswordLbl.Position.X =(PersMainPnl.Width*15)/100;</div><div>&nbsp; PersPasswordLbl.Position.y =(PersMainPnl.Height*45)/100;</div><div>&nbsp; PersPasswordLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');</div><div>&nbsp; PersPasswordLbl.clProSettings.FontSize = 12;</div><div>&nbsp; PersPasswordLbl.SetclProSettings(PersPasswordLbl.clProSettings);</div><div>&nbsp;&nbsp;</div><div>//Personel Şifre Edit</div><div>&nbsp; PersPasswordEdit= MainForm.AddNewProEdit(PersMainPnl,'PersPasswordEdit', 'Şifrenizi giriniz ');</div><div>&nbsp; PersPasswordEdit.align= alNone;</div><div>&nbsp; PersPasswordEdit.Height= (PersMainPnl.Height*12)/100;</div><div>&nbsp; PersPasswordEdit.Width= (PersMainPnl.Width*75)/100;</div><div>&nbsp; PersPasswordEdit.Position.X =(PersMainPnl.Width*15)/100;</div><div>&nbsp; PersPasswordEdit.Position.y =(PersMainPnl.Height*50)/100;</div><div>&nbsp; PersPasswordEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');</div><div>&nbsp; PersPasswordEdit.clProSettings.BorderWidth = 1;</div><div>&nbsp; PersPasswordEdit.clProSettings.RoundHeight = 8;</div><div>&nbsp; PersPasswordEdit.clProSettings.RoundWidth = 8;</div><div>&nbsp; PersPasswordEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');</div><div>&nbsp; PersPasswordEdit.SetclProSettings(PersPasswordEdit.clProSettings);</div><div>&nbsp;&nbsp;</div><div>//Personel Şifremi Unuttum Label</div><div>&nbsp; PersForgotPassword=MainForm.AddNewProLabel(PersMainPnl, 'PersForgotPassword', 'Şifremi unuttum?');</div><div>&nbsp; PersForgotPassword.align =alNone;</div><div>&nbsp; PersForgotPassword.Position.X =(PersMainPnl.Width*65)/100;</div><div>&nbsp; PersForgotPassword.Position.Y =(PersMainPnl.Height*65)/100;</div><div>&nbsp; PersForgotPassword.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');</div><div>&nbsp; PersForgotPassword.clProSettings.FontSize = 12;</div><div>&nbsp; PersForgotPassword.SetclProSettings(PersForgotPassword.clProSettings);</div><div><br></div><div>//Personel Giriş Butonu</div><div>&nbsp; PersLoginBtn = MainForm.AddNewProButton(PersMainPnl, 'PersLoginBtn', 'Giriş Yap');</div><div>&nbsp; PersLoginBtn.align=alNone;</div><div>&nbsp; PersLoginBtn.Position.X =(PersMainPnl.Width*15)/100;</div><div>&nbsp; PersLoginBtn.Position.y =(PersMainPnl.Height*75)/100;</div><div>&nbsp; PersLoginBtn.height = (PersMainPnl.Height*12)/100;</div><div>&nbsp; PersLoginBtn.Width = (PersMainPnl.Width*75)/100;</div><div>&nbsp; PersLoginBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');</div><div>&nbsp; PersLoginBtn.clProSettings.FontSize = 18;</div><div>&nbsp; PersLoginBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');//clAlphacolor.clRed</div><div>&nbsp; PersLoginBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');</div><div>&nbsp; PersLoginBtn.clProSettings.BorderWidth = 1;</div><div>&nbsp; PersLoginBtn.clProSettings.RoundHeight = 8;</div><div>&nbsp; PersLoginBtn.clProSettings.RoundWidth = 8;</div><div>&nbsp; PersLoginBtn.SetclProSettings(PersLoginBtn.clProSettings);</div><div>&nbsp;&nbsp;</div><div>//Personel Giriş Butonu Image</div><div>&nbsp; PersLoginImg =MainForm.AddNewImage(PersLoginBtn,'PersLoginImg');</div><div>&nbsp; MainForm.SetImage(PersLoginImg,'LoginIcon');</div><div>&nbsp; PersLoginImg.align =alNone;</div><div>&nbsp; PersLoginImg.Position.X = (PersLoginBtn.Width*80)/100;</div><div>&nbsp; PersLoginImg.Position.Y = (PersLoginBtn.Height*25)/100;</div><div>&nbsp; PersLoginImg.height = (PersLoginBtn.Height*60)/100;</div><div>&nbsp; PersLoginImg.Width = (PersLoginBtn.Height*60)/100;</div><div>&nbsp;&nbsp;</div><div>//Personel Kayıt Ol Butonu</div><div>&nbsp; /*</div><div>&nbsp; PersRegisterBtn = MainForm.AddNewProButton(PersMainPnl, 'PersRegisterBtn', 'Kayıt Ol');</div><div>&nbsp; PersRegisterBtn.align=alNone;</div><div>&nbsp; PersRegisterBtn.Position.X =(PersMainPnl.Width*15)/100;</div><div>&nbsp; PersRegisterBtn.Position.y =(PersMainPnl.Height*50)/100;</div><div>&nbsp; PersRegisterBtn.height = (PersMainPnl.Height*7)/100;</div><div>&nbsp; PersRegisterBtn.Width = (PersMainPnl.Width*30)/100;</div><div>&nbsp; PersRegisterBtn.clProSettings.FontColor = clAlphaColor.clblack;</div><div>&nbsp; PersRegisterBtn.clProSettings.FontSize = 12;</div><div>&nbsp; PersRegisterBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#11ac23');//clAlphacolor.clRed</div><div>&nbsp; PersRegisterBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');</div><div>&nbsp; PersRegisterBtn.clProSettings.BorderWidth = 1;</div><div>&nbsp; PersRegisterBtn.clProSettings.RoundHeight = 8;</div><div>&nbsp; PersRegisterBtn.clProSettings.RoundWidth = 8;</div><div>&nbsp; PersRegisterBtn.SetclProSettings(PersRegisterBtn.clProSettings);</div><div>&nbsp; */</div><div>&nbsp;&nbsp;</div><div>//Yönetici Panel</div><div>&nbsp; MngrMainPnl= MainForm.AddNewProPanel(MainForm, 'MngrMainPnl');</div><div>&nbsp; MngrMainPnl.align= alCenter;</div><div>&nbsp; MngrMainPnl.Height= (MainForm.clHeight* 70)/100;</div><div>&nbsp; MngrMainPnl.Width= (MainForm.clWidth*50)/100;</div><div>&nbsp; MngrMainPnl.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#F8FAFC');</div><div>&nbsp; MngrMainPnl.clProSettings.BorderColor=clAlphaColor.clHexToColor('#000000');</div><div>&nbsp; MngrMainPnl.clProSettings.BorderWidth= 1;</div><div>&nbsp; MngrMainPnl.clProSettings.RoundHeight= 35;</div><div>&nbsp; MngrMainPnl.clProSettings.RoundWidth= 35;</div><div>&nbsp; MngrMainPnl.SetclProSettings(MngrMainPnl.clProSettings);</div><div><br></div><div>//Yönetici Logo - BİTMEDİ</div><div><br></div><div>//Yönetici Kullanıcı Adı Label</div><div>&nbsp; MngrUserLbl=MainForm.AddNewProLabel(MngrMainPnl, 'MngrUserLbl', 'Kullanıcı Adı');</div><div>&nbsp; MngrUserLbl.align =alNone;</div><div>&nbsp; MngrUserLbl.Position.X =(MngrMainPnl.Width*15)/100;</div><div>&nbsp; MngrUserLbl.Position.y =(MngrMainPnl.Height*25)/100;</div><div>&nbsp; MngrUserLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');</div><div>&nbsp; MngrUserLbl.clProSettings.FontSize = 12;</div><div>&nbsp; MngrUserLbl.SetclProSettings(MngrUserLbl.clProSettings);</div><div><br></div><div>//Yönetici Kullanıcı Adı Edit</div><div>&nbsp; MngrUserEdit= MainForm.AddNewProEdit(MngrMainPnl,'MngrUserEdit', 'Kullanıcı adınızı giriniz ');</div><div>&nbsp; MngrUserEdit.align= alNone;</div><div>&nbsp; MngrUserEdit.Height= (MngrMainPnl.Height*12)/100;</div><div>&nbsp; MngrUserEdit.Width= (MngrMainPnl.Width*75)/100;</div><div>&nbsp; MngrUserEdit.Position.X =(MngrMainPnl.Width*15)/100;</div><div>&nbsp; MngrUserEdit.Position.y =(MngrMainPnl.Height*30)/100;</div><div>&nbsp; MngrUserEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');</div><div>&nbsp; MngrUserEdit.clProSettings.BorderWidth = 1;</div><div>&nbsp; MngrUserEdit.clProSettings.RoundHeight = 8;</div><div>&nbsp; MngrUserEdit.clProSettings.RoundWidth = 8;</div><div>&nbsp; MngrUserEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');</div><div>&nbsp; MngrUserEdit.SetclProSettings(MngrUserEdit.clProSettings);</div><div><br></div><div>//Yönetici Şifre Label</div><div>&nbsp; MngrPasswordLbl=MainForm.AddNewProLabel(MngrMainPnl, 'MngrPasswordLbl', 'Şifre');</div><div>&nbsp; MngrPasswordLbl.align =alNone;</div><div>&nbsp; MngrPasswordLbl.Position.X =(MngrMainPnl.Width*15)/100;</div><div>&nbsp; MngrPasswordLbl.Position.y =(MngrMainPnl.Height*45)/100;</div><div>&nbsp; MngrPasswordLbl.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');</div><div>&nbsp; MngrPasswordLbl.clProSettings.FontSize = 12;</div><div>&nbsp; MngrPasswordLbl.SetclProSettings(MngrPasswordLbl.clProSettings);</div><div><br></div><div>//Yönetici Şifre Edit</div><div>&nbsp; MngrPasswordEdit= MainForm.AddNewProEdit(MngrMainPnl,'MngrPasswordEdit', 'Şifrenizi giriniz ');</div><div>&nbsp; MngrPasswordEdit.align= alNone;</div><div>&nbsp; MngrPasswordEdit.Height= (MngrMainPnl.Height*12)/100;</div><div>&nbsp; MngrPasswordEdit.Width= (MngrMainPnl.Width*75)/100;</div><div>&nbsp; MngrPasswordEdit.Position.X =(MngrMainPnl.Width*15)/100;</div><div>&nbsp; MngrPasswordEdit.Position.y =(MngrMainPnl.Height*50)/100;</div><div>&nbsp; MngrPasswordEdit.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');</div><div>&nbsp; MngrPasswordEdit.clProSettings.BorderWidth = 1;</div><div>&nbsp; MngrPasswordEdit.clProSettings.RoundHeight = 8;</div><div>&nbsp; MngrPasswordEdit.clProSettings.RoundWidth = 8;</div><div>&nbsp; MngrPasswordEdit.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e8e8e8');</div><div>&nbsp; MngrPasswordEdit.SetclProSettings(MngrPasswordEdit.clProSettings);</div><div><br></div><div>//Yönetici Şifremi Unuttum Label</div><div>&nbsp; MngrForgotPassword=MainForm.AddNewProLabel(MngrMainPnl, 'MngrForgotPassword', 'Şifremi unuttum?');</div><div>&nbsp; MngrForgotPassword.align =alNone;</div><div>&nbsp; MngrForgotPassword.Position.X =(MngrMainPnl.Width*65)/100;</div><div>&nbsp; MngrForgotPassword.Position.y =(MngrMainPnl.Height*65)/100;</div><div>&nbsp; MngrForgotPassword.clProSettings.FontColor = clAlphaColor.clhextocolor('#075660');</div><div>&nbsp; MngrForgotPassword.clProSettings.FontSize = 12;</div><div>&nbsp; MngrForgotPassword.SetclProSettings(MngrForgotPassword.clProSettings);</div><div><br></div><div>//Yönetici Giriş Butonu</div><div>&nbsp; MngrLoginBtn = MainForm.AddNewProButton(MngrMainPnl, 'MngrLoginBtn', 'Giriş Yap');</div><div>&nbsp; MngrLoginBtn.align=alNone;</div><div>&nbsp; MngrLoginBtn.Position.X =(MngrMainPnl.Width*15)/100;</div><div>&nbsp; MngrLoginBtn.Position.y =(MngrMainPnl.Height*75)/100;</div><div>&nbsp; MngrLoginBtn.height = (MngrMainPnl.Height*12)/100;</div><div>&nbsp; MngrLoginBtn.Width = (MngrMainPnl.Width*75)/100;</div><div>&nbsp; MngrLoginBtn.clProSettings.FontColor = clAlphaColor.clhextocolor('#F8FAFC');</div><div>&nbsp; MngrLoginBtn.clProSettings.FontSize = 18;</div><div>&nbsp; MngrLoginBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#075660');//clAlphacolor.clRed</div><div>&nbsp; MngrLoginBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');</div><div>&nbsp; MngrLoginBtn.clProSettings.BorderWidth = 1;</div><div>&nbsp; MngrLoginBtn.clProSettings.RoundHeight = 8;</div><div>&nbsp; MngrLoginBtn.clProSettings.RoundWidth = 8;</div><div>&nbsp; MngrLoginBtn.SetclProSettings(MngrLoginBtn.clProSettings);</div><div><br></div><div>//Yönetici Giriş Butonu Image</div><div>&nbsp; MngrLoginImg =MainForm.AddNewImage(MngrLoginBtn,'MngrLoginImg');</div><div>&nbsp; MainForm.SetImage(PersLoginImg,'LoginIcon');</div><div>&nbsp; MngrLoginImg.align =alNone;</div><div>&nbsp; MngrLoginImg.Position.X = (MngrLoginBtn.Width*80)/100;</div><div>&nbsp; MngrLoginImg.Position.Y = (MngrLoginBtn.Height*25)/100;</div><div>&nbsp; MngrLoginImg.height = (MngrLoginBtn.Height*60)/100;</div><div>&nbsp; MngrLoginImg.Width = (MngrLoginBtn.Height*60)/100;</div><div><br></div><div>//Yönetici Kayıt Ol Butonu&nbsp;</div><div>&nbsp; /*</div><div>&nbsp; PersRegisterBtn = MainForm.AddNewProButton(PersMainPnl, 'PersRegisterBtn', 'Kayıt Ol');</div><div>&nbsp; PersRegisterBtn.align=alNone;</div><div>&nbsp; PersRegisterBtn.Position.X =(PersMainPnl.Width*15)/100;</div><div>&nbsp; PersRegisterBtn.Position.y =(PersMainPnl.Height*50)/100;</div><div>&nbsp; PersRegisterBtn.height = (PersMainPnl.Height*7)/100;</div><div>&nbsp; PersRegisterBtn.Width = (PersMainPnl.Width*30)/100;</div><div>&nbsp; PersRegisterBtn.clProSettings.FontColor = clAlphaColor.clblack;</div><div>&nbsp; PersRegisterBtn.clProSettings.FontSize = 12;</div><div>&nbsp; PersRegisterBtn.clProSettings.Backgroundcolor= clAlphacolor.clhextocolor('#11ac23');//clAlphacolor.clRed</div><div>&nbsp; PersRegisterBtn.clProSettings.Bordercolor= clAlphacolor.clhextocolor('#00000');</div><div>&nbsp; PersRegisterBtn.clProSettings.BorderWidth = 1;</div><div>&nbsp; PersRegisterBtn.clProSettings.RoundHeight = 8;</div><div>&nbsp; PersRegisterBtn.clProSettings.RoundWidth = 8;</div><div>&nbsp; PersRegisterBtn.SetclProSettings(PersRegisterBtn.clProSettings);</div><div>&nbsp;*/</div><div>&nbsp;</div><div>//------------</div><div>&nbsp; MngrMainPnl.Visible = False;</div><div>&nbsp; PersSwchBtn.BringToFront;</div><div>&nbsp; MngrSwchBtn.BringToFront;</div><div>&nbsp;</div><div>//Eventler</div><div>&nbsp; MainForm.AddNewEvent(PersLoginBtn,tbeOnClick,'goToPersAnaSayfa');</div><div>&nbsp;//MainForm.AddNewEvent(PersRegisterBtn,tbeOnClick,'goToKayitSayfasi');</div><div>&nbsp; MainForm.AddNewEvent(MngrSwchBtn,tbeOnClick,'managerMainPnlShow');</div><div>&nbsp; MainForm.AddNewEvent(persSwchBtn,tbeOnClick,'personnelMainPnlShow');</div><div>&nbsp; MainForm.Run;</div><div><br></div><div>}<br><br>Kodlar bu şekilde <br>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.&nbsp;<br>Nasıl bir çözüm uygulanabilir?&nbsp;&nbsp;<br><br><br></div><a href="https://static.cloudflareinsights.com/beac&#111;n.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" target="_blank" rel="nofollow">https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516"</a> integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{&quot;version&quot;:&quot;2024.11.0&quot;,&quot;token&quot;:&quot;439455f3e46c40b98dbd42a2f1a954d8&quot;,&quot;r&quot;:1,&quot;server_timing&quot;:{&quot;name&quot;:{&quot;cfCacheStatus&quot;:true,&quot;cfEdge&quot;:true,&quot;cfExtPri&quot;:true,&quot;cfL4&quot;:true,&quot;cfOrigin&quot;:true,&quot;cfSpeedBrain&quot;:true},&quot;location_startswith&quot;:null}}" crossorigin="anonymous" style="display: none !important;">]]>
   </description>
   <pubDate>Fri, 01 May 2026 19:35:29 +0000</pubDate>
   <guid isPermaLink="true">https://forum.clomosy.com.tr/forum_posts.asp?TID=1458&amp;PID=3323#3323</guid>
  </item> 
 </channel>
</rss>