Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
listbox - font size ?
#1
iyi günler,

listbox bileşeninin yazı büyüklüğünü ayarlama imkanımız yok mu ?

mağlum mobil kısmında eklenen veriler haddiden büyük duruyor da .

tek listbox satırına 5 kelime anca sığıyor benim 7 ya da 10 adet sığdırmam çok iyi olurdu.
Cevapla
#2
procedure TForm1.FormShow(Sender: TObject);
var
 li: TListBoxItem;
 n1: Integer;
begin
 lst1.BeginUpdate;
 try
   for n1 := 0 to lst1.Items.Count-1 do
   begin
     li := lst1.ListItems[n1];
     li.TextSettings.Font.Size := 50;  //font büyüklüğü
     li.Height := li.TextSettings.Font.Size;  //satır büyüklüğü fonk çok büyük olursa yazı satıra tam sığmaz
     li.StyledSettings := [TStyledSetting.Family, TStyledSetting.Style, TStyledSetting.FontColor, TStyledSetting.Other];
   end;
 finally
   lst1.EndUpdate;
 end;
end;
PostgreSQL - Linux - Delphi, Poliüretan
WWW
Cevapla
#3
(12-10-2018, Saat: 11:14)3ddark Adlı Kullanıcıdan Alıntı:
procedure TForm1.FormShow(Sender: TObject);
var
 li: TListBoxItem;
 n1: Integer;
begin
 lst1.BeginUpdate;
 try
   for n1 := 0 to lst1.Items.Count-1 do
   begin
     li := lst1.ListItems[n1];
     li.TextSettings.Font.Size := 50;  //font büyüklüğü
     li.Height := li.TextSettings.Font.Size;  //satır büyüklüğü fonk çok büyük olursa yazı satıra tam sığmaz
     li.StyledSettings := [TStyledSetting.Family, TStyledSetting.Style, TStyledSetting.FontColor, TStyledSetting.Other];
   end;
 finally
   lst1.EndUpdate;
 end;
end;

teşekkürler hocam olumlu sonuç
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Label Font xenginyigit 5 151 18-04-2019, Saat: 22:30
Son Yorum: mcuyan
  Fmx Listbox Click tetikleme hakanharbeli 2 142 17-03-2019, Saat: 21:37
Son Yorum: mcuyan
  listbox - girilen verilere komut atama ? Mr.Developer 4 500 04-10-2018, Saat: 16:57
Son Yorum: Mr.Developer
  Listbox insert YasinDalli 10 1.061 07-09-2018, Saat: 12:01
Son Yorum: YasinDalli
  Combobox ile ilgili font , size ve renk ayarı Bay_Y 3 756 05-07-2018, Saat: 13:12
Son Yorum: Bay_Y



Konuyu Okuyanlar: 1 Ziyaretçi