ListView (view style: vsReport)

[Delphi_ProGer]

Здраствуйте!
У меня есть компонент - ListView (view style: vsReport). Проблема в том, что я рисую на Canvas с OwnerDraw=True, и когда изменяю Width колонки, то у меня выходит такое:


Как мне отловить собитие на изменение Width колонки, чтобы пеперисовать тогда Item'ы??

[Delphi_ProGer]

никто не знает

[mihali4]

Так... Не хотелось, но придется...

3. Не флудить. Флудом (пустой болтовней) считается все, не относящееся к теме. Здесь вам не чат, а форум серьезно увлеченных людей.
К флуду относится также:
- "апание" темы, т.е. попытка привлечь к теме повышенное внимание за счет других, чужих тем;
- необоснованное (не требующееся по смыслу) цитирование предыдущего поста;
- оверквотинг (избыточное цитирование). При цитировании имеет смысл оставлять в цитате только тот текст, который имеет непосредственное отношение к вашему ответу.
- размещение своих постов подряд друг за другом - пользуйтесь кнопкой "Правка" для изменения своего сообщения. Исключение составляют лишь случаи, когда с момента написания предыдущего поста прошло не менее дня.

За флуд автор поста также получит нарушение №1.

[Аватар]

Вот выдернул из рабочей проги, ни каких эффектов подобного рода не наблюдаю

procedure TFBookEdit.ListViewDrawItem(Sender: TCustomListView; Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var xColor: TColor;
    xRect: TRect;
    xBitmap: TBitmap;
    i: Integer;
begin
  if (Sender.Selected=Item) and Sender.Focused then xColor:=clActiveCaption
  else if Sender.Selected=Item then xColor:=clBtnFace
  else xColor:=clWindow;
  Sender.Canvas.Brush.Color:=xColor;
  Sender.Canvas.FillRect(Item.DisplayRect(drLabel));
  if (Sender.Selected=Item) and Sender.Focused
    then Sender.Canvas.Font.Color:=clWindow
    else Sender.Canvas.Font.Color:=clWindowText;
  xRect:=Item.DisplayRect(drLabel);
  Sender.Canvas.TextRect(xRect,xRect.Left+2,xRect.Top,Item.Caption);
  for i:=1 to TListView(Sender).Columns.Count-1 do begin
    xRect.Left:=xRect.Right+1;
    xRect.Right:=xRect.Left+TListView(Sender).Columns.Items[i].Width-1;
    Sender.Canvas.FillRect(xRect);
    Sender.Canvas.TextRect(xRect,xRect.Left+5,xRect.Top,Item.SubItems[i-1]);
  end;
  if TListView(Sender).SmallImages=nil then Exit;
  Sender.Canvas.Brush.Color:=clWindow;
  Sender.Canvas.FillRect(Item.DisplayRect(drIcon));
  if Item.ImageIndex=-1 then Exit;
  xBitmap:=TBitmap.Create;
  ImageList.GetBitmap(Item.ImageIndex,xBitmap);
  Sender.Canvas.BrushCopy(Item.DisplayRect(drIcon),xBitmap,Bounds(0,0,xBitmap.Width,xBitmap.Height),xBitmap.TransparentColor);
  xBitmap.Free;
end;

[Delphi_ProGer]

Спасибо за код, однако, проблема не решилась...хм...неужели это только у меня такой ефект??