VPF::закраска cells в dxDBGrid - Форум программистов

Fedia

Дата 30.8.2006, 13:26 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13

Цитата(Akella @ 29.8.2006, 15:09

)

если значение любой ячейки строки числовое и мньше нуля

Млин, задача оказалась не из легких. Но, слава Богу, решаемая smile

Если у тебя работал вариант закраски отдельных ячеек, то теоретически должен сработать и этот:

Код


var
  Form1: TForm1;
  RecN: Integer = -1;
  DoDraw: Boolean;
//...
var
  i, n: integer;
begin
  if AViewInfo.GridRecord.RecordIndex<>RecN then
  begin
    RecN:=AViewInfo.GridRecord.RecordIndex;
    DoDraw:=False;
    with cxGrid1DBTableView1.DataController do
    begin
      for i:=0 to AViewInfo.GridRecord.ValueCount-1 do
      if (VarType(Values[RecN, i]) and varTypeMask in
        [varInteger, varDouble]) then
      if (Values[RecN, i] < 0) then
      begin
        DoDraw:=True;
        Break;
      end;
    end;
  end;
  if DoDraw then
  ACanvas.Font.Color:=clRed;
end;

Как видишь использования глобальных переменных избежать не удалось. Можно конечно сделать и без них, но тогда для каждой ячейки придется перебирать все значения строки, что в общем притормаживает прорисовку. А отдельного события прорисовки строки я не нашел.
cxGrid1DBTableView1 из примера типа TcxGrid1DBTableView. Если при настройке грида ты менял названия его объектов, то название этого должно находиться выше кнопки "Customize..." справа.

Это сообщение отредактировал(а) Fedia - 30.8.2006, 22:10

--------------------

Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…

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