Oranlı Panel Yuvarlama

   A Paneli'nin boyutunu B Paneli'nin boyutuna oranını alabiliyorum. Fakat ben bu oranı yuvarlama (RoundHeight,RoundWidth) ile kullanmak istiyorum. Bunu nasıl yapabilirim?
ÖRNEK KOD BLOĞU:
PanelA.RoundHeight=PanelB.Height*3/100;
PanelA.RoundWidth=PanelB.Width*3/100;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
OmurS Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Haziran 2024 Konum: Konya Durum: Aktif Değil Puanlar: 15	Mesaj Seçenekleri Yanıt Yaz Alıntı OmurS Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Oranlı Panel Yuvarlama Gönderim Zamanı: 12 Temmuz 2024 Saat 11:24
	A Paneli'nin boyutunu B Paneli'nin boyutuna oranını alabiliyorum. Fakat ben bu oranı yuvarlama (RoundHeight,RoundWidth) ile kullanmak istiyorum. Bunu nasıl yapabilirim? ÖRNEK KOD BLOĞU: PanelA.RoundHeight=PanelB.Height3/100; PanelA.RoundWidth=PanelB.Width3/100;

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 12 Temmuz 2024 Saat 11:38
	PanelA.RoundHeight=PanelB.Height0.03; PanelA.RoundWidth=PanelB.Width0.03;

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 12 Temmuz 2024 Saat 15:21
	Merhaba Ömür, Aşağıdaki kodu inceler misin ? var MyForm:TCLForm; proBtn1,proBtn2 : TClProButton; proEdit1 : TclProEdit; proLbl1,proLbl2 : TClProLabel; proPnl1 : TclProPanel; proImg1 : TClProImage; proLV1 : TclProListView; proLVDP1 : TClProListViewDesignerPanel; proDateEdt1 : TClProDateEdit; qry:TCLJSONQUERY; procedure proBtn1OnClick; begin MyForm.CallBarcodeReader(proEdit1); end; procedure onItemClicked; begin ShowMessage('--' +proLV1.clSelectedItemData(clCaption)); end; begin MyForm := TCLForm.Create(Self); proBtn1 := MyForm.AddNewProButton(MyForm,'proBtn1','TEST'); MyForm.AddNewEvent(proBtn1,tbeOnClick,'proBtn1OnClick'); proBtn1.Align := alCenter; proBtn1.Width := 180; proBtn1.Height := 100; proBtn1.clProSettings.FontColor := clAlphaColor.clHexToColor('#ff00ac'); proBtn1.clProSettings.FontSize := 20; proBtn1.clProSettings.FontVertAlign := palcenter;//palLeading , palCenter , palTrailing proBtn1.clProSettings.FontHorzAlign := palcenter; proBtn1.clProSettings.TextSettings.Font.Style := [fsBold,fsItalic,fsUnderline]; proBtn1.clProSettings.BackgroundColor := clAlphaColor.clRed; proBtn1.clProSettings.IsTransparent := False; proBtn1.clProSettings.IsFill := True; proBtn1.clProSettings.IsRound := True; proBtn1.clProSettings.RoundHeight := MyForm.clHeight0.01; proBtn1.clProSettings.RoundWidth := MyForm.clHeight0.01; proBtn1.clProSettings.BorderColor := clAlphaColor.clBlue; proBtn1.clProSettings.BorderWidth := 20; MyForm.Run; end;