Использовать разные цвета для каждого элемента TComboBoxDelphi , Компоненты и Классы , СпискиИспользовать разные цвета для каждого элемента TComboBox
Оформил: DeeCo procedure ComboColor(C: TWinControl; I : Integer; R : TRect; EColor, OColor, FColor : TColor); begin with (C as TCombobox) do //TCombobox oder T.....box begin if Odd(I) then Canvas.Brush.color := OColor else Canvas.Brush.color := EColor; Canvas.FillRect(R); Canvas.Font.Color := FColor; Canvas.TextOut(R.Left,R.Top,Items[I]); end; end; procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin ComboColor(Control, Index, Rect, clInfoBk, clWhite, clBlack); end; //Combobox.Style := csOwnerDrawFixed; Статья Использовать разные цвета для каждого элемента TComboBox раздела Компоненты и Классы Списки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |