| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ListView [D7, XP]

TApp ©   (2007-03-14 15:20:00) 

Пытаюсь сделать собственную отрисовку ListView, подскажите как перехватить изменение ширины колонок, знаю что TWMNotify а дальше...

procedure TFrmMain.ListViewCNDrawItem(var Message: TWMDrawItem);
begin
 with Message.DrawItemStruct^ do begin
   if (itemState and ODS_SELECTED) <> 0 then
   begin
     with LV.Canvas do
     begin
       Pen.Color:= clRed;
       Brush.Color:= clHighlight;
       Font.Color:= clWhite;
       Rectangle(rcItem.Left + 18, rcItem.Top, LV.ClientWidth, rcItem.Bottom);
     end;
   end else
   begin
     with LV.Canvas do
     begin
       Pen.Color:= clWhite;
       Brush.Color:= clWhite;
       Font.Color:= clBlack;
       Rectangle(rcItem.Left + 18, rcItem.Top, LV.ClientWidth, rcItem.Bottom);
     end;
   end;
   TextOut(LV.Canvas.Handle, rcItem.Left + 20, rcItem.Top + 1,
     PChar(LV.Items.Item[itemID].Caption),
       Length(PChar(LV.Items.Item[itemID].Caption)));
   TextOut(LV.Canvas.Handle, LV.Columns[1].Width + 3, rcItem.Top + 1,
     PAnsiChar(LV.Items.Item[itemID].SubItems.Strings[0]),
       Length(PAnsiChar(LV.Items.Item[itemID].SubItems.Strings[0])));
   ImageList1.Draw(LV.Canvas, rcItem.Left + 1, rcItem.Top, 0, true);
   LV.Canvas.Handle:= 0;
 end;
end;

procedure TFrmMain.ListViewCNMeasureItem(var Message: TWMMeasureItem);
begin
 with Message.MeasureItemStruct^ do begin
   ItemHeight:= 16;
 end;
end;

procedure TFrmMain.ListViewWndProc(var Message: TMessage);
begin
 if Message.Msg = CN_DRAWITEM then
   ListViewCNDrawItem(TWMDrawItem(Message))
 else
 if Message.Msg = CN_MEASUREITEM then
   ListViewCNMeasureItem(TWMMeasureItem(Message))
 else
   OldListViewWndProc(Message);
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
 OldListViewWndProc:= LV.WindowProc;
 LV.WindowProc:= ListViewWndProc;
end;

---

TApp   (2007-03-14 17:13:00) [1]

> MBo ©   (14.03.07 16:29) [1]


А примером не поможете плизззз..

---

MBo   (2007-03-14 16:29:00) [2]

проверять NMHdr.code
HDN_BEGINTRACK, HDN_TRACK, HDN_BEGINTRACKW, HDN_TRACKW

---

Наверх