Clomosy | Forum : TCLProPanel resize hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 16:04:19 +0000 Thu, 26 Sep 2024 10:16:38 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=938 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[TCLProPanel resize hatası : Merhaba İlknur,Telefonu çevirdiğin...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=938&PID=1838#1838 Yazar: BilalCndn
Konu: 938
Gönderim Zamanı: 26 Eylül 2024 Saat 10:16

Merhaba İlknur,

Telefonu çevirdiğin zaman
ProPanel1.Height =Bform.clHeight;
ProPanel1.Width =Bform.clWidth;
bu kodu tetikleyen herhangi bir işlem yok. Bir event kullanarak bu kodu tekrar tetikletirsen yeniden boyutlanacaktır. Sürekli olarak ekranın yan dönüp dönmediğini TclTimer ile kontrol edebilirsin.

İyi çalışmalar dilerim.
]]> Thu, 26 Sep 2024 10:16:38 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=938&PID=1838#1838 <![CDATA[TCLProPanel resize hatası : Eğer telefonu dikey olarak tutup...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=938&PID=1837#1837 Yazar: ilknur
Konu: 938
Gönderim Zamanı: 25 Eylül 2024 Saat 11:17

Eğer telefonu dikey olarak tutup Panelin olduğu sayfaya geldikten sonra yatay çevirirsem ProPanel dikey halde kalıyor , eğer yatayda ilgili ekrana gelirsem de tam tersi oluyor . Yani kendini yeniden boyutlandıramıyor . Bunu ne ile sağlayabilirim?
ProPanel1.Height =Bform.clHeight;
ProPanel1.Width =Bform.clWidth;

----------------Tüm Kod--------------------
var 
BForm: TclStyleForm;
btnSaveSupplier:TClProButton;
addName:TclProEdit;
addAddress:TclProEdit;
addContact:TclProEdit;
ProPanel1 : TclProPanel;

void InsertSupplier;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text = '
      INSERT INTO Supplier (name, address, contact) 
      VALUES('+QuotedStr(addName.Text)+', 
      '+QuotedStr(addAddress.Text)+', 
      '+QuotedStr(addContact.Text)+')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    ShowMessage('Adding data to the table was successful!');
    Clomosy.RunUnit('supplierListUnit');
    BForm.clHide;
  except
    ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
  }
  
}
{
  BForm=TclStyleForm.Create(Self);
  ProPanel1=BForm.AddNewProPanel(BForm,'ProPanel1');
  ProPanel1.Height =Bform.clHeight;
  ProPanel1.Width =Bform.clWidth;
  ProPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');
  ProPanel1.clProSettings.RoundHeight = 10;
  ProPanel1.clProSettings.RoundWidth = 10;
  ProPanel1.clProSettings.BorderWidth = 2;
  ProPanel1.clProSettings.IsFill = True; 
  ProPanel1.clProSettings.IsRound = True;
  ProPanel1.SetclProSettings(ProPanel1.clProSettings);
  
  addName=Bform.AddNewProEdit(ProPanel1,'addName', 'Tedarikçi adını giriniz: ');
  addName.Align=alTop;
  addName.margins.Top=Bform.clHeight/10;
  
  addAddress=Bform.AddNewProEdit(ProPanel1,'addAddress', 'Tedarikçi adresini giriniz: ');
  addAddress.Align=alTop;
  addAddress.margins.Top=Bform.clHeight/10;
  
  addContact=Bform.AddNewProEdit(ProPanel1,'addContact', 'Tedarikçi iletişim giriniz: ');
  addContact.Align=alTop;
  addContact.margins.Top=Bform.clHeight/10;
  
  btnSaveSupplier=Bform.AddNewProButton(ProPanel1,'btnSaveSupplier', 'Tedarikçi Kaydet');
  btnSaveSupplier.Align=alBottom;
  btnSaveSupplier.margins.Bottom=(Bform.clHeight/10)*2;

  Bform.AddNewEvent(btnSaveSupplier,tbeOnClick,'InsertSupplier');
  Bform.Run;
  
  
}
--------------------------------
]]> Wed, 25 Sep 2024 11:17:25 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=938&PID=1837#1837