Color

[Orhanlar]

Selam;

Listview de text color rengini kullanıcının tercihine göre atıyorum. 
Listviewde color alanım var. Bu alanı ($8B0000) renk konunu giriyorum. Daha sonra ise ListMainUpdateObjects ile renk seçeneği text rengini güncelliyorum.
Fakat bir türlü yapamadım. Sorun neden kaynaklı olabilir?

procedure TForm1.EkleClick(Sender: TObject);
var
  L: Integer;
  LItem: TListViewItem;
begin
  ListMain.Items.Clear;
  for L := 0 to 30 do
  begin
    LItem := ListMain.Items.Add;
   //
   //
    LItem.Data['Icerikler'] := 'Plistik';
    LItem.Data['Color'] := $8B0000;
  end;
end;

Renk seçeneği algılamıyor:

procedure TForm1.ListMainUpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
var
  Color: Integer;
begin
 Color := AItem.Data['Color'].AsInteger;
  TListItemText(AItem.Objects.FindDrawable('Icerikler')).TextColor := Color;
end;

Sorunsuz:

procedure TForm1.ListMainUpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
begin
  TListItemText(AItem.Objects.FindDrawable('Icerikler')).TextColor := TAlphaColorRec.Red;
end;

[Fesih ARSLAN]

Merhaba,

LItem.Data['Color'] := $8B0000;

Alpha değerinden kaynaklanan bir transparan renk ataması var gibi.
Renk atamasını aşağıdaki formatta yapın ve test edin.

LItem.Data['Color'] := $FFFF0606;

[Orhanlar]

(05-09-2018, Saat: 23:58)codder71 Adlı Kullanıcıdan Alıntı:

(05-09-2018, Saat: 18:38)Orhanlar Adlı Kullanıcıdan Alıntı: Merhaba; 

Uygulamada Jet.style kullanıyorum, Stardart Checkbox height:16, width:16  Checkboxsı özelleştirip height: 24, width:24 yapmak istiyorum bu mümkün olmadı Checkbox height:24, width:24 nasıl yapabilirim?

jet.style dosyasini bir notepadde ac icinde komponenti arattir. Bulduktan sonra alt satirlarinda fixheight diye bir satir olacak onu sil ve kaydet sonra projeye yeniden yukle problem cozulecektir.

not : dosyanin yedegini almayi unutma

(08-09-2018, Saat: 12:32)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Merhaba,

LItem.Data['Color'] := $8B0000;

Alpha değerinden kaynaklanan bir transparan renk ataması var gibi.
Renk atamasını aşağıdaki formatta yapın ve test edin.

LItem.Data['Color'] := $FFFF0606;

Haklıymışsınız, $8B0000 kodunu delphi resmi sayfasından aldım. İlginç bir durum.