Скачать: CL | DM;

ListBox   Найти похожие ветки 

← →
v_pilot ©   (2002-09-06 18:27) [0]

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

---

← →
MBo ©   (2002-09-06 18:32) [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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.008 c