Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

Ну помогите же!   Найти похожие ветки 

 
f0rm   (2002-04-16 23:52) [0]

Блин. Может я тупой но немогу никак программно сделать нужный мне итем в литвьюве на красном фоне

ЗЫ: Отдельный Item listview"a закрасить отдельным цветом?


 
Ra ©   (2002-04-17 05:56) [1]

а в чем проблема?
ставим OwnerDraw=true и пишем обработчик события OnDrawItem


 
f0rm   (2002-04-17 11:52) [2]

Ну вот допустим у меня есть listview1.items[i] как мне сделать, чтобы при нажатии на копку фон этого итема зарисовывался красным цветом?


 
Starkom   (2002-04-17 11:56) [3]

в ListBox2DrawItem:
if (odSelected in State) then
begin
ListBox2.Canvas.Pen.Color:=clHighLight;
ListBox2.Canvas.Brush.Color:=clHighLight;
ListBox2.Canvas.Font.Color:=clRed;
end;
ListBox2.Canvas.Rectangle(Rect);
ListBox2.Canvas.TextOut(Rect.Left, Rect.Top, ListBox2.Items[Index])

прямо код свой кинул - сам наверное разберешься, там просто


 
exchoper ©   (2002-04-17 12:48) [4]

procedure TfmMain.lvTestCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
NodeRect: TRect;
begin
with lvLocsRes.Canvas do
begin
NodeRect := Item.DisplayRect(drBounds);
case integer(Item.Data) of
0 : Brush.Color:=clBlue;
else Exit; end;
FillRect(NodeRect);
end;
end;


 
exchoper ©   (2002-04-17 12:49) [5]

procedure TfmMain.lvTestCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
NodeRect: TRect;
begin
with lvtest.Canvas do
begin
NodeRect := Item.DisplayRect(drBounds);
case integer(Item.Data) of
0 : Brush.Color:=clBlue;
else Exit; end;
FillRect(NodeRect);
end;
end;


 
f0rm   (2002-04-17 16:44) [6]


> в ListBox2DrawItem:


2Starkom: А причем тут tlistbox?


> procedure TfmMain.lvTestCustomDrawItem(Sender: TCustomListView;
> Item: TListItem; State: TCustomDrawState; var DefaultDraw:
> Boolean);
> var


2exchoper: Закрашивать все итемы и я могу, а мне нужно закрасить один или несколько


 
exchoper ©   (2002-04-18 11:14) [7]

В моем варианте была закраска итемов только тех у которых в Data 1 прописана, остальные будут по-молчанию рисоваться, я же не выставляю DefaultDraw в FALSE а проседурка эта вызывается перед каждой прорисовкой итема, т.ч. все будет так как тебе надо, у меня все это отлично работает и именно для отдельных итемов, ты попробуй...


 
f0rm   (2002-04-18 17:31) [8]


> В моем варианте была закраска итемов только тех у которых
> в Data 1 прописана, остальные будут по-молчанию рисоваться,
> я же не выставляю DefaultDraw в FALSE а проседурка эта вызывается
> перед каждой прорисовкой итема, т.ч. все будет так как тебе
> надо, у меня все это отлично работает и именно для отдельных
> итемов, ты попробуй...


Пришлось отдельным итемам задавать indent разный



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

Текущий архив: 2002.05.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
1-2565
vadim2
2002-04-19 11:45
2002.05.02
где посмотреть исходник функции Pos(Substr;S: string) ?


7-2692
ogu
2002-01-26 15:51
2002.05.02
Очистка корзины в Windows XP


6-2637
Андре
2002-01-31 14:26
2002.05.02
Vypress Chat


14-2654
Андрей Сенченко
2002-03-26 18:51
2002.05.02
Хроники лаборатории


4-2719
sdan
2002-02-28 17:38
2002.05.02
API