Combobox Item Stil değiştirme

[mcuyan]

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..  )

 

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;

[Tuğrul HELVACI]

(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..  )

 

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

[mcuyan]

@Tuğrul HELVACI hocam hiç de kaçırmıyorsunuz )

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ış

[Tuğrul HELVACI]

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

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ış

[mcuyan]

(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..  )

 

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

O zaman düzeltelim

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;