TListView Nesneleri Biçim, Renk, Grafik

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
RamazanG
Üye
Mesajlar: 73
Kayıt: 16 Tem 2010 02:38

TListView Nesneleri Biçim, Renk, Grafik

Mesaj gönderen RamazanG » 11 Eki 2010 12:47

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.

TListView Nesneleri Biçim, Renk, Grafik
Resim

TListView Delphi kontrolü, Windows Explorer’a benzer şekilde dosyaları ve klasörleri gösterir. Nesneler ve alt nesneler sütun başlıklarıyla beraber sütunlarda gösterilir, yatay ya da dikey, büyük ya da küçük ikonları gösterebilir.

Her Nesneyi Farklı Renklerde Göstermek
OnAdvancedCustomDrawItem olayı her nesneyi farklı biçimlendirebilir, list view’in OwnerDraw özelliği false ise ListView değişiklik yapılmasına izin verir.

OnAdvancedCustomDrawItem aşağıdaki şekilde tanımlanır:

Kod: Tümünü seç

 procedure(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean) of object
ListView AdvancedCustomDrawItem hanle

Kod: Tümünü seç

procedure TMyForm.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
   Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
   var DefaultDraw: Boolean) ;
 var
   year : integer;
   sign : string;
 begin
   year := StrToInt(item.SubItems[0]) ;
   sign := item.SubItems[1];
 
   {yirminci yüzyıl mavi renkte}
   if year < 2000 then
     Sender.Canvas.Font.Color := clBlue
   else
     Sender.Canvas.Font.Color := clRed;
 
   {Kalın "aquarius"}
   if sign = 'Aquarius' then
     Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsBold];
 
 end; (*ListView-AdvancedCustomDrawItem*)
 

Cevapla