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

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

← →
Seeker ©   (2005-03-03 19:55) [0]

есть ListView, в нем есть колонка с паролем где должны выводиться "ххх" вместо символов.
это я делаю так:

procedure TForm1.ListView1AdvancedCustomDrawSubItem(
 Sender: TCustomListView; Item: TListItem; SubItem: Integer;
 State: TCustomDrawState; Stage: TCustomDrawStage;
 var DefaultDraw: Boolean);
begin
IF  SubItem=1 then
 begin
   DefaultDraw:=false;
  IF not Item.Checked then
   TListView(Sender).Canvas.Font.Color:=clRed
  else TListView(Sender).Canvas.Font.Color:=clGreen;
  if Item.Selected then TListView(Sender).Canvas.Font.Color:=clWhite ;
   TListView(Sender).Canvas.TextOut(ListView1.Columns.Items[0].Width ,Item.DisplayRect(drBounds).Top+2,"XXXXXX");
 end
end;


но возникает поблема когда item выделен.На всю ширину колонки пропадает выделение.Как вручную прорисовать колонку выделенной строки?

---

← →
Sun bittern ©   (2005-03-03 21:23) [1]

if cdsSelected in State then
begin
отрисовать выделенный итем
end;

---

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

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



Память: 0.45 MB
Время: 0.025 c