Çeviri: Ramazan Gülbahar.
TListView Nesneleri Biçim, Renk, Grafik
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
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*)