Sayfayı Yazdır | Pencereyi Kapat

VertScrollBox kullanımı

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1149
Tarih: 30 Temmuz 2025 Saat 15:36
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: VertScrollBox kullanımı
Mesajı Yazan: Aysu Sena Demirel
Konu: VertScrollBox kullanımı
Mesaj Tarihi: 29 Temmuz 2025 Saat 12:47
void OnClick1
  test1 = aForm.AddNewProPanel(aForm,'test1'); 
  test1.Align = alCenter;
  test1.Width = 300;
  test1.Height = 500;
  test1.Margins.Bottom = 200;
  test1.Margins.Top = 500;
  test1.clProSettings.RoundHeight = 10;
  test1.clProSettings.RoundWidth = 10;
  test1.clProSettings.BorderWidth = 2;
  test1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#1976d2');
  test1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  test1.SetclProSettings(test1.clProSettings);

  scroll1 = aForm.AddNewVertScrollBox(test1,'scroll1');
  scroll1.Align = alClient;
  scroll1.Margins.Left = 10;
  scroll1.Margins.Right = 10;
  scroll1.Margins.Top = 10;
  scroll1.Margins.Bottom = 70;

  lbl1= aForm.AddNewLabel(scroll1,'lbl1',
    'JAVA NEDIR?

TEMEL TANIM:
• 1995 yılında Sun Microsystems tarafından geliştirilmiş
• Şu anda Oracle tarafından sürdürülmektedir
• Nesne yönelimli programlama dili
• Platform bağımsız çalışır

DÜNYA ÇAPINDAKİ KULLANIM:
• 60 milyardan fazla Java Virtual Machine çalışmaktadır
• Milyonlarca geliştirici tarafından kullanılır
• Kurumlar için tercih edilen geliştirme platformu
• Dünyanın en popüler modern geliştirme platformu

TEMEL İLKELER:
• "Write Once, Run Anywhere" prensibi
• Yüksek güvenlik ve kararlılık
• Sürekli güncellenen teknoloji
• Güçlü topluluk desteği 

'
  ); 

  lbl1.Margins.Left= 15; 
  lbl1.Margins.Right= 15;  
  lbl1.Margins.Top= 15; 
  lbl1.Margins.Bottom= 15; 
  lbl1.align = alTop; 
  lbl1.AutoSize = true; 
  lbl1.WordWrap = True; 
  lbl1.StyledSettings = ssFamily; 
  lbl1.textSettings.Font.Size = 12; 
  
  close1 = aForm.AddNewProButton(test1, 'close1', 'Kapat'); 
  close1.Align = alBottom;
  close1.Width = 120;
  close1.Height = 50;
  close1.Margins.Bottom = 15;
  close1.Margins.Left = 25;
  close1.Margins.Right = 25;
  close1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1976d2');
  close1.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
  close1.clProSettings.FontHorzAlign = palCenter;
  close1.clProSettings.FontVertAlign = palCenter;
  close1.clProSettings.TextSettings.Font.Style = [fsBold];
  close1.clProSettings.RoundHeight = 15;
  close1.clProSettings.RoundWidth = 15;
  close1.SetclProSettings(close1.clProSettings);

  aForm.AddNewEvent(close1, tbeOnClick, 'ClosePanel1'); 
}    eklemiş olduğum kaydırma çubuğu exe de sorunsuz çalısıyor ancak mobilde sorun çıkartıyor, kaydırma yapılamıyor uygulamaya mobilden giriş yaptığımda sorun nedir yardımcı olur musunuz?



Cevaplar:
Mesajı Yazan: iclal
Mesaj Tarihi: 29 Temmuz 2025 Saat 13:19

test1.Margins.Top = 500;

Bu satırı sildiğimde bende çalışmaya başladı. Diğer kodlar eksik olduğu için, test panelini ekranda tam görebilmek adına bu satırı kaldırmıştım. Tam olarak neden olduğunu bilmiyorum ya da sorun gerçekten bu muydu, emin değilim.

Ancak istersen aşağıdaki gibi bir yapı kullanarak, mobil ve masaüstü ekranlara göre mesafe değerlerini yeniden belirleyebilirsin:

isMobile = Clomosy.PlatformIsMobile;

if (isMobile)

{

    // Mobil cihazlar için ayarlar

}

else

{
    // Masaüstü için ayarlar
}




Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net