VPF::DevExpress TcxComboBox разноцветные строчки

Etar

Дата 7.8.2008, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 21.2.2008

Репутация: нет
Всего: 1

Привет!

Пытаюсь сделать так чтобы нужные мне строчки в списке оказались затененными (и вообще желательно бы, чтобы их можно было только видеть и нельзя было выбирать).

Пытаюсь реализовать перекраску через событие DrawItem выходит так, что текущая строчка в списке перекрасилась, а при открытии самого списка все начинает глючить и ни один элемент не рисуется.

Код


procedure TForm1.REGIONCOMBOBOXPropertiesDrawItem(AControl: TcxCustomComboBox;
  ACanvas: TcxCanvas; AIndex: Integer; const ARect: TRect;
  AState: TOwnerDrawState);
begin
   ComboColor2(AControl, AIndex, ARect, clRed, clGreen, clBlue);
end;

procedure ComboColor2(C: TWinControl; I : Integer; R : TRect; EColor, OColor, FColor : TColor);
 begin
  with (C as TcxCustomComboBox) do
   begin
      if Odd(I) then Canvas.Brush.color := OColor
                    else Canvas.Brush.color := EColor;
      Canvas.FillRect(R);
      Canvas.Font.Color := FColor;
      Canvas.Canvas.TextOut(R.Left,R.Top,Properties.Items[I]);
    end;
 end;

Подскажите пожалуйста, в чем дело, почему глюки?

Спасибо

Seeker

Дата 7.8.2008, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 23.11.2006

Репутация: нет
Всего: 1

Почему ошибки понятно. Ты вместо канвы попапа на канве комбика пытаешься рисовать.
Нарисовать задисэйблиный элемент можно примерно так:

Код


procedure TForm1.cxComboBox1PropertiesDrawItem(AControl: TcxCustomComboBox;
  ACanvas: TcxCanvas; AIndex: Integer; const ARect: TRect;
  AState: TOwnerDrawState);
begin
  ACanvas.DrawTexT(AControl.Properties.Items[AIndex], ARect, 0, False);
end;

А вот как запретить ему еще и выбираться пока не соображу smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »