как сделать полосатый листбокс?

[user_jasser]

мне нужно чтоб итемы отличались друг от друга цветом. я при добавление итема делал так:

  Result:= SendMessage(Handle, LB_ADDSTRING, 0, str);
  SendMessage(Handle, LB_SETITEMDATA, WPARAM(Result), data);
  SendMessage(Handle, LB_GETITEMRECT, Result, LongInt (@rcItem));
  
  DC:= GetDC(Handle);
  Br:= CreateSolidBrush($00408000);

  SelectObject(DC, Br);
  
  Rectangle(DC, rcItem.TopLeft.x, rcItem.TopLeft.y, rcItem.BottomRight.x, rcItem.BottomRight.y);
  
  DeleteObject(Br);
  ReleaseDC(Handle, DC);

проблема в том что контекст сразу удаляеться. вопрос: правельно ли я расписал метод, при каком событие надо вызывать эту ф-ию, и есть ли у кого нить пример полосатого листбокса на WinApi?

[rpy3uH]

если я не ошибаюсь, то полосатость листбокса реализуется не во время добавления, а во время прорисовки контрола.

[seedam]

Я тоже так думаю, делается все это вначале.

[user_jasser]

Это как так? Я слышал про стиль окна "LBS_OWERDRAW" но там не разобрался как добавить итемы в листбокс. через "LB_ADDSTRING" строки получаються невидимые..

[mutabor]

Правильно Грузин говорит. Это при перерисовке делается. В Дельфи это делается по событию DrawItem, значит на ВинАпи нужно ловить аналогичное сообщение перерисовки и по нему уже раскрашивать.

[user_jasser]

mutabor
Дело в том что я дебажу листбокс на сообщение WM_DRAWITEM, а оно ваще не черта не выводит...

[Роман Радер]

покажи код. должно работать.

[user_jasser]

Роман Радер
типо так:

function NewListBoxProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  case uMsg of
    WM_DRAWITEM :
    begin
      DebugMessage('WM_DRAWITEM');
    end;
    WM_CHAR :
    begin
      if wParam = $0A then begin
         DestroyWindow(hWnd);
         SetFocus(vHWND[vScintilla]);
      end;
    end;
  end;
  Result:= CallWindowProc(vWNDPROC[vListBox], hWnd, uMsg, wParam, lParam);
end;          

function TVjassEdit.ListBoxCreate(hWndParent: hWND; X, Y, nWidth, nHeight: longint): hWND;
var Style: DWORD;
begin
  Style:= WS_CHILD or WS_VISIBLE or WS_BORDER or WS_VSCROLL;
  result:= CreateWindowEx(0, 'ListBox', nil, Style, X, Y, nWidth, nHeight, hWndParent, 0, hInstance, nil);
  vWNDPROC[vListBox]:= WNDPROC(SetWindowLong(result, GWL_WNDPROC, Longint(@NewListBoxProc)));
end;

даже со стилем LBS_OWERDRAW не пашет. Можеть этот сообщение должно главное окно получать?

[Роман Радер]

  vWNDPROC[vListBox]:= WNDPROC(SetWindowLong(result, GWL_WNDPROC, Longint(@NewListBoxProc)));

не въехал. vWNDPROC[vListBox] понятно. массив hwnd, vListBox-типа константа с индексом. неважно.
а вот в правой части...

[user_jasser]

Роман Радер
ну как бы подменяю виндовсный обработчик на свой. Ну собсно чтоб не писать весь обработчик наново, или как? Регить класс? У меня еще радитель листбокса чужее окно..