TListbox Satırların Arka Planlarını Farklı Renklerde Gösterm

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

TListbox Satırların Arka Planlarını Farklı Renklerde Gösterm

Mesaj gönderen RamazanG » 26 Eyl 2010 10:36

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



TListBox “ lbOwnerDrawFixed” olarak ayarlamak zorundasın.

Kod: Tümünü seç

procedure TForm1.ListBox1DrawItem (Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState) ;
var
   myColor: TColor;
   myBrush: TBrush;
begin
   myBrush := TBrush.Create;
   with (Control as TListBox).Canvas do
   begin
     if not Odd(Index) then
        myColor := clSilver
     else
       myColor := clYellow;
       myBrush.Style := bsSolid;
       myBrush.Color := myColor;
       Windows.FillRect(handle, Rect, myBrush.Handle) ;
       Brush.Style := bsClear;
       TextOut(Rect.Left, Rect.Top,  (Control as TListBox).Items[Index]) ;
       MyBrush.Free;
   end;
end;

Cevapla