| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ListBox [D6, Win95/98]

v_pilot ©   (2002-09-06 18:27:00) 

Необходимо в ListBox у выбранного элемента Font.Style:=[fsStrikeOut], т.е. этот самый элемент зачеркивать.

---

MBo   (2002-09-06 18:32:00) [1]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
ListBox1.Canvas.FillRect(Rect);
if odSelected in State then
ListBox1.Canvas.Font.Style:=ListBox1.Canvas.Font.Style+[fsStrikeOut];
ListBox1.Canvas.TextOut(Rect.Left+1,Rect.Top+1,ListBox1.Items[Index]);
end;

---

Наверх