جدا کردن آیتم های Combobox

[delphiprog3000]

با سلام خدمت دوستان واساتید محترم.

در زمینه جدا کردن آیتمهای Combobox دوستان چه راهی و یا چه کامپوننتی رو پیشنهاد میکنند؟

به این صورت:


با تشکر فراوان..............

[delphiprog3000]

با سلام.
در روشی که خودم استفاده کردم. بعد از هر بار لود کردن مقادیر در combobox به انتهای آنها Underline اضافه میشود.

ایراد این روش : خود underline هم انتخاب میشود.

دوستان راهی در این ضمینه ندارند.؟؟؟؟؟

با تشکر................

[delphiprog3000]

با سلام.

این روشی که من میخوام دقیقا شبیه انتخاب فونت در نرم افزارهای ماکروسافت .

که به طور پیش فرض بیشترین انتخاب رو در اول و بعد از خط فونت های عادی رو میاره.

دوستان راهی در این ضمینه یا حتی اظهار نظری ندارند.

ممنون میشم دوستان راهنمایی نمایند..........................

[taha]

سلام
می تونی یه خط بکشی زیر آیتم مورد نظرت

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect:

    TRect; State: TOwnerDrawState);

begin

  ComboBox1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, Combobox1.Items[Index]);

  if Index = 3 then

    Combobox1.Canvas.Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Top + 1);

end;

این رو هم قبلش یادت نره

Combobox1.Style := csOwnerDrawVariable;