Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Metin Gözükmüyor
  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.

Metin Gözükmüyor
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Raziye Nur Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2025
Durum: Aktif Değil
Puanlar: 13 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Raziye Nur Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Metin Gözükmüyor
    Gönderim Zamanı: 9 Saat 10 Dakika Önce Saat 12:43
Merhaba lbl4deki yazdığım metinin tamamı gözükmüyor Autosize ve Wordwrap i denedim ancak Unkown member identifier:'Autosize' hatası aldım
var
  MyForm: TclForm;
  animasyon: TclBitmapListAnimation;
  circle1: TclCircle;
  lbl1,lbl2,animasyonlbl,lbl3,lbl4: TClProLabel;
  ustPanel,altPanel,ortPanel,sonpanel: TClProPanel;
  Btn:TClProButton;
  Image1:TClProImage;
  userName  : String; 
 void btnGirisClick  ;
  { 
  Clomosy.RunUnit('ugiris'); 
}
{
  MyForm = TclForm.Create(self);
  MyForm.SetFormColor('#f5f5f5', '', clGNone);
  MyForm.AddAssetFromUrl('https://resmim.net/cdn/2025/07/16/XfTN5n.png');
  animasyonlbl=MyForm.AddNewProLabel(MyForm,'animasyonlbl','Animasyon birimindesin');
  
  

{
 userName = ' Hoş geldin Raziye';
 Clomosy.GlobalVariableString = userName;
 ShowMessage(Clomosy.GlobalVariableString);
}

  // Üst panel
  ustPanel = MyForm.AddNewProPanel(MyForm, 'ustPanel');
  ustPanel.Align=alTop;
  ustPanel.Height = 80;
  ustPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3F51B5');
  ustPanel.clProSettings.IsRound = True;
  ustPanel.clProSettings.RoundWidth = 10;
  ustPanel.SetclProSettings(ustPanel.clProSettings);
  
  // Başlık etiketi
  lbl1 = MyForm.AddNewProLabel(ustPanel, 'lbl1', 'LABORATUVARA HOŞ GELDİNİZ');
  lbl1.Align = alClient;
  lbl1.clProSettings.FontSize = 25;
  lbl1.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  lbl1.clProSettings.TextSettings.Font.Style = [fsBold];
  lbl1.clProSettings.FontHorzAlign = palCenter;
  lbl1.clProSettings.FontVertAlign = palCenter;
  lbl1.SetclProSettings(lbl1.clProSettings);
  
  // Alt panel
  altPanel = MyForm.AddNewProPanel(MyForm, 'altPanel');
  altPanel.Align = alBottom;
  altPanel.Height = 70;
  altPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3F51B5');
  altPanel.clProSettings.IsRound = True;
  altPanel.clProSettings.RoundWidth = 10;
  altPanel.SetclProSettings(altPanel.clProSettings);
  
  Btn=MyForm.AddNewProButton(altPanel, 'Btn', 'LABORATUVARA GİRİNİZ');
  Btn.Align=alBottom;
  Btn.Height=80;
  Btn.OnClick= 'btnGirisClick';
  Btn.clProSettings.FontColor=clAlphaColor.clHexToColor('#FFFFFF');
  Btn.clProSettings.FontSize=25;
  Btn.clProSettings.TextSettings.Font.Style=[fsBold];
  
  Btn.clProSettings.IsTransparent=True;
  Btn.clProSettings.IsFill=True;
  Btn.clProSettings.IsRound=True;
  Btn.clProSettings.RoundHeight=60;
  Btn.clProSettings.RoundWidth=10;
  Btn.clProSettings.BorderWidth=3;
  Btn.clProSettings.FontHorzAlign=palCenter;
  Btn.SetClProSettings(Btn.clProSettings);
  
  MyForm.AddNewEvent(Btn,tbeOnClick,'girisegit')
  
  ortPanel = MyForm.AddNewProPanel(MyForm, 'ortPanel');
  ortPanel.Align=alNone;
  ortPanel.Position.X=1;
  ortPanel.Position.Y=150;
  ortPanel.Height = 50;
  ortPanel.Width = 400;
  ortPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c1e1ec');
  ortPanel.clProSettings.IsRound = True;
  ortPanel.clProSettings.RoundWidth = 10;
  ortPanel.SetclProSettings(ortPanel.clProSettings);
  
  lbl3 = MyForm.AddNewProLabel(ortPanel, 'lbl3', 'Bilimi keşfetmeye hazır mısın?');
  lbl3.Align = alClient;
  lbl3.clProSettings.FontSize = 25;
  lbl3.clProSettings.FontColor = clAlphaColor.clHexToColor('#ea844d');
  lbl3.clProSettings.TextSettings.Font.Style = [fsItalic];
  lbl3.clProSettings.FontHorzAlign = palCenter;
  lbl3.clProSettings.FontVertAlign = palCenter;
  lbl3.SetclProSettings(lbl3.clProSettings);
  
  sonPanel = MyForm.AddNewProPanel(MyForm, 'sonPanel');
  sonPanel.Align=alNone;
  sonPanel.Position.X=1;
  sonPanel.Position.Y=550;
  sonPanel.Height = 150;
  sonPanel.Width = 400;
  sonPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f2f6f8');
  sonPanel.clProSettings.IsRound = True;
  sonPanel.clProSettings.RoundWidth = 10;
  sonPanel.SetclProSettings(sonPanel.clProSettings);
  
  lbl4 = MyForm.AddNewProLabel(sonPanel, 'lbl4', 'Laboratuvarımızda 6 deney sizi bekliyor! Keşfetmek için laboratuvara girin.');
  lbl4.Align = alClient;
  lbl4.clProSettings.FontSize = 25;
  lbl4.clProSettings.FontColor = clAlphaColor.clHexToColor('#f4b786');
  lbl4.clProSettings.TextSettings.Font.Style = [fsItalic];
  
  
  lbl4.clProSettings.FontHorzAlign = palCenter;
  lbl4.clProSettings.FontVertAlign = palCenter;
  lbl4.SetclProSettings(lbl4.clProSettings);
  
  Image1 =MyForm.AddNewImage(MyForm,'Image1');
  Image1 = MyForm.AddNewImage(sonpanel, 'Img1');
  Image1.Align = alLeft;
  Image1.Width = 115;
  Image1.Height = 100;
  Image1.Position.X = 0;
  Image1.Position.Y =0;
  MyForm.SetImage(Image1, 'https://resmim.net/cdn/2025/07/17/XWBZe6.jpg');
  
  
  // Ana içerik alanı
  circle1 = MyForm.AddNewCircle(MyForm, 'circle1');
  circle1.Align = alClient;
  circle1.Margins.Left = 10;
  circle1.Margins.Right = 10;
  circle1.Margins.Top = 10;
  circle1.Margins.Bottom = 10;
  circle1.Fill.Kind = fbkBitmap;
  circle1.Fill.Bitmap.WrapMode = fbwmTileStretch;
  circle1.Stroke.Thickness = 2;
  
  // Animasyon ayarları
  animasyon = MyForm.AddNewBitMapListAnimation(circle1, 'animasyon');
  animasyon.animationBitMap.LoadFromFile(Clomosy.AppFilesPath + 'XfTN5n.png');
  animasyon.AnimationCount = 40;
  animasyon.animationRowCount = 8;
  animasyon.delay = 0;
  animasyon.duration = 2.90;
  animasyon.AutoReverse = True;
  animasyon.enabled = True;
  animasyon.loop = True;
  
  // Animasyonu başlat
  animasyon.start;
  
  MyForm.Run;
}
Yukarı Dön
haletr Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 16 Haziran 2025
Konum: Konya
Durum: Aktif Değil
Puanlar: 89 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı haletr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 8 Saat 31 Dakika Önce Saat 13:22
Merhaba,

AutoSize kullandığımızda metnin uzunluğuna göre label'ın boyu ayarlanıyor ama alt satıra geçiş olmuyor. Bu yüzden bu durumda WordWrap kullanmanı öneririm. 

AutoSize'a unknown identifier demesinin sebebi belki başına clProSettings yazmamış olman olabilir.

Wordwrap için ise label'a bir Width vermeni öneririm böylece verilen Width'e göre alt satıra geçecektir. Örnek olarak kodunu biraz düzelttim.

  lbl4 = MyForm.AddNewProLabel(sonPanel, 'lbl4', 'Laboratuvarımızda 6 deney sizi bekliyor! Keşfetmek için laboratuvara girin.');
  lbl4.Align = alRight; //Resmin yanına gelmesi için alRight yaptık
  lbl4.Width=400; //Width değeri verdik
  lbl4.clProSettings.WordWrap= True; //Wordwrap true yaptık.
  lbl4.clProSettings.FontSize = 25;
  lbl4.clProSettings.FontColor = clAlphaColor.clHexToColor('#f4b786');
  lbl4.clProSettings.TextSettings.Font.Style = [fsItalic];
  lbl4.clProSettings.FontHorzAlign = palCenter;
  lbl4.clProSettings.FontVertAlign = palCenter;
  lbl4.SetclProSettings(lbl4.clProSettings);

Umarım yardımcı olur. İyi çalışmalar.
Yukarı Dön
Raziye Nur Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2025
Durum: Aktif Değil
Puanlar: 13 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Raziye Nur Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 8 Saat 3 Dakika Önce Saat 13:50
Teşekkür ederim fakat attığınız kodu çalıştırdığımda bu sefer de görsel yazının üstünde kaldı görselin yanına yazı olacak şekilde nasıl ayarlayabilirim?
Yukarı Dön
haletr Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 16 Haziran 2025
Konum: Konya
Durum: Aktif Değil
Puanlar: 89 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı haletr Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 7 Saat 55 Dakika Önce Saat 13:58
  lbl4 = MyForm.AddNewProLabel(sonPanel, 'lbl4', 'Laboratuvarımızda 6 deney sizi bekliyor! Keşfetmek için laboratuvara girin.');
  lbl4.Align = alRight; //Resmin yanına gelmesi için alRight yaptık
  lbl4.Width=300; //Width değeri verdik
  lbl4.clProSettings.WordWrap= True; //Wordwrap true yaptık.
  lbl4.clProSettings.FontSize = 25;
  lbl4.clProSettings.FontColor = clAlphaColor.clHexToColor('#f4b786');
  lbl4.clProSettings.TextSettings.Font.Style = [fsItalic];
  lbl4.clProSettings.FontHorzAlign = palCenter;
  lbl4.clProSettings.FontVertAlign = palCenter;
  lbl4.SetclProSettings(lbl4.clProSettings);  

Bu şekilde dener misin? Label'ın enini küçülttüm.
Yukarı Dön
Raziye Nur Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2025
Durum: Aktif Değil
Puanlar: 13 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı Raziye Nur Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 7 Saat 44 Dakika Önce Saat 14:09
Attığınız kodu metin boyutunu da küçültüp çalıştırınca  görselin yanına sığdı teşekkür ederim.
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,063 Saniyede Yüklendi.