Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ListView как в The BAT! / 9 сообщений из 9, страница 1 из 1
06.01.2004, 08:55
    #32369070
UlArt
UlArt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListView как в The BAT!
Как сделать чтобы при добалении в ListView новых строк
они были жирными (font.style=bold), а по прошествии времени
выбранная строка становилась обычной (font.style='')
типа как получение писем в BAT-е новые жирные, прочитанные-нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 09:51
    #32369095
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListView как в The BAT!
На OnSelectItem делай
Timer1.Enabled := False;
if (жирный фонт) then Timer1.Enabled := True;

А в OnTimer меняй fontstyle.




eNose
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2004, 02:56
    #32370102
UlArt
UlArt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListView как в The BAT!
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2004, 03:21
    #32370103
UlArt
UlArt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListView как в The BAT!
Что-то не меняет или я что не так делаю...
Если ListView без предустановленного фонт стиля жирного, то как добавить строку чтоб была жирной
ListView1.Items.Item[LV.Items.Count-1].ListView.Canvas.Font.Style:=[fsBold]
при добавлении новой строки не работает, а если
ListView.Font.Style:=[fsBold] то это распространяется на весь ListView1
а мне надо только при добавлении новой строки, а потом
у этой строки снимать жирность и желательно в OnClick
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2004, 08:28
    #32370131
Артем1
Артем1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListView как в The BAT!
видимо самому рисовать придется.
так, например:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  if Item.Index >  0  then
    ListView1.Canvas.Font.Style := [fsBold]
  else
    ListView1.Canvas.Font.Style := [];
  DefaultDraw := True;
end;


Условия, естественно, свои подставить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2004, 09:47
    #32370182
UlArt
UlArt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListView как в The BAT!
Артему1
Вопрос 1: Чем Advanced отдичается от простого CustomDrawItem?
Вопрос 2: Я прописал в просто, у меня есть колонка читал не читал и по ней идет проверочное условие, но когда идет смена жирности строка остается в прежнем состоянии пока не снимешь выделение (Selected) по моему надо чтоб refrish или repaint произошел, но Item.ListView.Canvas.Refresh не работает, а
Item.ListView.Refresh начинает мигать. Что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2004, 09:57
    #32370184
Артем1
Артем1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListView как в The BAT!
Ответ 1: Параметрами :)). Не знаю, чем отличается, посмотри в хелп-е.
Ответ 2: Вот так нормально работает:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure TForm1.Button1Click(Sender: TObject);
begin
  FFlag := not FFlag;
  ListView1.Repaint;
end;

procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  if FFlag and (Item.Index =  0 ) then
    ListView1.Canvas.Font.Style := [fsBold]
  else
    ListView1.Canvas.Font.Style := [];
  DefaultDraw := True;
end;


FFlag просто булевая переменная. у меня нормально работает. Delphi 6
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2004, 10:20
    #32370205
UlArt
UlArt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListView как в The BAT!
У меня 5-ка и у меня прорисовывается окончательно только когда ткнешь мышой в пустое место(получается прорисовка из-за смены selected-a)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.01.2004, 10:30
    #32370214
Артем1
Артем1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListView как в The BAT!
покажь код
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ListView как в The BAT! / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]