Условное выделение при 2-х условиях

Комментарии

• Andrew_Sh г.Минск

  September 2005 отредактировано 18:39

  mznan написал:

  Пишу так: Value=5 и при этом значении у меня в Cross фон меняется на другой цвет.
  А как добавить еще одно условие? Например: Value='цемент' ?
  
  И еще один вопрос. Как организовать условное выделение из скрипта?

  На первый вопрос - только через событие OnPrintCell.
  
  На второй вопрос - напишите обработчик события OnPrintCell для кросса. В доке все достаточно подробно описано.
  
  Пример:

  procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  begin
   if (Value>=2001) and (Value<=3000) then
     Memo.Font.Color := clGreen
   else if Value>=3001 then
     Memo.Font.Color := clBlue
   else
     Memo.Font.Color := clRed;
  end;
  
• mznan

  September 2005 отредактировано 18:39

  Все получилось. Большое спасибо.
  Еще вопросик. Можно ли задавать цвета в шестнадцатиричном формате?
• Andrew_Sh г.Минск

  September 2005 отредактировано September 2005

  mznan написал:

  Все получилось. Большое спасибо.
  Еще вопросик. Можно ли задавать цвета в шестнадцатиричном формате?

  Можно. Точно как и в Delphi для использования 16-ричных чисел используйте знак доллара $ перед значением.
  

    Memo.Font.Color := $0000FF; // красный
  

  
  но рекомендовал бы все же использовать константы вместо литералов. Если нет стандартной, то объявите свою и используйте. Потом проще будет модифицировать скрипт.