cotseec, Спасибо. Ты прав. Отключил буферизацию, и полоса пропала. А вот обрабатывать WM_ERASEBKGND в моём случае будет не совсем к месту.
Но при отключении буферизации, немного мерцать начинать иногда..
Эта чёрная полоса - это background заднего буфера. Фокус в том, что везде пишут - в начале отрисовки ставится FillRect(ClientRect), т.е. закрашивают весь контрол фоном, а потом рисуют все итемы, а это кощунство. я не закрашиваю всю область фоном, а просто рисую итем. Таким образом, если сделать FillRect(ClientRect), то весь контрол будет белым, а нарисован только выделенный итем.
Вообщем придумал костыль =D
Код:
Var
...
backclear:integer;
Sinf:TScrollInfo;
maxPos:Integer;
begin
Sinf.cbSize:= SizeOf(ScrollInfo);
Sinf.fMask := SIF_POS + SIF_RANGE + SIF_PAGE;
GetScrollInfo(Control.Handle, SB_VERT, Sinf);
MaxPos:=Sinf.nMax - Round(Sinf.nPage) + 1;
if Sinf.nPos = MaxPos then
with (Control as TListBox).Canvas do begin
Brush.Color:=ClWindow;
BackRect:=ClientRect;
backclear:=(Control as TListBox).Height mod (Control as TListBox).ItemHeight;
BackRect.Top:=(Control as TListBox).Height-backclear;
FillRect(BackRect);
end;
...
Извлекаем информацию от скролла листбокса, если он находится внизу, - это сигнализирует о том, что там может нарисоваться эта черная полоса заднего буфера, Поэтому берём всю клиентскую область, смотрим сколько итемов может влезти, и забираем остаток области, и закрашиваем её =D