| demenev | Дата: Вторник, 05.01.2010, 15:09 | Сообщение # 1 |
|
Группа: Удаленные
| void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index, TRect &Rect,
TOwnerDrawState State)
{
ListBox1->Canvas->FillRect(Rect);
ListBox1->Canvas->TextOut(Rect.Left , 2, Rect.Top, ListBox1->Items->Strings[Index]);
if (State.Contains(odSelected))
{
ListBox1->Canvas->Brush->Color = clBlack;
ListBox1->Canvas->FillRect(Rect);
ListBox1->Canvas->TextOut(Rect.Left , 2, Rect.Top, ListBox1->Items->Strings[Index]);
}
}
|
| |
| |
