Пропадают кнопки из ListBox

[Alter]

Пробую сделать список с кнопками, для начала(потом можно что-нибудь ещё внедрять). Созданные кнопки перестают отображаться при резком скачке из начала в конец списка(и резких движениях), когда кол-во кнопок > = 35. Что нетак с программой.
___________________________________ ___________________________
Программа эта тестовая, для отладки. Проверяю на ней.

[mihali4]

С этой все в порядке, задавал 2 сотни кнопок - ничего не пропадает, хоть с бубном вокруг пляши...
Ищите гада в системе...

[Alter]

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

С этой все в порядке, задавал 2 сотни кнопок - ничего не пропадает, хоть с бубном вокруг пляши...
Ищите гада в системе...

При прокрутке мышей и при помощи PageUp и PageDown, кнопки непропадают при большом колличестве кнопок.
Но если сделать по этому способу(даже при 36 кнопках).

Вот так сделайте:
1) выберите для создания много кнопок, хоть 200 и т.д;
2) установите при помощт мыши, первую строку выделенной;
3) нажмите End на клаве. При переходе из начало в конец(при колл-ве кнопок > = 35) при помощи Home и End, происходит пропадание.

[Stilet]

Вот тут подкрути:

procedure TForm1.LBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with LBox1 do
   begin
 IF (odSelected in State) Then
  Canvas.Brush.Color := clred;
  Canvas.FillRect(Rect);
  SetBKMode(Canvas.Handle, TRANSPARENT);
  Canvas.Font.Color := $00C66931;
  Canvas.TextOut(Rect.Left + ButnX[Index].Width + 32 + 4,
                 Rect.Top + 9, Items[Index]);
//-----------------------------------------
 ButnX[index].Top := Rect.Top;
//-----------------------------------------
  ButnX[index].Repaint;
   end;
end;

Понял?

[Alter]

Спасибо, то что нужно.