Цветные строки в TListBoxDelphi , Компоненты и Классы , СпискиЦветные строки в TListBox
Оформил: DeeCo procedure TForm1.FormCreate(Sender: TObject); begin //Or set this property in the object inspector //Oder im Objekt Inspektor einstellen ListBox1.Style := lbOwnerDrawFixed; end; procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with Control as TListBox do begin Canvas.FillRect(Rect); Canvas.Font.Color := TColor(Items.Objects[Index]); Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]); end; end; procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.AddObject('Red Item', Pointer(clRed)); end; procedure TForm1.Button2Click(Sender: TObject); begin ListBox1.Items.AddObject('Green Item', Pointer(clGreen)); end; Статья Цветные строки в TListBox раздела Компоненты и Классы Списки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |