اود انشآء او التعديل على ال Listbox ؟

[AL-MOB4RM3G]

جزآك الله خيرا اخي هاني,

بالنسبة لهذا, عند وضعه وعمل Scroll بالموس يحدث خلل,

PHP كود :

begin
  with ListBox1.Canvas do
  begin
    Pen.Color := RGB(222, 222, 222);    // BorderColor

    if Index < 1 then
      Rectangle(Rect)
    else
      Rectangle(Rect.Left, Rect.Top - 1, Rect.Right, Rect.Bottom);

    if (odSelected in State) then
    begin
      Brush.color := $00cccccc;//ListBox1.Color;
      Font.color := $888888;//Text Color
      Fillrect(Rect);
    end;

    TextOut(Rect.Left + 3, Rect.Top + 2, ListBox1.Items[Index]);
  end;
end; 


الخلل هو, بعد الضغط على احد ال items ولنفترض الخآمسة,
وبعدها عمل Scroll يحدث تلوّن في السيت بوكس غير صحيحة,,
هل هناك طريقة لتفآدي هذا الخطأ ؟

وهذا,

PHP كود :

if (odSelected in State) then 


ال State معرّف TOwnerDrawState لكن ما هو على ارض الوآقع ؟

جزآك الله خيرا اخي الكريم