TListWiew Selected [D7, WinXP]
Seeker © (2005-03-03 19:55:00)
есть 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:00) [1]
if cdsSelected in State then
begin
отрисовать выделенный итем
end;
Наверх 
ЧАТ |
Орешник |
|
