Forum Kurallarımız güncellenmiştir. DelphiCan Forum Kuralları (March 04) x

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Combobox Item Stil değiştirme
#1
Merhaba arkadaşlar.
FMX formlarda Combobox yada listbox'ın Item'larını font punto gibi görsel özelliklerini değiştirmek için aşağıdaki kodları kullanabilirsiniz (Tabiiki Stil ile uğraşmak istemiyorsanız.. Smile )

 
var
 j: integer;
 Item: TListBoxItem;

begin

  ComboBox1.BeginUpdate;

  for j := 0 to Combobox1.Count - 1 do
  begin
    Item := TComboBox(FindComponent('Combobox1')).ListItems[j];
    Item.Font.Family := 'Roboto';
    Item.FontColor := TAlphaColorRec.Gray;
    Item.Font.Size := 11;
    Item.StyledSettings := Item.StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.FontColor];
  end;

  ComboBox1.EndUpdate;

// Bilgi paylaştıkça çoğalır.. 

Cevapla
#2
(13-02-2019, Saat: 03:34)mcuyan Adlı Kullanıcıdan Alıntı: Merhaba arkadaşlar.
FMX formlarda Combobox yada listbox'ın Item'larını font punto gibi görsel özelliklerini değiştirmek için aşağıdaki kodları kullanabilirsiniz (Tabiiki Stil ile uğraşmak istemiyorsanız.. Smile )

 
var
 j: integer;
 Item: TListBoxItem;

begin

  ComboBox1.BeginUpdate;

  for j := 0 to Combobox1.Count - 1 do
  begin
    Item := TComboBox(FindComponent('Combobox1')).ListItems[j];
    Item.Font.Family := 'Roboto';
    Item.FontColor := TAlphaColorRec.Gray;
    Item.Font.Size := 11;
    Item.StyledSettings := Item.StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.FontColor];
  end;

  ComboBox1.EndUpdate;


Neden FindComponent Wink
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#3
@Tuğrul HELVACI Smile hocam hiç de kaçırmıyorsunuz Smile)

Ben bir formdaki tüm Comboboxları bir for i döngüsü içine almıştım.. Yani herbiri için ayrı ayrı yazmak yerine bu j döngüsünün dışında bir i döngüm vardı ve componenti bulduruyordum.. bende kodlarımı hazır copy paste yaptım ama orayı değiştirmeyi unutmuşum .. Ama sizden kaçmamış Smile
// Bilgi paylaştıkça çoğalır.. 

Cevapla
#4
(13-02-2019, Saat: 13:39)mcuyan Adlı Kullanıcıdan Alıntı: @Tuğrul HELVACI  Smile hocam hiç de kaçırmıyorsunuz Smile)

Ben bir formdaki tüm Comboboxları bir for i döngüsü içine almıştım.. Yani herbiri için ayrı ayrı yazmak yerine bu j döngüsünün dışında bir i döngüm vardı ve componenti bulduruyordum.. bende kodlarımı hazır copy paste yaptım ama orayı değiştirmeyi unutmuşum .. Ama sizden kaçmamış Smile

Smile
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#5
(13-02-2019, Saat: 08:33)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı:
(13-02-2019, Saat: 03:34)mcuyan Adlı Kullanıcıdan Alıntı: Merhaba arkadaşlar.
FMX formlarda Combobox yada listbox'ın Item'larını font punto gibi görsel özelliklerini değiştirmek için aşağıdaki kodları kullanabilirsiniz (Tabiiki Stil ile uğraşmak istemiyorsanız.. Smile )

 
var
 j: integer;
 Item: TListBoxItem;

begin

  ComboBox1.BeginUpdate;

  for j := 0 to Combobox1.Count - 1 do
  begin
    Item := TComboBox(FindComponent('Combobox1')).ListItems[j];
    Item.Font.Family := 'Roboto';
    Item.FontColor := TAlphaColorRec.Gray;
    Item.Font.Size := 11;
    Item.StyledSettings := Item.StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.FontColor];
  end;

  ComboBox1.EndUpdate;


Neden FindComponent Wink


O zaman düzeltelim Smile

var
 j: integer;
Item: TListBoxItem;

begin

 ComboBox1.BeginUpdate;

 for j := 0 to Combobox1.Count - 1 do
 begin
   Item :=Combobox1.ListItems[j];
   Item.Font.Family := 'Roboto';
   Item.FontColor := TAlphaColorRec.Gray;
   Item.Font.Size := 11;
   Item.StyledSettings := Item.StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.FontColor];
 end;
// Bilgi paylaştıkça çoğalır.. 

Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Listbox item change (Touch) scada 0 125 20-04-2020, Saat: 19:48
Son Yorum: scada
  [ÇÖZÜLDÜ] OrangeUI SkinFMXListView Item Güncelleme Halil Han Badem 1 234 18-04-2020, Saat: 13:32
Son Yorum: Halil Han Badem
  OrangeUI ComboBox hatası Bay_Y 2 497 27-01-2020, Saat: 09:40
Son Yorum: Bay_Y
  OrangeUI Listbox item renk Değiştirme elixir84 3 812 28-11-2019, Saat: 04:03
Son Yorum: egeven
  FMXStyle WedgewoodLight 1.0 Stil Kullanım Örneği Abdullah ILGAZ 0 603 16-02-2019, Saat: 10:02
Son Yorum: Abdullah ILGAZ



Konuyu Okuyanlar: 1 Ziyaretçi