Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.017 c