Прокрутка ListBox

[digital-stream]

в события DrawItem добавил следующий код

  ListBox1.Canvas.Brush.Style := bsSolid;
  // Если строчка выделена то рисуем зелёную рамку
  if odSelected in State then
  begin
       ListBox1.Canvas.Brush.Color := $00B6FFB6;
       // Рисуем "залитый" прямоугольник
       ListBox1.Canvas.FillRect(Rect);
       ListBox1.Canvas.Brush.Color := $0051CE51;
       // Рисуем "пустой" прямоугольник
       ListBox1.Canvas.FrameRect(Rect);
  end else
  // или заливаем фон белым цветом если не выделена
  begin
       ListBox1.Canvas.Brush.Color := clWhite;
       // Рисуем "залитый" прямоугольник
       ListBox1.Canvas.FillRect(Rect);
  end;

  // Изменять координаты прямоугольника не обязательно
  // просто так красивее смотриться, можете закомментить
  Rect.Top := Rect.Top + 1;
  Rect.Left := Rect.Left + 2;

  // Это надо, чтоб текст выводился без фона
  ListBox1.Canvas.Brush.Style := bsClear;

  // Задаём цвет текста
  ListBox1.Canvas.Font.Color := clBlack;

  // Рисуем текст
  DrawText(ListBox1.Canvas.Handle, PChar(ListBox1.Items[Index]),
           Length(ListBox1.Items[Index]), Rect, 0);

и теперь если крутит барабан и или как там его еще называют средней кнопкой то Listbox прокручивается как бешеный.
в прочем кто меня не понял я выложил исходники .
Думаю причина в выделении кто знает помогите решит проблему

[Slym]

проблемы не наблюдаю

[Аватар]

Тоже проблем не увидел. Откомпилировать в D7 смог только убрав все префиксы перед юнитами в Uses. Первый раз такое вижу. Вопрос к ТС - что это означает?

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

Строку тоже пришлось закоментить

  Application.MainFormOnTaskbar := True;

[digital-stream]

Сообщение от Аватар

Тоже проблем не увидел. Откомпилировать в D7 смог только убрав все префиксы перед юнитами в Uses. Первый раз такое вижу. Вопрос к ТС - что это означает?

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

Строку тоже пришлось закоментить

  Application.MainFormOnTaskbar := True;

Я сам эти префиксы первый раз увидел когда установил XE2

[digital-stream]

Сообщение от Slym

проблемы не наблюдаю

почему все же не плавно прокручивается