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

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

TListBox, CNDrawItem [D7]

Pavelq ©   (2008-01-05 23:07:00) 

Мне захотелось из TListBox убрать выделение фокуса (избавиться от прорисовки DrawFocusRect), я попробовал сделать наследника TListBox:
 TListBox = class(StdCtrls.TListBox)
 private
   procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;
 end;

В котором обработать CN_DRAWITEM по своему, без вызова DrawFocusRect. (Получается, что мне нужно избавиться только от одной строки из оригинала)

procedure TCustomListBox.CNDrawItem(var Message: TWMDrawItem);
var
 State: TOwnerDrawState;
begin
 with Message.DrawItemStruct^ do
 begin
   State := TOwnerDrawState(LongRec(itemState).Lo);
   FCanvas.Handle := hDC;
   FCanvas.Font := Font;
   FCanvas.Brush := Brush;
   if (Integer(itemID) >= 0) and (odSelected in State) then
   begin
     FCanvas.Brush.Color := clHighlight;
     FCanvas.Font.Color := clHighlightText
   end;
   if Integer(itemID) >= 0 then
     DrawItem(itemID, rcItem, State) else
     FCanvas.FillRect(rcItem);
   if odFocused in State then DrawFocusRect(hDC, rcItem);
   FCanvas.Handle := 0;
 end;
end;
Но понятное дело мне не удается реализовать задумку, ибо например FCanvas находится в private у оргинала, и у меня нет доступа к нему из наследника.

Что в таком случае сделть?

---

{RASkov}   (2008-01-05 23:17:00) [1]

Кстати... да, что бы заного отрисовать содержимое листбокса, незачем делать наследника.... См [1]

---

{RASkov}   (2008-01-05 23:16:00) [2]

> [0] Pavelq   (05.01.08 23:07)

Зато остается Canvas :) Чем он тебе не угодил?)
ЗЫ Букавку F убери....

---

Джо   (2008-01-05 23:13:00) [3]

Рисуй в обработчике OnDrawItem при Style := OwnerDrawFixed.

---

Наверх