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

Вниз

Выделение в ListView   Найти похожие ветки 

 
Ranikin ©   (2003-01-14 16:07) [0]

Как выделить строку в ListView ?
Например :
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
if (Not TListItem(Sender).Checked) Then begin
TListItem(Sender).Checked:= True;
ListView1.Canvas.Brush.Color:=clAqua;
ListView1.Canvas.Font.Color:= clBlack;
end Else begin
TListItem(Sender).Checked:= False;
ListView1.Canvas.Brush.Color:=clWhite;
ListView1.Canvas.Font.Color:= clBlack;
End;
Так как покрасить элемент ?


 
pusrg ©   (2003-01-14 16:22) [1]

Перенеси код в OnDrawItem или OnCustomDrawItem


 
Ranikin ©   (2003-01-14 16:36) [2]

Если перенести в OnDrawItem и поставить в OnClick
ListView.OwnerDraw := True то перерисовка происходит только один раз и все...


 
ZEE ©   (2003-01-14 17:26) [3]

...
ListView1.OwnerDraw:=true;
...

ListView1DrawItem(...);
begin
TListItem(Sender).Checked:=not TListItem(Sender).Checked;
if TListItem(Sender).Checked then
begin
ACanvas.Canvas.Brush.Color:=clAqua;
ACanvas.Canvas.Font.Color:=clBlack;
ACanvas.TextOut(...);
end else
begin
ACanvas.Canvas.Brush.Color:=clWhite;
ACanvas.Canvas.Font.Color:=clBlack;
ACanvas.TextOut(...);
end;
end;


Примерно так



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

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

Наверх




Память: 0.47 MB
Время: 0.019 c
3-72102
Иксик
2002-12-28 15:38
2003.01.23
Как отсортировать таблицу Access в обратном порядке без SQL?


3-72039
Tols78
2003-01-05 09:22
2003.01.23
Delphi Clarion for Dos


3-72157
Behem
2003-01-04 11:55
2003.01.23
Как проще из поля int сделать автоинкрементное!!!


3-72140
Andreika
2002-12-31 18:16
2003.01.23
Потеря данных


3-72031
Aleksandr
2003-01-04 17:18
2003.01.23
Как реструктурировать таблицу Парадокс, не открывая ее?