Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Color
#1
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;
Cevapla
#2
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;
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#3
(05-09-2018, Saat: 23:58)codder71 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
(05-09-2018, Saat: 18:38)Orhanlar Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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ı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Color To String İşlemi ? Mr.Developer 13 969 28-08-2019, Saat: 12:05
Son Yorum: Mr.Developer
  Sender color ahmetb 2 274 16-06-2019, Saat: 14:17
Son Yorum: ahmetb
  Color özelliği CesuR 9 815 03-01-2019, Saat: 15:47
Son Yorum: mrmarman
  Dinamik color ahmetb 0 372 30-09-2018, Saat: 13:21
Son Yorum: ahmetb
  Edit ve buton color hido 3 1.245 28-05-2017, Saat: 16:25
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi