Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Form Oluşturma > TclForm Oluşturma
  Aktif Konular Aktif Konular RSS - Giris Ekranı Olusturma
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

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.

Giris Ekranı Olusturma
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Berat Deveci Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 55 Dakika Önce
Konum: Konya
Durum: Aktif Değil
Puanlar: 2 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Berat Deveci Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Giris Ekranı Olusturma
    Gönderim Zamanı: 49 Dakika Önce Saat 15:45
Var  
  Form1:TclForm;
  ProPanel1, ProPanel2 : TclProPanel;
  Label1, Label2: TClProLabel;
  
void setLabel;
{
  Label1 = Form1.AddNewProLabel(ProPanel1,'Label1','Clomosy PROLABEL');
  Label1.Align = alCenter;
  Label1.Width = 150;
  Label1.Height = 30;
  Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');
  Label1.clProSettings.FontSize = 12;
  Label1.clProSettings.FontVertAlign = palcenter;
  Label1.clProSettings.FontHorzAlign = palLeading;
  Label1.clProSettings.TextSettings.Font.Style = [fsBold];
  Label1.clProSettings.IsFill = True; 
  Label1.clProSettings.IsRound = True;
  Label1.SetclProSettings(Label1.clProSettings);
}


{
  Form1=TclForm.Create(self);
  ProPanel1=Form1.AddNewProPanel(Form1,'ProPanel1');
  ProPanel1.Align = alTop;
  ProPanel1.Width = 200;
  ProPanel1.Height = 80;
  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);
 
  
  Form1=TclForm.Create(self);
  ProPanel2=Form1.AddNewProPanel(Form1,'ProPanel2');
  ProPanel2.Align = alCenter;
  ProPanel2.Width = 200;
  ProPanel2.Height = 80;
  ProPanel2.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');
  ProPanel2.clProSettings.RoundHeight = 10;
  ProPanel2.clProSettings.RoundWidth = 10;
  ProPanel2.clProSettings.BorderWidth = 2;
  ProPanel2.clProSettings.IsFill = True; 
  ProPanel2.clProSettings.IsRound = True;
  ProPanel2.SetclProSettings(ProPanel2.clProSettings);

  
  
  Label2 = Form1.AddNewProLabel(ProPanel2,'Label2','Kullanıcı Adı Giriniz');
  Label2.Align = alCenter;
  Label2.Width = 150;
  Label2.Height = 30;
  Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');
  Label2.clProSettings.FontSize = 12;
  Label2.clProSettings.FontVertAlign = palcenter;
  Label2.clProSettings.FontHorzAlign = palLeading;
  Label2.clProSettings.TextSettings.Font.Style = [fsBold];
  Label2.clProSettings.IsFill = True; 
  Label2.clProSettings.IsRound = True;
  Label2.SetclProSettings(Label2.clProSettings);
  
  Form1 = TclForm.Create(Self);
  setLabel;
  Form1.Run;
  
}
İKİ farklı panelim var tek forum oluşturdum lakin paneller ve içindeki label mesajları gözükmğyor
https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" 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">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif
Puanlar: 463 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 44 Dakika Önce Saat 15:50
Merhaba Berat, 
Kodunu incelediğim de 
Form1=TclForm.Create(self); 3 farklı yerde create ettiğini gördüm. Anakod'da sadece bir kere create etmen yeterli. 
Kodun düzenli halini aşağı da paylaşıyorum. 

Var  
  Form1:TclForm;
  ProPanel1, ProPanel2 : TclProPanel;
  Label1, Label2: TClProLabel;
  
void setLabel;
{
  Label1 = Form1.AddNewProLabel(ProPanel1,'Label1','Clomosy PROLABEL');
  Label1.Align = alCenter;
  Label1.Width = 150;
  Label1.Height = 30;
  Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');
  Label1.clProSettings.FontSize = 12;
  Label1.clProSettings.FontVertAlign = palcenter;
  Label1.clProSettings.FontHorzAlign = palLeading;
  Label1.clProSettings.TextSettings.Font.Style = [fsBold];
  Label1.clProSettings.IsFill = True; 
  Label1.clProSettings.IsRound = True;
  Label1.SetclProSettings(Label1.clProSettings);
}


{
  Form1=TclForm.Create(self);
  ProPanel1=Form1.AddNewProPanel(Form1,'ProPanel1');
  ProPanel1.Align = alTop;
  ProPanel1.Width = 200;
  ProPanel1.Height = 80;
  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);
 
  
  
  ProPanel2=Form1.AddNewProPanel(Form1,'ProPanel2');
  ProPanel2.Align = alCenter;
  ProPanel2.Width = 200;
  ProPanel2.Height = 80;
  ProPanel2.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');
  ProPanel2.clProSettings.RoundHeight = 10;
  ProPanel2.clProSettings.RoundWidth = 10;
  ProPanel2.clProSettings.BorderWidth = 2;
  ProPanel2.clProSettings.IsFill = True; 
  ProPanel2.clProSettings.IsRound = True;
  ProPanel2.SetclProSettings(ProPanel2.clProSettings);

  
  
  Label2 = Form1.AddNewProLabel(ProPanel2,'Label2','Kullanıcı Adı Giriniz');
  Label2.Align = alCenter;
  Label2.Width = 150;
  Label2.Height = 30;
  Label2.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');
  Label2.clProSettings.FontSize = 12;
  Label2.clProSettings.FontVertAlign = palcenter;
  Label2.clProSettings.FontHorzAlign = palLeading;
  Label2.clProSettings.TextSettings.Font.Style = [fsBold];
  Label2.clProSettings.IsFill = True; 
  Label2.clProSettings.IsRound = True;
  Label2.SetclProSettings(Label2.clProSettings);
  

  setLabel;
  Form1.Run;
  
}

İyi çalışmalar.
https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" 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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,047 Saniyede Yüklendi.