Delphi-Help

Главная Статьи Редактируемый описок (ComboBox) Как использовать разные цвета для каждого элемента TComboBox?

Как использовать разные цвета для каждого элемента TComboBox?

Оцените материал
(0 голосов)


Как использовать разные цвета для каждого элемента TComboBox?

ComboBox.Style = csOwnerDrawFixed или csOwnerDrawVariable.

procedure ComboColor( C: TWinControl; I: Integer; R: TRect;
                      EColor, OColor, FColor: TColor );
begin
   with ( C as TCombobox ) do
   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;
Другие материалы в этой категории: Компоненты выбора из списков — ListBox, CheckListBox и ComboBox »

Авторизация



Счетчики